现在的
function WebContent()
dim ID
ID=request.QueryString("ID")
if ID="" or (not isnumeric(ID)) then
response.write "<div align='center'>数据读取异常错误</div>"
exit function
end if
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from NwebCn_Products where ViewFlag and ID="&ID
rs.open sql,conn,1,3
response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
if rs.bof and rs.eof then
response.write "<tr><td>暂无相关信息</td></tr>"
else
if ViewNoRight(rs("GroupID"),rs("Exclusive")) then
dim BigPicPath
BigPicPath=HtmlSmallPic(rs("GroupID"),rs("BigPic"),rs("Exclusive"))
response.write "<tr> <td width='100%' valign='top'><font color='#FF3300'>"&rs("ProductName")&"</font></td>"
response.write "<tr> <td></td>"
response.write "<tr><td colspan='2' width='604'>"&rs("Content")&"</td></tr>"
else
response.write "<tr><td colspan='2'><hr width='100' size='1' noshade='noshade' color='#FF0000'></td></tr>"
response.write "<tr><td colspan='2'><hr height='30' width='100%' size='1' noshade='noshade' color='#FF0000'><div align='center'><img src='Images/NoRight.jpg'></div></td></tr>"
end if
rs("ClickNumber")=rs("ClickNumber")+1
rs.update
end if
response.write"</table>"
rs.close
set rs=nothing
end function
网上找的一段
<%
set RelationArt = conn.execute("select top 1 id,title from article where id<"&request.querystring("id")&" order by date desc")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·上一条：</font>已经没有了<BR> "
else
Response.Write "<font color=red>·上一条：</font><a href=""showdm.asp?id=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>"
end if
Set RelationArt=Nothing
set RelationArt = conn.execute("select top 1 id,title from article where id>"&request.querystring("id")&" order by id")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·下一条：</font>已经没有了"
else
Response.Write "<font color=red>·下一条：</font><a href=""showdm.asp?id=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>"
end if
RelationArt.close
Set RelationArt=Nothing
%>
只显示：
·上一条：已经没有了
·下一条：已经没有了
实际上是有下一条的
好像不适用，显是不是要改什么字段？
麻烦朋友帮我看下，多谢了，
2009-10-22 17:58
哦
