server.asp
来自「全站生成htm静态页面」· ASP 代码 · 共 114 行
ASP
114 行
<!--#include file="function.asp"-->
<%CheckAdmin3%>
<!--#include file="config.asp"-->
<!--#include file="top.asp"-->
<body topmargin="1">
<div align="center">
<center>
<%
if request("type")="save" then
if request("webtime")<>"" then
webtime=request("webtime")
else
webtime=0
end if
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = fs.CreateTextFile(Server.MapPath("config.asp"), True)
TS1.writeline "<"&chr(37)
TS1.writeline "webname="&chr(34)&""&request("webname")&""&chr(34)&""
TS1.writeline "weburl="&chr(34)&""&request("weburl")&""&chr(34)&""
TS1.writeline "webemail="&chr(34)&""&request("webemail")&""&chr(34)&""
TS1.writeline "serverurl="&chr(34)&""&request("serverurl")&""&chr(34)&""
TS1.writeline "master="&chr(34)&""&request("master")&""&chr(34)&""
TS1.writeline "masterQQ="&chr(34)&""&request("masterQQ")&""&chr(34)&""
TS1.writeline chr(37)&">"
Set TS1 = Nothing
Set fs=nothing
response.redirect "server.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="server.asp?type=save" method="post">
<input type="hidden" name="edition" value="<%=edition%>" size="20">
<input type="hidden" name="version" value="<%=version%>" size="20">
<%if request("ok")<>"" then%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<td width="100%" class=forumrow>
<font color="#FF0000"><%=request("ok")%></font>时间:<%=Now()%></td>
</tr>
</table>
<%end if%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder" height="300">
<tr>
<th width="100%" height="12"><b>系统设置</b></th>
</tr>
<tr>
<td width="100%" class=forumHeaderBackgroundAlternate height="15">
<b>网站基本信息</b></td>
</tr>
<tr>
<td width="100%" class=forumrow height="18">
本站站名：<input name="webname" value="<%=webname%>" size="25" style="border-style: solid; border-width: 1"></td>
</tr>
<tr>
<td width="100%" class=forumrow height="18">
本站网址：<input name="weburl" value="<%=weburl%>" size="25" style="border-style: solid; border-width: 1">
<font color="#808080">不用加 http://,例(Www.Y98.Cn)</font></td>
</tr>
<tr>
<td width="100%" class=forumrow height="18">
站长信箱：<input name="webemail" value="<%=webemail%>" size="25" style="border-style: solid; border-width: 1"><font color="#808080">
用于发送邮件</font></td>
</tr>
<tr>
<td width="100%" class=forumrow height="18">
站长昵称：<input name="master" value="<%=master%>" size="25" style="border-style: solid; border-width: 1"><font color="#808080">
请填写，不想更改填写（冬筠），不要留空</font></td>
</tr>
<tr>
<td width="100%" class=forumrow height="18">
站长QQ：<input name="masterQQ" value="<%=masterQQ%>" size="25" style="border-style: solid; border-width: 1"><font color="#808080">
请填写，不想更改填写48437457，不要留空</font></td>
</tr>
<tr>
<td width="100%" class=forumrow height="18">
歌曲服务器地址：<input name="serverurl" value="<%=serverurl%>" size="25" style="border-style: solid; border-width: 1"><font color="#808080">
就是放歌曲的服务器</font></td>
</tr>
<tr>
<td width="100%" class=forumrow height="1">
</td>
</tr>
<tr>
<td width="100%" class=forumHeaderBackgroundAlternate height="22">
<p align="center">
<input name="b1" type="submit" value="确认修改">
<input name="b2" type="reset" value="全部还原"></p>
</td>
</tr>
</table>
</form>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?