 |
|
|
|
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from NEWS order by id desc"
rs.Open sql,conn,1,1
if not Rs.eof then
do while not rs.eof
t=t+1
%>
| |
|
<%
if t>=10 then exit do
rs.movenext
loop
else
response.write "| 尚无收录 | "
end if
rs.close
%>
|
|
|
|
 |
|
|
|
| 邮政法为何历时八年“千呼万唤不出来” |
| 发布日期：[08-06-04 02:33:47] 点击次数：[]
|
| |
|
|
| 本站部分资料属转载内容，如涉及版权争议,请与我所联系，以便做相应的处理。 |
 |  打印本页 |  关闭窗口 |
<%
dim rs1
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from shop_pinglun where id="&owen&"",conn,1,1
if rs1.eof and rs1.bof then
response.write" 如果您阅读过本篇文章，或对本篇文章有所了解，欢迎您发表自己的评论。您的评论将被网络上成千上万的读者所共享，我们将对您的慷慨深表感谢。
"
response.write " 您的评论在提交后将经过我们的审核，也许您需要等待一些时间才可以看到。谢谢合作。 | "
else do while not rs1.eof
%>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
end if%>
| 本站发表读者评论，并不代表我们赞同或者支持读者的观点。我们的立场仅限于发表更多读者感兴趣的信息。 |
|
|
|
|
