📄 zddll.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<% Response.ContentType="text/vnd.wap.wml; charset=utf-8" %>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<%
dim sjhm,sid,ipp
ipp=Request.ServerVariables("REMOTE_ADDR")
sid=request.querystring("sid")
code=Request.ServerVariables("QUERY_STRING")
code1=right(code,35)
sjhm=left(code1,11)
pass=right(sjhm,6)
if sjhm="" then
response.redirect "http://wap.nowtx.cn/bbs/sorry.gif"
response.end
end if
set objgbrs=Server.CreateObject("ADODB.Recordset")
ssql="select * from users where sjhm=" & sqlstr(sjhm)
objgbrs.open ssql,conn
if not objgbrs.eof then
if objgbrs("sjhm")=sjhm then
sql="update users set [grsb]='"&sid&"' where sjhm=" & sqlstr(sjhm)
conn.execute(sql)
response.redirect "http://wap.nowtx.cn/bbs/ok.gif"
response.end
end if
else
if conn.execute("select * from users where sjhm="& sqlstr(sjhm)).eof then
sql="insert into users(sjhm,mm,zcsj,myip) values ("
sql=sql & sqlstr(sjhm) & ","
sql=sql & sqlstr(pass) & ","
sql=sql & sqlstr(now()) & ","
sql=sql & sqlstr(ipp) & ")"
Application.Lock
conn.execute sql
Application.Unlock
sql="update users set [users]='"&sid&"' where sjhm=" & sqlstr(sjhm)
conn.execute(sql)
response.redirect "http://wap.nowtx.cn/bbs/reg.gif"
response.end
end if
end if
set objgbrs=nothing
conn.close
set conn=nothing
function sqlstr(data)
sqlstr="'" & Replace(data,"'","'") & "'"
End function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -