admin_setting.asp

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

response.Write("        <input type=""text"" name=""SMTPServer"" size=""35"" value=""")
response.Write(smtpserver)
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=""emailuser"" value=""")
response.Write(smtpuser)
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=""password"" name=""pwd"" value=""")
response.Write(smtpass)
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <th height=25 colspan=2 align=left id=tabletitlelink><a name=""setting18""></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("        用于cat.asp页</td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <input name=""websetting(5)"" type=""text"" id=""websetting(5)"" value=""")
response.Write(websetting(5))
response.Write(""" size=""15"">")
response.Write("        &nbsp;条 </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row><u>所有商品每页显示最多纪录</u><br>")
response.Write("        用于alllist.asp页</td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <input name=""websetting(6)"" type=""text"" id=""websetting(6)"" value=""")
response.Write(websetting(6))
response.Write(""" size=""15"">")
response.Write("        条 </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <th height=25 colspan=2 align=left id=tabletitlelink><a name=""setting19""></a><b>上传设置</b>[<a href=""#top"">顶部</a>] ")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row>定时开放网站</td>")
response.Write("      <td class=row> ")
response.Write("        <input type=""radio"" name=""websetting(7)"" value=""1""")
if fval(websetting(7))=1 then response.write "checked"
response.Write(">")
response.Write("        是 ")
response.Write("        <input type=""radio"" name=""websetting(7)"" value=""0"" ")
if fval(websetting(7))=0 then response.write "checked"
response.Write(">")
response.Write("        否</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row> <U>是否开启商品图片上传功能</U></td>")
response.Write("      <td class=row> ")
response.Write("        <input type=radio name=""websetting(2)"" value=""1"" ")
if fval(websetting(2))=1 then response.write "checked"
response.Write(">")
response.Write("        是&nbsp; ")
response.Write("        <input type=radio name=""websetting(2)"" value=""0"" ")
if fval(websetting(2))=0 then response.write "checked"
response.Write(">")
response.Write("        否&nbsp;</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row> <U>是否开启商店图片上传功能（关闭时，显示本站logo）</U></td>")
response.Write("      <td class=row> ")
response.Write("        <input type=radio name=""websetting(3)"" value=1 ")
if fval(websetting(3))=1 then response.write "checked"
response.Write(">")
response.Write("        是&nbsp; ")
response.Write("        <input type=radio name=""websetting(3)"" value=0 ")
if fval(websetting(3))=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("        <input name=""websetting(14)"" type=""text"" id=""websetting(14)"" size=""15"" value=""")
response.Write(websetting(14))
response.Write(""">")
response.Write("        KB </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row>是否显示页面执行时间</td>")
response.Write("      <td class=row> ")
response.Write("        <input type=""radio"" name=""websetting(1)"" value=""1"" ")
if fval(websetting(1))=1 then response.write "checked"
response.Write(">")
response.Write("        是 ")
response.Write("        <input type=""radio"" name=""websetting(1)"" value=""0"" ")
if fval(websetting(1))=0 then response.write "checked"
response.Write(">")
response.Write("        否</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row>开放时间（用&quot;|&quot;隔开）</td>")
response.Write("      <td class=row> ")
response.Write("        <input name=""websetting(8)"" type=""text"" id=""websetting(8)"" size=""15"" value=""")
response.Write(websetting(8))
response.Write(""">")
response.Write("        如：8|19 表示早8点到晚7点开放</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td height=""16"" class=row>防刷新机制</td>")
response.Write("      <td class=row> ")
response.Write("        <input type=radio name=""websetting(9)"" value=1 ")
if fval(websetting(9))=1 then response.write "checked"
response.Write(">")
response.Write("        打开 ")
response.Write("        <input type=radio name=""websetting(9)"" value=0 ")
if fval(websetting(9))=0 then response.write "checked"
response.Write(">")
response.Write("        关闭</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row>防刷新功能有效页面</td>")
response.Write("      <td class=row> ")
response.Write("        <input name=""webnorefresh"" type=""text"" id=""webnorefresh"" size=""30"" value=""")
response.Write( webnorefresh )
response.Write(""">")
response.Write("        用&quot;|&quot;隔开如：cat.asp|index.asp</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row>删除不活动用户的时间</td>")
response.Write("      <td class=row> ")
response.Write("        <input name=""websetting(13)"" type=""text"" id=""websetting(13)"" size=""15"" value=""")
response.Write(websetting(13))
response.Write(""">")
response.Write("        （分钟） </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row>浏览刷新的时间间隔</td>")
response.Write("      <td class=row> ")
response.Write("        <input name=""websetting(10)"" type=""text"" id=""websetting(10)"" size=""15"" value=""")
response.Write(websetting(10))
response.Write(""">秒，请确认防刷新机制为“打开”否则无效")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row><U>脚本超时时间</U><BR>")
response.Write("        默认为300，一般不做更改</td>")
response.Write("      <td class=row> ")
response.Write("        <input name=""websetting(11)"" type=""text"" id=""websetting(11)"" size=""15"" value=""")
response.Write(websetting(11))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row>成交后开始评价和禁止评价天数&nbsp; 用&quot;|&quot;隔开</td>")
response.Write("      <td class=row> ")
response.Write("        <input name=""websetting(12)"" type=""text"" id=""websetting(12)"" size=""15"" value=""")
response.Write(websetting(12))
response.Write(""">")
response.Write("        如：7|35，表示7到35天内可以评价</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row>&nbsp;</td>")
response.Write("      <td class=row>&nbsp;</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td width=""50%"" class=row>&nbsp; </td>")
response.Write("      <td width=""50%"" class=row> ")
response.Write("        <div align=""center""> ")
response.Write("          <input type=""submit"" name=""Submit"" value=""提 交"">")
response.Write("        </div>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("  </form>")
response.Write("</table>")
end sub
sub saveinfo()
websetting=request.Form("websetting(0)")&","&request.Form("websetting(1)")&","&request.Form("websetting(2)")&","&request.Form("websetting(3)")&","&request.Form("websetting(4)")&","&request.Form("websetting(5)")&","&request.Form("websetting(6)")&","&request.Form("websetting(7)")&","&request.Form("websetting(8)")&","&request.Form("websetting(9)")&","&request.Form("websetting(10)")&","&request.Form("websetting(11)")&","&request.Form("websetting(12)")&","&request.Form("websetting(13)")&","&request.Form("websetting(14)")
set rs=server.createobject("adodb.recordset")
rs.open "webconfig",conn,1,3
rs("webcharset")=sqltstr(request.Form("webcharset"))
rs("webtitle")=sqltstr(request.Form("webtitle")) 
rs("webname")=sqltstr(request.Form("webname")) 
rs("webkeywords")=sqltstr(request.Form("webkeywords"))
rs("webdescription")=sqltstr(request.Form("webdescription")) 
rs("weburl") = sqltstr(request.Form("weburl"))
rs("webaddr") = sqltstr(request.Form("webaddr"))
rs("webemail") = sqltstr(request.Form("webemail"))
rs("webzip") = sqltstr(request.Form("webzip"))
rs("webtel") = sqltstr(request.Form("webtel"))
rs("weburl") = sqltstr(request.Form("weburl"))
rs("webstopread")=request.Form("webstopread")
rs("websetting")=websetting
rs("webnorefresh")=request.Form("webnorefresh")
rs("webSMTPServer") = sqltstr(request.Form("SMTPServer"))
rs("webemailuser") = sqltstr(request.Form("emailuser"))
rs("webemailpwd") = sqltstr(request.Form("pwd"))
rs("webcopyright")=sqltstr(request.Form("webcopyright"))
rs.update
set rs=nothing
response.write "修改成功"
end sub
'=========================================================
'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 
'=========================================================%>