谁能帮我看看这段代码哪里不正确

来源:百度知道 编辑:UC知道 时间:2024/06/11 20:55:21
<%
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("lastcoco.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

错误提示是jscript,但你的格式明明就是vbscript的。

所以要么你改成jscript,要么把整个文件声明成vbscript的。

我估计你的第一行是<%@LANGUAGE="JAVASCRIPT"...

把它改成<%@LANGUAGE="VBSCRIPT"...

Set conn = "Server.CreateObject("ADODB.Connection")"
应该写成
Set conn = Server.CreateObject("ADODB.Connection")