仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 552|回复: 6
打印 上一主题 下一主题

[学习教程] ASP教程之ASP用户登录模块的计划

[复制链接]
金色的骷髅 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:03:40 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。
若天明 该用户已被删除
沙发
发表于 2015-1-18 19:37:15 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
再见西城 该用户已被删除
板凳
发表于 2015-1-27 19:16:33 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
谁可相欹 该用户已被删除
地板
发表于 2015-2-5 14:55:29 | 只看该作者
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
老尸 该用户已被删除
5#
发表于 2015-2-12 10:18:32 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
不帅 该用户已被删除
6#
发表于 2015-3-11 09:27:53 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
莫相离 该用户已被删除
7#
发表于 2015-3-18 06:55:02 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 01:32

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表