📄 admin_set.asp
字号:
<!--#include file="Include/Tyi86_setup.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="include/char.asp" -->
<!--#include file="Include/check.asp"-->
<!--#include FILE="Include/Admin_Function.asp"-->
<%CheckAdmin3%>
<%
action =trim(Request("action"))
if action="ok" then
Tyi86_Title = trim(Request.form("Tyi86_Title"))
Tyi86_description = trim(Request.form("Tyi86_description"))
Tyi86_http = trim(Request.form("Tyi86_http"))
Tyi86_line_H = trim(Request.form("Tyi86_line_H"))
Tyi86_Logo = trim(Request.form("Tyi86_Logo"))
Tyi86_Banner = trim(Request.form("Tyi86_Banner"))
Tyi86_qqonline = trim(Request.form("Tyi86_qqonline"))
NeedCheck = trim(Request.form("NeedCheck"))
news_permission = trim(Request.form("news_permission"))
imageswidth = trim(Request.form("imageswidth"))
imagesheight = trim(Request.form("imagesheight"))
Tyi86db_All = trim(Request.form("Tyi86db_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/Tyi86_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 " Tyi86_Title= "&""""&Tyi86_Title&""""& vbCrLf
ts.Write " Tyi86_description= "&""""&Tyi86_description&""""& vbCrLf
ts.Write " Tyi86_http= "&""""&Tyi86_http&""""& vbCrLf
ts.Write " Tyi86_line_H= "&""""&Tyi86_line_H&""""& vbCrLf
ts.Write " Tyi86_Logo= "&""""&Tyi86_Logo&""""& vbCrLf
ts.Write " Tyi86_Banner = "&""""&Tyi86_Banner &""""& vbCrLf
ts.Write " Tyi86_qqonline = "&""""&Tyi86_qqonline &""""& vbCrLf
ts.Write " NeedCheck= "&""""&NeedCheck&""""& vbCrLf
ts.Write " imageswidth= "&""""&imageswidth&""""& vbCrLf
ts.Write " imagesheight= "&""""&imagesheight&""""& vbCrLf
ts.Write " Tyi86db_All= "&""""&Tyi86db_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
Tyi86_Title = trim(rs("Tyi86_Title"))
Tyi86_description = trim(rs("Tyi86_description"))
Tyi86_http = trim(rs("Tyi86_http"))
Tyi86_line_H = trim(rs("Gaoabei_line_H"))
Tyi86_Logo = trim(rs("Tyi86_Logo"))
Tyi86_Banner = trim(rs("Tyi86_Banner"))
Tyi86_Tyi86_qqonline = trim(rs("Tyi86_qqonline"))
NeedCheck = trim(rs("NeedCheck"))
imageswidth = trim(rs("imageswidth"))
imagesheight = trim(rs("imagesheight"))
Tyi86db_All = trim(rs("Tyi86db_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">
</HEAD>
<BODY bgColor=#FFFFFF topMargin=8 leftmargin="2">
<table width="95%" border="0" align=center cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" class=list1>
<form name="form1" method="post" action="Admin_Set.asp?action=ok">
<tr bgcolor="#EAEAEA">
<td height="23" colspan=2> <div align="left"><font color="#FFFFFF"><b><font color="#000000">○
基本设置 </font></b><font color="#000000">（ 系统中的一些基本信息 ）</font><b><font color="#000000">
</font></b></font></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25"> <div align="right">网站名称： </div></td>
<td width="73%"> <input type="text" name="Tyi86_Title" class="button1" size="40" value="<%=Tyi86_Title%>"> (试用版请勿修改,已绑定网站前台页面)
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">网站标题显示： </div></td>
<td width="73%" align=left> <input name="Tyi86_description" type="text" class="button1" id="Tyi86_description" value="<%=Tyi86_description%>" size="40">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">主页地址： </div></td>
<td width="73%" align=left> <input name="Tyi86_http" type="text" class="button1" id="Tyi86_http" value="<%=Tyi86_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="Tyi86_line_H" type="text" class="button1" id="Tyi86_line_H" value="<%=Tyi86_line_H%>" size="40">
<font color="#FF0000">如：150%</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">LOGO：</div></td>
<td align=left><input type="text" name="Tyi86_Logo" class="button1" size="40" value="<%=Tyi86_Logo%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">BANNER：</div></td>
<td align=left><input type="text" name="Tyi86_Banner" class="button1" size="40" value="<%=Tyi86_Banner%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">在线QQ：</div></td>
<td align=left><input type="text" name="Tyi86_qqonline" class="button1" size="40" value="<%=Tyi86_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="Tyi86db_All" class="button1" size="40" value="<%=Tyi86db_All%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">注册是否要审核：</div></td>
<td align=left><input name="NeedCheck" type="radio" id="NeedCheck" value="1" <% if NeedCheck=1 then%>checked <% end if %> style=border:0px>
是
<input name="NeedCheck" type="radio" id="NeedCheck" value="0" <% if NeedCheck=0 then%>checked <% end if %> style=border:0px>
否</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="#F3F3F3">
<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 + -