to:baikaishui_0825(baikaishui)快来撒

[opbsm]

我在这里等你，我跟你发邮件了，你收到没有啊

[opbsm]

怎么还没有来啊

[baikaishui_0825]

程序我已经改好发到你邮箱了！

[opbsm]

如过要这条语句呢'if h>=shu then exit do，

[baikaishui_0825]

偶白天很忙，晚上下班后再给你看看吧！~

[opbsm]

好的，谢谢了，算了不看，已经够麻凡你了，我找在网上看了下想关的程序，找到了一种比这个好的方法，数据结构有了调整，我现在做一个全HTML的新闻系统，希望有什么不懂的问题，还忘解答。再次谢谢

[baikaishui_0825]

呵呵，已经改好！~~
<!--#include file="conn.asp" -->
<%

news_id=request("id")'获的ID的值

set rs_move=server.createobject("adodb.recordset")
rs_move.open ("select sid,html,board,shu from skin where board="&news_id),conn,1,1
do while not rs_move.eof
Txtop=""
pencat=rs_move("html")'获的摸版
sid=rs_move("sid")
shu=rs_move("shu")
css=rs_move("css")
'**********************************显示rs_move("shu")条记录附值给Txtop开始**********
sql="select * from article where board="&news_id
rs.open sql,conn,1,1
if rs.eof then
Txtop="·还没有文章"
else
do while not rs.eof
h=0
h=h+1
Txtop=Txtop&"·<a class="&css&" href=""../info/"&rs("sid")&".htm"">"&rs("title")&"</a><br>"
if h>=shu then exit do end if
rs.movenext
loop
end if
rs.close
'**********************************显示rs_move("shu")条记录附值给Txtop结束*****************
pencat=replace(pencat,"T_List"&news_id&"",Txtop)'替换摸班
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("html/"&sid&"_"¤tPage&".htm"))
fout.Write pencat'生成文件
fout.close
rs_move.movenext
loop
rs_move.close
set rs_move=nothing

'*************字段中board内容=news_id的记录循环结束*******************************

%>

[opbsm]

我没有收到

[baikaishui_0825]

<!--#include file="conn.asp" -->
<%

news_id=request("id")'获的ID的值

set rs_move=server.createobject("adodb.recordset")
rs_move.open ("select sid,html,board from skin where board="&news_id&""),conn,1,1
do while not rs_move.eof
Txtop=""
pencat=rs_move("html")'获的摸版
sid=rs_move("sid")
shu=rs_move("shu")
css=rs_move("css")

'**********************************显示rs_move("shu")条记录附值给Txtop开始**********
sql="select * from article where board="&news_id
set rs=conn.execute(sql)
if rs.eof then
Txtop="·还没有文章"
else
do while not rs.eof
h=0
h=h+1
Txtop=Txtop&"·<a class="&css&" href=""../info/"&rs("sid")&".htm"">"&rs("title")&"</a><br>"
'if h>=shu then exit do
rs.movenext
loop
end if
rs.close
'**********************************显示rs_move("shu")条记录附值给Txtop结束*****************
pencat=replace(pencat,"T_List"&news_id&"",Txtop)'替换摸班
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("html/"&sid&"_"¤tPage&".htm"))
fout.Write pencat'生成文件
fout.close
rs_move.movenext
loop
rs_move.close
set rs_move=nothing

'*************字段中board内容=news_id的记录循环结束*******************************

%>