📄 webconfig.asp
字号:
<!--#include file="connection.asp"-->
<!--#include file="Vchar.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.reload('login.asp')</script>"
response.End
else
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
end if
%>
<%dim action
action=trim(request.QueryString("action"))
'//保存信息
select case action
case "save"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select webname,musicd,musicurl,webemail,dizhi,sendmail,jmailuser,jmailpassword,jmailsmtp,jmailmail,youbian,dianhua,copyright,weblogo,weburl,webbanner from shop_config ",conn,1,3
rs("webname")=trim(request("webname"))
rs("webemail")=trim(request("webemail"))
rs("dizhi")=trim(request("dizhi"))
rs("youbian")=trim(request("youbian"))
rs("dianhua")=trim(request("dianhua"))
rs("copyright")=trim(request("copyright"))
rs("weblogo")=trim(request("weblogo"))
rs("webbanner")=trim(request("webbanner"))
rs("weburl")=trim(request("weburl"))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('书店信息修改成功！');window.location.reload('javascript:history.go(-1)')</script>"
response.End()
case "savegongneng"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select webname,musicd,musicurl,webemail,dizhi,sendmail,jmailuser,jmailpassword,jmailsmtp,jmailmail,paihangkongzhi,gwq2,Sgwq,Z2gwq from shop_config ",conn,1,3
rs("musicurl")=trim(request("musicurl"))
rs("musicd")=request("musicd")
rs("sendmail")=request("sendmail")
rs("jmailuser")=trim(request("jmailuser"))
rs("jmailpassword")=trim(request("jmailpassword"))
rs("jmailsmtp")=trim(request("jmailsmtp"))
rs("jmailmail")=trim(request("jmailmail"))
rs("paihangkongzhi")=int(request("paihangkongzhi"))
rs("gwq2")=trim(request("gwq2"))
rs("Sgwq")=trim(request("Sgwq"))
rs("Z2gwq")=trim(request("Z2gwq"))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('书店功能修改成功！');window.location.reload('javascript:history.go(-1)')</script>"
response.End()
end select%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6396D6">
<tr>
<td height="18" background="images/admin_bg.gif"><div align="center"><font color="#FFFFFF"><strong>书店基本信息设置</strong></font></div></td>
</tr>
<tr>
<td height="107" bgcolor="#DEE7FF"><br>
<table width="70%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<form name="form1" method="post" action="webconfig.asp?action=save">
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select webname,musicurl,musicd,webemail,dizhi,youbian,sendmail,jmailuser,jmailpassword,jmailsmtp,jmailmail,dianhua,copyright,weblogo,weburl,webbanner,paihangkongzhi,gwq2,Sgwq,Z2gwq from shop_config",conn,1,1%>
<tr bgcolor="#DEE7FF">
<td style="padding-left:6px">书店网址：</td>
<td style="padding-left:6px">HTTP://
<input name="weburl" type="text" id="weburl" size="30" value="<%=trim(rs("weburl"))%>"></td>
</tr>
<tr bgcolor="#DEE7FF">
<td width="97" style="padding-left:6px">书店名称：</td>
<td width="393" style="padding-left:6px"> <input name="webname" type="text" id="webname" size="40" value="<%=trim(rs("webname"))%>">
</td>
</tr>
<tr bgcolor="#DEE7FF">
<td width="97" style="padding-left:6px">书店Email：</td>
<td width="393" style="padding-left:6px"> <input name="webemail" type="text" id="webemail" size="40" value="<%=trim(rs("webemail"))%>">
</td>
</tr>
<tr bgcolor="#DEE7FF">
<td width="97" style="padding-left:6px">公司地址：</td>
<td width="393" style="padding-left:6px"> <input name="dizhi" type="text" id="dizhi" size="40" value="<%=trim(rs("dizhi"))%>">
</td>
</tr>
<tr bgcolor="#DEE7FF">
<td width="97" style="padding-left:6px">公司邮编：</td>
<td width="393" style="padding-left:6px"><input name="youbian" type="text" id="youbian" size="40" value="<%=trim(rs("youbian"))%>" onkeypress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"
> </td>
</tr>
<tr bgcolor="#DEE7FF">
<td width="97" style="padding-left:6px">公司电话：</td>
<td width="393" style="padding-left:6px"> <input name="dianhua" type="text" id="dianhua" size="40" value="<%=trim(rs("dianhua"))%>">
</td>
</tr>
<tr bgcolor="#DEE7FF">
<td width="97" style="padding-left:6px">书店版权：</td>
<td width="393" style="padding-left:6px"><input name="copyright" type="text" size="40" value="<%=trim(rs("copyright"))%>"></td>
</tr>
<tr bgcolor="#DEE7FF">
<td height="22" style="padding-left:6px">书店Logo：</td>
<td height="22" style="padding-left:6px"><input name="weblogo" type="text" id="weblogo" size="40" value="<%=trim(rs("weblogo"))%>"></td>
</tr>
<tr bgcolor="#DEE7FF">
<td height="22" colspan="2"><div align="center">
<input type="submit" name="Submit" value="提 交">
<input type="reset" name="Submit2" value="恢 复">
</div></td>
</tr>
</form>
</table>
<br>
</td>
</tr>
</table>
<br>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6396D6">
<tr>
<td height="18" background="images/admin_bg.gif"><div align="center"><font color="#FFFFFF"><strong>书店功能设置</strong></font></div></td>
</tr>
<tr>
<td height="32" bgcolor="#DEE7FF"><br>
<table width="70%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<form name="form2" method="post" action="webconfig.asp?action=savegongneng">
<tr bgcolor="#DEE7FF">
<td width="89" height="22" style="padding-left:6px">图书排行：</td>
<td width="401" height="22" style="padding-left:6px"> <%if int(rs("paihangkongzhi"))=0 then%> <input name="paihangkongzhi" type="radio" value="0" checked>
<font color="#3333FF">由系统计算，按图书访问数量对图书进行自动排行。</font><br> <input type="radio" name="paihangkongzhi" value="1">
<font color="#3333FF">用户手动分配图书排行与首页文字推荐。</font> <%else%> <input name="paihangkongzhi" type="radio" value="0">
<font color="#3333FF">由系统计算，按图书访问数量对图书进行自动排行。</font><br> <input type="radio" name="paihangkongzhi" value="1" checked>
<font color="#3333FF">用户手动分配图书排行与首页文字推荐。</font> <%end if%> </td>
</tr>
<tr bgcolor="#DEE7FF">
<td height="22" style="padding-left:6px">首页音乐：</td>
<td height="22" style="padding-left:6px"> <input name="musicd" type="radio" value="1" <%if int(rs("musicd"))=1 then response.write "checked"%> >
打开
<input type="radio" name="musicd" value="0" <%if int(rs("musicd"))=0 then response.write "checked"%>>
关闭 </td>
</tr>
<tr bgcolor="#DEE7FF">
<td height="22" style="padding-left:6px">音乐地址：</td>
<td height="22" style="padding-left:6px"><input name="musicurl" type="text" id="musicurl" size="40" value="<%=trim(rs("musicurl"))%>"></td>
</tr>
<tr bgcolor="#DEE7FF">
<td height="22" style="padding-left:6px">设置邮件发送：</td>
<td height="22" style="padding-left:6px"> <input type="radio" name="sendmail" value=0 <%if int(rs("sendmail"))=0 then response.write "checked"%>>
关闭
<input type="radio" name="sendmail" value="1" <%if int(rs("sendmail"))=1 then response.write "checked"%>>
使用Jmail（荐）
<input type="radio" name="sendmail" value="2" <%if int(rs("sendmail"))=2 then response.write "checked"%>>
使用CDONTS</td>
</tr>
<tr bgcolor="#DEE7FF">
<td height="22" style="padding-left:6px">SMTP服务器：</td>
<td height="22" style="padding-left:6px"><input name="jmailsmtp" type="text" id="jmailsmtp" value="<%=trim(rs("jmailsmtp"))%>" size="40" ></td>
</tr>
<tr bgcolor="#DEE7FF">
<td height="22" style="padding-left:6px">邮箱登陆名：</td>
<td height="22" style="padding-left:6px"><input name="jmailuser" type="text" id="jmailuser" value=<%=trim(rs("jmailuser"))%> size="40"></td>
</tr>
<tr bgcolor="#DEE7FF">
<td height="22" style="padding-left:6px">邮箱密码：</td>
<td height="22" style="padding-left:6px"><input name="jmailpassword" type="password" id="jmailpassword" value=<%=trim(rs("jmailpassword"))%> size="40"></td>
</tr>
<tr bgcolor="#DEE7FF">
<td height="22" style="padding-left:6px">您的邮箱地址：</td>
<td height="22" style="padding-left:6px"><input name="jmailmail" type="text" id="jmailmail" value=<%=trim(rs("jmailmail"))%> size="40"></td>
</tr>
<tr bgcolor="#DEE7FF">
<td colspan="2" style="padding-left:6px"><font color="#ff6600">注意：使用邮件发送时，你的服务器上一定要用安装并启用Jmail组件或CDONTS组件，否则程序运行将会出现错误。</font></td>
</tr>
<tr bgcolor="#DEE7FF">
<td style="padding-left:6px">购物券设置：</td>
<td style="padding-left:6px">购买图书时赠送购物券比例：100元送
<input name="Z2gwq" type="text" id="Z2gwq" size="3" value=<%=ccur(rs("Z2gwq"))%>>
张购物券</td>
</tr>
<tr bgcolor="#DEE7FF">
<td> </td>
<td style="padding-left:6px">购物卷转换暂存款时：1元人民币=
<input name="gwq2" type="text" id="gwq2" size="3" value=<%=ccur(rs("gwq2"))%>>
张购物券</td>
</tr>
<tr bgcolor="#DEE7FF">
<td> </td>
<td style="padding-left:6px">用户在进行转换时，最少要有
<input name="Sgwq" type="text" id="Sgwq" size="3" value=<%=int(rs("Sgwq"))%>>
张购物券</td>
</tr>
<tr bgcolor="#DEE7FF">
<td> </td>
<td><input type="submit" name="Submit3" value="提 交"></td>
</tr>
</form>
</table>
<br>
<%rs.Close
set rs=nothing%></td>
</tr>
</table>
<br>
<!--#include file="copyright.asp"-->
</body>
</html>
<script>
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -