20CN网络安全小组论坛 - 网站建设 - 这些代码是什么意思

论坛: 网站建设标题: 这些代码是什么意思

复制本贴地址

作者: eidos [eidos]

论坛用户

本帖由 [日月双星] 从 << 菜鸟乐园>> 转移而来

<%
dim rs
dim sql
userid=replace(trim(request("userid")),"'","")
password=replace(trim(Request("password")),"'","")

sql="select * from users where userid='"&userid&"'and password='"&password&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if request.cookies("userid")<>"" or request.cookies("password")<>"" then
response.cookies("okerer")="yesok"
else

sql="update users set nos=nos+1,logintime=now()+1 where id="&rs("ID")
conn.Execute(sql)
okgo=date()+1
response.cookies("userid")=""
response.cookies("password")=""
response.cookies("userid")=rs("userid")
response.cookies("password")=rs("password")
response.cookies("okerer")="yesok"
response.cookies("userid").expires=okgo
response.cookies("password").expires=okgo
end if

else
response.write"<script>alert('用户名或密码错误，不接受！');history.back();</Script>"
response.end
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 2</title>
</head>

<body>

</body>

</html>

地主发表时间: 04-08-10 10:59