www.gusucode.com > 掌柜网店购物系统 4.0码程序 > admin/webconfig.asp

    <!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆!');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<p align=center><font color=red>您没有此项目管理权限!</font></p>"
response.End
end if
end if
%>
<%dim action
action=request.QueryString("action")
'//保存信息
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select webname,musicd,musicurl,webemail,dizhi,youbian,dianhua,copyright,weblogo,weburl,webbanner,mailaddress,mailusername,mailuserpass,mailname,mailsend,QQ 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("mailaddress")=request("mailaddress")
rs("mailusername")=request("mailusername")
rs("mailuserpass")=request("mailuserpass")
rs("mailname")=request("mailname")
rs("mailsend")=request("mailsend")
rs("QQ")=request("QQ")
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="../img/css.css" rel="stylesheet" type="text/css">
<style>
BODY {
SCROLLBAR-FACE-COLOR: #e7e7e7;  
SCROLLBAR-HIGHLIGHT-COLOR: #ffffff;
SCROLLBAR-SHADOW-COLOR: #d4d0c8;
SCROLLBAR-3DLIGHT-COLOR: #FFFFFF;
SCROLLBAR-ARROW-COLOR:  #ffffff;
SCROLLBAR-TRACK-COLOR: #f7f7f7;
SCROLLBAR-DARKSHADOW-COLOR: #e7e7e7; 
}
</style>
</head>
<body>
<table class="tableBorder" width="96%" 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,dianhua,copyright,weblogo,weburl,webbanner,mailaddress,mailusername,mailuserpass,mailname,mailsend,QQ from shop_config",conn,1,1%>
<tr> 
<td colspan="2" align="center" bgcolor="#dfdfdf"><b>网站信息设置</font></b></td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td width="30%" align="right" bgcolor="#CCCCCC"><strong>网站网址:</strong></td>
<td width="70%" style="PADDING-LEFT: 10px">HTTP:// <input name="weburl" type="text" id="weburl" size="21" value="<%=trim(rs("weburl"))%>">
<font color=#ff0000>**</font>
</td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="right" bgcolor="#CCCCCC"><strong>网站名称:</strong></td>
<td style="PADDING-LEFT: 10px"> 
<input name="webname" type="text" id="webname" size="28" value="<%=trim(rs("webname"))%>">
<font color=#ff0000>**</font>
</td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="right" bgcolor="#CCCCCC"><strong>公司 e-mail:</strong></td>
<td style="PADDING-LEFT: 10px"> 
<input name="webemail" type="text" id="webemail" size="28" value="<%=trim(rs("webemail"))%>">
<font color=#ff0000>**</font>
</td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="right" bgcolor="#CCCCCC"><strong>公司地址:</strong></td>
<td style="PADDING-LEFT: 10px"> 
<input name="dizhi" type="text" id="dizhi" size="28" value="<%=trim(rs("dizhi"))%>">
<font color=#ff0000>**</font>
</td>
</tr>
<tr bgcolor="#f2f2f2">
  <td align="right" bgcolor="#CCCCCC"><strong>公司邮编:</strong></td>
  <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))"
onpaste		= "return regInput(this,	/^[0-9]*$/,		window.clipboardData.getData('Text'))"
ondrop		= "return regInput(this,	/^[0-9]*$/,		event.dataTransfer.getData('Text'))">
      <font color=#ff0000>**</font> </td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="right" bgcolor="#CCCCCC"><strong>客服QQ:</strong></td>
<td style="PADDING-LEFT: 10px">
<input name="QQ" type="text" id="QQ" value="<%=trim(rs("QQ"))%>" size="28"	
onpaste		= "return regInput(this,	/^[0-9]*$/,		window.clipboardData.getData('Text'))"
ondrop		= "return regInput(this,	/^[0-9]*$/,		event.dataTransfer.getData('Text'))">
<font color=#ff0000>**</font> <font color=#ff0000>如果需要添加多个QQ号码,请在号码中间以&quot;,&quot;分隔</font>
</td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="right" bgcolor="#CCCCCC"><strong>公司电话:</strong></td>
<td style="PADDING-LEFT: 10px"> 
<input name="dianhua" type="text" id="dianhua" size="28" value="<%=trim(rs("dianhua"))%>">
<font color=#ff0000>**</font>
</td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="right" bgcolor="#CCCCCC"><strong>网站版权:</strong></td>
<td style="PADDING-LEFT: 10px"> 
<input name="copyright" type="text" size="28" value="<%=trim(rs("copyright"))%>">
<font color=#ff0000>**</font>
</td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="right" bgcolor="#CCCCCC"><strong>网站Logo:</strong></td>
<td style="PADDING-LEFT: 10px"> 
<input name="weblogo" type="text" id="weblogo" size="28" value="<%=trim(rs("weblogo"))%>">
        <font color=#ff0000>**</font> 157×47的GIF格式文件 
        <input type="button" name="Submit122" value="上传图片" onClick="window.open('upfile_guanggao.asp?formname=form1&editname=weblogo&uppath=img/xiao&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=600,height=165')">
      </td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="right" bgcolor="#CCCCCC"><strong>BANNER地址:</strong></td>
<td style="PADDING-LEFT: 10px"> 
<input name="webbanner" type="text" id="webbanner" size="28" value="<%=trim(rs("webbanner"))%>">
<font color=#ff0000>**</font>
760×100
</td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="center" colspan="2">发送邮件的配置 </td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="right" bgcolor="#CCCCCC"><strong>邮件服务器地址:</strong></td>
<td style="PADDING-LEFT: 10px"> 
<input name="mailaddress" type="text" id="mailaddress" size="36" value="<%=trim(rs("mailaddress"))%>">
</td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="right" bgcolor="#CCCCCC"><strong>发送邮箱:</strong></td>
<td style="PADDING-LEFT: 10px"> 
<input name="mailsend" type="text" id="mailsend" size="36" value="<%=trim(rs("mailsend"))%>">
</td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="right" bgcolor="#CCCCCC"><strong>登 录 名:</strong></td>
<td style="PADDING-LEFT: 10px"> 
<input name="mailusername" type="text" id="mailusername" size="36" value="<%=trim(rs("mailusername"))%>">
</td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="right" bgcolor="#CCCCCC"><strong>登录密码:</strong></td>
<td style="PADDING-LEFT: 10px"> 
<input name="mailuserpass" type="password" id="mailuserpass" size="36" value="<%=trim(rs("mailuserpass"))%>">
</td>
</tr>
<tr bgcolor="#f2f2f2"> 
<td align="right" bgcolor="#CCCCCC"><strong>显示的姓名:</strong></td>
<td style="PADDING-LEFT: 10px"> 
<input name="mailname" type="text" id="mailname" size="36" value="<%=trim(rs("mailname"))%>">
</td>
</tr>
<tr bgcolor="#f2f2f2">
<td></td>
<td style="PADDING-LEFT: 10px"> 
<input type="submit" name="Submit" value=" 修改保存 ">&nbsp;
<input type="reset" name="Submit2" value=" 重新添写 ">
</td>
</tr>
</form>
</table>
<%rs.Close
  set rs=nothing
  %>
<!--#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>