shjia_inc.asp

商业网站开发有源代码可以运行

<%set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shjia where username='"&request.cookies("songxf")("shjianame")&"' ",conn,1,1
id=rs_s("shjiaid")
sub mydindan()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%> 
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>                            
    <td width="55%"> <font color="#FF6600">我 的 订 单</font></td>
    <td width="45%"> 
                              <div align="right"> 
                                <select name="zhuangtai" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
                                  <option value="shjia.asp?action=mydindan&zhuangtai=0" selected>--请选择查讯状态--</option>
                                  <option value="shjia.asp?action=mydindan&zhuangtai=0" >全部订单状态</option>
                                  <option value="shjia.asp?action=mydindan&zhuangtai=1" >未作任何处理</option>
                                  <option value="shjia.asp?action=mydindan&zhuangtai=2" >用户已经划出款</option>
                                  <option value="shjia.asp?action=mydindan&zhuangtai=3" >服务商已经收到款</option>
                                  <option value="shjia.asp?action=mydindan&zhuangtai=4" >服务商已经发货</option>
                                  <option value="shjia.asp?action=mydindan&zhuangtai=5" >用户已经收到货</option>
                                </select>
                              </div>
      </td>
   </tr>
</table>
                            
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFCC00">
  <tr> 
    <td bgcolor="#FFECA2"> 
      <div align="center"><font color="#666666">订单号</font></div>
    </td>
    <td bgcolor="#FFECA2"> 
      <div align="center"><font color="#666666">货款</font></div>
    </td>
    <td bgcolor="#FFECA2"> 
      <div align="center"><font color="#666666">费用</font></div>
    <td bgcolor="#FFECA2"> 
      <div align="center"><font color="#666666">订单状态</font></div>
    </td>
  </tr>
  <%set rs=server.CreateObject("adodb.recordset")
  dim zhuangtai
  zhuangtai=request.QueryString("zhuangtai")
  if zhuangtai=0 or zhuangtai="" then
  select case zhuangtai
  case "0"
  rs.open "select distinct(dingdan),userid,userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,shjiaid,zhuangtai from shop_action where shjiaid="&id&" and zhuangtai<6 order by actiondate desc",conn,1,1
  case ""
  rs.open "select distinct(dingdan),userid,userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,shjiaid,zhuangtai from shop_action where shjiaid="&id&" and zhuangtai<6 order by actiondate desc",conn,1,1
  end select
  else
  rs.open "select distinct(dingdan),userid,userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,shjiaid,zhuangtai from shop_action where shjiaid="&id&" and zhuangtai="&zhuangtai&" order by actiondate",conn,1,1
  end if

  do while not rs.eof
  dim songxf,username
		  set songxf=server.CreateObject("adodb.recordset")
		  songxf.open "select username from [user] where userid="&rs("userid"),conn,1,1
		  username=trim(songxf("username"))
		  songxf.close
		  set songxf=nothing
   %>
  <tr> 
    <td bgcolor="#FFFFEE"> 
      <div align="center"><a href="javascript:;" onClick="javascript:window.open('shjdingdan.asp?dan=<%=trim(rs("dingdan"))%>&sjid=<%=trim(rs("shjiaid"))%>&username=<%=username%>','','width=770,height=420,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><%=trim(rs("dingdan"))%></a></div>
    </td>
    <td bgcolor="#FFFFEE"> 
      <div align="center"> 
        <%dim rs2
	'////
	set songxf=server.CreateObject("adodb.recordset")
	songxf.open "select sum(zonger) as zonger from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
	response.write "<font color=#FF6600>"&songxf("zonger")&"元</font>"
	songxf.close
	set songxf=nothing%>
      </div>
    </td>
    <td bgcolor="#FFFFEE"> 
      <div align="center"> 
        <%
	set songxf=server.CreateObject("adodb.recordset")
	songxf.open "select feiyong from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
	response.write "<font color=#FF6600>"&songxf("feiyong")&"元</font>"
	songxf.close
	set songxf=nothing%>
      </div>
    </td>
    <td bgcolor="#FFFFEE"> 
      <div align="center"> 
        <%select case rs("zhuangtai")
	case "1"
	response.write "未作任何处理"
	case "2"
	response.write "用户已经划出款"
	case "3"
	response.write "服务商已经收到款"
	case "4"
	response.write "服务商已经发货"
	case "5"
	response.write "用户已经收到货"
	end select%>
      </div>
    </td>
  </tr>
  <%
   rs.movenext
  loop
  rs.close
  set rs=nothing%>
</table>
<%
end sub


sub glnews()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<table width=100% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
  <tr> 
    <td bgcolor=#FFFFEE height="22" colspan="4"> 
      <div align=center><font color=#FF0000>管理新闻</font></div>
    </td>
  </tr>
  <tr> 
    <td bgcolor=#FFFFEE align="center" height="22" width="8%">序号 </td>
    <td bgcolor=#FFFFEE align="center" height="22" width="48%">标题</td>
    <td bgcolor=#FFFFEE align="center" height="22" width="34%">添加时间</td>
	<td bgcolor=#FFFFEE align="center" height="22" width="10%">删除</td>
  </tr>
<%  set rs=server.CreateObject("adodb.recordset")
	rs.open "select * from news where shjiaid="&id&" order by addtime desc",conn,1,1
	if err.number<>0 then
				response.write "数据库中无数据"
	end if  
		        do while not rs.eof%>
	<tr> 
    <td bgcolor=#FFFFEE align="center"><%=rs("newsid")%> </td>
    <td bgcolor=#FFFFEE align="center"><a href=shjia.asp?action=addnews&id=<%=rs("newsid")%>&isedit=1> 
                                      <% if len(replace(trim(rs("title")),"<br>",""))>14 then
			response.write left(replace(trim(rs("title")),"<br>",""),11)&"..."
			else
			response.write replace(trim(rs("title")),"<br>","")
			end if%>
                                      </a></td>
    <td bgcolor=#FFFFEE align="center"><%=rs("addtime")%></td>
	<td bgcolor=#FFFFEE align="center"><a href="user/saveshjiainfo.asp?action=delnews&newsid=<%=rs("newsid")%>"><font color="#FF0000">删除</font></a> 
    </td>
  </tr>
  <%rs.movenext
  	loop	
	rs.close
	set rs=nothing%>	
</table>
<%
end sub


sub fk()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<table width=100% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
  <tr> 
    <td bgcolor=#FFFFEE height="22" colspan="4"> 
      <div align=center><font color=#FF0000>管理留言</font></div>
    </td>
  </tr>
  <tr> 
    <td bgcolor=#FFFFEE align="center" height="22" width="8%">序号 </td>
    <td bgcolor=#FFFFEE align="center" height="22" width="48%">留言标题</td>
    <td bgcolor=#FFFFEE align="center" height="22" width="34%">添加时间</td>
    <td bgcolor=#FFFFEE align="center" height="22" width="10%">删除</td>
  </tr>
  <%  set rs=server.CreateObject("adodb.recordset")
	rs.open "select * from shop_shjiafk where shjiaid="&id&" order by fkdate desc",conn,1,1
	if err.number<>0 then
				response.write "数据库中无数据"
	end if  
		        do while not rs.eof%>
  <tr> 
    <td bgcolor=#FFFFEE align="center"><%=rs("fkid")%> </td>
    <td bgcolor=#FFFFEE align="center"> <a href="javascript:;" onClick=javascript:window.open('user/fk_shjia.asp?id=<%=rs("fkid")%>')>
      <% if len(replace(trim(rs("fksubject")),"<br>",""))>14 then
			response.write left(replace(trim(rs("fksubject")),"<br>",""),11)&"..."
			else
			response.write replace(trim(rs("fksubject")),"<br>","")
			end if%></a>
    </td>
    <td bgcolor=#FFFFEE align="center"><%=rs("fkdate")%></td>
    <td bgcolor=#FFFFEE align="center"><a href="user/saveshjiainfo.asp?action=delfk&fkid=<%=rs("fkid")%>"><font color="#FF0000">删除</font></a>
    </td>
  </tr>
  <%rs.movenext
  	loop	
	rs.close
	set rs=nothing%>
</table>
<%
end sub


sub modify()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
dim selectbookid
'//删除商品
selectbookid=request("selectbookid")
if selectbookid<>"" then
conn.execute "delete from shop_books where bookid in ("&selectbookid&")"
'response.Redirect "managebook.asp"
response.Write "<script language=javascript>alert('你选择的商品已删除');window.location.href='shjia.asp?action=modify';</script>"
'response.End
end if
%>
<script>
function test()
{
  if(!confirm('确认删除吗？')) return false;
}
</script>
<form name="form1" method="post" action="">
<table width=100% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
  <tr> 
    <td bgcolor=#FFFFEE height="22" colspan="4"> 
      <div align=center><font color=#FF0000>管理商品</font></div>
    </td>
  </tr>
  <tr> 
    <td bgcolor=#FFFFEE align="center" height="22" width="8%">序号 </td>
    <td bgcolor=#FFFFEE align="center" height="22" width="48%">商品名称</td>
    <td bgcolor=#FFFFEE align="center" height="22" width="34%">添加时间</td>
	<td bgcolor=#FFFFEE align="center" height="22" width="10%">删除</td>
  </tr>
<%
            set rs=server.CreateObject("adodb.recordset")
			rs.open "select * from shop_books where shjiaid="&id&" order by adddate desc",conn,1,1
		    if err.number<>0 then
				response.write "数据库中无数据"
				end if%>
				<%
		  do while not rs.eof%>
	<tr> 
    <td bgcolor=#FFFFEE align="center"><%=rs("bookid")%> </td>
    <td bgcolor=#FFFFEE align="center"><a href=shjia.asp?action=editshp&id=<%=rs("bookid")%>> 
                                      <% if len(replace(trim(rs("bookname")),"<br>",""))>14 then
			response.write left(replace(trim(rs("bookname")),"<br>",""),11)&"..."
			else
			response.write replace(trim(rs("bookname")),"<br>","")
			end if%>
                                      </a></td>
    <td bgcolor=#FFFFEE align="center"><%=rs("adddate")%></td>
	<td bgcolor=#FFFFEE align="center"><input name="selectbookid" type="checkbox" id="selectbookid" value="<%=rs("bookid")%>">                                    
    </td>
  </tr>
  <%rs.movenext
  	loop
	rs.close
	set rs=nothing%>
	<tr> 
    <td bgcolor=#FFFFEE height="22" colspan="4"> 
      <div align="right"><input type="submit" name="Submit" value="删 除" onClick="return test();"></div>
    </td>
  </tr>	
</table></form>
<%
end sub


sub addshp()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkkk()
{
     if(checkspace(document.myform.bookname.value)) {
	document.myform.bookname.focus();
    alert("请输入商品名称！");
	return false;
  }
     if(checkspace(document.myform.shichangjia.value)) {
	document.myform.shichangjia.focus();
    alert("请输入市场价格！");
	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="admin/saveaddbook.asp?action=add" OnSubmit="return checkkk()" >
<table width="100%" border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
  <tr><td bgcolor=#FFFFEE colspan="2">
      <div align="center"><font color="#FF0000">商家商品添加</font></div>
    </td>
  </tr>
  <%
set rs=server.createobject("adodb.recordset")
rs.open "select * from shjia where username='"&request.cookies("songxf")("shjianame")&"' ",conn,1,1
%>
  <tr><td bgcolor=#FFFFEE colspan="2">
      <input type="hidden" name="anclassid" size="12" value="<%=rs("anclassid")%>">
	  <input type="hidden" name="Nclassid" size="12" value="<%=rs("nclassid")%>">
<%
rs.close
set rs=nothing
%>
    </td>
  </tr>
  <tr> 
    <td bgcolor=#FFFFEE width="9%"> 
     <%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from ziduan where ziduanorder=1 ",conn,1,1
%>
                                      <input type="text" name="mch" size="7" value="<%=rs_s("ziduanname")%>">
                                      <%
rs_s.close
set rs_s=nothing
%> 
    </td>
	<td bgcolor=#FFFFEE width="91%"> 
      <input name="bookname" type="text" id="bookname" size="15">
      　浮动价 
      <select 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")%> ><%=rs("shuoming")%></option>
        <%
rs.movenext
wend
end if%>
      </select>
    </td>
  </tr>
  <tr> 
    <td bgcolor=#FFFFEE> 
      <%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from ziduan where ziduanorder=2 ",conn,1,1
%>
                                      <input type="text" name="pp" size="7" value="<%=rs_s("ziduanname")%>">
                                      <%
rs_s.close
set rs_s=nothing
%>
    </td>
    <td bgcolor=#FFFFEE> 
      <input name="pingpai" type="text" id="pingpai" size="15">
      <%
set rs=server.createobject("adodb.recordset")
rs.open "select * from pingpai order by pingpaiorder ",conn,1,1
%>
      <select name="select" onchange="(document.myform.pingpai.value=this.options[this.selectedIndex].value)">
        <option selected>请选择品牌</option>
        <%
while not rs.eof
%>
        <option value="<%=rs("pingpainame")%>"><%=rs("pingpainame")%></option>
        <%
rs.movenext
wend
rs.close
set rs=nothing
%>
      </select>
    </td>
  </tr>
  <tr> 
    <td bgcolor=#FFFFEE> 
      <%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from ziduan where ziduanorder=3 ",conn,1,1
%>
                                      <input type="text" name="isbn1" size="7" value="<%=rs_s("ziduanname")%>">
                                      <%
rs_s.close
set rs_s=nothing
%>
    </td>
    <td bgcolor=#FFFFEE> 
      <input name="isbn" type="text" id="isbn" size="15">