b2bbaseinfo.asp

小型网上购物网站

<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('1');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('1');history.go(-1);</script>"
response.End
end if
end if
'所有无权限
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if

dim action
action=trim(request.form("action"))
if action="save" then
if Not isNumeric(request.form("webbj6")) then
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('积分转预存款的比例必须是数字！');history.go(-1);</script>"
response.End
end if
if Not isNumeric(request.form("webbj5")) then
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('购物免邮费设置必须是数字！');history.go(-1);</script>"
response.End
end if
if Not isNumeric(request.form("webimg9")) then
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('小图片大小的宽度必须是数字！');history.go(-1);</script>"
response.End
end if
if Not isNumeric(request.form("webimg10")) then
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('小图片大小的高度必须是数字！');history.go(-1);</script>"
response.End
end if
if Not isNumeric(request.form("webimg7")) then
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('注册送积分数必须是数字！');history.go(-1);</script>"
response.End
end if
if Not isNumeric(request.form("webimg13")) then
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('推荐人奖励积分必须是数字！');history.go(-1);</script>"
response.End
end if

set rs1=server.CreateObject("adodb.recordset")
rs1.Open "select webimg7,webimg13,webimg9,webimg10,webbj3,webbj4,webbj5,webbj6,webbj7,webbj8,webbj9,webimg6,RightFlag from b2b_systemdata ",conn,1,3
rs1("webimg7")=trim(request.form("webimg7"))
rs1("webimg13")=trim(request.form("webimg13"))
rs1("webimg9")=trim(request.form("webimg9"))
rs1("webimg10")=trim(request.form("webimg10"))
rs1("webbj3")=trim(request.form("webbj3"))
rs1("webbj4")=trim(request.form("webbj4"))
rs1("webbj5")=trim(request.form("webbj5"))
rs1("webbj6")=trim(request.form("webbj6"))
rs1("webbj7")=trim(request.form("webbj7"))
rs1("webbj8")=trim(request.form("webbj8"))
rs1("webbj9")=trim(request.form("webbj9"))
rs1("webimg6")=trim(request.form("webimg6"))
rs("RightFlag")=trim(request.form("RightFlag"))
rs1.update
rs1.close
set rs1=nothing

set rs=server.CreateObject("adodb.recordset")
rs.Open "select ICP,webname,webemail,address,postcode,tel,qq,copyright,weblogo,weburl,bgclr4,webimg12,RightFlag from b2b_systemdata ",conn,1,3
rs("webname")=trim(request.form("webname"))
rs("webemail")=trim(request.form("webemail"))
rs("address")=trim(request.form("address"))
rs("postcode")=trim(request.form("postcode"))
rs("tel")=trim(request.form("tel"))
rs("qq")=trim(request.form("qq"))
rs("ICP")=trim(request.form("icp"))
rs("copyright")=trim(request.form("copyright"))
rs("weblogo")=trim(request.form("weblogo"))
rs("bgclr4")=trim(request.form("bgclr4"))
rs("RightFlag")=trim(request.form("RightFlag"))
Dim strIntro
For i = 1 To Request.Form("webimg12").Count 
strIntro = strIntro & Request.Form("webimg12")(i) 
Next 
rs("webimg12")=strIntro
rs("weburl")=trim(request.form("weburl"))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('修改成功');history.go(-1);</script>"
end if%>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE1 {color: #000000;
	font-weight: bold;
}
.style4 {color: #FF0000}
-->
</style>
<table width="98%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
  <tr> 
    <td height="16" background="images/topbg.gif"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -&gt; <span class="style4">商城基本设置</span></span></td>
  </tr>
  <tr> 
    <td height="107" valign="top" bgcolor="#FFFFFF"> <br>
      <table width="98%" border="2" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
        <form name="form1" method="post" action="b2bbaseinfo.asp?action=save">
          <%set rs=server.CreateObject("adodb.recordset")
            rs.Open "select ICP,webname,webemail,address,postcode,tel,qq,copyright,weblogo,weburl,bgclr4,webimg12,webimg6,webimg7,webimg13,webimg9,webimg10,webbj3,webbj4,webbj5,webbj6,webbj7,webbj8,webbj9,RightFlag from b2b_systemdata",conn,1,1%>
           <tr> 
            <td width="20%" align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>网站网址：</strong></td>
            <td width="80%" bgcolor="#FFFFFF"><INPUT NAME="weburl" TYPE="text" class="input_sr" ID="weburl" VALUE="<%=trim(rs("weburl"))%>" SIZE="28"></td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>网站名称：</strong></td>
            <td bgcolor="#FFFFFF"> <input name="webname" type="text" class="input_sr" id="webname" value="<%=trim(rs("webname"))%>" size="28">            </td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>网站Email：</strong></td>
            <td bgcolor="#FFFFFF"> <input name="webemail" type="text" class="input_sr" id="webemail" value="<%=trim(rs("webemail"))%>" size="28">            </td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>公司x地址：</strong></td>
            <td bgcolor="#FFFFFF"> <input name="address" type="text" class="input_sr" id="address" value="<%=trim(rs("address"))%>" size="28">            </td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>公司邮编：</strong></td>
            <td bgcolor="#FFFFFF"> <input name="postcode" type="text" class="input_sr" id="postcode"	onKeyPress	= "return regInput(this,	/^[0-9]*$/,		String.fromCharCode(event.keyCode))" value="<%=trim(rs("postcode"))%>" size="28"
		onpaste		= "return regInput(this,	/^[0-9]*$/,		window.clipboardData.getData('Text'))"
		ondrop		= "return regInput(this,	/^[0-9]*$/,		event.dataTransfer.getData('Text'))"
		> </td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>公司电话：</strong></td>
            <td bgcolor="#FFFFFF"> <input name="tel" type="text" class="input_sr" id="tel" value="<%=trim(rs("tel"))%>" size="28">            </td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>网站Logo：</strong></td>
            <td bgcolor="#FFFFFF"><input name="weblogo" type="text" class="input_sr" id="weblogo" value="<% = rs("weblogo") %>" size="28">
            <input name="Submit12" type="button" class="input_bot" onClick="window.open('b2b_upimgload.asp?formname=form1&editname=weblogo&uppath=images/guanggao&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')" value="上传图片"></td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>网站版权：</strong></td>
            <td bgcolor="#FFFFFF"> <input name="copyright" type="text" class="input_sr" value="<%=trim(rs("copyright"))%>" size="28">            </td>
          </tr>
          <tr>
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>ICP证：</strong></td>
            <td bgcolor="#FFFFFF"><input name="icp" type="text" class="input_sr" value="<%=trim(rs("ICP"))%>" size="28" />            </td>
          </tr>
          <tr>
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>商品缩略图宽度：</strong></td>
            <td bgcolor="#FFFFFF"><input name="webimg9" type="text" class="input_sr" id="webimg9" value="<% = rs("webimg9") %>" size="28" /></td>
          </tr>
          <tr>
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>商品缩略图高度：</strong></td>
            <td bgcolor="#FFFFFF"><input name="webimg10" type="text" class="input_sr" id="webimg10" value="<% = rs("webimg10") %>" size="28" /></td>
          </tr>
          <tr>
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>免邮费设置：</strong></td>
            <td bgcolor="#FFFFFF"><input name="webbj5" type="text" class="input_sr" id="webbj5" value="<% = rs("webbj5") %>" size="28" />
              （购物满多少免附加邮费，设置成0表示关闭此功能）</td>
          </tr>
          <tr>
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>积分转预存款比例：</strong></td>
            <td bgcolor="#FFFFFF"><input name="webbj6" type="text" class="input_sr" id="webbj6" value="<% = rs("webbj6") %>" size="28" /></td>
          </tr>
          <tr>
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>是否允许非注册购物：</strong></td>
            <td bgcolor="#FFFFFF"><select name="webimg6" id="webimg6">
                <option value="0" <% if rs("webimg6")="0" Then Response.write("Selected") %>>关闭</option>
                <option value="1" <% if rs("webimg6")="1" Then Response.write("Selected") %>>允许</option>
            </select></td>
          </tr>
          <tr>
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>是否允许右键有效：</strong></td>
            <td bgcolor="#FFFFFF"><select name="RightFlag" id="RightFlag">
                <option value="是" <% if rs("RightFlag")="是" Then Response.write("Selected") %>>是</option>
                <option value="否" <% if rs("RightFlag")="否" Then Response.write("Selected") %>>否</option>
            </select></td>
          </tr>
          <tr>
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>注册送积分：</strong></td>
            <td bgcolor="#FFFFFF"><input name="webimg7" type="text" class="input_sr" id="webimg7" value="<% = rs("webimg7") %>" size="28" /></td>
          </tr>

          <tr> 
            <td align="right" valign="top" bgcolor="#F4F4F4"><strong>公司简介：</strong></td>
            <td bgcolor="#FFFFFF"> <INPUT type="hidden" name="webimg12" value="<% = Server.HtmlEncode(rs("webimg12")) %>">	
            <iframe ID="webimg12" src="htmledit/ewebeditor.asp?id=webimg12&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe>            </td>
          </tr>
          <tr> 
            <td height="22" colspan="2" align="center" bgcolor="#F4F4F4">
                <input name="Submit" type="submit" class="input_bot" value="提交">
                <input name="action" type="hidden" value="save">
                &nbsp;&nbsp; 
                <input name="Submit2" type="reset" class="input_bot" value="恢复">           </td>
          </tr>
        </form>
      </table>
      <%rs.Close
          set rs=nothing
		  conn.close
		  set conn = Nothing %>
    </td>
  </tr>
</table>
 
</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>