📄 admin_set.asp
字号:
<!--#include file="include/setting.asp"-->
<!--#include file="include/Conn.asp"-->
<!--#include file="include/char.asp" -->
<!--#include FILE="Include/Function.asp"-->
<%CheckAdmin3%>
<%
action =trim(Request("action"))
if action="ok" then
zf11_Title = trim(Request.form("zf11_Title"))
zf11_description = trim(Request.form("zf11_description"))
zf11_http = trim(Request.form("zf11_http"))
zf11_icp = trim(Request.form("zf11_icp"))
zf11_line_H = trim(Request.form("zf11_line_H"))
zf11_Logo = trim(Request.form("zf11_Logo"))
zf11_Banner = trim(Request.form("zf11_Banner"))
zf11_qqonline = trim(Request.form("zf11_qqonline"))
NeedCheck = trim(Request.form("NeedCheck"))
news_permission = trim(Request.form("news_permission"))
imageswidth = trim(Request.form("imageswidth"))
imagesheight = trim(Request.form("imagesheight"))
zf11db_All = trim(Request.form("zf11db_All"))
switch_onlingQQ = trim(Request.form("switch_onlingQQ"))
switch_softdown = trim(Request.form("switch_softdown"))
switch_picshow = trim(Request.form("switch_picshow"))
voteincdir = server.mappath("Include/setting.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 " zf11_Title= "&""""&zf11_Title&""""& vbCrLf
ts.Write " zf11_description= "&""""&zf11_description&""""& vbCrLf
ts.Write " zf11_http= "&""""&zf11_http&""""& vbCrLf
ts.Write " zf11_icp= "&""""&zf11_icp&""""& vbCrLf
ts.Write " zf11_line_H= "&""""&zf11_line_H&""""& vbCrLf
ts.Write " zf11_Logo= "&""""&zf11_Logo&""""& vbCrLf
ts.Write " zf11_Banner = "&""""&zf11_Banner &""""& vbCrLf
ts.Write " zf11_qqonline = "&""""&zf11_qqonline &""""& vbCrLf
ts.Write " NeedCheck= "&""""&NeedCheck&""""& vbCrLf
ts.Write " imageswidth= "&""""&imageswidth&""""& vbCrLf
ts.Write " imagesheight= "&""""&imagesheight&""""& vbCrLf
ts.Write " zf11db_All= "&""""&zf11db_All&""""& vbCrLf
ts.Write " switch_onlingQQ= "&""""&switch_onlingQQ&""""& vbCrLf
ts.Write " switch_softdown= "&""""&switch_softdown&""""& vbCrLf
ts.Write " switch_picshow= "&""""&switch_picshow&""""& vbCrLf
ts.Write "%"
ts.Write ">"
ts.close
response.write "<script language=javascript>"
response.write "alert('系统相关设置成功！');"
response.write "</script>"
end if
if action="reok" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from Pw_SysSet where id = 1"
rs.open sql,conn,1,1
zf11_Title = trim(rs("zf11_Title"))
zf11_description = trim(rs("zf11_description"))
zf11_http = trim(rs("zf11_http"))
zf11_icp = trim(rs("zf11_icp"))
zf11_line_H = trim(rs("zf11_line_H"))
zf11_Logo = trim(rs("zf11_Logo"))
zf11_Banner = trim(rs("zf11_Banner"))
zf11_zf11_qqonline = trim(rs("zf11_qqonline"))
NeedCheck = trim(rs("NeedCheck"))
imageswidth = trim(rs("imageswidth"))
imagesheight = trim(rs("imagesheight"))
zf11db_All = trim(rs("zf11db_All"))
switch_onlingQQ = trim(rs("switch_onlingQQ"))
switch_softdown = trim(rs("switch_softdown"))
switch_picshow = trim(rs("switch_picshow"))
rs.close
set rs = nothing
end if
%>
<HTML>
<HEAD>
<TITLE>系统后台管理-相关参数设置</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="other/admin.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
-->
</style>
</HEAD>
<BODY bgColor=#FFFFFF topMargin=8 leftmargin="2">
<table width="95%" border="0" align=center cellpadding="2" cellspacing="1" bgcolor="#ff9933" class=list1>
<form name="form1" method="post" action="Admin_Set.asp?action=ok">
<tr bgcolor="#ff9933">
<td height="23" colspan=2> <div align="left"><span class="STYLE1"><b>○
基本设置 </b>（ 系统中的一些基本信息 ）<b>
</b></span></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25"> <div align="right">网站名称： </div></td>
<td width="73%"> <input type="text" name="zf11_Title" class="button1" size="40" value="<%=zf11_Title%>">
<font color="#FF0000">底部版权名称</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">网址： </div></td>
<td width="73%" align=left> <input name="zf11_http" type="text" class="button1" id="zf11_http" value="<%=zf11_http%>" size="40">
<font color="#FF0000">不要加 Http://</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">网站标题： </div></td>
<td width="73%" align=left> <input name="zf11_description" type="text" class="button1" id="zf11_description" value="<%=zf11_description%>" size="40">
<font color="#FF0000">网站标题名</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">顶部LOGO：</div></td>
<td align=left><input type="text" name="zf11_Logo" class="button1" size="40" value="<%=zf11_Logo%>">
<font color="#FF0000">顶部FLASH</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">中间BANNER：</div></td>
<td align=left><input type="text" name="zf11_Banner" class="button1" size="40" value="<%=zf11_Banner%>">
<font color="#FF0000">中间形像BANNER</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">底部备案：</div></td>
<td align=left><input type="text" name="zf11_icp" class="button1" size="40" value="<%=zf11_icp%>">
<font color="#FF0000">底部版权备案号</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">字体行距： </div></td>
<td width="73%" align=left> <input name="zf11_line_H" type="text" class="button1" id="zf11_line_H" value="<%=zf11_line_H%>" size="40">
<font color="#FF0000">如：150%</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">在线QQ：</div></td>
<td align=left><input type="text" name="zf11_qqonline" class="button1" size="40" value="<%=zf11_qqonline%>">
<font color="#FF0000">多个QQ号用逗号(,)分开</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">数据库地址：</div></td>
<td align=left><input type="text" name="zf11db_All" class="button1" size="40" value="<%=zf11db_All%>">
<font color="#FF0000">网站数据库</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">缩小图片参数：</div></td>
<td width="73%" align=left> 宽：
<input type="text" name="imageswidth" class="button1" size="10" value="<%=imageswidth%>">
高：
<input type="text" name="imagesheight" class="button1" size="10" value="<%=imagesheight%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">打开在线QQ：</div></td>
<td align=left><input name="switch_onlingQQ" type="radio" id="switch_onlingQQ" value="1" <% if switch_onlingQQ=1 then%>checked <% end if %> style=border:0px>
是
<input name="switch_onlingQQ" type="radio" id="switch_onlingQQ" value="0" <% if switch_onlingQQ=0 then%>checked <% end if %> style=border:0px>
否</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">首页显示最新下载调用：</div></td>
<td align=left><input name="switch_softdown" type="radio" id="switch_softdown" value="1" <% if switch_softdown=1 then%>checked <% end if %> style=border:0px>
是
<input name="switch_softdown" type="radio" id="switch_softdown" value="0" <% if switch_softdown=0 then%>checked <% end if %> style=border:0px>
否</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">首页显示最新图片展示调用：</div></td>
<td align=left><input name="switch_picshow" type="radio" id="switch_picshow" value="1" <% if switch_picshow=1 then%>checked <% end if %> style=border:0px>
是
<input name="switch_picshow" type="radio" id="switch_picshow" value="0" <% if switch_picshow=0 then%>checked <% end if %> style=border:0px>
否</td>
</tr>
<tr bgcolor="#ff9933">
<td height="25" colspan="2" align=left><div align="center">
<input type="submit" name="Submit" value=" 设 置 " class="button2"></div>
</td>
</tr>
</form>
</table>
<br>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -