请教高手,帮帮我!,谢谢!
利用程序来进行密码验证，这种方法较为通用，它对Web服务器没有具体要求，它是借助数据库及ASP程序进行设计，来实现一种通用网页加密。 首先，我们利用Microsoft Access建立“用户名称及密码”的数据表，假设将这个表取名为User，数据库名为Usercheck.mdb，数据表的结构如下：
字段说明 字段名称 数据类型 数据长度
用户名称 ID 文本 15
密码 PWD 文本 15
验证程序PASS.ASP的源代码如下：
<%
Function Check( ID, Pwd )
Dim conn, par, rs
Set conn = Server.CreateObject("ADODB.Connection")
par = "driver={Microsoft Access Driver (*.mdb)} "
conn.Open par && ";dbq=" && Server.MapPath("usercheck.mdb ")
sql = "Select * From users Where ID= && ID && And Pwd = && Pwd &&"
Set rs = conn.Execute( sql )
If rs.EOF Then
Check= False
Else
Check= True
End If
End Function
%>
<%
If IsEmpty(Session("Passed")) Then Session("Passed") = False
Head = "请输入用户名和密码"
ID = Request("ID")
Pwd = Request("Pwd")
If ID = "" Or Pwd = "" Then
Head = "请输入用户名和密码"
Else If Not Check( ID, Pwd ) Then
Head = "用户名称或密码有错"
Else
Session("Passed") = True
End If
If Not Session("Passed") Then
%>
<html>
<head> <title></title> </head>
<body BGCOLOR="#FFFFFF">
<h2 ALIGN="CENTER"><%=Head%></h2>
<hr WIDTH="100%">
<form Action="<%=Request.ServerVariables("PATH_INFO")%>" Method="POST">
<table BORDER="1" CELLSPACING="0">
<tr>
<td ALIGN="RIGHT">用户名称:</td>
<td><input Type="Text" Name="ID" Size="12" Value="<%=ID%>"></td>
</tr>
<tr> <td ALIGN="RIGHT">密码： </td>
<td><input Type="Password" Name="Pwd" Size="12" Value="<%=Pwd%>"></td> </tr>
</table>
<p><input Type="Submit" Value=" 确定 "> </p> </form>
<hr WIDTH="100%" align="center">
</body> </html>
<%Response.End
End If %>
这个验证合法性的页面具有通用性，只要在需要加密网页的最前面加上如下程序：
<! --#include file="pass.asp"-->
即可实现对任意网页进行加密的功能了。
我照上面的方法一模一样的做了,为什么运行时出现了
错误类型：
Microsoft VBScript 编译器错误 (0x800A0408)
无效字符
/pass.asp, line 2
Dim conn, par, rs
这是为什么么,请高手指教,要怎么修改?
