📄 admin_temptoindex.asp
字号:
<!--#include file="Inc/const.asp"-->
<!--#include file="Include.asp"-->
<!--#include file = "admin_CheckMana.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)
'=========================================================
server.ScriptTimeout=15
if request("action")="make" then
If request("buildindex")<>"" then
Filename=indexname
MDBpath="./"
if request("Indexm")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../"&Filename&""))
fout.Write request("Indexm")
end if
end if
If request("buildspecial")<>"" then
Filename=specialname
MDBpath="./"
if request("specialm")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../Special/"&Filename&""))
fout.Write request("specialm")
end if
End if
If request("buildpic")<>"" then
Filename=picname
MDBpath="./"
if request("picm")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../Photo/"&Filename&""))
fout.Write request("picm")
end if
End if
fout.close
set fout=nothing
set fso=nothing
Response.write"<script>alert(""成功: \n\n已经按照你的要求生成成功!\n\n首页地址：/新闻目录/"&indexname&"\n\n专题地址：/新闻目录/special/"&specialname&"\n\n图片地址：/新闻目录/Photo/"&Picname&"\n\n行业地址：/新闻目录/Market/"&Hname&"\n\n下载地址：/新闻目录/Down/"&Downname&""");location.href=""admin_Temptoindex.asp""</script>"
response.end
end if
%>
<html><LINK
href="css/css.css" type=text/css
rel=stylesheet>
<body topmargin="20" leftmargin="1">
<form method="post" action="?action=make"><table border="0" cellspacing="0" cellpadding="2" ID="Table1" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td>
</td>
</tr>
<tr>
<td> <table width="100%" border="0" cellpadding="2" cellspacing="1" bordercolor="#FEFEFE" bgcolor="#7ED3A7" style="border-collapse: collapse">
<tr bgcolor="#F7FFF4">
<td colspan="2"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b>生成插件首页</b> 如果你要更改首页默认文件请到:/新闻目录下/Fsmanage/Inc/const.asp文件去修改</div></td>
</tr>
</table></td>
<tr bgcolor="#F7FFF4" class="wth">
<textarea style="width:100%; height:100%;display:none" rows="19" name="specialm" cols="102"><!--#include file="Specialtemp.asp"--></textarea>
<textarea style="width:100%; height:100%;display:none" rows="19" name="picm" cols="102"><!--#include file="pictemp.asp"--></textarea>
<td height="30" colspan="2"><input name="buildspecial" type="checkbox" id="buildspecial" checked>
更新专题首页，专题首页默认文件： <%=specialname%> 专题首页模板文件:Fsmanage/SpecialTemp.asp <a href="Specialtemp.asp" target="_blank">查看模板</a></td>
</tr>
<tr bgcolor="#F7FFF4" class="wth">
<td height="30" colspan="2"><input name="buildpic" type="checkbox" id="buildpic" checked>
更新图片首页，图片首页默认文件： <%=Picname%> 新闻图片首页模板文件:Fsmanage/Pictemp.asp <a href="Pictemp.asp" target="_blank">查看模板</a></td>
</tr>
<tr bgcolor="#F7FFF4" class="wth">
<td height="30" colspan="2"><input name="buildh" type="checkbox" id="buildh" Disabled>
更新行业报价首页，行业报价首页默认文件： <%=hname%> 行业报价首页模板文件:Fsmanage/Htemp.asp <a href="Htemp.asp" target="_blank">查看模板</a></td>
</tr>
<tr bgcolor="#F7FFF4" class="wth">
<td height="30" colspan="2"><input name="buildh" type="checkbox" id="builddown" Disabled>
更新下载首页，下载首页默认文件： <%=Downname%> 下载首页模板文件:Fsmanage/Downtemp.asp <a href="Downtemp.asp" target="_blank">查看模板</a></td>
</tr>
<tr bgcolor="#F7FFF4" class="wth">
<td height="30" colspan="2"> <input type="submit" name="btnBuild" class=Anbutc value="完成更新">
<input name="action" type="hidden" id="action" value="make"> </td>
</tr>
</table></td>
</tr>
</table></form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -