|
发表于 2006-10-23 13:54:52
|
显示全部楼层
编程思路,逻辑
;P,这些达到了,基本上没问题了。。。小弟假期到现在一直啃ASP,啃了四个月,暂时达到这水准,而且是在编程的生死边缘中挣扎到现在。。。。汗。。。
Sub UserLoginClass() '操作员登录
Call UrlInfor() '加载链接信息
Call UserLoginForm(ValUser,ValPwd)'加载获取登录表单信息
Call LoginPass(ValUser,ValPwd)'加载登录过程
End Sub
'------------------------------------------------------------------
Sub UserLoginForm(StrUser,StrPwd) '获取登录表单信息
StrUser=Trim(Request.Form("t1")) '用户名
Call WriteB(ChkStrNull(StrUser),UserInfor("Login",1),UrlLogin)
StrPwd=Trim(Request.Form("t2")) '密码
Call WriteB(ChkStrNull(StrPwd),UserInfor("Login",2),UrlLogin)
End Sub
'-------------------------------------------------------------------
Sub LoginPass(StrUser,StrPwd) '登录过程
Call ConnOpen(Conn) '创建连接数据库
Call AdminTableInfor()' 加载数据表信息
Set Rs=RsSet(Conn,3,1,"Select Top 1 "&AdminId&","&AdminUid&","&AdminPwd&","&UseApp&" from "& AdminTable &" Where "&AdminUid&"='"&StrUser&"'") '函数RsSet查询数据表
If Rs.RecordCount>0 Then
If Rs(AdminPwd)=StrPwd Then
If Rs(UseApp)<>0 then '验证是否已通过审核
Session(AdId)=Rs(AdminId)
Call RsClose(Rs)
Call ConnClose(Conn)
Response.Redirect UrlIndex
Response.End
Else
Call RsClose(Rs)
Call ConnClose(Conn)
Call WriteA(UserInfor("Login",6),UrlLogin)
End If
Else
Call RsClose(Rs)
Call ConnClose(Conn)
Call WriteA(UserInfor("Login",4),UrlLogin)
End If
Else
Call RsClose(Rs)
Call ConnClose(Conn)
Call WriteA(UserInfor("Login",3),UrlLogin)
End If
End Sub
谁来解说下,里面的参数传递应用。。。 |
|