这些asp代码什么意思啊?
发布网友
发布时间：2022-05-06 18:32
共2个回答
热心网友
时间：2023-10-15 05:44
if request("act")="do" then '获得传递的act的值为do的时候，执行
ID=request("ID") '获得传递的id的值
PASS=request("PASS") '获得传递的pass的值
errshow=""'初始化
if instr(ID,"'") or instr(ID,"%") or ID="" then errshow=" 格式错误 " '判断id中是否有非法字符
if PASS="" then errshow=errshow&" 输入密码 " 'pass为空，提示输入密码
if errshow="" then '没有非法字符，执行
set objconn=server.CreateObject("adodb.connection") '数据库连接
objconn.connectionstring="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("black.mdb")&";jet oledb:database"
objconn.open '打开数据库
set objrs=server.CreateObject("adodb.Recordset") '记录集对象
SQL="select * from [登陆]" '查询
objrs.open SQL,objconn,3,2 '执行sql语句，3，2用1，1也可以
do while not objrs.EOF '只要不到记录的结尾就继续循环
if ID=objrs("用户名") and PASS=objrs("密码") then 'id和密码存在
session("admin_user")=objrs("用户名") '三个session
session("INTO")="ok"
session("pass")=objrs("密码")
response.Write"<meta http-equiv=refresh content='0;url=opdb.asp'>" '打开opdb.asp
response.end
exit do '结束循环
end if '结束if
objrs.movenext '移动到下一条记录
loop 'do while循环
if objrs.EOF then errshow="请确认用户名密码" '用户名或密码不存在
objrs.close '关闭Recordset对象
set objrs=nothing '设置为nothing
%>
热心网友
时间：2023-10-15 05:44
放到TXT里面 头 尾加上另存HTM 打开看看就知道了
