哪位大虾帮我这几段程序加上注释，简单的就可以了

来源：百度知道 编辑：UC知道 时间：2024/05/13 02:38:27
第一个<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<%
dim rs
UserName1=Checkstr(request.form("UserName"))
PassWd1=Checkstr(request.form("PassWd"))
code=request.Form("code")
if trim(code)<>CStr(session("CheckCode")) then
response.write "<script LANGUAGE='javascript'>alert('对不起，登陆失败！请输入正确验证码');history.go(-1);</script>"
response.End()
end if
if trim(username1)<>"" then
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin where UserName='" & UserName1 & "' and passwd='" & passwd1 & "'",conn,1
if not rs.bof and not rs.eof then
session("admin_name")=rs("Username")
session("oskey")=rs("oskey")
session.Timeout=30
response.redirect "

<!--#include file="function.asp"-->
<%
dim rs
<!--从客房提交的表单里面提取数据-->
UserName1=Checkstr(request.form("UserName"))
PassWd1=Checkstr(request.form("PassWd"))
code=request.Form("code")
<!--判断用户提交的验证码是否正确-->
if trim(code)<>CStr(session("CheckCode")) then
response.write "<script LANGUAGE='javascript'>alert('对不起，登陆失败！请输入正确验证码');history.go(-1);</script>"
response.End()
end if
<!--把前台提交的数据和后台从数据库中查出来的数据进行比较，看是否存在这样的用户-->
if trim(username1)<>"" then
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin where UserName='" & UserName1 & "' and passwd='" & passwd1 & "'",conn,1
if not rs.bof and not rs.eof then
session("admin_name")=rs("Username")
session("oske