showhtml.asp

可以做论坛

<% Server.ScriptTimeOut=150 %>
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="sysinfo.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="showh.asp"-->
<%
Response.Write "<table width=775 align=center border=0 align=center cellspacing=0 class=td1>"
Response.Write "<tr><td colspan=5>正在生成精华贴子的第一页!</td></tr>"
jing="select * from neirong  where shanzhu=0 and jinghuau=1"
set rsjing=server.createobject("adodb.recordset")
rsjing.open jing,conn,1,1
rsjing.MoveFirst
countt=0
do while not rsjing.eof  '有精华
countt=countt+1
ids=rsjing("ids")
idl=rsjing("idl")
topjing=""
topjing=topjing&"<meta http-equiv=Content-Type content=text/html; charset=gb2312>"
topjing=topjing&"<meta name=description content="&sme1&">"
topjing=topjing&"<meta name=keywords content="&sme2&">"
topjing=topjing&"<link rel=stylesheet href=../../"&scss&".css type=text/css>"
'topjing=topjing&"<title>"&swebname&"所有精列表主页</title>"
topjing=topjing&"<table width=775 border=0 align=center cellspacing=0><tr>" 
topjing=topjing&"<td width=200><a href=../../><img src=../../"&slogo&" border=0></td>"
topjing=topjing&"<td><form name=form2 method=post action=../../searh.asp>"
topjing=topjing&"<table width=100% border=0 align=center cellspacing=0><tr><td><div align=center>" 
topjing=topjing&"<input name=key type=text size=30><input type=submit name=Submit value=贴吧搜索>"
topjing=topjing&"</div></td></tr><tr><td><div align=center>"
topjing=topjing&"<input name=rad type=radio value=r1  checked>进入贴吧"
topjing=topjing&"<input type=radio name=rad value=r2>查找主题"
topjing=topjing&"<input type=radio name=rad value=r3>查找内容"
topjing=topjing&"<input type=radio name=rad value=r4>国际搜索 </div></td></tr></table>"
topjing=topjing&"</form></td><td width=120>"&stoprguang&"</td></tr></table>"

topjing=topjing&"<img border=0 src=../../dianji.asp?ids="&ids&" width=1 height=1>"

str=""
str=str&topjing
str=str&"<iframe marginwidth=0 marginheight=0 frameborder=0 scrolling=no src=../../gongneng.asp width=100% height=18></iframe>"
call showmm(showh,ids)
str=str&showh
str=str&"<table width=99% border=0 align=center cellspacing=0 class=tableguang1><tr> <td class=biaotibg>&nbsp;</td></tr></table>"
str=str&asptbcopy
dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
jinghuauj=server.mappath("jinghuau")
If NOT fs.folderexists(jinghuauj) then
fs.createfolder(jinghuauj)
End If
jinghuau=server.mappath("jinghuau/"&idl&"")
If NOT fs.folderexists(jinghuau) then
fs.createfolder(jinghuau)
End If
Set f = fs.CreateTextFile(Server.MapPath("./jinghuau/"&idl&"")&"/"&ids&".htm", True)
f.write(str)
f.close
Set f = nothing
Set fs = nothing
conn.Execute("update neirong set html=1 where ids="&ids)
rsjing.MoveNext
loop '有精华完

Response.Write "<tr><td colspan=5>所有精华贴子的第一页已生成html!共个"&countt&"精华贴</td></tr></table>"

Response.Write"<table width=775 border=0 align=center cellspacing=0 class=tableguang1><tr> <td class=biaotibg>&nbsp;</td></tr></table>"
Response.Write ""&asptbcopy&""
%>