神马品牌网仿文化瓷砖200x400:如何在ASP共实现这个功能？
来源：百度文库 编辑：神马品牌网 时间：2024/04/26 05:47:30
建一个网页123．asp，假如123．mdb这个数据库里有qqq这个值得话，123．asp就正常显示，假如123．mdb里没有qqq这个值，123．asp就显示：数据库里没有QQQ这个值！
数据库连接代码conn．asp已经写好。
请问如何实现？请给出123．asp的代码，如果测试可以通过的话，追加50分～
先谢啦！
<%
Dim rs,isok
isok = False
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT [www] FROM [abc]",conn
isok = False
If Not rs.Eof Then
If LCase(rs("www"))="qqq" Then
isok = True
End If
End If
rs.Close
Set rs = Nothing
If isok Then
Response.Write "正常显示"
Else
Response.Write "数据库里没有QQQ这个值！"
End If
%>
连接数据库:
'==============conn.asp===============
<%
set rs=server.createobject("adodb.recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
conn = "DBQ=" + server.mappath("123．mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
%>
显示:
'=================123.asp====================
<!--#include file="conn.asp" -->
<%
SQL="select * from abc where www='qqq'"
rs.open sql,conn,1,1
if not rs.eof then '如果指针不为空
response.Write "正常显示内容"
else
response.Write "暂无内容!"
end if
%>
<!-- #include file=conn.asp -->
<%
mysql="select www from abc"
set myres=myconn.execute(mysql)
if myres("www")<>"qqq" then
response.write"数据库里没有QQQ这个值！"
else
%>
...............//这里加当数据库里有qqq这个值，123.asp正常显示的页面
<%end if%>
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Surce=" & Server.MapPath("123.mdb")
set con=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
con.open strcon
strsql="select www from abc where www='qqq'"
rs.open strsql,con,3,3
if not rs.eof then
正常显示内容
else
response.Write "没有内容"
end if
同意二楼