仓酷云

标题: ASP教程之ASP用户登录模块的计划 [打印本页]

作者: 金色的骷髅 时间: 2015-1-16 22:03
标题: ASP教程之ASP用户登录模块的计划
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

<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
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作者: 再见西城 时间: 2015-1-27 19:16
ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

作者: 谁可相欹 时间: 2015-2-5 14:55
接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

作者: 老尸 时间: 2015-2-12 10:18
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

作者: 不帅 时间: 2015-3-11 09:27
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

作者: 莫相离 时间: 2015-3-18 06:55
尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

欢迎光临仓酷云 (http://ckuyun.com/)