论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 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

代码分析: http://www.paper51.com

当用户在点击注册,填写了注册信息,点注册按钮的时候,执行的代码如下: 内容来自www.paper51.com

‘如果检测到浏览器传递的值IsReg不为空,则执行代码;如果为空,则显示页面

paper51.com

‘代码部分

内容来自www.paper51.com

IfRequest("IsReg")<>"" Then   

copyright paper51.com

    '判断用户输入的合法性

http://www.paper51.com

    ‘用户名、密码、确认密码、Email不能为空

paper51.com

    IfRequest("UserName")="" OrRequest("UserPassword")=""&_ http://www.paper51.com

 OrRequest("ConfirmPassword")="" OrRequest("Email")="" Then paper51.com

       ResultMsg("必填的项目没有填写,请返回重新填写完整的信息!") copyright paper51.com

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

    End If

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

    ‘用户名不能为一排空格

paper51.com

    Dim tmpUserName 内容来自www.paper51.com

    For i=1 ToLen(Request("UserName"))

内容来自www.paper51.com

       tmpUserName=tmpUserName&""

paper51.com

    Next

paper51.com

    IftmpUserName=Request("UserName") Then 内容来自论文无忧网 www.paper51.com

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

       Response.End copyright paper51.com

    End If

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

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

    IfRequest("UserPassword")<>Request("ConfirmPassword")Then paper51.com

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

内容来自www.paper51.com

       Response.End

内容来自www.paper51.com

    End If 内容来自www.paper51.com

    ‘Email必须符合格式 paper51.com

    IfIsValidEmail(Request("Email"))=False Then copyright paper51.com

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

paper51.com

       Response.End

copyright paper51.com

    End If

内容来自www.paper51.com

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

    IfRequest("QQ")<>"" Then paper51.com

       IfIsNumeric(Request("QQ"))=False Then

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

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

copyright paper51.com

           Response.End

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

       End If copyright paper51.com

    End If

http://www.paper51.com

    ‘用户名与密码中不能包含SQL字符“’” 内容来自www.paper51.com

IfInStr(Request("UserName"),"'")>0 OrInStr(Request("UserPassword"),"'")>0 Then 内容来自论文无忧网 www.paper51.com

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

paper51.com

       Response.End

内容来自www.paper51.com

    End If

内容来自论文无忧网 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

paper51.com

    End If copyright paper51.com

    http://www.paper51.com

    '取得用户输入

http://www.paper51.com

    DimUserName,UserPassword,Email,QQ paper51.com

    UserName=Server.HTMLEncode(Request("UserName"))

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

   

http://www.paper51.com

   

http://www.paper51.com

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

内容来自www.paper51.com

    strSQL="SELECT UI_Name_SFROM [UserInfo]”&_ 内容来自论文无忧网 www.paper51.com

”WHERE UI_Name_S='"&Request("UserName")&"'" http://www.paper51.com

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

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

    ‘如果没有找到任何用户,则输出操作信息 内容来自论文无忧网 www.paper51.com

    If Not objRS.BOF Or NotobjRS.BOF Then

http://www.paper51.com

       ResultMsg("所注册的用户名已存在,请更换用户重新注册!") 内容来自论文无忧网 www.paper51.com

       Response.End

http://www.paper51.com

    End If copyright paper51.com

    objRS.Close

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,”&_ copyright paper51.com

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

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

"',False,0,False,'"&Email&"','"&QQ&"',False,0)"

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

    objConn.Execute(strSQL) 内容来自www.paper51.com

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

    Set objRS=Nothing

copyright paper51.com

    CloseDatabase 内容来自www.paper51.com

Else

copyright paper51.com

5.2.2用户登陆界面及代码分析

http://www.paper51.com

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

代码分析: 内容来自www.paper51.com

<!--#includefile="CONN.ASP"-->

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

<!--#includefile="ChkSQL.asp"--> 内容来自论文无忧网 www.paper51.com

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

paper51.com

<% copyright paper51.com

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

SetobjRS=Server.CreateObject("ADODB.RecordSet") 内容来自www.paper51.com

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

DimUserName,UserPassword

http://www.paper51.com

'过滤SQL字符,防止SQL漏洞注入

内容来自www.paper51.com

UserName=ChkSQL(Request("UserName")) copyright paper51.com

‘UserPassword=Request("UserPassword")

copyright paper51.com

'在数据库中查找用户

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

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

paper51.com

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

'判断用户是否存在

copyright paper51.com

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

paper51.com

IfobjRS.BOF Or objrs.EOF Then paper51.com

    objRS.Close copyright paper51.com

    Set objRS=Nothing 内容来自www.paper51.com

    Response.Write GetErr(3)

paper51.com

    Response.End http://www.paper51.com

Else 内容来自www.paper51.com

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

    IfobjRS("UI_Password_S")<>UserPassword Then copyright paper51.com

       objRS.Close

http://www.paper51.com

       SetobjRS=Nothing

内容来自www.paper51.com

       Response.WriteGetErr(4)

copyright paper51.com

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

    End IF

内容来自www.paper51.com

   

http://www.paper51.com

    '判断用户是否被锁定 copyright paper51.com

    IfobjRS("UI_IsLocked_B")=True Then http://www.paper51.com

       objRS.Close copyright paper51.com

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

       Response.WriteGetErr(5) copyright paper51.com

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

    End If

内容来自www.paper51.com

    http://www.paper51.com

    '建立用户私有变量

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

    Session.Timeout =30

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

    Session("UserID")=objRS("UI_ID_N") http://www.paper51.com

    objRS.Close paper51.com

    paper51.com

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

http://www.paper51.com

    strSQL="SELECTTAC_ReserveTime_D,TAC_StartTime_D FROM [Tenancy]”&_ http://www.paper51.com

”WHERE TAC_StartTime_D IS NULL"

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

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

    For i=1 To objRS.RecordCount

paper51.com

       '有超时的预订则删除

http://www.paper51.com

       If IsNull(objRS("TAC_StartTime_D"))=TrueAnd&_

paper51.com

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

           objRS.Delete

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

       End If

内容来自www.paper51.com

       objRS.MoveNext copyright paper51.com

    Next 内容来自www.paper51.com

    objRS.Close

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

    strSQL="SELECT * FROM[Tenancy] WHERE TAC_StartTime_D”&_ 内容来自论文无忧网 www.paper51.com

”IS NOT NULL AND TAC_EndTime_D IS NULL"

内容来自www.paper51.com

    objRS.Open strSQL,objConn,1,3

paper51.com

    Dim MsgUser

内容来自www.paper51.com

    For i=1 To objRS.RecordCount http://www.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 http://www.paper51.com

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

paper51.com

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

           objConn.Execute(strSQL)

内容来自www.paper51.com

       End If

copyright paper51.com

       objRS.MoveNext paper51.com

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

    objRS.Close

内容来自www.paper51.com

    '跳转回主页

copyright paper51.com

    Response.Redirect"index.asp"

copyright paper51.com

EndIf

http://www.paper51.com

%>

paper51.com

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