admin_system.asp
来自「ASP+Accesss数据库设备WEB报修」· ASP 代码 · 共 199 行
ASP
199 行
<%if session("pass")<>"ok" then
Response.Redirect "index.asp"
Response.End
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="ChkURL.asp"-->
<html>
<head>
<title>系统信息修改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type=text/css>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="TableBorder" align=center>
<tr align="center">
<td height=23 colspan=2 class="TableTitle1"><strong>网 站 信 息 设 置</strong></tr>
<tr>
<td width="100" class="TableRow2" height=25><strong>管理快捷方式：</strong></td>
<td class="TableRow2"><A href="admin_server.asp" target="main">查看服务器信息</A> | <A href="#">日志管理</A></td>
</tr>
</table>
<%
if request("type")="save" then
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = fs.CreateTextFile(Server.MapPath("config.asp"), True)
TS1.writeline "<"&chr(37)
TS1.writeline "db="&chr(34)&""&request("db")&""&chr(34)&""
TS1.writeline "SystemWebSite="&chr(34)&""&request("SystemWebSite")&""&chr(34)&""
TS1.writeline "SystemLogo="&chr(34)&""&request("SystemLogo")&""&chr(34)&""
TS1.writeline "SystemWebUrl="&chr(34)&""&request("SystemWebUrl")&""&chr(34)&""
TS1.writeline "SystemMail="&chr(34)&""&request("SystemMail")&""&chr(34)&""
TS1.writeline "SystemSearchKey="&chr(34)&""&request("SystemSearchKey")&""&chr(34)&""
TS1.writeline "copyright="&chr(34)&""&request("copyright")&""&chr(34)&""
TS1.writeline "ggshu="&chr(34)&""&request("ggshu")&""&chr(34)&""
TS1.writeline "topshu="&chr(34)&""&request("topshu")&""&chr(34)&""
TS1.writeline "htshu="&chr(34)&""&request("htshu")&""&chr(34)&""
TS1.writeline "fkshu="&chr(34)&""&request("fkshu")&""&chr(34)&""
TS1.writeline "SystemWeb="&chr(34)&""&request("SystemWeb")&""&chr(34)&""
TS1.writeline "SystemPin="&chr(34)&""&request("SystemPin")&""&chr(34)&""
TS1.writeline "SystemName="&chr(34)&""&request("SystemName")&""&chr(34)&""
tmp1=""&chr(34)&""&request("admin_valcode")&""&chr(34)&""
if trim(request("admin_valcode_clear"))="yes" then
TS1.writeline "admin_valcode="&chr(34)&""&""&""&chr(34)&""
else
if tmp1<>"" then
TS1.writeline "admin_valcode="&chr(34)&""&md5(request("admin_valcode"))&""&chr(34)&""
end if
end if
TS1.writeline chr(37)&">"
Set TS1 = Nothing
Set fs=nothing
response.redirect "Admin_system.asp?ok=成功:修改系统设置完成!"
response.end
end if
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function%>
<!--#include file="config.asp"-->
<form action="Admin_system.asp?type=save" method="post">
<%if request("ok")<>"" then%>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
<tr>
<td width="100%">
<font color="#FF0000"><%=request("ok")%></font>时间:<%=Now()%></td>
</tr>
</table>
<%end if%>
<table width="100%" border="0" align=center cellpadding="0" cellspacing="1" class="TableBorder">
<tr align="center">
<td height=25 colspan=4 class="TableTitle1"><strong>网 站 信 息 设 置</strong></tr>
<tr>
<td width="22%" height="25" align="right" class="TableRow2">
数据库名：</td>
<td width="78%" height="25" colspan="2" class="TableRow2">
<input type="text" name="db" value="<%=db%>" size="50"> </td>
</tr>
<tr>
<td width="22%" height="25" align="right" class="TableRow2">
本站站名：</td>
<td width="78%" height="25" colspan="2" class="TableRow2">
<input type="text" name="SystemWebSite" value="<%=SystemWebSite%>" size="50"><font color="#FF0000"> 例如：::报修系统::</font> </td>
</tr>
<tr>
<td width="22%" height="25" align="right" class="TableRow2">
本站LOGO：</td>
<td width="78%" height="25" colspan="2" class="TableRow2">
<input type="text" name="SystemLogo" value="<%=SystemLogo%>" size="50"><font color="#FF0000"> 例如：IMAGES/LOGO.GIF</font> </td>
</tr>
<tr>
<td width="22%" height="25" align="right" class="TableRow2">
本站网址：</td>
<td width="78%" height="25" colspan="2" class="TableRow2">
<input type="text" name="SystemWebUrl" value="<%=SystemWebUrl%>" size="50">
<font color="#FF0000"> 例如：http://baoxiu.xaklxx.com.cn/</font> </td>
</tr>
<tr>
<td width="22%" height="25" align="right" class="TableRow2">
站长姓名：</td>
<td width="78%" height="25" colspan="2" class="TableRow2">
<input type="text" name="SystemName" value="<%=SystemName%>" size="50">
<font color="#FF0000"> 例如：admin</font> </td>
</tr>
<tr>
<td width="22%" height="25" align="right" class="TableRow2">
站长信箱：</td>
<td width="78%" height="25" colspan="2" class="TableRow2">
<input type="text" name="SystemMail" value="<%=SystemMail%>" size="50">
<font color="#FF0000"> 例如：admin@163.com</font> </td>
</tr>
<tr>
<td width="22%" height="25" align="right" class="TableRow2">
搜索关键字：</td>
<td width="78%" height="25" colspan="2" class="TableRow2">
<input type="text" name="SystemSearchKey" value="<%=SystemSearchKey%>" size="50">
关键字之间加 <font color="#FF0000">，</font> </td>
</tr>
<tr>
<td width="22%" height="25" align="right" class="TableRow2">底部版权信息：</td>
<td height="25" colspan="2" class="TableRow2"> <textarea name="copyright" cols="50" rows="6" ><%=copyright%></textarea>
html请使用'号不要使用"<font color="#FF0000">例如：target='_blank'</font></td>
</tr>
<tr>
<td width="22%" height="25" align="right" class="TableRow2">
公告显示条数：</td>
<td width="78%" height="25" colspan="2" class="TableRow2">
<input type="text" name="ggshu" value="<%=ggshu%>" maxlength="2" size="25"> </td>
</tr>
<tr>
<td width="22%" height="25" align="right" class="TableRow2">
首页报修显示条数：</td>
<td width="78%" height="25" colspan="2" class="TableRow2">
<input type="text" name="topshu" value="<%=topshu%>" size="25" maxlength="2"> </td>
</tr>
<tr>
<td width="22%" height="25" align="right" class="TableRow2">后台报修显示条数：</td>
<td height="25" colspan="2" class="TableRow2"> <input type="text" name="htshu" value="<%=htshu%>" size="25" maxlength="2"></td>
</tr>
<tr>
<td height="25" align="right" class="TableRow2">后台反馈显示条数：</td>
<td width="78%" height="25" colspan="2" class="TableRow2"> <input type="text" name="fkshu" value="<%=fkshu%>" size="25" maxlength="2"></td>
</tr>
<tr>
<td width="22%" height="25" align="right" class="TableRow2">
报修系统开关：</td>
<td width="78%" height="25" colspan="2" class="TableRow2">
<input type="text" name="SystemWeb" value="<%=SystemWeb%>" size="25" maxlength="1">
[ <font color="#FF0000">1</font>为开 <font color="#FF0000">2</font>为关 ] </td>
</tr>
<tr>
<td width="22%" height="25" align="right" class="TableRow2">
评论功能开关：</td>
<td width="78%" height="25" colspan="2" class="TableRow2">
<input type="text" name="SystemPin" value="<%=SystemPin%>" size="25" maxlength="1">
[ <font color="#FF0000">1</font>为开 <font color="#FF0000">2</font>为关 ] </td>
</tr>
<tr>
<td height="25" align="right" class="TableRow2">登陆验证码：</td>
<td width="39%" height="25" class="TableRow2">
<input type=text name=admin_valcode value='' size=25 maxlength=20> <input type=checkbox name=admin_valcode_clear value='yes'> 清空验证码</td>
<td width="39%" class="TableRow2">加密值：<%
if admin_valcode="" then
response.write "<font color=red>未设定</font>"
else
response.write "<font color=blue>"&admin_valcode&"</font>"
end if
%></td>
</tr>
<tr>
<td height="30" colspan="4" align="center" class="TableRow2"><input name="b1" type="submit" value="确认修改">
<input name="b2" type="reset" value="全部还原"></td>
</tr>
</table>
</form>
<!--#include file="copyright.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?