📄 info_sort_save.asp
字号:
<!--#include file="zcm.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>程.序:惊.云</title>
<style>
body{font-size:9pt;line-height:140%}
</style>
</head>
<body>
<%
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(zcn&"JyDownH"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
if yzcv<>zcv then
response.write("<b><font color=""#FF0000"">错误：程序尚未注册,此功能不能使用!</font></b>")
response.end
end if
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("JyDownID")="" then
response.write("<script>alert('错误:拜托~ 先选个文章再确定好不好!');history.go(-1)</script>")
response.end
elseif request("JyDownDo")="生成" then
JyDownID=replace(request("JyDownID")," ","")
response.redirect "info_makeinfoall.asp?type=JyDownID&JyDownID="&JyDownID&""
response.end
elseif request("JyDownDo")="移动" then
JyDownID=replace(request("JyDownID")," ","")
response.redirect "info_move.asp?JyDownMoveType=id&JyDownID="&JyDownID&""
response.end
end if
%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
if request("JyDownDo")="删除" then
conn.execute("delete from info where id in("&request("JyDownID")&")")
conn.close
set conn=nothing
response.redirect "info_sort.asp?id="&request("id")&"&page="&request("page")&"&k="&request("k")&""
response.end
end if
%>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -