论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > ASP >

A450ASP影片租赁系统

  5.2页面设计及代码

 5.2.1注册页面及代码分析 内容来自www.paper51.com

内容来自论文无忧网 www.paper51.com

代码分析: paper51.com

当用户在点击注册,填写了注册信息,点注册按钮的时候,执行的代码如下:

内容来自www.paper51.com

‘如果检测到浏览器传递的值IsReg不为空,则执行代码;如果为空,则显示页面 内容来自www.paper51.com

‘代码部分 copyright paper51.com

IfRequest("IsReg")<>"" Then   

paper51.com

    '判断用户输入的合法性 copyright paper51.com

    ‘用户名、密码、确认密码、Email不能为空 内容来自论文无忧网 www.paper51.com

    IfRequest("UserName")="" OrRequest("UserPassword")=""&_

内容来自www.paper51.com

 OrRequest("ConfirmPassword")="" OrRequest("Email")="" Then

内容来自www.paper51.com

       ResultMsg("必填的项目没有填写,请返回重新填写完整的信息!") 内容来自论文无忧网 www.paper51.com

       Response.End 内容来自www.paper51.com

    End If

paper51.com

    ‘用户名不能为一排空格

paper51.com

    Dim tmpUserName paper51.com

    For i=1 ToLen(Request("UserName")) 内容来自www.paper51.com

       tmpUserName=tmpUserName&""

内容来自论文无忧网 www.paper51.com

    Next http://www.paper51.com

    IftmpUserName=Request("UserName") Then copyright paper51.com

       ResultMsg("请不要输入空格代替必填项目,请返回重新填写完整的信息!") copyright paper51.com

       Response.End

http://www.paper51.com

    End If paper51.com

    ‘密码与确认密码的输入必须匹配 内容来自论文无忧网 www.paper51.com

    IfRequest("UserPassword")<>Request("ConfirmPassword")Then

内容来自论文无忧网 www.paper51.com

       ResultMsg("两次输入的密码不匹配,请返回重新输入!")

内容来自论文无忧网 www.paper51.com

       Response.End paper51.com

    End If

内容来自www.paper51.com

    ‘Email必须符合格式 内容来自www.paper51.com

    IfIsValidEmail(Request("Email"))=False Then http://www.paper51.com

       ResultMsg("Email输入不符合规范,请返回重新输入!")

内容来自www.paper51.com

       Response.End

内容来自www.paper51.com

    End If

内容来自www.paper51.com

    ‘若QQ号不为空,则输入必须为数字 copyright paper51.com

    IfRequest("QQ")<>"" Then

内容来自论文无忧网 www.paper51.com

       IfIsNumeric(Request("QQ"))=False Then copyright paper51.com

           ResultMsg("QQ号码必须为数字,请返回重新输入!")

copyright paper51.com

           Response.End

内容来自www.paper51.com

       End If

paper51.com

    End If

copyright paper51.com

    ‘用户名与密码中不能包含SQL字符“’” http://www.paper51.com

IfInStr(Request("UserName"),"'")>0 OrInStr(Request("UserPassword"),"'")>0 Then paper51.com

       ResultMsg("字符“'”为非法输入,请去掉此字符!")

内容来自www.paper51.com

       Response.End 内容来自论文无忧网 www.paper51.com

    End If

http://www.paper51.com

    ‘用户名、密码、Email和QQ的字符数量不能超过数据库项目的数据类型的限制 内容来自论文无忧网 www.paper51.com

    IfLen(Request("UserName"))>20 OrLen(Request("UserPassword"))>20&_

内容来自论文无忧网 www.paper51.com

 Or Len(Request("Email"))>50Or Len(Request("QQ"))>20 Then http://www.paper51.com

       ResultMsg("输入超出了最大字符数量限制(用户名20字符以内”&_

copyright paper51.com

”,密码20字符以内,Email 50字符以内,QQ 20字符以内。)")

http://www.paper51.com

       Response.End

http://www.paper51.com

    End If

paper51.com

   

内容来自论文无忧网 www.paper51.com

    '取得用户输入 内容来自www.paper51.com

    DimUserName,UserPassword,Email,QQ 内容来自www.paper51.com

    UserName=Server.HTMLEncode(Request("UserName")) 内容来自www.paper51.com

   

内容来自论文无忧网 www.paper51.com

    内容来自论文无忧网 www.paper51.com

    '根据用户名判断用户是否已存在 paper51.com

    strSQL="SELECT UI_Name_SFROM [UserInfo]”&_ 内容来自www.paper51.com

”WHERE UI_Name_S='"&Request("UserName")&"'"

内容来自www.paper51.com

    SetobjRS=Server.CreateObject("ADODB.RecordSet")

内容来自论文无忧网 www.paper51.com

    objRS.Open strSQL,objConn,1,3

内容来自www.paper51.com

    ‘如果没有找到任何用户,则输出操作信息

http://www.paper51.com

    If Not objRS.BOF Or NotobjRS.BOF Then

copyright paper51.com

       ResultMsg("所注册的用户名已存在,请更换用户重新注册!") copyright paper51.com

       Response.End

http://www.paper51.com

    End If http://www.paper51.com

    objRS.Close

内容来自www.paper51.com

    内容来自www.paper51.com

    '将用户信息写入数据库 http://www.paper51.com

    strSQL="INSERT INTO[UserInfo] (UI_PI_ID_FN,UI_Name_S,UI_Password_S”&_

内容来自www.paper51.com

”,UI_IsLocked_B””,UI_CerRank_N,UI_IsProvider_B,UI_Email_S,UI_QQ_S,”&_ 内容来自www.paper51.com

”UI_IsAdmin_B,UI_RentCount_N)VALUES(0,'"&UserName&"','"&UserPassword&_ paper51.com

"',False,0,False,'"&Email&"','"&QQ&"',False,0)" http://www.paper51.com

    objConn.Execute(strSQL) paper51.com

    ResultMsg("您的注册已成功!") copyright paper51.com

    Set objRS=Nothing copyright paper51.com

    CloseDatabase

内容来自www.paper51.com

Else 内容来自www.paper51.com

5.2.2用户登陆界面及代码分析 http://www.paper51.com

用户登录时,需要检测用户名和用户密码;用户名和密码通过检测后,需要判断用户是否被锁定。检测通过后,还需要遍历数据库中的数据,找出有没有用户的租赁超过了期限,如果超过了则在数据库中进行标注。

paper51.com

代码分析:

http://www.paper51.com

<!--#includefile="CONN.ASP"--> http://www.paper51.com

<!--#includefile="ChkSQL.asp"-->

内容来自论文无忧网 www.paper51.com

<!--#includefile="ChkErr.asp"--> copyright paper51.com

<%

内容来自论文无忧网 www.paper51.com

DimstrSQL,objRS

内容来自www.paper51.com

SetobjRS=Server.CreateObject("ADODB.RecordSet") paper51.com

'取得用户文件名、密码 内容来自论文无忧网 www.paper51.com

DimUserName,UserPassword

http://www.paper51.com

'过滤SQL字符,防止SQL漏洞注入 内容来自www.paper51.com

UserName=ChkSQL(Request("UserName"))

paper51.com

‘UserPassword=Request("UserPassword") 内容来自论文无忧网 www.paper51.com

'在数据库中查找用户 copyright paper51.com

strSQL="SELECT* FROM [UserInfo] WHERE UI_Name_S='"&UserName&"'"

http://www.paper51.com

objRS.OpenstrSQL,objConn,1,3 copyright paper51.com

'判断用户是否存在

paper51.com

'若用户不存在则通过GetErr()函数提交并显示错误代码 paper51.com

IfobjRS.BOF Or objrs.EOF Then

内容来自www.paper51.com

    objRS.Close

内容来自www.paper51.com

    Set objRS=Nothing

http://www.paper51.com

    Response.Write GetErr(3)

paper51.com

    Response.End

http://www.paper51.com

Else

paper51.com

    '若用户存在,则检测用户密码的正误

http://www.paper51.com

    IfobjRS("UI_Password_S")<>UserPassword Then

http://www.paper51.com

       objRS.Close

copyright paper51.com

       SetobjRS=Nothing

http://www.paper51.com

       Response.WriteGetErr(4) copyright paper51.com

       Response.End paper51.com

    End IF 内容来自www.paper51.com

   

http://www.paper51.com

    '判断用户是否被锁定 http://www.paper51.com

    IfobjRS("UI_IsLocked_B")=True Then paper51.com

       objRS.Close copyright paper51.com

       SetobjRS=Nothing 内容来自www.paper51.com

       Response.WriteGetErr(5)

paper51.com

       Response.End copyright paper51.com

    End If

paper51.com

    paper51.com

    '建立用户私有变量 http://www.paper51.com

    Session.Timeout =30 内容来自论文无忧网 www.paper51.com

    Session("UserID")=objRS("UI_ID_N")

内容来自论文无忧网 www.paper51.com

    objRS.Close

http://www.paper51.com

   

内容来自www.paper51.com

    '每当有用户登录则刷新数据库,判断是否有影片的预订超时或超期未还

http://www.paper51.com

    strSQL="SELECTTAC_ReserveTime_D,TAC_StartTime_D FROM [Tenancy]”&_ 内容来自www.paper51.com

”WHERE TAC_StartTime_D IS NULL"

paper51.com

    objRS.Open strSQL,objConn,1,3 内容来自论文无忧网 www.paper51.com

    For i=1 To objRS.RecordCount

http://www.paper51.com

       '有超时的预订则删除 内容来自论文无忧网 www.paper51.com

       If IsNull(objRS("TAC_StartTime_D"))=TrueAnd&_ http://www.paper51.com

 DateDiff("h",objRS("TAC_ReserveTime_D"),Now())>12Then

内容来自论文无忧网 www.paper51.com

           objRS.Delete 内容来自www.paper51.com

       End If

内容来自www.paper51.com

       objRS.MoveNext

http://www.paper51.com

    Next 内容来自论文无忧网 www.paper51.com

    objRS.Close copyright paper51.com

    strSQL="SELECT * FROM[Tenancy] WHERE TAC_StartTime_D”&_

paper51.com

”IS NOT NULL AND TAC_EndTime_D IS NULL"

http://www.paper51.com

    objRS.Open strSQL,objConn,1,3 paper51.com

    Dim MsgUser

内容来自www.paper51.com

    For i=1 To objRS.RecordCount paper51.com

       '有超期租赁的则标注

内容来自www.paper51.com

       IfDateDiff("d",DateAdd("d",objRS("TAC_Lease_N"),&_

copyright paper51.com

objRS("TAC_StartTime_D")),Now())=>objRS("TAC_Lease_N")Then

内容来自www.paper51.com

           strSQL="UPDATE [Tenancy]SET TAC_TimeOut_B=True,”&_ paper51.com

”TAC_MsgUser_B=TrueWHERE TAC_ID_N="&objRS("TAC_ID_N") paper51.com

           objConn.Execute(strSQL) paper51.com

       End If copyright paper51.com

       objRS.MoveNext copyright paper51.com

    Next http://www.paper51.com

    objRS.Close paper51.com

    '跳转回主页 paper51.com

    Response.Redirect"index.asp"

内容来自www.paper51.com

EndIf 内容来自www.paper51.com

%>

内容来自论文无忧网 www.paper51.com

------分隔线----------------------------
联系方式