跪求高手注释一段asp网页代码 急急急!!!
If Regrz="1" ThenResponse.Cookies(Art2008)("UserName") = UserName
Response.Cookies(Art2008)("GroupID") = AdminRS("GroupID")
Response.Cookies(Art2008)("Password") = MD5(RePassWord)
Response.Cookies(Art2008)("upload") = "user"
Errors="注册成功!您的用户名:" & UserName & ",您已成为了本站的正式会员!"
Else
Errors="注册成功!您的用户名:" & UserName & ",您需要通过管理员的认证才能成为正式会员!"
End If
Call Alert(Errors,"index.asp")
Response.end
end if
End Sub
if request("send")="ok" then
username=trim(request.form("username"))
usermail=trim(request.form("usermail"))
title=trim(request.Form("title"))
response.write "<script language='javascript'>"
response.write "alert('填写资料不完整,请检查后重新输入!');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
if checktxt(request.form("username"))<>request.form("username") then
response.write "<script language='javascript'>"
response.write "alert('您输入的用户名中含有非法字符,请检查后重新输入!');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
… …
if haogeyzm=cstr(session("haogeyzm")) then
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from gbook where online='1' order by Postdate desc"
rs.open sql,conn,1,3
rs.Addnew
rs("username")=Request("username")
rs("title")=Request("title")
rs("comments")=Request("comments")
rs("usermail")=Request("usermail")
rs("face")=Request("face")
rs("pic")=Request("pic")
rs("url")=Request("url")
rs("qq")=Request("qq")
online=Request("online")
view=cstr(view)
if view<>"0" and online<>"2" then view="1"
response.write "<script language='javascript'>"
response.write "alert('留言提交成功,单击“确定”返回留言列表!');"
end if
response.write "location.href='gly.asp';"
response.write "</script>"
response.end
end if