📄 template.asp
字号:
<!--#include file="config.asp"-->
<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 fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(Server.MapPath("template/index.htm"))
strOut=f.ReadAll
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{tongji}}>",tongji)
Set f=fso.CreateTextFile(Server.MapPath("index.htm"),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成首页成功</A><br>"
set f=Nothing
set fso=Nothing
%>
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(Server.MapPath("template/about.htm"))
strOut=f.ReadAll
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{tongji}}>",tongji)
Set f=fso.CreateTextFile(Server.MapPath("about.htm"),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成about.htm成功</A><br>"
set f=Nothing
set fso=Nothing
%>
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(Server.MapPath("template/mail.htm"))
strOut=f.ReadAll
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{tongji}}>",tongji)
Set f=fso.CreateTextFile(Server.MapPath("mail.htm"),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成mail.htm成功</A><br>"
set f=Nothing
set fso=Nothing
%>
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(Server.MapPath("template/map.htm"))
strOut=f.ReadAll
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{tongji}}>",tongji)
Set f=fso.CreateTextFile(Server.MapPath("map.htm"),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成map.htm成功</A><br>"
set f=Nothing
set fso=Nothing
%>
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(Server.MapPath("template/mian.htm"))
strOut=f.ReadAll
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{tongji}}>",tongji)
Set f=fso.CreateTextFile(Server.MapPath("mian.htm"),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成mian.htm成功</A><br>"
set f=Nothing
set fso=Nothing
%>
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(Server.MapPath("template/help.htm"))
strOut=f.ReadAll
f.close
strOut=Replace(strOut,"<{{site}}>",site)
strOut=Replace(strOut,"<{{siteurl}}>",siteurl)
strOut=Replace(strOut,"<{{email}}>",email)
strOut=Replace(strOut,"<{{tongji}}>",tongji)
Set f=fso.CreateTextFile(Server.MapPath("help.htm"),true)
f.WriteLine strOut
f.close
Response.Write "<li>生成help.htm成功</A><br>"
set f=Nothing
set fso=Nothing
%>
<br></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -