你的诺言我的沧海txt:asp问题,跪求高手解决!!!!!
来源:百度文库 编辑:高校问答 时间:2024/08/28 00:31:01
<!-- #include file="Conn.asp" -->
<!-- #include file="inc/class_sys.asp" -->
<!-- #include file="inc/md5.asp" -->
<!--#include file="inc/UPIConfig.asp"-->
<%
Call link_database()
'完整调用形式:
'<script src="Interface.asp?action=操作类型&name=用户名&Md5Info=验证串&pass=密码&lock=是否锁定&question=提示问题&answer=答案&email=电子邮件&sex=性别&save=Cookies保存选项"
'action、name、Md5Info是必填参数
'删除用户时不需要其它参数
'更新资料时,提供所要更新的信息即可
'注意:这里传递的用户密码为32位MD5加密
Dim Action,UpiUserName,UpiUserPass,UpiMd5Info,UpiQuestion,UpiAnswer,UpiEmail,UpiUserLock,UpiUserSex,UpiSaveCookies
Dim HLMd5Info
Dim TruePassword
Dim oblog
Dim rs
Dim rs_1,str_1,RegSiteIds
set oblog=new class_sys
oblog.start
RegSiteIds=Trim(Request("RegSiteId"))
Action = Trim(Request("action"))
UpiUserName = oblog.filt_badstr(Trim(Request("name")))
UpiUserPass = Trim(Request("pass"))
If Len(UpiUserPass) = 32 Then UpiUserPass = Mid(UpiUserPass,9,16)
UpiUserPass = oblog.filt_badstr(UpiUserPass)
UpiMd5Info = Ucase(Trim(Request("Md5Info")))
UpiQuestion = oblog.filt_badstr(Trim(Request("question")))
UpiAnswer = Trim(Request("answer"))
If Len(UpiAnswer)=32 Then UpiAnswer=Mid(UpiAnswer,9,16)
UpiEmail = oblog.filt_badstr(Trim(Request("email")))
UpiUserSex = Trim(Request("sex"))
UpiUserLock = Trim(Request("lock"))
UpiSaveCookies = Trim(Request("save"))
If Action="LogoutUser" Then Call LogoutUser()
If Not (Action = "" or UpiUserName = "" or UpiMd5Info = "") And HLIntegration = True Then
HLMd5Info = MD5(UpiUserName&SecurityKey)
If MID(UpiMd5Info,9,16) = Ucase(HLMd5Info) Then
Select Case Action
Case "AddUser"
Call AddUser()
Case "LoginUser"
Call LoginUser()
Case "LogoutUser"
Call LogoutUser()
Case "ModifyInfo"
Call ModifyUserInfo()
Case"ModifyPsw"
Call ModifyUserPsw()
Case "DelUser"
Call DelUser()
End Select
End If
End If
每一句是什么意思啊.我做的是一个整合的系统,这是和blog整合的前台程序,主要是实现,注册用户,修改用户资料,删除和登录等等的问题!
<!-- #include file="inc/class_sys.asp" -->
<!-- #include file="inc/md5.asp" -->
<!--#include file="inc/UPIConfig.asp"-->
<%
Call link_database()
'完整调用形式:
'<script src="Interface.asp?action=操作类型&name=用户名&Md5Info=验证串&pass=密码&lock=是否锁定&question=提示问题&answer=答案&email=电子邮件&sex=性别&save=Cookies保存选项"
'action、name、Md5Info是必填参数
'删除用户时不需要其它参数
'更新资料时,提供所要更新的信息即可
'注意:这里传递的用户密码为32位MD5加密
Dim Action,UpiUserName,UpiUserPass,UpiMd5Info,UpiQuestion,UpiAnswer,UpiEmail,UpiUserLock,UpiUserSex,UpiSaveCookies
Dim HLMd5Info
Dim TruePassword
Dim oblog
Dim rs
Dim rs_1,str_1,RegSiteIds
set oblog=new class_sys
oblog.start
RegSiteIds=Trim(Request("RegSiteId"))
Action = Trim(Request("action"))
UpiUserName = oblog.filt_badstr(Trim(Request("name")))
UpiUserPass = Trim(Request("pass"))
If Len(UpiUserPass) = 32 Then UpiUserPass = Mid(UpiUserPass,9,16)
UpiUserPass = oblog.filt_badstr(UpiUserPass)
UpiMd5Info = Ucase(Trim(Request("Md5Info")))
UpiQuestion = oblog.filt_badstr(Trim(Request("question")))
UpiAnswer = Trim(Request("answer"))
If Len(UpiAnswer)=32 Then UpiAnswer=Mid(UpiAnswer,9,16)
UpiEmail = oblog.filt_badstr(Trim(Request("email")))
UpiUserSex = Trim(Request("sex"))
UpiUserLock = Trim(Request("lock"))
UpiSaveCookies = Trim(Request("save"))
If Action="LogoutUser" Then Call LogoutUser()
If Not (Action = "" or UpiUserName = "" or UpiMd5Info = "") And HLIntegration = True Then
HLMd5Info = MD5(UpiUserName&SecurityKey)
If MID(UpiMd5Info,9,16) = Ucase(HLMd5Info) Then
Select Case Action
Case "AddUser"
Call AddUser()
Case "LoginUser"
Call LoginUser()
Case "LogoutUser"
Call LogoutUser()
Case "ModifyInfo"
Call ModifyUserInfo()
Case"ModifyPsw"
Call ModifyUserPsw()
Case "DelUser"
Call DelUser()
End Select
End If
End If
每一句是什么意思啊.我做的是一个整合的系统,这是和blog整合的前台程序,主要是实现,注册用户,修改用户资料,删除和登录等等的问题!
'主要的也就是
Select Case Action
Action '的值等于以下那种时运行
call '运行这个过程,所以你还得看这个过程
加我QQ977656我帮你整合!