📄 admin_map.asp
字号:
<!--#include file = include.asp-->
<!--#include file = admin_CheckMana.asp-->
<!--#include file = char.asp-->
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://bbs.cooin.com http://bbs.foosun.net)
'=========================================================
if request.Form("action")="make"
Copyright="\n\n Copyrights Foosun Computer System studios"
Domain=Request.ServerVariables("SERVER_NAME")
soFilePath=Request.ServerVariables("PATH_INFO")
soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
totoln=len(soFilePath)
soFilePath=lcase(left(soFilePath,totoln-1))
soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
sowinpath=Domain&soFilePath
map=request.form("map")
countm=request.Form("countm")
countm1=request.Form("countm1")
picm=request.Form("picm")
picm1=request.Form("picm1")
picm2=request.Form("picm2")
set MyFile=Server.CreateObject("Scripting.FileSystemObject")
Set CrmapS=MyFile.CreateTextFile(Server.MapPath("../")&"\otherjs\mapjs\Map.js")
'--------------------------
set rs = server.createobject("adodb.recordset")
rs.source = "select bigclasscn from bigclass order by OrderN asc "
rs.open rs.source,conn,1,1
if rs.recordcount=0 then
contentm1="没有新闻栏目<br>"
CrmapS.WriteLine("document.write("""&Contentm1&""")")
end if
'---------1列开始-----------------
if map=1 then
while not rs.eof
for i=1 to rs("depth")
contentm=" <font color=""#97C893"">│</font>"
CrmapS.WriteLine("document.write("""&Contentm&""")")
next
if rs("Child")<>0 then
contentm=" <font color=""#97C893"">├</font> "
contentm="<img src=pic/NewsPr.gif>"
contentm=""&rs("classcn")&""
response.write("<br>")
contentm="<table width=88 height=22 border=0 cellpadding=0 cellspacing=0 background="&picm1&"> <tr> <td><div align=center> <b>"&rs("BigClassCN")&"</b></div></td> </tr></table>"
CrmapS.WriteLine("document.write("""&Contentm&""")")
set rsmall = server.createobject("adodb.recordset")
rsmall.source = "select * from smallclass where bigclasscn='"&bigclasscn&"'"
rsmall.open rsmall.source,conn,1,1
while not rsmall.eof
Content="<table width=80 height=15 border=0 cellpadding=0 cellspacing=0> <tr> <td><div align=center>·<a href=http://"&sowinpath&"htm/"&rsmall("BigClassEN")&"/"&rsmall("SmallClassEN")&"/"&rsmall("SmallClassEN")&"_1.html target=_blank>"&rsmall("SmallClassCN")&"</a></div></div></td> </tr></table>"
CrmapS.WriteLine("document.write("""&Content&""")")
rsmall.movenext
wend
rs.movenext
wend
rsmall.close
end if
'--------1列结束---------
'--------2列-------------
if map=2 then
while not rs.eof
bigclasscn=rs("bigclasscn")
if picm2="" then
contentm="<table width=99% height=22 border=0 cellspacing=0 cellpadding=0> <tr><td width=88><div align=center> <b>"&rs("BigClassCN")&"</b></div></td><td>"
CrmapS.WriteLine("document.write("""&Contentm&""")")
else
contentm="<table width=99% height=22 border=0 cellspacing=0 cellpadding=0> <tr><td width=88 background="&picm2&"><div align=center> <b>"&rs("BigClassCN")&"</b></div></td><td>"
CrmapS.WriteLine("document.write("""&Contentm&""")")
end if
set rsmall = server.createobject("adodb.recordset")
rsmall.source = "select * from smallclass where bigclasscn='"&bigclasscn&"'"
rsmall.open rsmall.source,conn,1,1
while not rsmall.eof
Content="·<a href=http://"&sowinpath&"htm/"&rsmall("BigClassEN")&"/"&rsmall("SmallClassEN")&"/"&rsmall("SmallClassEN")&"_1.html target=_blank>"&rsmall("SmallClassCN")&"</a> "
CrmapS.WriteLine("document.write("""&Content&""")")
rsmall.movenext
wend
Content1="</td></tr></table>"
CrmapS.WriteLine("document.write("""&Content1&""")")
rs.movenext
wend
set rsmal=nothing
end if
'-----------2列结束------------------
'--------2列-------------
if map=3 then
i=0
contentq="<table width=100% border=0 cellpadding=0 cellspacing=0><tr>"
CrmapS.WriteLine("document.write("""&Contentq&""")")
do while not rs.eof
i=i+1
bigclasscn=rs("bigclasscn")
contentm="<td valign=top><table width=95% border=0 cellpadding=0 cellspacing=0 background="&picm&"><td><div align=left> <font color=red><b>"&rs("BigClassCN")&"</b></font></div></td></table><table border=0 cellpadding=0 cellspacing=0><td height=7></td></table>"
CrmapS.WriteLine("document.write("""&Contentm&""")")
set rsmall = server.createobject("adodb.recordset")
rsmall.source = "select * from smallclass where bigclasscn='"&bigclasscn&"'"
rsmall.open rsmall.source,conn,1,1
j=0
while not rsmall.eof
Content="<a href=http://"&sowinpath&"htm/"&rsmall("BigClassEN")&"/"&rsmall("SmallClassEN")&"/"&rsmall("SmallClassEN")&"_1.html target=_blank>"&rsmall("SmallClassCN")&"</a> "
CrmapS.WriteLine("document.write("""&Content&""")")
rsmall.movenext
j=j+1
if j mod countm1=0 then
contenten="<br>"
CrmapS.WriteLine("document.write("""&Contenten&""")")
end if
wend
contente="</td>"
CrmapS.WriteLine("document.write("""&Contente&""")")
if i mod countm=0 then
contente1="</tr>"
CrmapS.WriteLine("document.write("""&Contente1&""")")
end if
rs.movenext
loop
contente11="</table>"
CrmapS.WriteLine("document.write("""&Contente11&""")")
rsmall.close
end if
'-----------3列结束------------------
rs.close
set rs=nothing
set rsmall=nothing
set MyFile=nothing
CrmapS.close
Response.write"<script>alert(""网站地图生成成功!"");location.href=""admin_map.asp"";</script>"
Response.end
end if
%>
<body bgcolor="#FFFFFF" topmargin="10">
<form name="form1" method="post" action="?action=make">
<table width="524" height="101" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#7ED3A7">
<tr>
<td height="24" bgcolor="#F7FFF4">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><strong><font color="#000000">网站地图生成</font></strong>
</b></div></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#F7FFF4">
<div align="left">请选择新闻列表： <br>
<input type="radio" name="map" value="1">
竖列 底纹图片
<input name="picm1" type="text" id="picm1" value="pic/news_bg_1.gif">
<br>
<br>
<input name="map" type="radio" value="2" checked>
横列 底纹图片
<input name="picm2" type="text" id="picm2" value="pic/news_bg_2.gif"> <br>
<br>
<input type="radio" name="map" value="3">
横列
<input name="countm" type="text" id="countm" value="3" size="3">
列，二级导航显示数
<input name="countm1" type="text" id="countm1" value="3" size="4">
底纹图片
<input name="picm" type="text" id="picm" value="pic/news_bg_3.gif">
<br>
<br>
<font color="#FF0000">注意：底纹图片可以使用绝对路径 ，不能使用HTML代码！</font><br>
<br>
<input name="C12345" type="submit" id="C12346" value="生成地图" class=Anbutc>
<input name="action" type="hidden" id="action" value="make">
</div></td>
</tr>
</table>
<br>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -