实在没有办法了,请求帮助检查错误
大师们,写了一个asp+access查询,就是查不出结果,自己找不到错误,实在没办法了,请帮忙找出错误,首先感谢您!<form action="?action=ok" method="post" id="sjform" name="sjform" onsubmit="return searchsj()">
<span> 请输入手机号码前7位:</span>
<input type="text" name="sjcode" id="sjcode" maxlength="15" />
<input type="button" name="Submit2" id="q" tabindex="1" value="查询" onclick="searchsj()" />
</form>
<%
If Request.form("action") = "ok" Then '判断是否提交,提交了则执行以下ASP代码
%>
<%
Dim Conn
Dim StrDB,StrConn
'========连接数据库=========
'Server 对象的CreateObject方法建立Connection对象
Set Conn = Server.CreateObject("ADODB.Connection")
StrDB = "data\class.mdb"
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(StrDB)
Conn.Open StrConn
%>
<%
Dim sid,sql,rs
'读取参数sid
sid = Request.form("sjcode")
Set rs = Server.CreateObject("ADODB.recordset")
'读取查询信息
sql = "Select * From sjbook Where txtMobile ='"&sid&"'"
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
%>
号码:<%=rs("txtMobile")%><br /><br />
属地:<%=rs("txtCity")%><br /><br />
区号:<%=rs("txtAreaCode")%><br /><br />
类型:<%=rs("txtCard")%><br /><br />
<%
Else
Response.Write("非常抱歉!")
%>
<%
End If
Set rs = Nothing
%>
<%
End If
%>