|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP脚本是采用明文(plaintext)方式来编写的。ASP用户登录模块的计划用户登录考证剧本,Chkpwd.asp
- <%
- =======用户登录考证剧本=======
- 假如还没有界说Passed工具,则将其界说为false,暗示没有经由过程考证
- IfIsEmpty(Session("Passed"))Then
- Session("Passed")=false
- EndIf
- Session("Passed")=False,暗示还没有经由过程考证,则入手下手读取从表单传来的考证信息
- IfSession("Passed")=FalseThen
- UserName=Request.Form("UserName")
- UserPwd=Request.Form("UserPwd")
- IfUserName=""Then
- Errmsg="提醒:请输出用户名和暗码"
- Else
- ===================毗连数据库=====================
- SetConn=Server.CreateObject("ADODB.Connection")
- Conn.Connectionstring="Driver={SQLServer};Server=192.168.1.3;UID=sa;PWD=;Database=zcmrs"
- Conn.open
- ===================从表log中读取用户数据=====================
- 界说RecordSet工具
- Setrs=Server.CreateObject("ADODB.Recordset")
- 设置Connection工具的ConnectionString
- Setrs.ActiveConnection=Conn
- 设置游标范例
- rs.CursorType=3
- 翻开纪录集
- rs.Open"Selectusername,passwordfromerpuserWhereusername="&UserName&""
- ===================身份考证======================
- Ifrs.EOFThen
- Errmsg="提醒:用户不存在或暗码毛病"
- Else
- IfUserPwdrs.Fields("password")Then
- Errmsg="提醒:登录失利!暗码毛病?"
- Else登录乐成
- Errmsg=""
- Session("Passed")=True
- Session("UserName")=rs.Fields("username")
- 标识用户权限Session("UserID")=rs.Fields("UserID")
- EndIf
- EndIf
- EndIf
- EndIf
- 经由登录不乐成,则画出登录表单
- IfNotSession("Passed")=TrueThen
- %>
- <html>
- <head><title>无题目文档</title>
- <styletype="text/CSS">
- <!--
- .STYLE1{font-size:12px;font-weight:bold;margin-left:120px;outline:double}
- -->
- </style>
- <styletype="text/css">
- <!--
- .STYLE2{font-size:12px;font-weight:bold;outline:double;color:#FF3333}
- -->
- </style>
- </head>
- <bodyleftmargin=0topmargin=0marginheight="0"marginwidth="0"bgcolor="#000000">
- <divid=parentstyle="height:300;width:450;border-style:solid;border-color:#FFFFFF;margin-top:80px;margin-left:25%;margin-right:25%;background-color:#FFFFFF">
- <divid=denglustyle="font-size:12px;font-weight:bold;background-color:#0099FF;text-align:center;height:40px;"><br>ERP体系登录</div>
- <formaction="<%=request.ServerVariables("path_info")%>"method="post"name="MyForm"id="MyForm">
- <pclass="STYLE1">用户名:<inputname="UserName"type="text"id="UserName"size="18"maxlength="20">
- </p>
- <pclass="STYLE1">密 码:<inputname="UserPwd"type="password"id="UserPwd"size="18"maxlength="20">
- </p>
- <palign="center"class="STYLE2"><%=Errmsg%></p>
- <p>
- <inputtype="submit"align="middle"name="Submit"value="登录体系">
- <inputname="rege"type="button"align="middle"onClick="location=register.asp"id="rege"value="注册用户">
- </p>
- </form>
- </div>
- </body>
- </html>
- <%
- <pclass="STYLE1">考证码:<inputname="CheckCode"type="text"id="CheckCode"size="6"maxlength="4">
- </p>
- response.End
- EndIf
- %>
要会见的页面erp.asp
- <!--#includefile="chkpwd.asp"-->
- <body>
- <divstyle=font-size:12px;font-weight:bold;border:1pxsolid#001;padding:4px;background:#FFCCFF;margin-top:0;>接待利用ERP查询体系,以后登任命户为:
- <%
- IfSession("Passed")=TrueThen
- Response.Write(Session("UserName"))
- EndIf
- %><ahref="logout.asp">加入体系</a>
- </div>
- </body>
以上每次翻开erp.asp的时分,都起首实行Chkpwd.asp(),如许能够无效避免未受权用户会见指定网页.
logout.asp体系加入
- <body>
- <%
- Session("Passed")=false
- Session("UserName")=""
- Response.Redirect("index.asp")
- %>
- </body>
利用图片提交表单
- <formname="form1"method="post"action="">
- <tdalign="right"><inputtype="image"method="submit"name="submit"src="image/loginin.gif"width="70"height="21"alt="submit"></td>
- </form>
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。 |
|