| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 747 人关注过本帖
标题:实在没有办法了,请求帮助检查错误
只看楼主 加入收藏
lihb1997
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2010-12-22
结帖率:33.33%
收藏
已结贴  问题点数:20 回复次数:1 
实在没有办法了,请求帮助检查错误
大师们,写了一个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" />&nbsp;
          <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
%>
搜索更多相关主题的帖子: 办法 请求 检查 
2010-12-22 09:24
zmh886
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:12
帖 子:238
专家分:1305
注 册:2010-6-2
收藏
得分:20 
Request.form("action") = "ok"
改为
Request.querystring("action") = "ok"

http://www./
2010-12-22 13:53
快速回复:实在没有办法了,请求帮助检查错误
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012246 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved