Question

DW网页制作中遇到的问题

最近在学习制作网站，于是在网上找了一个代码，但总是显示“对不起，没有相关记录” 是不是没有这个表 ？ 如果是 那这个表的名字是什么？如果不是那是什么原因？
<%
set cn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
cn.Open mycnstr

mymenu="contact"
myurl="contact.asp"
keyno=Request.QueryString("keyno")
if keyno="" or not isnumeric(keyno) then keyno="9"
sendok=Request.QueryString("sendok")

sql="select * from contact where id="&keyno&" and pid=13 and cnflag=1"
if keyno=0 then sql="select * from contact where pid=13 and cnflag=1 order by xuhao"
rs.Open sql,cn,1,1
if not rs.EOF then
keyno=rs("id")
keytitle=rs("company")
keytitles=rs("shortcorp")
if trim(keytitles)="" then keytitles=keytitle
if trim(keytitle)="" then keytitle=keytitles
toemail=trim(rs("email"))
keyadd=rs("address")
keyzip=rs("zip")
keytel=rs("tel")
keyfax=rs("fax")
keylinkman=rs("linkman")
else
Response.Write "对不起，没有相关记录。"
Response.End
end if
rs.Close
这个EOF是表示一个表的结束吧 这个意思是不是如果没到表的结尾，就将这些值赋值给前面的变量，如果表中没有这些变量就显示“对不起，没有相关记录。" ?

Answer 1

sql="select * from contact where id="&keyno&" and pid=13 and cnflag=1"
sql="select * from contact where pid=13 and cnflag=1 order by x"
这样的语句就是操作数据库的，表名就是contact。
而id、pid、和cnflag就是这个表的相关字段了！
你去数据库中看看有没有相关表和字段！

Answer 2

if not rs.EOF then//如果表中有记录，那么执行下面的
keyno=rs("id")
keytitle=rs("company")
keytitles=rs("shortcorp")
if trim(keytitles)="" then keytitles=keytitle
if trim(keytitle)="" then keytitle=keytitles
toemail=trim(rs("email"))
keyadd=rs("address")
keyzip=rs("zip")
keytel=rs("tel")
keyfax=rs("fax")
keylinkman=rs("linkman")
else//如果没有记录，那么执行下面的
Response.Write "对不起，没有相关记录。"
Response.End
end if
所以可以肯定楼主的contact表是存在的，只是没有找到符合搜索条件的记录

Answer 3

提示“对不起，没有相关记录”说明表是肯定存在的。
根据你的情况修改条件语句试试