📄 admin.asp
字号:
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
%>
<!--#include file="inc/config.asp"-->
<!--#include file="inc/function.asp"-->
<html>
<head>
<title><%=SiteName%> - 网站信息配置保存</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style/style.css">
</head>
<body topmargin=10 leftmargin=0 style=background-color:"#FFFFFF">
<br>
<%
dim ObjInstalled
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
if request("Success")="True" then
response.write "<script language='JavaScript' type='text/JavaScript'>alert('网站配置保存成功！');</script>"
end if
%>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#ccddee">
<tr><td width="100" align="center" valign="top" bgcolor="#E1F4FD"><Br>
<a href="index.asp" target="_self"><strong>返回首页</strong></a>
</td>
<td width="10"></td>
<td align="left">
<form method="POST" action="SiteConfigSave.asp" id="form1" name="form1">
<table width="690" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#ccddee">
<tr class="title">
<td height="20" colspan=3 align=center style="padding-right:50px;" bgcolor="#E1F4FD"><b><font size=+3>基 本 设 置</font></b></td>
</tr>
<tr><td><%
If ObjInstalled=false Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能。 请直接修改“Inc/config.asp”文件中的内容。</font></b>"
End If
%>
<br>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="2" Class="border">
<tr class="title">
<td height="20" colspan=3 align=center style="padding-right:50px;"><b>网站属性</b></td>
</tr>
<tr>
<td width="100" height="25" align="right">网站名称：</td>
<td height="25"> <input name="SiteName" type="text" id="SiteName" value="<%=SiteName%>" size="40" maxlength="80">
</td>
<td height="25" width="460"> </td>
</tr>
<tr>
<td width="100" height="25" align="right">网站标题：</td>
<td height="25"> <input name="SiteTitle" type="text" id="SiteTitle" value="<%=SiteTitle%>" size="40" maxlength="80">
</td>
<td height="25"> </td>
</tr>
<tr>
<td width="100" height="25" align="right">网站地址：</td>
<td height="25"> <input name="SiteUrl" type="text" id="SiteUrl" value="<%=SiteUrl%>" size="40" maxlength="255">
</td>
<td height="25" align="left"> 请添写完整URL地址</td>
</tr>
<tr>
<td width="100" height="25" align="right">出错信息：</td>
<td height="25"> <input name="ErrMsg" type="text" id="ErrMsg" value="<%=ErrMsg%>" size="40" maxlength="255">
</td>
<td height="25" align="left"> 读取失败时,出现的错误信息。</td>
</tr>
<tr>
<td width="100" height="25" align="right">LOGO地址：</td>
<td height="25"> <input name="siteLogo" type="text" id="siteLogo" value="<%=siteLogo%>" size="40" maxlength="255">
</td>
<td height="25" align="left"> 请添写完整URL地址 </td>
</tr>
<tr>
<td width="100" height="25" align="right">站长姓名：</td>
<td height="25"> <input name="WebmasterName" type="text" id="WebmasterName" value="<%=WebmasterName%>" size="40" maxlength="20">
</td>
<td height="25"> </td>
</tr>
<tr>
<td width="100" height="25" align="right">站长信箱：</td>
<td height="25"> <input name="WebmasterEmail" type="text" id="WebmasterEmail" value="<%=WebmasterEmail%>" size="40" maxlength="100">
</td>
<td height="25"> </td>
</tr>
<tr>
<td width="100" height="25" align="right">备 案 号：</td>
<td height="25"> <input name="beiAn" type="text" id="beiAn" value="<%=beiAn%>" size="40" maxlength="100">
</td>
<td height="25"> </td>
</tr>
<tr align="center">
<td height="20" colspan="3"> </td>
</tr>
</table>
<table width="690" border="0" align="center" cellpadding="0" cellspacing="2" Class="border">
<tr align="center" class="title">
<td height="20" colspan="3" style="padding-right:50px;"><strong>广 告 设 置</strong></td>
</tr>
<tr>
<td width="100" height="25" align="right">头部广告：</td>
<td height="25"> <input name="headAD" type="text" id="headAD" value="<%=headAD%>" size="50" maxlength="3000">
</td>
<td height="25" width="460" align="left"> 全站头部广告,写成一行,不能使用双引号</td>
</tr>
<tr>
<td width="100" height="25" align="right">顶部广告：</td>
<td height="25"> <input name="topAD" type="text" id="topAD" value="<%=topAD%>" size="50" maxlength="3000">
</td>
<td height="25" align="left"> 首页顶部广告,写成一行,不能使用双引号</td>
</tr>
<tr>
<td width="100" height="25" align="right">中部广告：</td>
<td height="25"> <input name="midAD" type="text" id="midAD" value="<%=midAD%>" size="50" maxlength="3000">
</td>
<td height="25" align="left"> 首页中部广告,写成一行,不能使用双引号</td>
</tr>
<tr>
<td width="100" height="25" align="right">底部广告：</td>
<td height="25"> <input name="btAD" type="text" id="btAD" value="<%=btAD%>" size="50" maxlength="3000">
</td>
<td height="25" align="left"> 全站底部广告,写成一行,不能使用双引号</td>
</tr>
<tr>
<td width="100" height="25" align="right">内容广告：</td>
<td height="25"> <input name="showAD" type="text" id="showAD" value="<%=showAD%>" size="50" maxlength="3000">
</td>
<td height="25" align="left"> 内容页广告,写成一行,不能使用双引号</td>
</tr>
<tr>
<td width="100" height="25" align="right">友情链接：</td>
<td height="25"> <input name="linkAD" type="text" id="linkAD" value="<%=linkAD%>" size="50" maxlength="3000">
</td>
<td height="25" align="left"> 友情链接,写成一行,不能使用双引号</td>
</tr>
<tr>
<td height="40" colspan="3" align="center"> <input name="Action" type="hidden" id="Action" value="Save">
<input name="cmdSave" type="submit" id="cmdSave" value=" 保存设置 " <% If ObjInstalled=false Then response.write "disabled" %>>
</td>
</tr>
<%
If ObjInstalled=false Then
Response.Write "<tr><td height='40' colspan='3'><b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能。<br>请直接修改“Inc/config.asp”文件中的内容。</font></b></td></tr>"
End If
%>
</table>
<br>
</td>
</tr></table>
</form>
</td></tr></table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -