📄 regok.asp
字号:
<%
Response.Buffer=true
http = Request.ServerVariables("HTTP_REFERER")
If instr(http,"ljlreg.asp")=0 Then
response.write "非法请求！"
response.end
end if
userip=Request.ServerVariables("REMOTE_ADDR")
name=trim(Request.form("ljlname"))
pwdtishi=Request.form("pwdtishi")
pwdkey=Request.form("pwdkey")
dq=trim(Request.form("menpai"))
if left(name,3)="%20" or InStr(name,"or")<>0 or name="无" or name="站长" or name="未定" or name="系统管理员" or name="爹" or name="管理员" then response.redirect "error.asp?id=486"
psw=trim(Request.form("ljlpwd"))
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="SELECT * FROM 用户 WHERE 姓名='" & name & "'"
set Rs=conn.Execute(sql)
If Rs.Bof OR Rs.Eof Then
temppass=StrReverse(left(psw&"zxcvbnm,./",10))
templen=len(psw)
mmpassword=""
for j=1 to 10
mmpassword=mmpassword+chr(asc(mid(temppass,j,1))-templen+int(j*1.1))
next
psw=replace(mmpassword,"'","B")
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
rs.Close
sql="SELECT * FROM 用户 WHERE 状态='1'"
set rs=conn.Execute(sql)
If not(Rs.Bof OR Rs.Eof) Then
id=rs("id")
sql="update 用户 set 姓名='"&name&"',状态='无',密码='"&psw&"',门派='"&dq&"',lasttime='" & sj & "',lastip='" &userip & "',ljl_pwd='"&pwdtishi&"',ljl_key='"&pwdkey&"' where id="&id
conn.Execute(sql)
rs.Close
conn.close
set rs=nothing
set conn=nothing
else
sql="insert into 用户(姓名,密码,门派,状态,lasttime,lastip,ljl_pwd,ljl_key) values('"&name&"','"&psw&"','"&dq&"','无','"&sj&"','"&userip&"','"&pwdtishi&"','"&pwdkey&"')"
conn.execute(sql)
conn.close
set rs=nothing
set conn=nothing
end if
%>
<html>
<head>
<title>注册信息</title>
<link rel="stylesheet" href="setup.CSS">
</head>
<body oncontextmenu=self.event.returnValue=false text="#000000" link="#FFFF00" alink="#FFFF00" vlink="#FFFF00" leftmargin="0" topmargin="20">
<table border=1 bgcolor="#008080" align=center width=369 cellpadding="10" cellspacing="13" height="203" bordercolordark="#FFFFFF" bordercolorlight="#FFFFFF">
<tr>
<td height="264" width="314">
<div align="center">
<p><span lang="zh-cn">申请完成！</span> </p>
<table width="314" border="1" cellspacing="0" cellpadding="3" bordercolorlight="#099CCF" bordercolordark="#099CCF" height="141" bgcolor="#099CCF">
<td valign="top" width="296" bordercolor="#FFFFFF" bgcolor="#FFFFFF" height="133"> <p>
<font color="#FF0000">请牢记您的密码提示问题和答案,这个是找回帐号<br>
<br>
的凭据!<br>
>></font><b><font color="#0000FF"><span lang="zh-cn">已经提交，请等候管理员审核通过后，方可使用本系统！</span></font></b><font color="#FF0000"><<</font></table>
<p align=center style='font-size:14;color:red'>
<input type=button value=关闭窗口 onClick='window.close()' name="button">
</p>
</div>
</td>
</tr>
</table>
</body>
</html>
<%else
Response.Redirect "error.asp?id=167"
rs.Close
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -