admin_inc.asp

闲置物品免费交易的平台

	return false;
  }
     if(checkspace(document.myform.huiyuanjia.value)) {
	document.myform.huiyuanjia.focus();
    alert("请输入会员价格！");
	return false;
  }
     if(checkspace(document.myform.vipjia.value)) {
	document.myform.vipjia.focus();
    alert("请输入VIP会员价格！");
	return false;
  }
 
}
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
//-->
</script>
<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>
<form name="myform" method="post" action="saveaddbook.asp?action=edit&id=<%=bookid%>">
  <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#D6DBF7">
    <tr> 
      <td align="center" background="../admin/images/bg_3.gif" height="25" colspan="4"><b><font color="#ffffff">商品修改</font></b></td>
    </tr>
    <%
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from shjia where username='"&request.cookies("days6")("shjianame")&"' ",conn,1,1
	%>
    <%dim count
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_Nclass order by Nclassidorder ",conn,1,1%>
    <script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
   count = 0
   do while not rs.eof 
%>
subcat[<%=count%>] = new Array("<%= trim(rs("Nclass"))%>","<%= rs("anclassid")%>","<%= rs("Nclassid")%>");
<%
	count = count + 1
	rs.movenext
	loop
	rs.close
%>
		
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.myform.Nclassid.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { //这句不是很理解
             document.myform.Nclassid.options[document.myform.Nclassid.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
</script>
    <tr> 
      <td width="20%" bgcolor="#D6DBF7" align="center"> 选择分类： </td>
      <td width="80%" bgcolor="#D6DBF7"> 
        <%
	set rs1=server.CreateObject("adodb.recordset")
	rs1.open "select * from shop_books where bookid="&bookid,conn,1,1

    rs.open "select * from shop_anclass order by anclassidorder",conn,1,1
	if rs.eof and rs.bof then
	response.write "请先添加栏目。"
	response.end
	else
%>
        <select class="wenbenkuang" name="anclassid" size="1" id="anclassid" onChange="changelocation(document.myform.anclassid.options[document.myform.anclassid.selectedIndex].value)">
          <% 
        do while not rs.eof
%>
          <option value="<%=rs("anclassid")%>" <%if rs1("anclassid")=rs("anclassid") then%>selected<%end if%>><%=trim(rs("anclass"))%></option>
          <%
        rs.movenext
        loop
		end if
        rs.close
%>
        </select>
        小类： 
        <select class="wenbenkuang" name="Nclassid">
          <%rs.open "select * from shop_Nclass where anclassid="&rs1("anclassid") ,conn,1,1
		do while not rs.eof%>
          <option value="<%=rs("NclassID")%>" <%if rs1("nclassid")=rs("nclassid") then%>selected<%end if%>><%=rs("Nclass")%></option>
          <% rs.movenext
			loop
			rs.close
			set rs = nothing
			%>
        </select>
      </td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7" align="center"> 
        <input type="text" name="mch" size="12" value="<%=rs1("mch")%>">
      </td>
      <td bgcolor="#D6DBF7" width="91%"> 
        <input class="wenbenkuang" name="bookname" type="text" id="bookname" size="20" value="<%=trim(rs1("bookname"))%>">
        浮动价 
        <select class="wenbenkuang" name="fudongjia" size=1>
          <%set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_fudong order by id ",conn,1,1
if rs.recordcount=0 then
response.write "请先添加浮动价"
else
while not rs.eof
%>
          <option value=<%=rs("id")%><%if rs1("banci")=rs("id") then%> selected<%end if%>><%=rs("shuoming")%></option>
          <%
rs.movenext
wend
end if%>
        </select>
      </td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7" align="center"> 
        <input type="text" name="isbn1" size="12" value="<%=rs1("isbn1")%>">
      </td>
      <td bgcolor="#D6DBF7"> 
        <input class="wenbenkuang" name="pingpai" type="text" id="pingpai" size="20" value="<%=trim(rs1("pingpai"))%>">
      </td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7" align="center"> 
        <input type="text" name="jj" size="12" value="<%=rs1("jj")%>">
      </td>
      <td bgcolor="#D6DBF7"> 
        <input class="wenbenkuang" name="bookchuban" type="text" id="bookchuban" size="5" value="<%=trim(rs1("bookchuban"))%>">
        <%
set rs=server.createobject("adodb.recordset")
rs.open "select * from danwei order by danweiorder ",conn,1,1
%>
        <select class="wenbenkuang" name="select" onchange="(document.myform.bookchuban.value=this.options[this.selectedIndex].value)">
          <option selected>请选择单位</option>
          <%
while not rs.eof
%>
          <option value="<%=rs("danweiname")%>"><%=rs("danweiname")%></option>
          <%
rs.movenext
wend
rs.close
set rs=nothing
%>
        </select>
      </td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7" align="center"> 
        <input type="text" name="jg" size="12" value="<%=rs1("jg")%>">
      </td>
      <td bgcolor="#D6DBF7">市场价￥ 
        <input class="wenbenkuang" name="shichangjia" type="text" id="shichangjia" size="5" onKeyPress	= "return regInput(this,	/^\d*\.?\d{0,2}$/,		String.fromCharCode(event.keyCode))" 
		onpaste		= "return regInput(this,	/^\d*\.?\d{0,2}$/,		window.clipboardData.getData('Text'))"
		ondrop		= "return regInput(this,	/^\d*\.?\d{0,2}$/,		event.dataTransfer.getData('Text'))" value="<%=rs1("shichangjia")%>">
        会员价￥ 
        <input class="wenbenkuang" name="huiyuanjia" type="text" id="huiyuanjia" size="5" onKeyPress	= "return regInput(this,	/^\d*\.?\d{0,2}$/,		String.fromCharCode(event.keyCode))" 
		onpaste		= "return regInput(this,	/^\d*\.?\d{0,2}$/,		window.clipboardData.getData('Text'))"
		ondrop		= "return regInput(this,	/^\d*\.?\d{0,2}$/,		event.dataTransfer.getData('Text'))" value="<%=rs1("huiyuanjia")%>">
        VIP 价￥ 
        <input class="wenbenkuang" name="vipjia" type="text" id="vipjia" size="5" onKeyPress	= "return regInput(this,	/^\d*\.?\d{0,2}$/,		String.fromCharCode(event.keyCode))" 
		onpaste		= "return regInput(this,	/^\d*\.?\d{0,2}$/,		window.clipboardData.getData('Text'))"
		ondrop		= "return regInput(this,	/^\d*\.?\d{0,2}$/,		event.dataTransfer.getData('Text'))" value="<%=rs1("vipjia")%>">
        元</td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7" align="center"> 
        <input type="text" name="zl" size="12" value="<%=rs1("zl")%>">
      </td>
      <td bgcolor="#D6DBF7">库存数： 
        <input class="wenbenkuang" name="kucun" type="text" id="kucun" value="<%=rs1("kucun")%>" size="5" 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'))" >
        已销售： 
        <input class="wenbenkuang" name="chengjiaocount" type="text" id="chengjiaocount" value="<%=rs1("chengjiaocount")%>" size="5" 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'))" readonly>
        送积分： 
        <input class="wenbenkuang" name="yeshu" type="text" id="yeshu" value="<%=rs1("yeshu")%>" size="5" 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 bgcolor="#D6DBF7" align="center"> 
        <input type="text" name="tp" size="12" value="<%=rs1("tp")%>">
      </td>
      <td bgcolor="#D6DBF7"> 
        <input class="wenbenkuang" name="bookpic" type="text" id="bookpic" size="20" value="<%=trim(rs1("bookpic"))%>">
        <input class="go-wenbenkuang" type="button" name="Submit2" value="上传小图片" onClick="window.open('../upload_flash.asp?formname=myform&editname=bookpic&uppath=bookpic&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
      </td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7"></td>
      <td bgcolor="#D6DBF7"> 
        <input class="wenbenkuang" name="zhuang" type="text" id="zhuang" size="20" value="<%=trim(rs1("zhuang"))%>">
        <input class="go-wenbenkuang" type="button" name="Submit2" value="上传大图片" onClick="window.open('../upload_flash.asp?formname=myform&editname=zhuang&uppath=bookpic&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
      </td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7" align="center"> 
        <input type="text" name="nr" size="12" value="<%=rs1("nr")%>">
      </td>
      <td bgcolor="#D6DBF7"> 
        <textarea class="wenbenkuang" name="bookcontent" cols="50" rows="10" id="bookcontent"><%=trim(rs1("bookcontent"))%></textarea>
      </td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7"></td>
      <td bgcolor="#D6DBF7"> 
        <input name="newsbook" type="checkbox" id="bestbook" value="1" <%if rs1("shjianewsbook")=1 then%>checked<%end if%> >
        新品　 
        <input name="bestbook" type="checkbox" id="bestbook" value="1" <%if rs1("shjiabestbook")=1 then%>checked<%end if%>>
        推荐　 
        <input name="tejiabook" type="checkbox" id="bestbook" value="1" <%if rs1("shjiatejiabook")=1 then%>checked<%end if%>>
        特价 </td>
    </tr>
    <tr> 
      <%rs1.close
set rs1=nothing%>
      <td bgcolor="#D6DBF7"></td>
      <td bgcolor="#D6DBF7"> 
        <input class="go-wenbenkuang" onClick="return checkkkk();" type="submit" name="Submit" value=" 修改保存 ">
        <input class="go-wenbenkuang" onclick="ClearReset()" type=reset name="Clear" value=" 重新填写 ">
      </td>
    </tr>
  </table>
</form>
<%
end sub


sub myziliao()
if request.cookies("days6")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<script language=JavaScript>
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function checkuserinfo()
{
 if(document.userinfo.useremail.value.length!=0)
  {
    if (document.userinfo.useremail.value.charAt(0)=="." ||        
         document.userinfo.useremail.value.charAt(0)=="@"||       
         document.userinfo.useremail.value.indexOf('@', 0) == -1 || 
         document.userinfo.useremail.value.indexOf('.', 0) == -1 || 
         document.userinfo.useremail.value.lastIndexOf("@")==document.userinfo.useremail.value.length-1 || 
         document.userinfo.useremail.value.lastIndexOf(".")==document.userinfo.useremail.value.length-1)
     {
      alert("Email地址格式不正确！");
      document.userinfo.useremail.focus();
      return false;
      }
   }
 else
  {
   alert("Email不能为空！");
   document.userinfo.useremail.focus();
   return false;
   }
     
  if(checkspace(document.userinfo.dz.value)) {
	document.userinfo.dz.focus();
    alert("对不起，请填写您的详细地址！");
	return false;
  }
  if(checkspace(document.userinfo.pc.value)) {
	document.userinfo.pc.focus();
    alert("对不起，请填写邮编！");
	return false;
  }
  if(document.userinfo.pc.value.length!=6) {
	document.userinfo.pc.focus();
    alert("对不起，请正确填写邮编！");
	return false;
  } 
    if(checkspace(document.userinfo.tel.value)) {
	document.userinfo.tel.focus();
    alert("对不起，请留下您的联系电话！");
	return false;
  }
}
</script>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shjia] where username='"&request.cookies("days6")("shjianame")&"' ",conn,1,1
%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#D6DBF7">
  <tr> 
    <td align="center" background="../admin/images/bg_3.gif" height="25" colspan="4"><b><font color="#ffffff">商店信息修改</font></b></td>
  </tr>
  <form name="userinfo" method="post" action="saveshjiainfo.asp?action=myziliao">
    <tr bgcolor="#D6DBF7"> 
      <td width="30%" align="right">商店名称：</td>
      <td width="70%"><font color=red><%=trim(rs("name"))%>您的商店将于<%=trim(rs("endtime"))%>到期</font></td>
    </tr>
    <tr bgcolor="#D6DBF7"> 
      <td align="right">负责人姓名：</td>
      <td> 
        <input class="wenbenkuang" name="name2" type="text" id="name" maxlength="10" value="<%=trim(rs("name2"))%>">
        <font color="#FF0000">**</font></td>
    </tr>
    <tr bgcolor="#D6DBF7"> 
      <td align="right">电子邮件：</td>
      <td> 
        <input class="wenbenkuang" name=useremail type="text" id="useremail" size="30" maxlength="40" value="<%=trim(rs("useremail"))%>">
        <font color="#FF0000">**</font></td>
    </tr>
    <tr bgcolor="#D6DBF7"> 
      <td align="right">详细地址：</td>
      <td> 
        <input class="wenbenkuang" name=dz type=text size="30" maxlength="40" value="<%=trim(rs("dz"))%>">
        <font color="#FF0000">**</font> </td>
    </tr>
    <tr bgcolor="#D6DBF7"> 
      <td align="right">联系电话：</td>
      <td > 
        <input class="wenbenkuang" name=tel type=text value="<%=trim(rs("tel"))%>" size="12">
        <font color="#FF0000">**</font> </td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7" align="right">邮政编码：</td>
      <td bgcolor="#D6DBF7"> 
        <input class="wenbenkuang" name=pc type=text  value="<%=trim(rs("pc"))%>" ONKEYPRESS="event.returnValue=IsDigit();" size="12">
        <font color="#FF0000">**</font></td>
    </tr>
    <tr bgcolor="#D6DBF7"> 
      <td align="right">QQ号码： </td>
      <td> 
        <input class="wenbenkuang" name=QQ type=text  value="<%=trim(rs("oicq"))%>" size="12" maxlength="12">
      </td>
    </tr>
    <tr bgcolor="#D6DBF7"> 
      <td></td>
      <td> 
        <input class="go-wenbenkuang" onclick='return checkuserinfo();' type="submit" name="Submit2" value=OK！确定修改>
      </td>
    </tr>
  </form>
</table>
<%rs.close
set rs=nothing
end sub

sub url()
if request.cookies("days6")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shjia] where username='"&request.cookies("days6")("shjianame")&"' ",conn,1,1
%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#D6DBF7">
  <form name="newsinfo" method="post" action="saveshjiainfo.asp?action=url">
    <tr> 
      <td align="center" background="../admin/images/bg_3.gif" height="25" colspan="4"><b><font color="#ffffff">修改商家二级域名</font></b></td>
    </tr>
    <tr> 
      <td width="30%" bgcolor="#D6DBF7" align="right">商家二级域名：</td>
      <td width="70%" bgcolor="#D6DBF7"> http:// 
        <input class="wenbenkuang" name=url type=text id=url value="<%=trim(rs("url"))%>" size="23">
        <input name="按钮" type="button" class="go-wenbenkuang" value="我要去申请二级域名" onclick="window.location='index.asp'" >
      </td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7"></td>