|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
在实现ERP等高端的ASP应用时,用户需要提供核心的经营资料,需要ASP商有很高的信用度。楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。为了兑现我对人人的答应,我们如今当即就将“借助数据库和ASP程序”编写出来的,能够同时合用于IIS和PWS的平安网页看个细心。
先睹为快,仍是让我们起首就来看看该ASP程序(password.asp)。
<%
FunctionCheckPassword(Name,Password)
Dimconn,param,rs
Setconn=Server.CreateObject("ADODB.Connection")
param="driver={MicrosoftAccessDriver(*.mdb)};"
conn.Openparam&";dbq="&Server.MapPath("book2.mdb")
sql="Select*FromkeyWhereName="&Name&"AndPassword="& Password&""
Setrs=conn.Execute(sql)
Ifrs.EOFThen
假如没无数据纪录存在
CheckPassword=False
Else
CheckPassword=True
EndIf
EndFunction
%>
编写一Function函数,使用这个函数向数据库book2.mdb传进Name和Password(即用户名和暗码);然后使用Select指令从key数据表当选取具有与函数传进的Name和Password相符合的数据纪录;最初用If...Then...Else语句来判别数据表key中是不是存在有切合前提的数据纪录,并据此,给Function前往响应的了局。
<%
IfIsEmpty(Session("Passed"))ThenSession("Passed")=False
判别上彀者的Session("Passed")是不是为空,便是否没有Session信息,假如是的话则申明上彀者是第一次启动以下的程序。
Head="请输出您的姓名和暗码"
Name=Request("Name")
Password=Request("Password")
IfName=""OrPassword=""Then
Head="请输出您的姓名和暗码"
由于是初来者,以是Name=Request("Name")和Password=Request("Password")都即是空字符串,Session("Passed")=False,语句:IfNotSession("Passed")(见上面)建立,因而将输出“用户称号及暗码”的页面(见下图)显现出来。
ElseIfNotCheckPassword(Name,Password)Then
Response.write"用户称号或暗码毛病"
Response.end
假如上彀者输出的“用户称号及暗码”不准确的话,则显现申明信息:"用户称号或暗码毛病"
Else
Session("Passed")=True
EndIf
固然,当上彀者输出的“用户称号及暗码”是准确的话,则Session("Passed")将即是True。
IfNotSession("Passed")Then
假如IfNotSession("Passed")Then不建立的话,将不会显现输出“用户称号及暗码”的页面,而是间接进进加密的网页。
%>
我们可使用Session工具来存储特定用户的Session信息,即便该客户端由一个Web页面跳到另外一个Web页面,该Session信息仍旧存在。以是我们在这里用Session工具来存储上彀者的信息,只需你经由过程了该暗码考证,Session("Passed")就记下你已经由过程了该暗码考证,因而在Session工具的无效刻日内,你假如再次会见该网页时就不必再输出用户称号及暗码就能够间接举行被加密的页面。
-=在此省往了输出用户称号及暗码页面的HTML代码=-
输出用户称号及暗码的页面以下所示:
<%
Response.End
EndIf
%>
帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 |
|