| 发表于:2007-01-09 00:44:08 楼主 |
各位朋友,小弟我刚学asp+access没多久,还是个菜鸟,遇到问题,向大家求救了. 就是我定义了一个law1()函数,用来查询access数据库中 "nwebcn_news " 表里所有sortid为22的记录,并把该记录显示到网页中.编译是通过的,但是就是不知道为什么网页不把相关记录显示出来... 函数如下: function law1() dim rs,sql,i,newsname,newflag set rs = server.createobject( "adodb.recordset ") sql= "select * from nwebcn_news where and sortid= '22 ' order by id desc " rs.open sql,conn,1,1 response.write " <table width= '100% ' border= '0 ' cellspacing= '0 ' cellpadding= '0 '> " response.write " <tr> <td height= '14 '> </td> </tr> " if rs.bof and rs.eof then response.write " <tr> <td align= 'center '> 暂无相关信息 </td> </tr> " else for i=1 to 100 if rs.eof then exit for if strlen(rs( "newsname ")) <=48 then newsname=rs( "newsname ") else newsname=strleft(rs( "newsname "),46) end if if now()-rs( "addtime ") <=2 then newflag= " <img src= '../images/new_01.gif '> " else newflag= " " end if response.write " <tr > <td width= '480 ' class= 'listtitle '> <font style= 'font-size: 12px; color: #333333; font-family: webdings '> 4 </font> <a href= 'law1view.asp?id= "&rs( "id ")& "&sortid=22 '> "&newsname& " </a> "&newflag& " </td> </tr> " rs.movenext next end if response.write " <tr> <td height= '6 '> </td> </tr> " response.write " </table> " rs.close set rs=nothing end function |
|
|
|
|