?? makemap.asp
字號:
<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<HEAD>
<TITLE>網站地圖生成</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK href="css.css" rel=stylesheet>
</HEAD>
<BODY LEFTMARGIN=0 TOPMARGIN=2 MARGINWIDTH=0 MARGINHEIGHT=0 oncontextmenu=self.event.returnValue=false>
<div align="center">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="mainmiddle">
<tr>
<td width="29" height="32"> <div align="left">
<p class="maindaohang"> </p>
</div></td>
<td width="709"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<b><font color="#000000"><b> <span class="bigNavi">網站地圖生成</span> </b></font></b></td>
<td width="8" class="mainrights"></td>
</tr>
</table>
<br>
<br>
<br>
<table width="37%" height="26" border="0" align="center" cellpadding="3" cellspacing="1" class="tabbgcolor">
<tr class="tabbgcolorli">
<td width="25%" height="20"> <div align="center">
<p align="left" class="tabbgcolorli">網站地圖生成</p>
</div></td>
</tr>
</table>
<br>
<table width="37%" height="95" border="0" align="center" cellpadding="3" cellspacing="1" class="tabbgcolor">
<tr class="tabbgcolorli">
<td width="25%" height="20"> <div align="center">
<p class="tabbgcolorli">
<%
dim map
map1="<br><br><a href=index.htm target=_blank>網站首頁</a><br><br><br>"
bigclassmap="新聞分類: "
set rs=server.CreateObject("adodb.recordset")
sql="select * from bigclass order by paixu"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
bcname=rs("bcname")
classname=rs("name1")
bigclassmap=bigclassmap&"<a href="&classname&"1.htm>"&bcname&"</a> "
rs.movenext
loop
bigclassmap=bigclassmap&"<br><br><br>"
end if
rs.close
set rs=nothing
lmmap="信息欄目: "
set rs=server.CreateObject("adodb.recordset")
sql="select * from info order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
lmmap=lmmap&"<a href="&rs("filename")&".htm>"&rs("title")&"</a> "
rs.movenext
loop
lmmap=lmmap&"<br><br><br>"
end if
rs.close
set rs=nothing
other="其他欄目: <a href=xiazai1.htm>文件下載</a>"
themap=map1&bigclassmap&smallclassmap&newsclassmap&lmmap&other
filename="../map.htm"
filename2="../lmmb.htm"
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f2= fso.OpenTextFile(server.mappath(""&filename2&""))
If Not fso.FileExists(server.mappath(""&filename2&"")) Then
mb1="模版不存在，請檢查該路徑文件。"
response.end
else
mb1=f2.ReadAll
End If
f2.close
set f2=nothing
set fso=nothing
call makeclass
mb1=replace(mb1,"[title]","網站導航")
mb1=replace(mb1,"[keywords]","網站地圖")
mb1=replace(mb1,"[description]","網站地圖")
mb1=replace(mb1,"[bottom]",bottom)
mb1=replace(mb1,"[biaozhi]",themap)
set fso=server.createobject("scripting.filesystemobject")
set ffile=fso.createtextfile(server.mappath(""&filename&""))
ffile.write""&mb1&""
ffile.close
set ffile=nothing
set fso=nothing
response.write"<div align=center>網站導航生成成功</a> <a href=../map.htm target=_blank>[瀏覽網站導航]</a>"
%>
</p>
</div></td>
</tr>
</table>
<p><br>
</p>
<br>
</div>
</BODY>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -