admin_setting.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file ="conn.asp"-->
<!-- #include file="inc/info.asp" -->
<!--#include file="inc/const.asp" -->
<%	response.buffer=true	
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_setting.asp
'Version:2.0
'UpdateTime: 2004-10-6 22:14:16
'Script Written by www.aspease.com 
'=========================================================
admheader
	if request("action")="save" then
		call saveinfo()
	else
		call consted()
	end if	
admfooter	
Sub consted()
Dim  sel
set rs=server.createobject("adodb.recordset")
rs.open "webconfig",conn,1,3
response.Write("<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3"" class=""tableBorder"" align=center>")
response.Write("  <form method=""POST"" action=""admin_setting.asp?action=save"">")
response.Write("    <tr> ")
response.Write("      <th colspan=2  class=""tableHeaderText"" height=25>网站基本设置</th>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=Row colspan=2> <a href=""#setting1"">[页面选项]</a>&nbsp;<a href=""#setting3"">[基本信息]</a></td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=Row colspan=2 height=23> <a href=""#setting13"">[邮件选项]</a>&nbsp;<a href=""#setting19"">[上传设置]</a>　&nbsp;<a href=""#setting18"">[分页设置]</a>&nbsp; ")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <th height=""25"" colspan=""2"" id=tabletitlelink> ")
response.Write("        <div align=""left""><a name=""setting1""></a><b>页面选项<font size=""4""><a href=""#top"">[顶部]</a></font></b></div>")
response.Write("      </th>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row><U>网站当前状态</U><BR>")
response.Write("        维护期间可设置关闭使用</td>")
response.Write("      <td class=row> ")
response.Write("        <input type=radio name=""websetting(0)"" value=1 ")
if fval(websetting(0))=1 then response.write "checked"
response.Write(">")
response.Write("        打开 ")
response.Write("        <input type=radio name=""websetting(0)"" value=0 ")
if fval(websetting(0))=0 then response.write "checked"
response.Write(">")
response.Write("        关闭&nbsp; </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row>维护期间的说明文字</td>")
response.Write("      <td class=row> ")
response.Write("        <textarea name=""webstopread"" cols=""40"" rows=""3"" id=""webstopread"">")
response.Write(webstopread)
response.Write("</textarea>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row> <U>版面语言</U></td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <select size=1 name=""webcharset"">")
response.Write("          <option value=""gb2312""")
 If webcharset="gb2312" Then response.Write("selected") 
response.Write(">简体中文 ")
response.Write("          </option>")
response.Write("          <option value=""iso-8859-1""")
 If webcharset="iso-8859-1" Then response.Write("selected") 
response.Write(">英文</option>")
response.Write("        </select>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row> <U>页面TITLE</U></td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <input name=""webTitle"" type=""text"" id=""webTitle"" value=""")
response.Write(webtitle)
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row><U>关键字Keywords</U><BR>")
response.Write("        在head中的keywords,有助于搜索引擎搜索</td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <textarea name=""webkeywords"" cols=""40"" rows=""3"">")
response.Write(webkeywords)
response.Write("</textarea>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row><U>网站描述文字Description</U></td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <textarea name=""webDescription"" cols=""40"" rows=""3"">")
response.Write(webdescription)
response.Write("</textarea>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <th height=25 colspan=2 align=left id=tabletitlelink><a name=""setting3""></a><b>基本信息</b>[<a href=""#top"">顶部</a>]</th>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row> <U>网站名称</U></td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <input type=""text"" name=""webName"" size=""35"" value=""")
response.Write(webname)
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row> <U>网站的url</U></td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <input type=""text"" name=""webURL"" size=""35"" value=""")
response.Write(weburl)
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row> <U>网站的logo地址</U></td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <input type=""text"" name=""weblogo"" size=""35"" value=""")
response.Write(weblogo)
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row><U>公司地址</U><BR>")
response.Write("        显示在页底</td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <input type=""text"" name=""webaddr"" size=""35"" value=""")
response.Write(webaddr)
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <p><U>管理员的email地址<br>")
response.Write("          </U>显示在页底</p>")
response.Write("      </td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <input type=""text"" name=""webemail"" size=""35"" value=""")
response.Write(webemail)
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row> 联系电话</td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <input type=""text"" name=""webtel"" size=""35"" value=""")
response.Write(webtel)
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row> 邮政编码</td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <input type=""text"" name=""webzip"" size=""35"" value=""")
response.Write(webzip)
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row> <U>版权信息</U></td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <input type=""text"" name=""webcopyright"" size=""35"" value=""")
response.Write(server.htmlencode(webcopyright))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row> 版本号</td>")
response.Write("      <td width=""50%"" class=row>&nbsp; ")
response.Write("AspEase Auction System Ver2.0")
response.Write("</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <th height=25 colspan=2 align=left id=tabletitlelink><a name=""setting13""></a><b>邮件选项</b>[<a href=""#top"">顶部</a>]</th>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row> <U>发送邮件组件</U><BR>")
response.Write("        如果您的服务器不支持下列组件，请选择不支持</td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <select name=""websetting(4)"" id=""websetting(4)"">")
response.Write("          <option value=0 ")
if fval(websetting(4))=0 then
response.Write("selected")
end if
response.Write(" selected>不支持 ")
response.Write("          <option value=1 ")
if fval(websetting(4))=1 then
response.Write("selected")
end if
response.Write(">JMAIL ")
response.Write("          <option value=2 ")
if fval(websetting(4))=2 then
response.Write("selected")
end if
response.Write(">CDONTS ")
response.Write("          <option value=3 ")
if fval(websetting(4))=3 then
response.Write("selected")
end if
response.Write(">ASPEMAIL ")
response.Write("        </select>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row> <U>SMTP Server地址</U><BR>")
response.Write("        只有在论坛使用设置中打开了发送邮件功能，该填写内容方有效</td>")
response.Write("      <td width=""50%"" class=row> ")