📄 admin_template_html.asp
字号:
<!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='admin_login.asp';</script>")
Response.End
End if
dim id
dim site,siteurl,email,copyright,classtitle,classlist,Powered
Dim f
Dim strTitle,strContent,strOut
if Session("level")<2 then
Call outcome("你的权限不足")
Response.End
End if
sql="select * from O3888_title"
set rs=conn.execute(sql)
site=rs("site")
siteurl=rs("siteurl")
email=rs("email")
dlogo=rs("dlogo")
weburl=rs("weburl")
adurl=rs("adurl")
stats=rs("stats")
classlist=rs("classlist")
classtitle=rs("classtitle")
Copyright=rs("Copyright")
rs.close
set rs=Nothing
id=request("id")
if id="" then
%>
<html>
<head>
<title>生成其他页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</head>
<body>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="b">
<tr>
<td align="center">生成其他页面</td>
</tr></table>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="a">
<tr>
<td>网页编号</td>
<td>网页名称</td>
<td>网页是否存在</td>
<td>生成网页</td>
</tr>
<%
sql="select * from O3888_template order by id"
set rs=conn.execute(sql)
if rs.bof or rs.eof then
Response.write "<tr><td colspan='5'><font color=red>暂无模板</font></td></tr>"
else
Call listit()
end if
function listit()
rs.movefirst
while not rs.eof
response.write "<tr>"
response.write "<td>"&rs("id")&"</td><td>"&rs("name")&"</td>"
response.write "<td>"
Dim Location, PathInfo,I,fso
For I = 1 To Len(Request.ServerVariables("PATH_TRANSLATED"))
If Mid(Request.ServerVariables("PATH_TRANSLATED"), I, 1) = "\" Then
Location = I
End if
Next
PathInfo = Mid(Request.ServerVariables("PATH_TRANSLATED") , 1, Location)
filename = PathInfo&"../"&rs("html")&""
Set fso = CreateObject("Scripting.FileSystemObject") '使用Server.CreateObject方法，创建FSO对象模式。
If fso.FileExists(filename) Then '利用FSO模型的FileExists方法检查文件是否存在
Response.Write "已经生成"
Else
Response.Write "<font color='#FF0000'>未生成</font>"
End If
Set fso = Nothing
response.write "</td>"
response.write "<td><a href='admin_template_html.asp?id="&rs("id")&"'>点击生成</a></td>"
response.write "</tr>"
rs.movenext
wend
end function
rs.close
set rs=nothing
%>
<tr>
<td align="center" colspan="5">[<a href="http://www.03888.com/" target="_blank">03888网址大全</a>]</td>
</tr>
</table>
</body>
</html>
<%
else
sql="select * from O3888_template where id="&id
set rs=conn.execute(sql)
if rs.bof or rs.eof then
Call outcome("非法操作")
Response.End
else
name=rs("name")
html=rs("html")
strOut=rs("template")
rs.close
set rs=Nothing
end if
sql="select * from O3888_map"
set rs=conn.execute(sql)
a=rs("a")
b=rs("b")
a_table_top=rs("a_table_top")
a_tr_Circulation=rs("a_tr_Circulation")
a_table_end=rs("a_table_end")
c=rs("c")
d=rs("d")
c_table_top=rs("c_table_top")
c_tr_top=rs("c_tr_top")
c_tr_Circulation=rs("c_tr_Circulation")
c_tr_Packing=rs("c_tr_Packing")
c_tr_end=rs("c_tr_end")
c_table_end=rs("c_table_end")
rs.close
set rs=nothing
O3888_class_index=c_table_top
sql="select top "&c&" * from O3888_class where level=1 and xian=1 order by topid desc,classid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
jishu=1
while not rs.eof
if jishu=1 or jishu mod d=1 then
O3888_class_index=O3888_class_index&replace(replace(c_tr_top,"{$O3888_c_classlink}",weburl&classlist&classtitle&rs("classid")&"/"),"{$O3888_c_classname}",rs("classname"))
else
O3888_class_index=O3888_class_index&replace(replace(c_tr_Circulation,"{$O3888_c_classlink}",weburl&classlist&classtitle&rs("classid")&"/"),"{$O3888_c_classname}",rs("classname"))
end if
if jishu mod d=0 then O3888_class_index=O3888_class_index&c_tr_end&vbCrLf
jishu=jishu+1
rs.movenext
wend
jishu=jishu-1
if jishu mod d<>0 then
for i=1 to d-(jishu mod d)
O3888_class_index=O3888_class_index&c_tr_Packing
if i=d-(jishu mod d) then O3888_class_index=O3888_class_index&c_tr_end
next
end if
rs.close
set rs=Nothing
O3888_class_index=O3888_class_index&c_table_end
strOut=Replace(strOut,"{$O3888_class_index}",O3888_class_index)
O3888_url_index=a_table_top
sql="select top "&a&" * from O3888_class where verity=1 and index=1 order by topid desc,classid desc"
set rs=conn.execute(sql)
while not rs.eof
noooo=noooo+1
if noooo mod 2 = 1 then
bgcolor="09"
else
bgcolor="06"
end if
O3888_url_index=O3888_url_index&Replace(Replace(a_tr_Circulation,"{$O3888_a_classlink}",weburl&classlist&classtitle&rs("classid")&"/"),"{$O3888_a_trcolor}",bgcolor)&vbCrLf
if rs("simplify")<>"" then
O3888_url_index=Replace(O3888_url_index,"{$O3888_a_classname}",rs("simplify"))
else
O3888_url_index=Replace(O3888_url_index,"{$O3888_a_classname}",rs("classname"))
end if
O3888_a_urllist=""
sql="select top "&b&" * from O3888_website where verity=1 and index=1 and classid="&rs("classid")&" order by topid desc,id desc"
set r=conn.execute(sql)
while not r.eof
if stats=1 or stats=2 then
O3888_a_urllist=O3888_a_urllist&"<a target='_blank' href='go.asp?id="&r("id")&"'>"&r("title")&"</a><span class='11'></span>"
else
O3888_a_urllist=O3888_a_urllist&"<a target='_blank' href='"&r("url")&"'>"&r("title")&"</a><span class='11'></span>"
end if
r.movenext
wend
O3888_url_index=Replace(O3888_url_index,"{$O3888_a_urllist}",O3888_a_urllist)
rs.movenext
wend
r.close
set r=Nothing
rs.close
set rs=Nothing
O3888_url_index=O3888_url_index&a_table_end
strOut=Replace(strOut,"{$O3888_url_index}",O3888_url_index)
sql="select * from O3888_An where id=1"
set rs=conn.execute(sql)
O3888_an="<a href='an.asp' target='_blank' style='color:"&rs("An_color")&";'>"&rs("An_name")&"</a>"
rs.close
set rs=nothing
strOut=Replace(strOut,"{$O3888_An}",O3888_An)
strOut=Replace(strOut,"{$O3888_site}",site)
strOut=Replace(strOut,"{$O3888_siteurl}",siteurl)
strOut=Replace(strOut,"{$O3888_email}",email)
strOut=Replace(strOut,"{$O3888_dlogo}",dlogo)
strOut=Replace(strOut,"{$O3888_Copyright}",Copyright)
strOut=replace(strOut,"{$O3888_classlist}",classlist)
strOut=replace(strOut,"{$O3888_classtitle}",classtitle)
strOut=replace(strOut,"{$O3888_weburl}",weburl)
strOut=replace(strOut,"{$O3888_adurl}",adurl)
strOut=replace(strOut,"{$O3888_creattime}",date())
menulist=""
sql="select top 8 id,url,title from O3888_website where verity=1 order by [id] desc"
set cs=conn.execute(sql)
do while not cs.eof
if stats=1 then
menulist=menulist&"<a target='_blank' href='go.asp?id="&cs(0)&"'>"&cs(2)&"</a><span class='13'></span>"
else
menulist=menulist&"<a target='_blank' href='"&cs(1)&"'>"&cs(2)&"</a><span class='13'></span>"
end if
cs.movenext
loop
set cs=nothing
strOut=replace(strOut,"{$O3888_newsurl}",menulist)
menulist=""
sql="select top 8 id,url,title from O3888_website where verity=1 and recommend=1 order by [id] desc"
set cs=conn.execute(sql)
do while not cs.eof
if stats=1 then
menulist=menulist&"<a target='_blank' href='go.asp?id="&cs(0)&"'>"&cs(2)&"</a><span class='13'></span>"
else
menulist=menulist&"<a target='_blank' href='"&cs(1)&"'>"&cs(2)&"</a><span class='13'></span>"
end if
cs.movenext
loop
set cs=nothing
strOut=replace(strOut,"{$O3888_recommendurl}",menulist)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath("../"&html&""),true)
f.WriteLine strOut
f.close
set f=Nothing
set fso=Nothing
Call outcome("生成"&name&"成功")
Response.End
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -