【求助】ASP内部BBS数据查询验证

[shanlianpeng]

各位大侠：
小弟最近刚刚开始学习ASP，所以手很“稀疏”，请高手赐教！

【问题】：单位有一个内部局域网的BBS，最近有一个项目需要让各地的使用者在BBS站点上，输入查询条件，如号码~130...
如果该条件在数据库里，提示“有”或其他提示信息，没有则显示“无”或其他提示信息。

大致的思路我是知道的，在内部的BBS源代码上建一个ACESS数据库，导入目标数据，但是在ASP站点上的代码就无从下手了，请高手帮助或赐教提示代码，谢谢！！

[残剑无弦]

那就按你的思路建立一个查询（即xx.asp + access）
然后在BBS源码的首页上加上<iframe scr=xx.asp width="**" height="**"></iframe>
这样使用者就可以操作查询了

[残剑无弦]

上面的答案要是正确的话别往了把分留下 嘿嘿！

[shanlianpeng]

老实说，我很想给你分，但是对于我这个初学者来说，想要的是 更加明晰的代码，或者说你可帮助做一个简单的实例，谢谢！

[床上等您]

思路己经讲了，还是给你写代码？？

[shanlianpeng]

[Quote=引用 4 楼 yangball 的回复:]
思路己经讲了，还是给你写代码？？
[/Quote]

呵呵，实际上，我就是这个想法，一是有一个参照的模板，二是可以跟着写好的代码 示例学习！！

[后浪]

<%
Dim con,rs
set con=Server.CreateObject("adodb.connection")
　　 con.open"Provider=Microsoft.Jet.OLEDB.4.0;"& _
　　"Data Source=" & Server.MapPath("数据库所在路径")
set rs=Server.CreateObject("adodb.recordset")

Dim strWhere,strSQL,strKeyWord
strKeyWord=request("KeyWord")
strWhere="1=1"
strWhere=strWhere&strKeyWord
strSQL="select * from table where Telephone="&strWhere

rs.open strSQL,con,1,1
if not(rs.bof and rs.eof then
While not rs.eof
response.write("<Table>")
response.write("<tr><td>"& rs("TelePhone")& "</td></tr>")
response.write("</Table>")
rs.movenext
wend
else
response.write("没有记录")
response.end()

end if
%>
写个大概...

[ACMAIN_CHM]

楼主需要学习以下知识。

1。关系数据库，
2。ADO
3。 VB

[shanlianpeng]

[Quote=引用 7 楼 acmain_chm 的回复:]
楼主需要学习以下知识。

1。关系数据库，
2。ADO
3。 VB
[/Quote]

谢谢【ACMAIN_CHM】的教导，实际上SQL和VB(VBA)我也是熟悉的，当然ASP的书籍简单看了看，但是可能还是“惰性”的原因吧，有些懒，总想有一个示例的代码，跟着代码学习，再者ASP平时用到得也很少，所以就没有下功夫研究了！！
当然，也是希望向【ACMAIN_CHM】学习SAP、JSP哦！