开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
setinfo.asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：17k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

setinfo.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <%
  3. dim cls
  4. if session("admin")="" then
  5. Response.Redirect("admin.asp")
  6. else
  7. if session("flag")<>"0" then
  9. cls = Instr(session("flag"), "config")
  10. if cls <= 0 then
  11. %>
  12. <script language="javascript">
  13. if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
  14.   location.href="login.asp";
  15. else
  16.   location.href="index.asp";
  17. </script>
  18. <%
  19. end if
  20. end if
  21. end if
  22. %>
  23. <script language="JavaScript" type="text/JavaScript">
  24. function showlist(dd)
  25. {
  26.   if(dd=="a")
  27.   {
  28.    linkimg.style.display="none";
  29.    linkimg2.style.display="";
  30.   }
  31.   else
  32.   {
  33.    linkimg.style.display="";
  34.    linkimg2.style.display="none";
  35.   }
  36. }
  37. </script>
  38. <%dim action
  39. action=request.QueryString("action")
  40. if action="save" then
  41. set rs=server.CreateObject("adodb.recordset")
  42. rs.Open "select webname,musicd,musicurl,webemail,dizhi,youbian,yck,dhxg,guestuser,pictype,wangwang,ordermail,regmail,qqwz,bbslogo,dymail,xwtype,dianhua,sltype,probg,des,key,copyright,weblogo,weburl,webbanner,icp,qq,mailaddress,mailsend,mailusername,mailname,mailuserpass,view,webnow,webmess,ksu,csu,xinpin,tuijian,tejia from webinfo ",conn,1,3
  43. rs("webname")=trim(request("webname"))
  44. rs("webemail")=trim(request("webemail"))
  45. rs("dizhi")=trim(request("dizhi"))
  46. rs("youbian")=trim(request("youbian"))
  47. rs("dianhua")=trim(request("dianhua"))
  48. rs("copyright")=trim(request("copyright"))
  49. rs("webbanner")=trim(request("webbanner"))
  50. rs("weblogo")=trim(request("weblogo"))
  51. rs("webbanner")=trim(request("webbanner"))
  52. rs("guestuser")=trim(request("guestuser"))
  53. rs("weburl")=trim(request("weburl"))
  54. rs("yck")=trim(request("yck"))
  55. rs("dhxg")=trim(request("dhxg"))
  56. rs("icp")=trim(request("icp"))
  57. rs("qq")=trim(request("qq"))
  58. rs("view")=trim(request("view"))
  59. rs("des")=trim(request("des"))
  60. rs("key")=trim(request("key"))
  61. rs("sltype")=trim(request("sltype"))
  62. rs("mailaddress")=trim(request("mailaddress"))
  63. rs("mailsend")=trim(request("mailsend"))
  64. rs("mailusername")=trim(request("mailusername"))
  65. rs("mailuserpass")=trim(request("mailuserpass"))
  66. rs("mailname")=trim(request("mailname"))
  67. rs("webnow")=trim(request("webnow"))
  68. rs("xwtype")=trim(request("xwtype"))
  69. rs("webmess")=trim(request("webmess"))
  70. rs("ksu")=trim(request("ksu"))
  71. rs("csu")=trim(request("csu"))
  72. rs("xinpin")=trim(request("xinpin"))
  73. rs("tejia")=trim(request("tejia"))
  74. rs("tuijian")=trim(request("tuijian"))
  75. rs("probg")=trim(request("probg"))
  76. rs("qqwz")=trim(request("qqwz"))
  77. rs("dymail")=trim(request("dymail"))
  78. rs("bbslogo")=trim(request("bbslogo"))
  79. rs("pictype")=trim(request("pictype"))
  80. rs("ordermail")=trim(request("ordermail"))
  81. rs("regmail")=trim(request("regmail"))
  82. rs("wangwang")=trim(request("wangwang"))
  83. rs.update
  84. rs.close
  85. set rs=nothing
  86. response.Write "<script language=javascript>alert('网站资料修改成功！');history.go(-1);</script>"
  87. end if%>
  88. <html>
  89. <head>
  90. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  91. <link href="../images/css.css" rel="stylesheet" type="text/css">
  92. </head>
  93. <body>
  95. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  96.   <form name="form1" method="post" action="setinfo.asp?action=save">
  97.     <%set rs=server.CreateObject("adodb.recordset")
  98. rs.Open"select webname,musicurl,musicd,webemail,guestuser,ordermail,dhxg,yck,regmail,wangwang,xwtype,pictype,dizhi,qqwz,bbslogo,dymail,probg,youbian,des,key,sltype,dianhua,copyright,weblogo,weburl,webbanner,icp,qq,mailaddress,mailsend,mailusername,mailname,mailuserpass,view,webnow,webmess,ksu,csu,xinpin,tejia,tuijian from webinfo",conn,1,1
  100. %>
  101.     <tr> 
  102.       <td colspan="2" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">网站信息设置</font></b></td>
  103.     </tr>
  104.     <tr class="tableborder"> 
  105.       <td width="30%" align="right">网站开关：</td>
  106.       <td width="70%"> <input type="radio" value="0" name="webnow" <%if rs("webnow")=0 then response.write "checked" %> onClick='showlist("a");'>
  107.         开启&nbsp;&nbsp; <input type="radio" value="1" name="webnow" <%if rs("webnow")=1 then response.write "checked" %> onClick='showlist("b");'>
  108.         关闭</td>
  109.     </tr>
  110.     <tr id="linkimg" <%if root_info_OnOff=0 then%>style='display:none'<%end if%>> 
  111.       <td align="right" >关闭提示语：</td>
  112.       <td><textarea name="webmess" cols="47" rows="4" id="webmess"><%=rs("webmess")%></textarea></td>
  113.     </tr>
  114.     <tr > 
  115.       <td align="right">网站网址：</td>
  116.       <td style="PADDING-LEFT: 10px">HTTP:// 
  117.         <input name="weburl" type="text" id="weburl" size="21" value="<%=trim(rs("weburl"))%>"> 
  118.         <font color=#ff0000>**</font></td>
  119.     </tr>
  120.     <tr> 
  121.       <td align="right">网站名称：</td>
  122.       <td style="PADDING-LEFT: 10px"> <input name="webname" type="text" id="webname" size="28" value="<%=trim(rs("webname"))%>"> 
  123.         <font color=#ff0000>**</font></td>
  124.     </tr>
  125.     <tr > 
  126.       <td align="right">公司 e-mail：</td>
  127.       <td style="PADDING-LEFT: 10px"> <input name="webemail" type="text" id="webemail" size="28" value="<%=trim(rs("webemail"))%>"> 
  128.         <font color=#ff0000>**</font></td>
  129.     </tr>
  130.     <tr > 
  131.       <td align="right">公司地址：</td>
  132.       <td style="PADDING-LEFT: 10px"> <input name="dizhi" type="text" id="dizhi" size="28" value="<%=trim(rs("dizhi"))%>"> 
  133.         <font color=#ff0000>**</font></td>
  134.     </tr>
  135.     <tr > 
  136.       <td align="right">公司邮编：</td>
  137.       <td style="PADDING-LEFT: 10px"> <input name="youbian" type="text" id="youbian" size="28" value="<%=trim(rs("youbian"))%>" onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
  138. onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
  139. ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"> 
  140.         <font color=#ff0000>**</font></td>
  141.     </tr>
  142.     <tr > 
  143.       <td align="right">公司电话：</td>
  144.       <td style="PADDING-LEFT: 10px"> <input name="dianhua" type="text" id="dianhua" size="28" value="<%=trim(rs("dianhua"))%>"> 
  145.         <font color=#ff0000>**</font></td>
  146.     </tr>
  147.     <tr > 
  148.       <td align="right">网站版权：</td>
  149.       <td style="PADDING-LEFT: 10px"> <input name="copyright" type="text" size="28" value="<%=trim(rs("copyright"))%>"> 
  150.         <font color=#ff0000>**</font></td>
  151.     </tr>
  152.     <tr> 
  153.       <td align="right">在线咨询QQ(腾讯)：</td>
  154.       <td style="PADDING-LEFT: 10px"> <input name="webbanner" type="text" id="webbanner" size="28" value="<%=trim(rs("webbanner"))%>"> 
  155.         <font color=#ff0000>**</font><img src="images/help.gif" alt="如果多个QQ请用英文逗号隔开。" width="14" height="14"></td>
  156.     </tr>
  157.     <tr> 
  158.       <td align="right">阿里旺旺：</td>
  159.       <td style="PADDING-LEFT: 10px"><input name="wangwang" type="text" id="wangwang" size="28" value="<%=trim(rs("wangwang"))%>"> 
  160.         <img src="images/help.gif" alt="淘宝旺旺，没有请留空，前台不会显示" width="14" height="14"></td>
  161.     </tr>
  162.     <tr> 
  163.       <td align="right">积分/预存款兑换比率：</td>
  164.       <td style="PADDING-LEFT: 10px">1元可以兑换 
  165.         <input name="yck" type="text" id="yck" value="<%=trim(rs("yck"))%>" size="8">
  166.         个积分&nbsp<img src="images/help.gif" alt="用户通过购物获得的积分可以兑换成预存款，请在此设置积分与预存款兑换比率。" width="14" height="14"></td>
  167.     </tr>
  168.     <tr> 
  169.       <td align="right">商品小图尺寸设置：</td>
  170.       <td style="PADDING-LEFT: 10px">长度 
  171.         <input name="csu" type="text" id="csu" value="<%=trim(rs("csu"))%>" size="5">
  172.         象素，宽 
  173.         <input name="ksu" type="text" id="ksu" value="<%=trim(rs("ksu"))%>" size="5"> 
  174.         <img src="images/help.gif" alt="商品小图的尺寸象素 推荐100/100" width="14" height="14"></td>
  175.     </tr>
  176.     <tr> 
  177.       <td align="right">首页显示商品数量：</td>
  178.       <td style="PADDING-LEFT: 10px">新品 
  179.         <input name="xinpin" type="text" id="xinpin" value="<%=trim(rs("xinpin"))%>" size="5">
  180.         个，推荐 
  181.         <input name="tuijian" type="text" id="tuijian" value="<%=trim(rs("tuijian"))%>" size="5">
  182.         个，特价 
  183.         <input name="tejia" type="text" id="xp3" value="<%=trim(rs("tejia"))%>" size="5">
  184.         个<img src="images/help.gif" alt="首页的商品显示数量设置，如商品分类过多或过少可适当调整此数值，以使页面不出现空白。" width="14" height="14"></td>
  185.     </tr>
  186.     <tr> 
  187.       <td align="right">在线咨询QQ开关：</td>
  188.       <td style="PADDING-LEFT: 10px"> <input name="qq" type="radio" value="1"   <% if rs("qq")=1 then %> checked <%end if %>>
  189.         打开 
  190.         <input type="radio" name="qq"  <% if rs("qq")=2 then %> checked <%end if %> value="2">
  191.         关闭</td>
  192.     </tr>
  193.     <tr> 
  194.       <td align="right">留言审核功能：</td>
  195.       <td style="PADDING-LEFT: 10px"> <input name="view" type="radio" value="0"   <% if rs("view")=0 then %> checked <%end if %>>
  196.         打开 
  197.         <input type="radio" name="view"  <% if rs("view")=1 then %> checked <%end if %> value="1">
  198.         关闭 <img src="images/help.gif" alt="有了新留言，是否需要管理员审核才才在前台显示。　" width="14" height="14">&nbsp</td>
  199.     </tr>
  200.     <tr> 
  201.       <td align="right">是否开启匿名购物：</td>
  202.       <td style="PADDING-LEFT: 10px"><input type="radio" name="guestuser" value="0"  <% if rs("guestuser")=0 then %> checked <%end if %>>
  203.         打开 
  204.         <input type="radio" name="guestuser" value="1" <% if rs("guestuser")=1 then %> checked <%end if %>>
  205.         关闭</td>
  206.     </tr>
  207.     <tr> 
  208.       <td align="right">是否显示商品背景框：</td>
  209.       <td style="PADDING-LEFT: 10px"><input type="radio" name="probg" value="0"  <% if rs("probg")=0 then %> checked <%end if %>>
  210.         打开 
  211.         <input type="radio" name="probg" value="1" <% if rs("probg")=1 then %> checked <%end if %>>
  212.         关闭</td>
  213.     </tr>
  214.     <tr> 
  215.       <td align="right">是否显示邮件订阅：</td>
  216.       <td style="PADDING-LEFT: 10px"><input type="radio" name="dymail" value="0"  <% if rs("dymail")=0 then %> checked <%end if %>>
  217.         打开 
  218.         <input type="radio" name="dymail" value="1" <% if rs("dymail")=1 then %> checked <%end if %>>
  219.         关闭</td>
  220.     </tr>
  221.     <tr> 
  222.       <td align="right">是否显示导航条BBS链接：</td>
  223.       <td style="PADDING-LEFT: 10px"><input type="radio" name="bbslogo" value="0"  <% if rs("bbslogo")=0 then %> checked <%end if %>>
  224.         打开 
  225.         <input type="radio" name="bbslogo" value="1" <% if rs("bbslogo")=1 then %> checked <%end if %>>
  226.         关闭</td>
  227.     </tr>
  228.     <tr> 
  229.       <td align="right">客服QQ菜单所有位置：</td>
  230.       <td style="PADDING-LEFT: 10px"><input type="radio" name="qqwz" value="1"  <% if rs("qqwz")=1 then %> checked <%end if %>>
  231.         居右 
  232.         <input type="radio" name="qqwz" value="0" <% if rs("qqwz")=0 then %> checked <%end if %>>
  233.         居左 </td>
  234.     </tr>
  235.     <tr> 
  236.       <td align="right">注册用户发送邮件通知：</td>
  237.       <td style="PADDING-LEFT: 10px"><input type="radio" name="regmail" value="1"  <% if rs("regmail")=1 then %> checked <%end if %>>
  238.         打开 
  239.         <input type="radio" name="regmail" value="0" <% if rs("regmail")=0 then %> checked <%end if %>>
  240.         关闭 <img src="images/help.gif" alt="用户注册时是否发送注册邮件，需要JMAIL支持。" width="14" height="14">&nbsp</td>
  241.     </tr>
  242.     <tr> 
  243.       <td align="right">新订单发送邮件通知：</td>
  244.       <td style="PADDING-LEFT: 10px"><input type="radio" name="ordermail" value="1"  <% if rs("ordermail")=1 then %> checked <%end if %>>
  245.         打开 
  246.         <input type="radio" name="ordermail" value="0" <% if rs("ordermail")=0 then %> checked <%end if %>>
  247.         关闭　<img src="images/help.gif" alt="开启此功能如果您的空间支持JMAIL组件且邮件服务器配置无误，用户下单会自动发送订单邮件。" width="14" height="14">&nbsp</td>
  248.     </tr>
  249.     <tr> 
  250.       <td align="right">商品分类菜单效果：</td>
  251.       <td style="PADDING-LEFT: 10px"> <input name="sltype" type="radio" value="0"   <% if rs("sltype")=0 then %> checked <%end if %>>
  252.         展开式 &nbsp <input type="radio" name="sltype"  <% if rs("sltype")=1 then %> checked <%end if %> value="1">
  253.         伸缩式 <img src="images/help.gif" alt="如果您的商品大类较多，建议选择伸缩式菜单，以使页面美观。" width="14" height="14">&nbsp 
  254.       </td>
  255.     </tr>
  256.     <tr> 
  257.       <td align="right">首页新闻展示方式：</td>
  258.       <td style="PADDING-LEFT: 10px"><input name="xwtype" type="radio" value="0"   <% if rs("xwtype")=0 then %> checked <%end if %>>
  259.         静止式 &nbsp <input type="radio" name="xwtype"  <% if rs("xwtype")=1 then %> checked <%end if %> value="1">
  260.         滚动式 &nbsp </td>
  261.     </tr>
  262.     <tr>
  263.       <td align="right">导航条菜单效果：</td>
  264.       <td style="PADDING-LEFT: 10px"><input name="dhxg" type="radio" value="0"   <% if rs("dhxg")=0 then %> checked <%end if %>>
  265.         文字式 &nbsp <input type="radio" name="dhxg"  <% if rs("dhxg")=1 then %> checked <%end if %> value="1">
  266.         图片式 <img src="images/help.gif" alt="文字式为导航条菜单均是文字。图片式为导航条的所有信息为图片显示效果" width="14" height="14">&nbsp 
  267.       </td>
  268.     </tr>
  269.     <tr> 
  270.       <td align="right">删除商品是否自动删除图片：</td>
  271.       <td style="PADDING-LEFT: 10px"><input name="pictype" type="radio" value="0"   <% if rs("pictype")=0 then %> checked <%end if %>>
  272.         删除图片 
  273.         <input type="radio" name="pictype"  <% if rs("pictype")=1 then %> checked <%end if %> value="1">
  274.         保留图片 <img src="images/help.gif" alt="删除商品可以同时删除商品的大小图片，以节约空间，很实用。" width="14" height="14"></td>
  275.     </tr>
  276.     <tr > 
  277.       <td align="right">Icp备案号：</td>
  278.       <td style="PADDING-LEFT: 10px"> <input name="icp" type="text" size="28" value="<%=trim(rs("icp"))%>"> 
  279.         <font color=#ff0000>**</font></td>
  280.     </tr>
  281.     <tr > 
  282.       <td height="-1" align="right">网站Logo：</td>
  283.       <td style="PADDING-LEFT: 10px"> <input name="weblogo" type="text" id="weblogo" size="28" value="<%=trim(rs("weblogo"))%>"> 
  284.         <font color=#ff0000>**</font> <input type="button" name="Submit2215" value="上传图片" onClick="window.open('../upload.asp?formname=form1&editname=weblogo&uppath=upfile&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"></td>
  285.     </tr>
  286.     <tr  > 
  287.       <td colspan="2" align="center">搜索引擎关键字设置</td>
  288.     </tr>
  289.     <tr  > 
  290.       <td align="right">META_DESCRIPTION：</td>
  291.       <td> <textarea name="des" cols="60" id="des"><%=rs("des")%></textarea></td>
  292.     </tr>
  293.     <tr  > 
  294.       <td align="center">&nbsp;</td>
  295.       <td>通过本设置您可以自行设定网站网页的描述，有助于搜索引擎进行索引， 对于提<br>
  296.         高您的网站在搜索引擎中的排名有一定作用。请务必录入与您网页相关的描述； </td>
  297.     </tr>
  298.     <tr  > 
  299.       <td align="right">META_KEYWORDS：</td>
  300.       <td> <textarea name="key" cols="60" id="key"><%=rs("key")%></textarea></td>
  301.     </tr>
  302.     <tr  > 
  303.       <td align="center">&nbsp;</td>
  304.       <td>通过本设置您可以自行录入网站网页的相关关键词，录入与您网页相关的关键字 对于搜索引擎对您网站的索引有帮助，有助于提高网站的排名。要使文字尽可能简练，多个关键词可以以逗号或空格进行分隔，请务必录入与您网站相关的关键词；</td>
  305.     </tr>
  306.     <tr  > 
  307.       <td colspan="2" align="center">发送邮件的配置 </td>
  308.     </tr>
  309.     <tr  > 
  310.       <td align="right">邮件服务器地址：</td>
  311.       <td style="PADDING-LEFT: 10px"> <input name="mailaddress" type="text" id="mailaddress" size="25" value="<%=trim(rs("mailaddress"))%>">
  312.         建议用sohu的,填写: smtp.sohu.com</td>
  313.     </tr>
  314.     <tr  > 
  315.       <td align="right">发送邮箱：</td>
  316.       <td style="PADDING-LEFT: 10px"> <input name="mailsend" type="text" id="mailsend" size="25" value="<%=trim(rs("mailsend"))%>">
  317.         填写完整的邮箱地址 </td>
  318.     </tr>
  319.     <tr  > 
  320.       <td align="right">登 录 名：</td>
  321.       <td style="PADDING-LEFT: 10px"> <input name="mailusername" type="text" id="mailusername" size="25" value="<%=trim(rs("mailusername"))%>">
  322.         填写邮箱地址名称</td>
  323.     </tr>
  324.     <tr  > 
  325.       <td align="right">登录密码：</td>
  326.       <td style="PADDING-LEFT: 10px"> <input name="mailuserpass" type="password" id="mailuserpass" size="27" value="<%=trim(rs("mailuserpass"))%>">
  327.         填写邮箱的登陆密码 </td>
  328.     </tr>
  329.     <tr  > 
  330.       <td align="right">显示的姓名：</td>
  331.       <td style="PADDING-LEFT: 10px"> <input name="mailname" type="text" id="mailname" size="25" value="<%=trim(rs("mailname"))%>">
  332.         填写邮箱地址名称 </td>
  333.     </tr>
  334.     <tr > 
  335.       <td></td>
  336.       <td style="PADDING-LEFT: 10px"> <input type="submit" name="Submit" value=" 修改保存 "> 
  337.         &nbsp; <input type="reset" name="Submit2" value=" 重新添写 "></td>
  338.     </tr>
  339.   </form>
  340. </table>
  341. <%rs.Close
  342.   set rs=nothing
  343.   %>
  344. <!--#include file="foot.asp"-->
  345. </body>
  346. </html>
  347. <script>
  348. function regInput(obj, reg, inputStr)
  349. {
  350. var docSel = document.selection.createRange()
  351. if (docSel.parentElement().tagName != "INPUT") return false
  352. oSel = docSel.duplicate()
  353. oSel.text = ""
  354. var srcRange = obj.createTextRange()
  355. oSel.setEndPoint("StartToStart", srcRange)
  356. var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
  357. return reg.test(str)
  358. }
  359. </script>