28,407
社区成员
发帖
与我相关
我的任务
分享ASP自动生成HTM文件？？？
帮我看看这个文件，如何生成网页的？
最后能生成，但是格式如何写进去的？里面全部是读取数据库，没有地方说出位置如何放阿？不能上传文件，就把源码全部拷贝过来了－－》
<%Admin="DownAdd"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<!--#include file="config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>批量生成HTML</title>
<style>
body{font-size:9pt;line-height:140%}
</style>
</head>
<body>
<%
set rs=server.createobject("adodb.recordset")
rs.open ("select down_show from mb"),conn,1,1
pencat=rs("down_show")
rs.close
rs.open ("select * from down where id="&request("id")&""),conn,1,1
if not rs.eof then
ttid=rs("tid")
id=rs("id")
cxn=rs("cxn")
cxv=rs("cxv")
pwd=rs("pwd")
yy=rs("yy")
cd=rs("cd")
sq=rs("sq")
size=rs("size")
hot=rs("hot")
system=rs("system")
reg=rs("reg")
ln=rs("ln")
lu=rs("lu")
pic=rs("pic")
body=rs("body")
datetime=rs("date")
hits=rs("hits")
show=rs("show")
user=rs("user")
gs=rs("gs")
end if
rs.close
user="<a href='javascript:' onclick='window.open(""../admin/user.asp?user="&user&""","""",""width=400,height=150,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no"")'>"&user&"</a>"
'################ 读取标题 等.. 开始 ################
rs.open "select * from downtype where id="&ttid,conn,1,1
ts=rs("ts")
TN=split(rs("tname"),"|")
TI=split(rs("ts"), ",")
for i = 0 to ubound(TN)-1
if i=ubound(TN)-2 and ubound(TN)>1 then
TTY_id=TI(i)
TTY_name=TN(i)
end if
all_type_top_id=TI(i)
all_type_name=TN(i)
thistype=thistype & "-> <a href=""../sort/"&TI(i)&"_1.htm"">"&TN(i)&"</a>"
thistitle=thistitle & " - "&TN(i)&""
ttype=TN(i)
next
rs.close
''########读取本类top10
sql="select * from down where tid="&ttid&" order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
txtop="·还没有下载"
else
do while not rs.eof
h=h+1
txtop=TXtop&"·<a href=""../soft/"&rs("id")&".htm"">"&rs("cxn")&" "&rs("cxv")&"</a><br>"
if h>=10 then exit do
rs.movenext
loop
h=0
end if
rs.close
'########读取下载连接
sql="select * from downfile where downid="&id&" order by downno"
rs.open sql,conn,1,1
if not rs.eof then
if gs=1 or gs=2 or gs=3 then
dlist=dlist&"<img src=../images/play_"&gs&".gif width=16 height=16> "
else
dlist=dlist&"<script language=""javascript"">function JyDownH(htmlurl){var newwin=window.open(htmlurl,'','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no');return false;}</script>"
end if
do while not rs.eof
pi=pi+1
if gs=1 or gs=2 or gs=3 then
dlist=dlist&"<a target=""_self"" href=""javascript:"" onClick=""window.open('../play.asp?id="&id&"&no="&rs("downno")&"','','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=368,height=285,status=no,resizable=no')"">["&pi&"]</a>"
else
dlist=dlist&"<a href=""../down.asp?id="&id&"&no="&rs("downno")&""" onclick=""return JyDownH(this.href);""><img border=0 src=../images/d_download.gif width=14 height=14>点这里下载-> "
if rs("filename")<>"" then
dlist=dlist&""&rs("filename")&""
else
dlist=dlist&""&cxn&" "&cxv&""
end if
dlist=dlist&"</a><br>"
end if
rs.movenext
loop
end if
rs.close
'#######读取相关软件
sql="select top 10 id,cxn,cxv from down where cxn like '%"&cxn&"%' and id<>"&id&" order by date desc"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
xlist=xlist&"·<a href="""&rs("id")&".htm"">"&rs("cxn")&""
if rs("cxv")<>"" then
xlist=xlist&" "&rs("cxv")&""
end if
xlist=xlist&"</a><br>"
h=h+1
if h>=10 then exit do
rs.movenext
loop
h=0
xlist=xlist&"·更多相关 <a href=""../search.asp?k="&cxn&""">GO!-></a><br><br>"
end if
rs.close
conn.close
set conn=nothing
%><!--#include file="mdb_path_info.asp"--><%
'#######读取相关文章
sql="select top 10 id,title from info where title like '%"&left(cxn,5)&"%' or se='"&cxn&"' order by date desc"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
xinfo=xinfo&"·<a target=""_blank"" href=""../info/"&rs("id")&".htm"">"&rs("title")&"</a><br>"
h=h+1
if h>=10 then exit do
rs.movenext
loop
h=0
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
pencat=replace(pencat,"S_CXN",cxn)
pencat=replace(pencat,"S_CXV",cxv)
pencat=replace(pencat,"S_ID",id)
if yy<>"" then
else
yy="未知"
end if
pencat=replace(pencat,"S_YY",yy)
if cd<>"" then
else
cd="未知"
end if
pencat=replace(pencat,"S_CD",cd)
if sq<>"" then
sq=sq&"版"
else
sq="授权未知"
end if
pencat=replace(pencat,"S_SQ",sq)
if size<>"" then
else
size="未知"
end if
pencat=replace(pencat,"S_SIZE",size)
for i=1 to hot
hotstar=hotstar&"<img src=""../images/d_star.gif"" width=""13"" height=""12"" border=""0"">"
next
'''###############注册页面
if reg<>"" then
hotstar=hotstar&"<br><b>在线注册：</b><a href="""®&""" target=""_blank""><font color=""red"">点击这里成为正版用户</font>==></a>"
end if
'''###############
pencat=replace(pencat,"S_HOT",hotstar)
if system<>"" then
else
system="未知"
end if
pencat=replace(pencat,"S_SYSTEM",system)
if ln<>"" then
ln="<a href=""mailto:"&ln&"?subject=Come from "&weburl&",About yours ["&cxn&"]"">"&ln&"</a>"
else
ln="未知"
end if
pencat=replace(pencat,"S_EMAIL",ln)
if lu<>"" then
lu="<a href="""&lu&""" target=""_blank"">"&lu&"</a>"
else
lu="未知"
end if
pencat=replace(pencat,"S_URL",lu)
if pic<>"" then
pic="<br><a href='javascript:' onclick='window.open(""about:<body topmargin=0 leftmargin=0 oncontextmenu=self.event.returnValue=false><img%20alt="&webname&"["&weburl&"]%20-%20共享软件发布-下载-学习-研究-交流-破解-注册-汉化-尽在"&webname&"-ASP江湖-注册版-破解版-汉化版-程序制作:百万网址.惊云--%20src="&pic&">"","""",""width=600,height=400,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no"")'><img border=""0"" alt=""点击查看图片"" src="""&pic&""" width=""95"" height=""75""></a>"
else
pic=""
end if
pencat=replace(pencat,"S_PIC",pic)
pencat=replace(pencat,"S_TXT",body)
pencat=replace(pencat,"S_DATE",datetime)
if datetime>Now() then
mtime=datetime
else
mtime=Now()
end if
pencat=replace(pencat,"S_TIME",mtime)
pencat=replace(pencat,"S_HITS",hits)
if pwd<>"" then
pwd="<b>解压密码：</b>[<font color=""#FF0000"">"&pwd&"</font>](红色部分)<br>"
else
pwd=""
end if
pencat=replace(pencat,"S_PWD",pwd)
pencat=replace(pencat,"T_TYPE",thistype)
pencat=replace(pencat,"T_NAME",ttype)
pencat=replace(pencat,"T_TITLE",thistitle)
pencat=replace(pencat,"TXtop",txtop)
pencat=replace(pencat,"DOWN_LIST",dlist)
pencat=replace(pencat,"XG_LIST",xlist)
pencat=replace(pencat,"XG_INFO",xinfo)
pencat=replace(pencat,"T_USER",user)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../soft/"&id&".htm"))
fout.Write pencat
fout.close
'************** 生成HTML页 结束 ***************
if request("type")="page" then%><font color="#FF0000">生成下载页完成</font><script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 500);
// -->
</script>
<%end if%>
</body></html>
最后能生成，但是格式如何写进去的？里面全部是读取数据库，没有地方说出位置如何放阿？不能上传文件，就把源码全部拷贝过来了－－》
<%Admin="DownAdd"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<!--#include file="config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>批量生成HTML</title>
<style>
body{font-size:9pt;line-height:140%}
</style>
</head>
<body>
<%
set rs=server.createobject("adodb.recordset")
rs.open ("select down_show from mb"),conn,1,1
pencat=rs("down_show")
rs.close
rs.open ("select * from down where id="&request("id")&""),conn,1,1
if not rs.eof then
ttid=rs("tid")
id=rs("id")
cxn=rs("cxn")
cxv=rs("cxv")
pwd=rs("pwd")
yy=rs("yy")
cd=rs("cd")
sq=rs("sq")
size=rs("size")
hot=rs("hot")
system=rs("system")
reg=rs("reg")
ln=rs("ln")
lu=rs("lu")
pic=rs("pic")
body=rs("body")
datetime=rs("date")
hits=rs("hits")
show=rs("show")
user=rs("user")
gs=rs("gs")
end if
rs.close
user="<a href='javascript:' onclick='window.open(""../admin/user.asp?user="&user&""","""",""width=400,height=150,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no"")'>"&user&"</a>"
'################ 读取标题 等.. 开始 ################
rs.open "select * from downtype where id="&ttid,conn,1,1
ts=rs("ts")
TN=split(rs("tname"),"|")
TI=split(rs("ts"), ",")
for i = 0 to ubound(TN)-1
if i=ubound(TN)-2 and ubound(TN)>1 then
TTY_id=TI(i)
TTY_name=TN(i)
end if
all_type_top_id=TI(i)
all_type_name=TN(i)
thistype=thistype & "-> <a href=""../sort/"&TI(i)&"_1.htm"">"&TN(i)&"</a>"
thistitle=thistitle & " - "&TN(i)&""
ttype=TN(i)
next
rs.close
''########读取本类top10
sql="select * from down where tid="&ttid&" order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
txtop="·还没有下载"
else
do while not rs.eof
h=h+1
txtop=TXtop&"·<a href=""../soft/"&rs("id")&".htm"">"&rs("cxn")&" "&rs("cxv")&"</a><br>"
if h>=10 then exit do
rs.movenext
loop
h=0
end if
rs.close
'########读取下载连接
sql="select * from downfile where downid="&id&" order by downno"
rs.open sql,conn,1,1
if not rs.eof then
if gs=1 or gs=2 or gs=3 then
dlist=dlist&"<img src=../images/play_"&gs&".gif width=16 height=16> "
else
dlist=dlist&"<script language=""javascript"">function JyDownH(htmlurl){var newwin=window.open(htmlurl,'','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no');return false;}</script>"
end if
do while not rs.eof
pi=pi+1
if gs=1 or gs=2 or gs=3 then
dlist=dlist&"<a target=""_self"" href=""javascript:"" onClick=""window.open('../play.asp?id="&id&"&no="&rs("downno")&"','','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=368,height=285,status=no,resizable=no')"">["&pi&"]</a>"
else
dlist=dlist&"<a href=""../down.asp?id="&id&"&no="&rs("downno")&""" onclick=""return JyDownH(this.href);""><img border=0 src=../images/d_download.gif width=14 height=14>点这里下载-> "
if rs("filename")<>"" then
dlist=dlist&""&rs("filename")&""
else
dlist=dlist&""&cxn&" "&cxv&""
end if
dlist=dlist&"</a><br>"
end if
rs.movenext
loop
end if
rs.close
'#######读取相关软件
sql="select top 10 id,cxn,cxv from down where cxn like '%"&cxn&"%' and id<>"&id&" order by date desc"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
xlist=xlist&"·<a href="""&rs("id")&".htm"">"&rs("cxn")&""
if rs("cxv")<>"" then
xlist=xlist&" "&rs("cxv")&""
end if
xlist=xlist&"</a><br>"
h=h+1
if h>=10 then exit do
rs.movenext
loop
h=0
xlist=xlist&"·更多相关 <a href=""../search.asp?k="&cxn&""">GO!-></a><br><br>"
end if
rs.close
conn.close
set conn=nothing
%><!--#include file="mdb_path_info.asp"--><%
'#######读取相关文章
sql="select top 10 id,title from info where title like '%"&left(cxn,5)&"%' or se='"&cxn&"' order by date desc"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
xinfo=xinfo&"·<a target=""_blank"" href=""../info/"&rs("id")&".htm"">"&rs("title")&"</a><br>"
h=h+1
if h>=10 then exit do
rs.movenext
loop
h=0
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
pencat=replace(pencat,"S_CXN",cxn)
pencat=replace(pencat,"S_CXV",cxv)
pencat=replace(pencat,"S_ID",id)
if yy<>"" then
else
yy="未知"
end if
pencat=replace(pencat,"S_YY",yy)
if cd<>"" then
else
cd="未知"
end if
pencat=replace(pencat,"S_CD",cd)
if sq<>"" then
sq=sq&"版"
else
sq="授权未知"
end if
pencat=replace(pencat,"S_SQ",sq)
if size<>"" then
else
size="未知"
end if
pencat=replace(pencat,"S_SIZE",size)
for i=1 to hot
hotstar=hotstar&"<img src=""../images/d_star.gif"" width=""13"" height=""12"" border=""0"">"
next
'''###############注册页面
if reg<>"" then
hotstar=hotstar&"<br><b>在线注册：</b><a href="""®&""" target=""_blank""><font color=""red"">点击这里成为正版用户</font>==></a>"
end if
'''###############
pencat=replace(pencat,"S_HOT",hotstar)
if system<>"" then
else
system="未知"
end if
pencat=replace(pencat,"S_SYSTEM",system)
if ln<>"" then
ln="<a href=""mailto:"&ln&"?subject=Come from "&weburl&",About yours ["&cxn&"]"">"&ln&"</a>"
else
ln="未知"
end if
pencat=replace(pencat,"S_EMAIL",ln)
if lu<>"" then
lu="<a href="""&lu&""" target=""_blank"">"&lu&"</a>"
else
lu="未知"
end if
pencat=replace(pencat,"S_URL",lu)
if pic<>"" then
pic="<br><a href='javascript:' onclick='window.open(""about:<body topmargin=0 leftmargin=0 oncontextmenu=self.event.returnValue=false><img%20alt="&webname&"["&weburl&"]%20-%20共享软件发布-下载-学习-研究-交流-破解-注册-汉化-尽在"&webname&"-ASP江湖-注册版-破解版-汉化版-程序制作:百万网址.惊云--%20src="&pic&">"","""",""width=600,height=400,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no"")'><img border=""0"" alt=""点击查看图片"" src="""&pic&""" width=""95"" height=""75""></a>"
else
pic=""
end if
pencat=replace(pencat,"S_PIC",pic)
pencat=replace(pencat,"S_TXT",body)
pencat=replace(pencat,"S_DATE",datetime)
if datetime>Now() then
mtime=datetime
else
mtime=Now()
end if
pencat=replace(pencat,"S_TIME",mtime)
pencat=replace(pencat,"S_HITS",hits)
if pwd<>"" then
pwd="<b>解压密码：</b>[<font color=""#FF0000"">"&pwd&"</font>](红色部分)<br>"
else
pwd=""
end if
pencat=replace(pencat,"S_PWD",pwd)
pencat=replace(pencat,"T_TYPE",thistype)
pencat=replace(pencat,"T_NAME",ttype)
pencat=replace(pencat,"T_TITLE",thistitle)
pencat=replace(pencat,"TXtop",txtop)
pencat=replace(pencat,"DOWN_LIST",dlist)
pencat=replace(pencat,"XG_LIST",xlist)
pencat=replace(pencat,"XG_INFO",xinfo)
pencat=replace(pencat,"T_USER",user)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../soft/"&id&".htm"))
fout.Write pencat
fout.close
'************** 生成HTML页 结束 ***************
if request("type")="page" then%><font color="#FF0000">生成下载页完成</font><script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 500);
// -->
</script>
<%end if%>
</body></html>
...全文
请发表友善的回复…
发表回复
huhanshan013 2004-01-19
- 打赏
- 举报
再顶，等帮助。。。。。
huhanshan013 2004-01-19
- 打赏
- 举报
http://www.big666.com/soft/25315.htm
这是他生成的最后的效果
里面没有htm代码，怎么出来的？最明显表格怎么做在生成的页面里面？？？？？？
这是他生成的最后的效果
里面没有htm代码，怎么出来的？最明显表格怎么做在生成的页面里面？？？？？？
zhuomaocn 2004-01-19
- 打赏
- 举报
pencat=rs("down_show")
response.write pencat
response.end
看一下.
模板报存在数据库里了啊。
response.write pencat
response.end
看一下.
模板报存在数据库里了啊。
huhanshan013 2004-01-19
- 打赏
- 举报
zhuomaocn(烦啊) 你好，我想也是这样，我还想这个模板应该在什么地方的一个页面了
你看他的pencat 一直都是在替换东西，
所以应该是调出模板，pencat替换其参数，
可是，源程序都来了，还是没有发现这个晕死的模板啊？
挖地三尺，还是没有看出里面地破绽啊！
哥们，可能这里就是某个地方关键的转一句话，有哪位大哥知道
请指点迷津！神仙指路！！！
你看他的pencat 一直都是在替换东西，
所以应该是调出模板，pencat替换其参数，
可是，源程序都来了，还是没有发现这个晕死的模板啊？
挖地三尺，还是没有看出里面地破绽啊！
哥们，可能这里就是某个地方关键的转一句话，有哪位大哥知道
请指点迷津！神仙指路！！！
ctz 2004-01-19
- 打赏
- 举报
研究中～
zhuomaocn 2004-01-19
- 打赏
- 举报
没有仔细看，不过可能是这样。
有一个html的模板，并保存在数据库里。
读出这个html的模板，赋给某个变量，也就是这段代码里的pencat。
替换关键字。
输出。
有一个html的模板，并保存在数据库里。
读出这个html的模板，赋给某个变量，也就是这段代码里的pencat。
替换关键字。
输出。
dgseamaple 2004-01-19
- 打赏
- 举报
不太清楚，顶一下！
运用多种不同的生成规则使生成速度变的更为快速，仿京东商城网上购物系统正式版源码下载商城网站模板在生成HTM的基础上实现多种只有动态文件才有的功能，如用户状态、新闻的浏览率、相应的价格级别等信息！...
