📄 sysset.asp
字号:
<!--#include file="../setup.asp" -->
<%if session("china_admin")="" then
response.redirect "login.asp"
end if%>
<%
action =trim(Request("action"))
if action="ok" then
webname = replace(trim(Request.form("webname")),"'","’")
webtitle = replace(trim(Request.form("webtitle")),"'","’")
webdescription = replace(trim(Request.form("webdescription")),"'","’")
webkeywords = replace(trim(Request.form("webkeywords")),"'","’")
webguolv = replace(trim(Request.form("webguolv")),"'","’")
chinalogo = replace(trim(Request.form("chinalogo")),"'","’")
weblink = replace(trim(Request.form("weblink")),"'","’")
webemail = replace(trim(Request.form("webemail")),"'","’")
webqh = replace(trim(Request.form("webqh")),"'","’")
webtel = replace(trim(Request.form("webtel")),"'","’")
websj = replace(trim(Request.form("websj")),"'","’")
webqq = replace(trim(Request.form("webqq")),"'","’")
qqonline = replace(trim(Request.form("qqonline")),"'","’")
webicp = replace(trim(Request.form("webicp")),"'","’")
webhy = replace(trim(Request.form("webhy")),"'","’")
webinfo = replace(trim(Request.form("webinfo")),"'","’")
webcardid = replace(trim(Request.form("webcardid")),"'","’")
webpic = replace(trim(Request.form("webpic")),"'","’")
webhot = replace(trim(Request.form("webhot")),"'","’")
switch_onlingQQ = replace(trim(Request.form("switch_onlingQQ")),"'","’")
voteincdir = server.mappath("../setup.asp")
Const ForReading =1, ForWriting = 2
set fs = CreateObject("Scripting.FileSystemObject")
set ts = fs.OpenTextFile(voteincdir,ForWriting, True)
ts.Write ""
ts.Write "<"
ts.Write "%"& vbCrLf
ts.Write " webname= "&""""&webname&""""& vbCrLf
ts.Write " webtitle= "&""""&webtitle&""""& vbCrLf
ts.Write " webdescription= "&""""&webdescription&""""& vbCrLf
ts.Write " webkeywords= "&""""&webkeywords&""""& vbCrLf
ts.Write " webguolv= "&""""&webguolv&""""& vbCrLf
ts.Write " chinalogo= "&""""&chinalogo&""""& vbCrLf
ts.Write " weblink= "&""""&weblink&""""& vbCrLf
ts.Write " webemail= "&""""&webemail&""""& vbCrLf
ts.Write " webqh= "&""""&webqh&""""& vbCrLf
ts.Write " webtel= "&""""&webtel&""""& vbCrLf
ts.Write " websj= "&""""&websj&""""& vbCrLf
ts.Write " webqq= "&""""&webqq&""""& vbCrLf
ts.Write " qqonline= "&""""&qqonline&""""& vbCrLf
ts.Write " webicp= "&""""&webicp&""""& vbCrLf
ts.Write " webhy= "&""""&webhy&""""& vbCrLf
ts.Write " webinfo= "&""""&webinfo&""""& vbCrLf
ts.Write " webcardid= "&""""&webcardid&""""& vbCrLf
ts.Write " webpic= "&""""&webpic&""""& vbCrLf
ts.Write " webhot= "&""""&webhot&""""& vbCrLf
ts.Write " switch_onlingQQ= "&""""&switch_onlingQQ&""""& vbCrLf
ts.Write "%"
ts.Write ">"
ts.close
response.redirect "ok.asp"
end if
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>系统设置</title>
</head>
<body background="images/background.gif">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#799AE1">
<tr>
<td height="20" bgcolor="#799AE1" align="center"><font color="#FFFFFF" style="font-size:14px">系 统 基 本 设 置 管 理</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <br>
<table width="98%" border="0" align=center cellpadding="1" cellspacing="1" bgcolor="#D6DFF7">
<form name="form1" method="post" action="sysset.asp?action=ok">
<tr bgcolor="#FFFFFF">
<td width="27%" height="26"> <div align="right">网站名称：
</div></td>
<td width="73%"> <input type="text" name="webname" class="button1" size="40" value="<%=webname%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">标题显示：
</div></td>
<td align=left width="73%"> <input type="text" name="webtitle" class="button1" size="40" value="<%=webtitle%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">网站说明：
</div></td>
<td align=left width="73%"> <input type="text" name="webdescription" class="button1" size="40" value="<%=webdescription%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">搜索关键词：
</div></td>
<td align=left width="73%"> <input type="text" name="webkeywords" class="button1" size="40" value="<%=webkeywords%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">过滤非法词语：
</div></td>
<td align=left width="73%"> <input type="text" name="webguolv" class="button1" size="40" value="<%=webguolv%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left>
<p align="right">LOGO：</td>
<td align=left width="73%"> <input type="text" name="chinalogo" class="button1" size="40" value="<%=chinalogo%>">
<font color="#FF0000">请填写LOGO的地址</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">网站地址：
</div></td>
<td align=left width="73%"> <input type="text" name="weblink" class="button1" size="40" value="<%=weblink%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">邮件地址：
</div></td>
<td align=left width="73%"> <input type="text" name="webemail" class="button1" size="40" value="<%=webemail%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left>
<div align="right">联系电话： </div>
</td>
<td align=left width="73%"> <input type="text" name="webqh" class="button1" size="40" value="<%=webqh%>"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left>
<div align="right">联系地址： </div>
</td>
<td align=left width="73%"> <input type="text" name="webtel" class="button1" size="40" value="<%=webtel%>"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">联系手机：
</div></td>
<td align=left width="73%"> <input type="text" name="websj" class="button1" size="40" value="<%=websj%>"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">联系QQ：
</div></td>
<td align=left width="73%"> <input type="text" name="webqq" class="button1" size="40" value="<%=webqq%>"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left>
<p align="right">在线QQ：</td>
<td align=left width="73%"> <input type="text" name="qqonline" class="button1" size="40" value="<%=qqonline%>">
<font color="#FF0000">多个QQ号,请用","逗号分开</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">ICP备案号：
</div></td>
<td align=left width="73%"> <input type="text" name="webicp" class="button1" size="40" value="<%=webicp%>"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">会员审核：
</div></td>
<td align=left width="73%"><input type="radio" value="0" name="webhy" <%if ""&webhy&""="0" then%>checked<%end if%>>
否
<input type="radio" value="1" name="webhy" <%if ""&webhy&""="1" then%>checked<%end if%>>
是 </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">信息审核：
</div></td>
<td align=left width="73%"><input type="radio" value="0" name="webinfo" <%if ""&webinfo&""="0" then%>checked<%end if%>>
否
<input type="radio" value="1" name="webinfo" <%if ""&webinfo&""="1" then%>checked<%end if%>>
是 </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">身份证号码验证：
</div></td>
<td align=left width="73%"><input type="radio" value="0" name="webcardid" <%if ""&webcardid&""="0" then%>checked<%end if%>>
否
<input type="radio" value="1" name="webcardid" <%if ""&webcardid&""="1" then%>checked<%end if%>>
是 </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">图片上传：
</div></td>
<td align=left width="73%"><input type="radio" value="0" name="webpic" <%if ""&webpic&""="0" then%>checked<%end if%>>
否
<input type="radio" value="1" name="webpic" <%if ""&webpic&""="1" then%>checked<%end if%>>
是 (选“否”则调用远程图片) </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left> <div align="right">热点信息是否滚动：
</div></td>
<td align=left width="73%"><input type="radio" value="0" name="webhot" <%if ""&webhot&""="0" then%>checked<%end if%>>
否
<input type="radio" value="1" name="webhot" <%if ""&webhot&""="1" then%>checked<%end if%>>
是 </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align=left>
<p align="right">在线QQ是否打开：</td>
<td align=left width="73%">
<input type="radio" value="0" name="switch_onlingQQ" <%if ""&switch_onlingQQ&""="0" then%>checked<%end if%> checked>
否
<input type="radio" value="1" name="switch_onlingQQ" <%if ""&switch_onlingQQ&""="1" then%>checked<%end if%>>
是 </td>
</tr><%if 1=2 then%>
<%end if%>
<tr bgcolor="#FFFFFF">
<td height="30" align=left></td>
<td height="30" align=left><input type="submit" name="Submit" value=" 设 置 "></td>
</tr>
</form>
</table>
<br>
</td>
</tr>
</table>
</body>
</html> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -