📄 admin_set.asp
字号:
<!--#include file="Include/conn.asp"-->
<!--#include file="include/char.asp" -->
<!--#include file="Include/check.asp"-->
<!--#include file="Include/Setup.asp"-->
<!--#include FILE="Include/Admin_Function.asp"-->
<%
'* 个人版价格：500元 商业版价格：700元
'* 演示：http://Demo.wenday.com
'* 版本：Engine_WenDay网站信息系统 Ver 2.0 演示版
'* 版权所有: 一奔网络工作室(Wenday.Com)
'* 联系QQ: 42367091
'* Email :wenday@21cn.com
'* 程序开发: Wenday
%>
<%CheckAdmin3%>
<%
action =trim(Request("action"))
if action="ok" then
Pw_Title = trim(Request.form("Pw_Title"))
Pw_WebInfo = trim(Request.form("Pw_WebInfo"))
Pw_http = trim(Request.form("Pw_http"))
Pw_Logo = trim(Request.form("Pw_Logo"))
Pw_Banner = trim(Request.form("Pw_Banner"))
Pw_Manager = trim(Request.form("Pw_Manager"))
Pw_email = trim(Request.form("Pw_email"))
Pw_Connect = trim(Request.form("Pw_Connect"))
Pw_creattime = trim(Request.form("Pw_creattime"))
NeedCheck = trim(Request.form("NeedCheck"))
back_count = trim(Request.form("back_count"))
Sort_Count = trim(Request.form("Sort_Count"))
Page_Count = trim(Request.form("Page_Count"))
news_permission = trim(Request.form("news_permission"))
Pic_count = trim(Request.form("Pic_count"))
Products_count = trim(Request.form("Products_count"))
imageswidth = trim(Request.form("imageswidth"))
imagesheight = trim(Request.form("imagesheight"))
' b_imageswidth = trim(Request.form("b_imageswidth"))
' b_imagesheight = trim(Request.form("b_imagesheight"))
' products_permission = trim(Request.form("products_permission"))
voteincdir = server.mappath("Include/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 " Pw_Title= "&""""&Pw_Title&""""& vbCrLf
ts.Write " Pw_WebInfo= "&""""&Pw_WebInfo&""""& vbCrLf
ts.Write " Pw_http= "&""""&Pw_http&""""& vbCrLf
ts.Write " Pw_Logo= "&""""&Pw_Logo&""""& vbCrLf
ts.Write " Pw_Banner = "&""""&Pw_Banner &""""& vbCrLf
ts.Write " Pw_Manager= "&""""&Pw_Manager&""""& vbCrLf
ts.Write " Pw_email= "&""""&Pw_email&""""& vbCrLf
ts.Write " Pw_Connect= "&""""&Pw_Connect&""""& vbCrLf
ts.Write " Pw_creattime= "&""""&Pw_creattime&""""& vbCrLf
ts.Write " NeedCheck= "&""""&NeedCheck&""""& vbCrLf
ts.Write " back_count= "&""""&back_count&""""& vbCrLf
ts.Write " sort_count= "&""""&sort_count&""""& vbCrLf
ts.Write " page_count= "&""""&page_count&""""& vbCrLf
'ts.Write " news_permission= "&""""&news_permission&""""& vbCrLf
ts.Write " Pic_count= "&""""&Pic_count&""""& vbCrLf
ts.Write " Products_count= "&""""&Products_count&""""& vbCrLf
ts.Write " imageswidth= "&""""&imageswidth&""""& vbCrLf
ts.Write " imagesheight= "&""""&imagesheight&""""& vbCrLf
'ts.Write " b_imageswidth= "&""""&b_imageswidth&""""& vbCrLf
'ts.Write " b_imagesheight= "&""""&b_imagesheight&""""& vbCrLf
'ts.Write " products_permission= "&""""&products_permission&""""& 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
Pw_title = trim(rs("Pw_title"))
Pw_WebInfo = trim(rs("Pw_WebInfo"))
Pw_http = trim(rs("Pw_http"))
Pw_email = trim(rs("Pw_email"))
Pw_Connect = trim(rs("Pw_Connect"))
Pw_Logo = trim(rs("Pw_Logo"))
Pw_Banner = trim(rs("Pw_Banner"))
Pw_Manager = trim(rs("Pw_Manager"))
Pw_Email = trim(rs("Pw_Email"))
Pw_creattime = now()
NeedCheck = trim(rs("NeedCheck"))
Back_Count = trim(rs("back_count"))
Sort_Count = trim(rs("sort_count"))
Page_Count = trim(rs("page_count"))
Pic_count = trim(rs("Pic_count"))
Products_count = trim(rs("Products_count"))
imageswidth = trim(rs("imageswidth"))
imagesheight = trim(rs("imagesheight"))
rs.close
set rs = nothing
end if
%>
<HTML>
<HEAD>
<TITLE>系统用户管理</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
function reok(){
if (confirm("你真的要恢复系统默认设置吗？")){
document.location.href="Admin_Set.asp?action=reok";
}
}
</script>
<link href="Img/admin.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgColor=#FFFFFF topMargin=8 leftmargin="2">
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> 位置： >> <font color="#FF0000">系统设置</font></td>
</tr>
</table>
<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="Pw_title" class="button1" size="40" value="<%=Pw_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="Pw_WebInfo" type="text" class="button1" id="Pw_WebInfo" value="<%=Pw_WebInfo%>" 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="Pw_http" type="text" class="button1" id="Pw_http" value="<%=Pw_http%>" size="40">
<font color="#FF0000">不用加 Http://</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">联系方式：</div></td>
<td align=left><input name="Pw_Connect" type="text" class="button1" id="Pw_Connect" value="<%=Pw_Connect%>" size="40"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">LOGO：</div></td>
<td align=left><input type="text" name="Pw_Logo" class="button1" size="40" value="<%=Pw_Logo%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">BANNER：</div></td>
<td align=left><input type="text" name="Pw_Banner" class="button1" size="40" value="<%=Pw_Banner%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">站长：</div></td>
<td align=left><div align="left">
<input name="Pw_Manager" type="text" class="button1" id="Pw_Manager" value="<%=Pw_Manager%>" size="40">
</div></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="Pw_email" class="button1" size="40" value="<%=Pw_email%>">
</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="Pw_creattime" class="button1" size="40" value="<%=Pw_creattime%>">
</td>
</tr>
<tr bgcolor="#EAEAEA">
<td height="23" colspan="2" align=left><font color="#FFFFFF"><b> <font color="#000000">○
</font><font color="#FFFFFF"><b><font color="#000000">信息</font></b></font><font color="#000000">设置
</font></b><font color="#000000">（信息栏目的基本设置 ）</font></font></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"><strong>后台</strong>每页显示<font color="#FFFFFF"><font color="#FFFFFF"><font color="#000000">信息</font></font></font>数目：</div></td>
<td width="73%" align=left> <input name="back_count" type="text" class="button1" id="back_count" value="<%=back_count%>" size="10">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right"><strong>分类</strong>每页显示<font color="#FFFFFF"><font color="#FFFFFF"><font color="#000000">信息数目</font></font></font>：</div></td>
<td width="73%" align=left> <input name="Sort_Count" type="text" class="button1" id="Sort_Count" value="<%=Sort_Count%>" size="10">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left><div align="right"><strong>分页</strong>每页显示<font color="#FFFFFF"><font color="#FFFFFF"><font color="#000000">信息数目</font></font></font>：</div></td>
<td width="73%" align=left><input name="Page_Count" type="text" class="button1" id="Page_Count" value="<%=Page_Count%>" size="10"></td>
</tr>
<!-- 是否设置新闻浏览权限： -->
<!-- <input type="radio" name="news_permission" value="yes"> 是
<input type="radio" name="news_permission" value="no" checked> 否
-->
<tr bgcolor="#EAEAEA">
<td height="23" colspan="2" align=left><font color="#FFFFFF"><b> <font color="#000000">○
案例设置 </font></b><font color="#000000">（产品图片的基本设置 ）</font></font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="23" align=left> <div align="right">后台每页显示图片数目：</div></td>
<td width="73%" align=left> <input name="Pic_count" type="text" class="button1" id="Pic_count" value="<%=Pic_count%>" size="10">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">前台每页显示产品数目：</div></td>
<td width="73%" align=left> <input name="Products_count" type="text" class="button1" id="Products_count" value="<%=Products_count%>" size="10">
</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="#F3F3F3">
<td height="25" colspan="2" align=left> <div align="center">
<input type="submit" name="Submit" value=" 设 置 " class="button2">
<input type="button" name="Submit2" value=" 获得默认设置 " OnClick="reok()" class="button2">
</div></td>
</tr>
</form>
</table>
<br>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -