|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。如今我们创立查询语句,能够考证在表单中输出的内容是不是与数据库中的内容相分歧。
<%@Language=VBScript%>
<%Response.Buffer=True%>
<HTML>
<BODY>
<%Session("allow")=True%>
<%
UserName=Request.Form("username")
Password=Request.Form("password")
grabtheformcontents
SetMyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open"yourconnectionstringhere"
SQL="Select*FromtblLogin"
SetRS=MyConn.Execute(SQL)
IfUserName=RS("UserName")ANDPassword=RS("Password")Then
ifthereisamatchthenshowthepage
%>
Putthecontentsofyourpagehere.
<%
Else
Response.Redirect"http://www.yourdomain.com/login.asp"
RS.Close
MyConn.Close
SetRS=Nothing
SetMyConn=Nothing
EndIf
%>
iftherewasnomatchthenmakethevisitortryagaintologin.
</BODY>
</HTML>
把含上述代码的文件定名为login.asp
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况; |
|