📄 info_makeinfo.asp
字号:
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.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 info_show from mb"),conn,1,1
pencat=rs("info_show")
rs.close
rs.open "select * from info where id="&request("id"),conn,1,1
if not rs.eof then
ttid=rs("tid")
id=rs("id")
se=rs("se")
title=rs("title")
form_user=rs("form_user")
form_url=rs("form_url")
info=rs("info")&"<img border=""0"" src=""down_info.asp?id="&id&""" width=""1"" height=""1"">"
hits=rs("hits")
datetime=year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))
end if
rs.close
if form_user<>"" then
else
form_user=""
end if
if form_url<>"" then
else
form_url=""
end if
'################ 读取标题 等.. 开始 ################
rs.open "select * from infotype 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="""&TI(i)&"_1.asp"">"&TN(i)&"</a>"
thistitle=thistitle & " - "&TN(i)&""
ttype=TN(i)
next
rs.close
if se<>"" then
'#######读取相关文章
rs.open "select top 10 id,title from info where se='"&se&"' and se<>'' and id<>"&id&" order by date desc",conn,1,1
if not rs.eof then
do while not rs.eof
xlist=xlist&"<li type=""circle""><a href="""&rs("id")&".asp"">"&rs("title")&"</a></li>"
h=h+1
if h>=10 then exit do
rs.movenext
loop
h=0
end if
rs.close
conn.close
set conn=nothing
%><!--#include file="mdb_path_down.asp"--><%
'#######读取相关软件
sql="select top 10 id,cxn,cxv from down where cxn like '%"&se&"%' order by date desc"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
xdown=xdown&"<li type=""circle""></li>"
h=h+1
if h>=10 then exit do
rs.movenext
loop
h=0
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
pencat=replace(pencat,"T_TYPE",thistype)
pencat=replace(pencat,"T_NAME",ttype)
pencat=replace(pencat,"T_TITLE",thistitle)
pencat=replace(pencat,"TXlist",txlist)
pencat=replace(pencat,"TXtop",Txtop)
pencat=replace(pencat,"XG_LIST",xlist)
pencat=replace(pencat,"XG_DOWN",xdown)
pencat=replace(pencat,"S_ID",id)
pencat=replace(pencat,"S_TITLE",title)
pencat=replace(pencat,"S_INFO",info)
pencat=replace(pencat,"S_FORM_USER",form_user)
pencat=replace(pencat,"S_FORM_URL",form_url)
pencat=replace(pencat,"S_HITS",hits)
pencat=replace(pencat,"S_DATE",datetime)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../stock/"&id&".asp"))
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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -