down_sort_save.asp 共享世纪内容管理系统 2.1 build 080704 全站开源版 - ASP源码程序

www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/down_sort_save.asp
    <!--#include file="RegNum.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站内容管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body>
<%
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"4","a")
zj=replace(zj,"5","b")
zj=replace(zj,"6","c")
zj=replace(zj,"7","d")
zj=replace(zj,"8","e")
zj=replace(zj,"9","f")
zj=replace(zj,"0","g")
zj=replace(zj,"1","h")
zj=replace(zj,"2","i")
zj=replace(zj,"3","j")
zj=replace(zj,"s","40")
zj=replace(zj,"v","41")
zj=replace(zj,"k","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"o","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"m","89")
zj=replace(zj,"u","20")
zj=replace(zj,"l","21")
zj=replace(zj,"w","22")
zj=replace(zj,"q","23")
zj=replace(zj,"c","24")
zj=replace(zj,"a","25")
zj=replace(zj,"x","26")
zj=replace(zj,"j","27")
zj=replace(zj,"b","28")
zj=replace(zj,"r","29")
zj=replace(zj,"y","30")
zj=replace(zj,"t","31")
zj=replace(zj,"z","32")
zj=replace(zj,"n","33")
zj=replace(zj,"p","34")
zj=replace(zj,"g","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
name="xoyu"
yregnum=zj*(len(zj)+len(name&"xoYuNews"))
Do While yregnum>10000000000
yregnum=yregnum-10000000000
loop
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if

if request("xoYuStudioID")="" then
response.write("<script>alert('错误:拜托~ 先选个软件再确定好不好!');history.go(-1)</script>")
response.end
elseif request("xoYuStudioDo")="生成" then
xoYuStudioID=replace(request("xoYuStudioID")," ","")
response.redirect "down_makesoftall.asp?type=xoYuStudioID&xoYuStudioID="&xoYuStudioID&""
response.end
elseif request("xoYuStudioDo")="移动" then
xoYuStudioID=replace(request("xoYuStudioID")," ","")
response.redirect "down_move.asp?xoYuStudioMoveType=id&xoYuStudioID="&xoYuStudioID&""
response.end
end if
%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<%
if request("xoYuStudioDo")="删除" then
conn.execute("delete from down where id in("&request("xoYuStudioID")&")")
conn.execute("delete from downfile where downid in("&request("xoYuStudioID")&")")
conn.close
set conn=nothing
response.redirect "down_sort.asp?id="&request("id")&"&page="&request("page")&"&k="&request("k")&""
response.end
elseif request("xoYuStudioDo")="星级" then
if request("hot")<>"" then
conn.execute("update down set hot='"&request("hot")&"' where id in("&request("xoYuStudioID")&")")
conn.close
set conn=nothing
response.write("<script>alert('成功:软件评级(星级)修改完成!');history.go(-1)</script>")
response.end
else
conn.close
set conn=nothing
response.write("<script>alert('错误:全部不给星星吗? 有点过份哦~~!');history.go(-1)</script>")
response.end
end if
elseif request("xoYuStudioDo")="推荐" then
if request("show")<>"" then
conn.execute("update down set show='"&request("show")&"' where id in("&request("xoYuStudioID")&")")
conn.close
set conn=nothing
response.redirect "down_sort.asp?id="&request("id")&"&page="&request("page")&"&k="&request("k")&""
response.end
else
conn.close
set conn=nothing
response.write("<script>alert('错误:推不推荐也做个决定吧!');history.go(-1)</script>")
response.end
end if
elseif request("xoYuStudioDo")="类别" then
if request("cd")<>"" then
conn.execute("update down set cd='"&request("cd")&"' where id in("&request("xoYuStudioID")&")")
conn.close
set conn=nothing
response.write("<script>alert('成功:软件类别修改完成!');history.go(-1)</script>")
response.end
else
conn.close
set conn=nothing
response.write("<script>alert('错误:麻烦你先选个类别~!');history.go(-1)</script>")
response.end
end if
elseif request("xoYuStudioDo")="会员" then
if request("hy")<>"" then
conn.execute("update down set hy='"&request("hy")&"' where id in("&request("xoYuStudioID")&")")
conn.close
set conn=nothing
response.redirect "down_sort.asp?id="&request("id")&"&page="&request("page")&"&k="&request("k")&""
response.end
else
conn.close
set conn=nothing
response.write("<script>alert('错误:会员软件这个非同小可,请先选好给那个等级的会员下载!');history.go(-1)</script>")
response.end
end if
end if
%>
</body></html>