代码什么意思?!求助!!

cclab1123 2008-01-19 09:08:28

各位大哥能给个详细解释吗!
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<%
Dim isLogin,UName,Pwd
isLogin=False
UName=Trim(Request.Form("UName"))
Pwd=Request.Form("Pwd")

If Request.Form("isSubmit") <> "" Then
UName=Replace(UName,"'","''")
If Len(UName) <1 Then
Response.Redirect("?rnd=" & Rnd())
End If
Pwd=MyMd5(Pwd)'¼ÓÃÜÃÜÂë

Dim rs
Set rs=Server.CreateObject("Adodb.Recordset")
strSql="Select Top 1 * From tYD_Admin Where UName='" & Uname & "' And Pwd='" & Pwd & "'"
rs.Open strSql,MM_Conn_STRING,3,3
If Not rs.Eof Or Not rs.Bof Then
If LCase(rs("UName"))=LCase(UName) And rs("Pwd")=Pwd Then
isLogin=True
Response.Cookies("a")
Session("YD_Global_Back_Admin_isLogin")="1"
Session("YD_Global_Back_Admin_AdminID")=rs("AdminID")
Session("YD_Global_Back_Admin_Power")=Replace(rs("Power")," ","")
'rs("LastIP")=Request.ServerVariables("REMOTE_HOST")
'rs("LastDate")=Now()
'rs.Update()
Response.Redirect("default.asp")
End If
End If
rs.CLose
Set rs=Nothing

Dim SaveType
SaveType=Trim(Request.Form("SaveType"))
If Not IsNumeric(SaveType) Then
SaveType=0
Else
SaveType=Abs(SaveType)
End If
End If
%>

...全文

114 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

cclab1123 2008-01-21

打赏
举报

那if语句要怎么写才对呢?

什么都不能 2008-01-19

打赏
举报

空白是你验证失败的时候就是空白。

cclab1123 2008-01-19

打赏
举报

IF语句不清楚做什么的,好象是判断isLogin 数值,来修改Cookies的,这些就是原来的代码,

什么都不能 2008-01-19

打赏
举报

文件中有乱码，是不是改动过文件的编码？
查找错误可以用排除法，也是最笨的办法，
将代码全部注释，在脚本最下面输出一些内容，可以用DW的注释功能方便一点。
然后逐行取消注释。
要不就用response.write 和 response.end
asp没有好的IDE所以只能用笨办法。

heshengfen123 2008-01-19

打赏
举报

后面那两个IF语句是什么用的,这样写会出错的

cclab1123 2008-01-19

打赏
举报

Pwd=MyMd5(Pwd)'¼ÓÃÜÃÜÂë
Response.Redirect("?rnd=" & Rnd())
Response.Redirect("?ErrInfo=ÓÃ»§Ãû»òÃÜÂë´í")
这些我都该过,可还是不奏效,因该是登陆时检验文件(就是上面的程序)有问题.
还是自己写的东西自己明白啊!
谢谢大家的热心帮助!
向无私奉献的人们致敬!!!

yalan 2008-01-19

打赏
举报

一片空白
可能是验证登陆的文件有错误，你把iis的启用asp脚本调试和浏览器的显示所有错误和启用脚本调试都打开
看看系统返回的错误
这样就能有的放矢了

另外：这个登陆写的一般，建议看懂后自己写。

还有：你发表的文章有很多乱码，是怎么回事呢？一定要验证这些乱码是否导致了编码错误，当然你说的输入用户名和密码后一片空白也许就是这些乱码引起的

cclab1123 2008-01-19

打赏
举报

是啊!这是别人写的,我现在在维护这个网站,结果现在就出问题了,输入用户名和密码后进入这个页面后就一片空白,没有任何动作处理,这个程序本身有什么错误吗?

什么都不能 2008-01-19

打赏
举报

就是一个登录脚本
获得登录用户信息
验证用户信息：
1.正确将登录信息记录到session和cookie中
2.错误不作任何相应
说实话，这个脚本写得不好，只可参考，不可照搬。

heshengfen123 2008-01-19

打赏
举报

DateAdd("h",8, Now())'对日期中的时间部分加上8

heshengfen123 2008-01-19

打赏
举报

<%@LANGUAGE="VBSCRIPT"       CODEPAGE="936"%>   

<!--#include       file="../Connections/Conn.asp"       -->   连接数据库

<!--#include       file="../comm/commfunc.asp"       -->   

<%   

Dim       isLogin,UName,Pwd   

isLogin=False   

UName=Trim(Request.Form("UName"))   '获取上一个页面的UName表单的值

Pwd=Request.Form("Pwd")             '获取上一个页面的Pwd表单的值



If       Request.Form("isSubmit")   <>   ""       Then   

UName=Replace(UName,"'","''")   '用''代替UName中出现的'

If       Len(UName)   <1       Then   '判断UName的长度是否大于1

Response.Redirect("?rnd="       &       Rnd())   '重定向到某个页面

End       If   

Pwd=MyMd5(Pwd)'¼ÓÃÜÃÜÂë   '加密密码



Dim       rs   

Set       rs=Server.CreateObject("Adodb.Recordset")   '定义一个数据集对象

strSql="Select Top  1 * From tYD_Admin Where UName='"&Uname&"' And Pwd='"&Pwd&"'"'查询符合条件的第一条数据

rs.Open       strSql,MM_Conn_STRING,3,3   '对数据执行查询操作

If Not rs.Eof Or Not rs.Bof Then   '判断是否有数据

If LCase(rs("UName"))=LCase(UName)  And rs("Pwd")=Pwd Then  '判断用户名与密码是否与数据库中的一致 

isLogin=True   '密码与用户名正确时把islogin置为true

Response.Cookies("a")   

Session("YD_Global_Back_Admin_isLogin")="1"   '对session对象赋值

Session("YD_Global_Back_Admin_AdminID")=rs("AdminID")   '同上

Session("YD_Global_Back_Admin_Power")=Replace(rs("Power")," ","")   '同上

'rs("LastIP")=Request.ServerVariables("REMOTE_HOST")   

'rs("LastDate")=Now()   

'rs.Update()   

Response.Redirect("default.asp")   '重定向到default.asp页面

End       If   

End       If   

rs.CLose   

Set       rs=Nothing   



Dim       SaveType   

SaveType=Trim(Request.Form("SaveType"))   

If       Not       IsNumeric(SaveType)       Then   '判断savetype是否为数字类型

SaveType=0   

Else   

SaveType=Abs(SaveType)   '获取绝对值

End       If   

End       If   

%>   

<!--If       isLogin       Then   

If       SaveType>   0       Then   

Response.Cookies("YD_Global_Back_Admin_isLogin")=Session("YD_Global_Back_Admin_isLogin")   

Response.Cookies("YD_Global_Back_Admin_AdminID")=Session("YD_Global_Back_Admin_AdminID")   

Response.Cookies("YD_Global_Back_Admin_Power")=Session("YD_Global_Back_Admin_Power")   

Select       Case       SaveType   

Case       1   

Response.Cookies("YD_Global_Back_Admin_isLogin").Expires=DateAdd("h",8,       Now())   

Response.Cookies("YD_Global_Back_Admin_AdminID").Expires=DateAdd("h",8,       Now())   

Response.Cookies("YD_Global_Back_Admin_Power").Expires=DateAdd("h",8,       Now())   

Case       2   

Response.Cookies("YD_Global_Back_Admin_isLogin").Expires=DateAdd("d",1,       Now())   

Response.Cookies("YD_Global_Back_Admin_AdminID").Expires=DateAdd("d",1,       Now())   

Response.Cookies("YD_Global_Back_Admin_Power").Expires=DateAdd("d",1,       Now())   

Case       3   

Response.Cookies("YD_Global_Back_Admin_isLogin").Expires=DateAdd("m",1,       Now())   

Response.Cookies("YD_Global_Back_Admin_AdminID").Expires=DateAdd("m",1,       Now())   

Response.Cookies("YD_Global_Back_Admin_Power").Expires=DateAdd("m",1,       Now())   

Case       4   

Response.Cookies("YD_Global_Back_Admin_isLogin").Expires=DateAdd("y",1,       Now())   

Response.Cookies("YD_Global_Back_Admin_AdminID").Expires=DateAdd("y",1,       Now())   

Response.Cookies("YD_Global_Back_Admin_Power").Expires=DateAdd("y",1,       Now())   

Case       Else   

Response.Cookies("YD_Global_Back_Admin_isLogin").Expires=DateAdd("h",8,       Now())   

Response.Cookies("YD_Global_Back_Admin_AdminID").Expires=DateAdd("h",8,       Now())   

Response.Cookies("YD_Global_Back_Admin_Power").Expires=DateAdd("h",8,       Now())   

End       Select   

End       If   

Response.Redirect("default.asp")   

Else   

Response.Redirect("?ErrInfo=ÓÃ»§Ãû»òÃÜÂë´í")   

End       If-->