⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 webconfig.asp

📁 一个ASP做的购物车
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="session1.asp"-->
<%dim action
action=request.QueryString("action")
'//保存信息
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select webname,payid,paypin,payurl,webemail,dizhi,youbian,dianhua,copyright,weblogo,weburl,webbanner,mailaddress,mailusername,mailuserpass,mailname,mailsend from wq_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("paypin")=trim(request("paypin"))
rs("payid")=request("payid")
rs("payurl")=request("payurl")
rs("mailaddress")=request("mailaddress")
rs("mailusername")=request("mailusername")
rs("mailuserpass")=request("mailuserpass")
rs("mailname")=request("mailname")
rs("mailsend")=request("mailsend")
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('网站资料修改成功!');history.go(-1);</script>"
end if%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center" class="tableBorder">
  <tr> 
    <th height="49" class="tableHeaderText">网站信息设置</th>
  </tr>
  <tr> 
    <td height="16" align="center" class="forumRowHighlight"><font color="#000000"><strong>请注意:字段中不要含有非法字符</strong></font></td>
  </tr>
</table>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center" class="tableBorder" >
  <tr> 
     <td height="107" class="forumRowHighlight"> 
       <table width="500" border="0" align="center" cellpadding="3" cellspacing="0">
        <form name="form1" method="post" action="webconfig.asp?action=save">
            <%set rs=server.CreateObject("adodb.recordset")
            	rs.Open "select webname,paypin,payid,payurl,webemail,dizhi,youbian,dianhua,copyright,weblogo,weburl,webbanner,mailaddress,mailusername,mailuserpass,mailname,mailsend from wq_config",conn,1,1
			%>
			<tr> 
            <td height="22" colspan="2"><strong>基本信息</strong></td>
            </tr>
            <tr> 
              <td>网站网址:</td>
              <td>http://<input name="weburl" type="text" id="weburl" size="21" value="<%=trim(rs("weburl"))%>"></td>
            </tr>
             <tr> 
               <td width="70">网站名称:</td>
               <td width="278"><input name="webname" type="text" id="webname" size="28" value="<%=trim(rs("webname"))%>"></td>
             </tr>
             <tr> 
               <td width="70">网站Email:</td>
               <td width="278"><input name="webemail" type="text" id="webemail" size="28" value="<%=trim(rs("webemail"))%>"></td>
             </tr>
             <tr> 
               <td width="70">公司地址:</td>
               <td width="278"><input name="dizhi" type="text" id="dizhi" size="28" value="<%=trim(rs("dizhi"))%>"></td>
             </tr>
             <tr> 
               <td width="70">公司邮编:</td>
               <td width="278"><input name="youbian" type="text" id="youbian" size="28" 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> 
               <td width="70">公司电话:</td>
               <td width="278"><input name="dianhua" type="text" id="dianhua" size="28" value="<%=trim(rs("dianhua"))%>"></td>
            </tr>
            <tr> 
             <td width="70">网站版权:</td>
             <td width="278"><input name="copyright" type="text" size="28" value="<%=trim(rs("copyright"))%>"></td>
           </tr>
           <tr> 
             <td height="22">网站Logo:</td>
             <td height="22"><input name="weblogo" type="text" id="weblogo" size="28" value="<%=trim(rs("weblogo"))%>"></td>
           </tr>
           <tr> 
             <td height="22">Banner:</td>
             <td height="22"><input name="webbanner" type="text" id="webbanner" size="28" value="<%=trim(rs("webbanner"))%>">*宽:770</td>
            </tr>
          <tr> 
            <td height="22" colspan="2"><strong>西部支付配置(西部支付网上银行)</strong></td>
            </tr>
            <tr> 
              <td height="22">支付ID:</td>
              <td height="22"> <input name="payid" type="text" id="payid" size="36" value="<%=trim(rs("payid"))%>"></td>
           </tr>
		   <tr> 
            <td height="22">返回地址:</td>
            <td height="22"> <input name="payurl" type="text" id="payurl" size="36" value="<%=trim(rs("payurl"))%>"></td>
            </tr>
			<tr> 
             
            <td height="22">是否有效:</td>
             <td height="22">
			 <input name="paypin"  id="paypin" type="checkbox"  onFocus="this.blur()" value="有效" <%If rs("paypin")="有效" Then Response.Write("CHECKED") : Response.Write("")%>>
              如果您不想开通网上银行,请去掉“对勾”</td>
           </tr>
	      <tr> 
            <td height="22" colspan="2"><strong>发送邮件配置 </strong></td>
            </tr>
            <tr> 
               <td height="22">邮件服务器地址:</td>
                <td height="22"><input name="mailaddress" type="text" id="mailaddress" size="36" value="<%=trim(rs("mailaddress"))%>"></td>
             </tr>
             <tr> 
                <td height="22">发送邮箱:</td>
                <td height="22"><input name="mailsend" type="text" id="mailsend" size="36" value="<%=trim(rs("mailsend"))%>"></td>
             </tr>
             <tr> 
              <td height="22">登录名:</td>
               <td height="22"><input name="mailusername" type="text" id="mailusername" size="36" value="<%=trim(rs("mailusername"))%>">
                </td>
            </tr>
            <tr> 
              <td height="22">登录密码:</td>
              <td height="22"><input name="mailuserpass" type="password" id="mailuserpass" size="36" value="<%=trim(rs("mailuserpass"))%>"></td>
            </tr>
            <tr> 
              <td height="22">发送时显示 的姓名:</td>
              <td height="22"><input name="mailname" type="text" id="mailname" size="36" value="<%=trim(rs("mailname"))%>"></td>
            </tr>
            <tr> 
              <td height="22" colspan="2">
			   <div align="center"> 
                  <input class="button" type="submit" name="Submit" value="提 交">&nbsp;&nbsp; 
                  <input class="button" type="reset" name="Submit2" value="恢 复">
               </div>
              </td>
             </tr>
          </form>
        </table>
      <%rs.Close
            set rs=nothing%>
    </td>
  </tr>
</table>
<br>
</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 + -