|
#2
月夜NO风2008-07-04 15:51
|
本人按照书中所写，完全抄搬代码，但是还是出错，请各位帮我看看吧！
1.下面是LOGIN,当按提交后，转到另一个ASP验证用户名等。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.Buffer=True %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>供应商登录系统</title>
</head>
<body>
<form name="Form1" method="post" action="loginOK.asp">
<%
dlm=Request.Cookies("Userdlm")
%>
<center>
<p>登录名:<input type="text" name='txtDLM' VALUE=<% =dlm%> ></p>
<p>密 码: <input type="password" name="pasKL"></p>
<p> <input type="submit" name="btnOK" value="提交">
<input type="reset" name="btnESC" value="重写"></p>
</center>
</form>
</body>
</html>
2.以下ASP是验证用户名和密码的，如果改了RESPONSE.REDIRECT的文件，就可以跳到这个文件，
但是就不会验证，就是输入什么都直接跳转！我不知道是什么原因，连接数据库出问题了？<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dlm=Trim(Request.Form("txtDLM"))
kl=Trim(Request.Form("pasKL"))
If dlm="" and kl="" Then
Response.Redirect("login.asp")
End if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>供应商登录系统</title>
</head>
<body>
<!--#include virtual="/adovbs.inc"-->
<%
Dim cn1,rs1,sql1
Set cn1=Server.CreateObject("ADODB.Connection")
Set rs1=Server.CreateObject("ADODB.Recordset")
cn1.ConnectionString="FILE NAME=E:\SQL\DBTEST2LinkS.UDL"
sql1="select * from userinfo where dlm='"&dlm& "'and paskl='"&k1&"'"
cn1.Open
rs1.Open sql1,cn1
If rs1.EOF Then
rs1.Close
cn1.Close
Set cn1=Nothing
Response.Redirect "login.asp"
Else
rs1.Close
cn1.Close
Set cn1=Nothing
Response.Cookies("userdlm")=dlm
Response.Redirect "wel.html"
End If
%>
</body>
</html>
