to:baikaishui_0825(baikaishui)快来撒

opbsm 2004-12-08 01:15:36
我在这里等你,我跟你发邮件了,你收到没有啊
...全文
68 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
baikaishui_0825 2004-12-09
<!--#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的记录循环结束*******************************

%>
回复
opbsm 2004-12-09
我没有收到
回复
baikaishui_0825 2004-12-09
呵呵,已经改好!~~
<!--#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 2004-12-09
好的,谢谢了,算了不看,已经够麻凡你了,我找在网上看了下想关的程序,找到了一种比这个好的方法,数据结构有了调整,我现在做一个全HTML的新闻系统,希望有什么不懂的问题,还忘解答。再次谢谢
回复
baikaishui_0825 2004-12-09
偶白天很忙,晚上下班后再给你看看吧!~
回复
opbsm 2004-12-09
如过要这条语句呢'if h>=shu then exit do,
回复
baikaishui_0825 2004-12-08
程序我已经改好发到你邮箱了!

回复
opbsm 2004-12-08
怎么还没有来啊
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-12-08 01:15
社区公告
暂无公告