哪里错了呢？愁死了

博客专家认证

2008-12-07 05:47:34

各位高手，问a.asp页怎么什么也不显示呢？我弄了半天，还是弄不出来。

a.asp页中是这样的：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>

<% call shownews(9)%>

</body>
</html>
-----------------------------------------
-----------------------------------------
Code.asp文件里：

<%
sub shownews(cout)
dim strt,sqlc,rsc
sqlc="select top " & cout & " * from shop_news order by adddate desc"
Set rsc= Server.CreateObject("ADODB.Recordset")
rsc.open sqlc,conn,1,1
if rsc.bof and rsc.eof then
response.Write "<br> 对不起，没有最新动态..."
else
rsc.movefirst
rscnum=rsc.recordcount
i=1
do while not rsc.eof
if i<rscnum then
strt=""
else
strt=""
end if
dim tit
tit = rsc("newsname")
if len(rsc("newsname"))>13 then
tit= left(rsc("newsname"),13) & "..."
end if
strt= strt & "<table width=90% border=0 cellpadding=0 cellspacing=0>"
strt= strt & "<tr>"
strt= strt & "<td height=29 align=left >"
strt=strt & "<a href='Product_text.asp?id="&rsc("newsid")&"'>"
strt=strt & tit
strt=strt & "</a></td>"
strt=strt & "</TR>"
strt=strt & "</table>"
response.write strt
rsc.movenext
i=i+1
loop
rsc.close
set rsc=nothing
end if
end sub
%>

...全文

98 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

草原可可 2008-12-08

打赏
举报

错误代码贴上来

鸣宇淳 2008-12-08

打赏
举报

谢谢大家的热情帮助

lunawzh 2008-12-08

打赏
举报

问题在a.asp文件中，
在a.asp文件调用中有没有On Error Resume Next ，去掉看显示错误是什么

西安风影 2008-12-08

打赏
举报

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd
这句先去了

wang7655 2008-12-08

打赏
举报

首先还是找到错误吧

把错误显示出来，就方便找问题所在了

wuyq11 2008-12-07

打赏
举报

if rsc.bof and rsc.eof then
response.Write " <br> 对不起，没有最新动态..."
else
response.Write rsc.recordcount //看看
rscnum=rsc.recordcount
i=1
do while not rsc.eof
if i <rscnum then
strt=""
else
strt=""
end if
dim tit
tit = rsc("newsname")
if len(rsc("newsname"))>13 then
tit= left(rsc("newsname"),13) & "..."
end if
strt= strt & " <table width=90% border=0 cellpadding=0 cellspacing=0>"
strt= strt & " <tr>"
strt= strt & " <td height=29 align=left >"
strt=strt & " <a href='Product_text.asp?id="&rsc("newsid")&"'>"
strt=strt & tit
strt=strt & " </a> </td>"
strt=strt & " </TR>"
strt=strt & " </table>"
response.write strt
rsc.movenext
i=i+1
loop
rsc.close
set rsc=nothing
end if
end sub

sy_binbin 2008-12-07

打赏
举报

看看你的conn.asp 页面里有On Error Resume Next 这样的代码没？？有的话屏蔽掉，看看错误信息

-晴天 2008-12-07

打赏
举报

code里改成这样试试:

Set rsc= Server.CreateObject("ADODB.Recordset") 

rsc.open sqlc,conn,1,1 

if rsc.bof and rsc.eof then 

  response.Write " <br>  对不起，没有最新动态..." 

else 

  i=1 

  do while not rsc.eof 

    response.write left(rsc("newsname"),13) & "<br>"

    rsc.movenext 

    i=i+1 

  loop 

end if

rsc.close 

set rsc=nothing