📄 baksetup.asp
字号:
<!--
'========================================================================================
' 文 件 名: baksetup.asp
' 版 本: 自由岭锋行业专用留言系统1.78 ( LF Message SyStem 1.78 )
' 插件版本: 1.1
' 说 明: 系统紧急恢复文件 | 请小心修改为自己的风格
' 文件日期: 2005-12-24
' 设 计 者： 疾风之狼
'========================================================================================
' Copyright (C) 2001--2005 自由岭锋. All rights reserved.
' 网 站: http://lingfengnet.com,
' 电子邮件: wfr@zknu.edu.cn
' 联系ＱＱ: 85112407
'========================================================================================
-->
<%@language=vbscript codepage=936 %>
<!-- #include file="setup.asp" -->
<%flg="manok"%>
<!-- #include file="inc/sub_inc.asp" -->
<!-- #include file="inc/ip_purview.asp" -->
<!-- #include file="inc/checkru.asp" -->
<!-- #include file="zylf_Function.asp"-->
<!--#include file="inc/md5_32.asp"-->
<%
if Request("set")="ok" then
adminname=trim(request("lingfengnet_ms_adminname"))
adminpass=trim(request("lingfengnet_ms_adminpass"))
reg=Request("reg")
reg1=Request("reg1")
if adminname="" or adminpass="" then
response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>"
response.write "alert('"& lingfengnet_ms_language_Warning_baksetup_1 &"');"
response.write "history.go(-1);"
response.write "</script>"
response.end
end if
if int(reg)<>int(session("SafeCode")) and lingfengnet_ms_messreg=0 then
response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>"
response.write "alert('"& lingfengnet_ms_language_Warning_baksetup_2 &"');"
response.write "history.go(-1);"
response.write "</script>"
response.end
end if
if adminname=lingfengnet_ms_adminname and zylf_md5_32_pass(adminpass)=lingfengnet_ms_adminpass then
On Error Resume Next
if IsObjInstalled("Scripting.FileSystemObject") then
Set Fso=server.createobject("scripting.filesystemobject")
Dbpath="setup.asp"
fso1=server.mappath(dbpath)
fso2=server.mappath("inc/setup.asp")
fso.copyfile fso1,fso2,true
set fso=nothing
Response.Write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script Language=Javascript>alert('"& lingfengnet_ms_language_Warning_baksetup_3 &"')</script>"
else
Response.Write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script Language=Javascript>alert('"& lingfengnet_ms_language_Warning_baksetup_4 &"');window.close();</script>"
response.end
end if
else
Response.Write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script Language=Javascript>alert('"& lingfengnet_ms_language_Warning_baksetup_5 &"');window.close();</script>"
response.end
end if
end if
%>
<html>
<head>
<title><%= lingfengnet_ms_language_title_baksetup %></title>
<%
call htmlmeta()
%>
<link rel="stylesheet" href="style/css/<%=lingfengnet_ms_web_css%>.css" type="text/css">
</head>
<body>
<%
call htmltop()
%>
<br>
<form name="form" method="post" action="baksetup.asp">
<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=30 width=25% class="bgc"> <div align="left"> <%= lingfengnet_ms_language_messdef_login_name %>：</div></td>
<td height="30" width="75%" class="bgc"> <div align="left">
<input type="text" name="lingfengnet_ms_adminname" size="25" maxlength="25">
</div></td>
</tr>
<tr class="bgc">
<td height=9 width=25% class="bgc"> <div align="left"> <%= lingfengnet_ms_language_messdef_login_pass %>：</div></td>
<td height="30" width="75%" class="bgc"> <div align="left">
<input type="password" name="lingfengnet_ms_adminpass" size="25" maxlength="25">
</div></td>
</tr>
<tr class="bgc">
<td height=30 width=25% class="bgc"> <%= lingfengnet_ms_language_messdef_login_Att %>：</td>
<td height="30" width="75%" class="bgc"> <input type="text" name="reg" size="8" maxlength="10" class="input">
<%= lingfengnet_ms_language_messdef_login_left %>
<%Call GetSafeCode%>
<input name=set type=hidden id="set" value="ok"></td>
</tr>
<tr class="bgc">
<td height=30 colspan="2" class="bgc"> <div align="center">
<input type="submit" name="Submit" value="<%= lingfengnet_ms_language_messdef_login_submit %>" class="button">
<input type="reset" name="reset" value="<%= lingfengnet_ms_language_messdef_login_reset %>" class="button">
</div></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>
<%
call htmlend()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -