📄 mansuper.asp
字号:
<!--
'========================================================================================
' 文 件 名: mansuper.asp
' 版 本: 自由岭锋行业专用留言系统1.78 ( LF Message SyStem 1.78 )
' 说 明: 系统参数默认设置图形接口 | 请勿自行修改该处文件源代码，以确保程序正确的执行
' 文件日期: 2005-12-24
' 设 计 者： 疾风之狼
'========================================================================================
' Copyright (C) 2001--2005 自由岭锋. All rights reserved.
' 网 站: http://lingfengnet.com,
' 电子邮件: wfr@zknu.edu.cn
' 联系ＱＱ: 85112407
'========================================================================================
-->
<%@language=vbscript codepage=936 %>
<!-- #include file="inc/setup.asp" -->
<!-- #include file="inc/sub_inc.asp" -->
<!-- #include file="inc/ip_purview.asp" -->
<%flg="man"%>
<!-- #include file="inc/purview.asp" -->
<!-- #include file="inc/checkru.asp" -->
<html>
<head>
<title><%= lingfengnet_ms_language_title_mansuper %></title>
<%
call htmlmeta()
%>
<link rel="stylesheet" href="style/css/<%=lingfengnet_ms_web_css%>.css" type="text/css">
</head>
<body >
<%
call htmltop()
%>
<br>
<%
call htmladminmen()
%>
<br>
<%
On Error Resume Next
if request.form("set")="ok" then
dbpath=trim(request.form("dbpath"))
if IsObjInstalled("Scripting.FileSystemObject") then
Set Fso=server.createobject("scripting.filesystemobject")
Dbpath="inc/" & dbpath
fso1=server.mappath(dbpath)
fso2=server.mappath("inc/setup.asp")
fso.copyfile fso1,fso2,true
set fso=nothing
Response.Write "<script Language=Javascript>alert('"& lingfengnet_ms_language_Warning_mansuper_1 &"')</script><html><head><meta http-equiv='refresh' content='0;url=mansys.asp'><META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"></head><body>"
' Response.Redirect "mansys.asp"
response.end
else
Response.Write "<script Language=Javascript>alert('"& lingfengnet_ms_language_Warning_mansuper_2 &""&dbpath&""& lingfengnet_ms_language_Warning_mansuper_3 &"');window.close();</script>"
response.end
end if
end if
%>
<table width="<%=lingfengnet_ms_web_w%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="bgc2">
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr class="bgc">
<td height=20 width=25% class="bgc">
<table width="99%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="30" valign="middle">
<div align="left"><%= lingfengnet_ms_language_mansuper_mes_1 %></div>
</td>
</tr>
<tr>
<td height="30" valign="middle">
<table width="99%" border="0" cellspacing="4" cellpadding="0">
<form name="form" method="post" action="mansuper.asp">
<tr>
<td height="30"> <p><%= lingfengnet_ms_language_mansuper_mes_2 %></p></td>
</tr>
<tr>
<td height="30"></td>
</tr>
<tr>
<td height="30"> <input type="radio" name="dbpath" value="setup_sys_1.asp" checked>
<b> <%= lingfengnet_ms_language_mansuper_mes_3 %></b><br> </td>
</tr>
<tr>
<td height="30"><%= lingfengnet_ms_language_mansuper_mes_4 %></td>
</tr>
<tr>
<td height="30"> <input type="radio" name="dbpath" value="setup_sys_2.asp">
<b><%= lingfengnet_ms_language_mansuper_mes_5 %></b></td>
</tr>
<tr>
<td height="30"><%= lingfengnet_ms_language_mansuper_mes_6 %></td>
</tr>
<tr>
<td height="30"> <input type="radio" name="dbpath" value="setup_sys_3.asp">
<b><%= lingfengnet_ms_language_mansuper_mes_7 %></b></td>
</tr>
<tr>
<td height="30"><%= lingfengnet_ms_language_mansuper_mes_8 %></td>
</tr>
<tr>
<td height="30"><input type="radio" name="dbpath" value="setup_sys_4.asp">
<b><%= lingfengnet_ms_language_mansuper_mes_9 %></b></td>
</tr>
<tr>
<td height="30"><%= lingfengnet_ms_language_mansuper_mes_10 %></td>
</tr>
<tr>
<td height="30"><input type="radio" name="dbpath" value="setup_sys_5.asp">
<b><%= lingfengnet_ms_language_mansuper_mes_11 %></b></td>
</tr>
<tr>
<td height="30"><%= lingfengnet_ms_language_mansuper_mes_12 %></td>
</tr>
<tr>
<td height="30"> </td>
</tr>
<tr>
<td height="30"> <div align="center">
<input type="submit" name="Submit" value="<%= lingfengnet_ms_language_mansuper_mes_sub %>" class="button">
<input type="hidden" name="set" value="ok">
</div></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
</body>
</html>
<%
call htmlend()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -