admin_inc.asp

php 语言写的c2c商城网站程序

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shjia where username='"&request.cookies("godbook")("shjianame")&"' ",conn,1,1
id=rs_s("shjiaid")
sub mydindan()
if request.cookies("godbook")("shjianame")="" then
response.Redirect "admin_index.asp"
response.End
end if
%>
<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> 
<tr> <td width="50%" align="right" colspan="4" bgcolor="#D6DBF7"> <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> </td></tr> <tr bgcolor="#D6DBF7" align="center"> <td>订单号</td><td>货 款</td><td>费 
用</td><td>订单状态</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 godbook,username
		  set godbook=server.CreateObject("adodb.recordset")
		  godbook.open "select username from [user] where userid="&rs("userid"),conn,1,1
		  username=trim(godbook("username"))
		  godbook.close
		  set godbook=nothing
   %> <tr bgcolor="#D6DBF7" align="center"> <td> <a href="admin_ding.asp?dan=<%=trim(rs("dingdan"))%>&sjid=<%=trim(rs("shjiaid"))%>&username=<%=username%>" target="_blank"><%=trim(rs("dingdan"))%></a> 
</td><td> <%dim rs2
	set godbook=server.CreateObject("adodb.recordset")
	godbook.open "select sum(zonger) as zonger from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
	response.write "<font color=#FF6600>"&godbook("zonger")&"元</font>"
	godbook.close
	set godbook=nothing%> </td><td> <%
	set godbook=server.CreateObject("adodb.recordset")
	godbook.open "select feiyong from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
	response.write "<font color=#FF6600>"&godbook("feiyong")&"元</font>"
	godbook.close
	set godbook=nothing%> </td><td> <%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%> </td></tr> <%
	rs.movenext
	loop
	rs.close
	set rs=nothing%> </table><%
end sub


sub glnews()
if request.cookies("godbook")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%> <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> 
<tr bgcolor="#D6DBF7" align="center"> <td width="10%">序号 </td><td width="50%">新闻标题</td><td width="30%">添加时间</td><td 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 bgcolor="#D6DBF7"> <td align="center"><%=rs("newsid")%> </td><td STYLE='PADDING-LEFT: 10px'><a href=admin_right.asp?action=addnews&id=<%=rs("newsid")%>&isedit=1> 
<% if len(replace(trim(rs("title")),"<br>",""))>25 then
			response.write left(replace(trim(rs("title")),"<br>",""),23)&".."
			else
			response.write replace(trim(rs("title")),"<br>","")
			end if%></a></td><td align="center"><%=rs("addtime")%></td><td align="center"><a href="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("godbook")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%> <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> 
<tr bgcolor="#D6DBF7" align="center"> <td width="10%">序号 </td><td width="50%">留言标题</td><td width="30%">添加时间</td><td 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 bgcolor="#D6DBF7"> <td align="center"><%=rs("fkid")%> 
</td><td STYLE='PADDING-LEFT: 10px'><a href="javascript:;" onClick=javascript:window.open('admin_fk.asp?id=<%=rs("fkid")%>')> 
<% if len(replace(trim(rs("fksubject")),"<br>",""))>25 then
	response.write left(replace(trim(rs("fksubject")),"<br>",""),23)&".."
	else
	response.write replace(trim(rs("fksubject")),"<br>","")
	end if%></a> </td><td align="center"><%=rs("fkdate")%></td><td align="center"><a href="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("godbook")("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='admin_right.asp?action=modify';</script>"
'response.End
end if
%> <script>
function test()
{
  if(!confirm('确认删除吗？')) return false;
}
</script> <form name="form1" method="post" action=""> <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> 
<tr bgcolor="#D6DBF7" align="center"> <td width="10%">序号 </td><td width="50%">商品名称</td><td width="30%">添加时间</td><td 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 bgcolor="#D6DBF7"> <td align="center"><%=rs("bookid")%></td><td STYLE='PADDING-LEFT: 10px'><a href=admin_right.asp?action=editshp&id=<%=rs("bookid")%>> 
<% if len(replace(trim(rs("bookname")),"<br>",""))>25 then
			response.write left(replace(trim(rs("bookname")),"<br>",""),23)&".."
			else
			response.write replace(trim(rs("bookname")),"<br>","")
			end if%></a></td><td align="center"><%=rs("adddate")%></td><td 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="#D6DBF7" colspan="4" align="right"> 
<input type="submit" name="Submit" value="删 除" onClick="return test();"> </td></tr>	
</table></form><%
end sub

sub addclass()
if request.cookies("godbook")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%> <form name="myform" method="post" action="admin_right.asp?action=addshp" OnSubmit="checkkk"> 
<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("godbook")("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="100%" align="center" bgcolor="#D6DBF7"> <%
	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=10 style='width:200px' id="anclassid" onChange="changelocation(document.myform.anclassid.options[document.myform.anclassid.selectedIndex].value)"> 
<option selected value="<%=rs("anclassid")%>"><%=trim(rs("anclass"))%> -></option> 
<%	dim selclass
	selclass=rs("anclassid")
	rs.movenext
	do while not rs.eof
%> <option value="<%=rs("anclassid")%>"><%=trim(rs("anclass"))%> -></option> <%
	rs.movenext
	loop
	end if
	rs.close
%> </select> <img src="../images/rightarrow.gif" border="0" align="absmiddle"> 
<select class=wenbenkuang name=Nclassid size=10 style='width:200px'> <%rs.open "select * from shop_nclass where anclassid="&selclass ,conn,1,1
	if not(rs.eof and rs.bof) then
	%> <option selected value="<%=rs("NclassID")%>"><%=rs("Nclass")%> -></option> 
<% rs.movenext
	do while not rs.eof%> <option value="<%=rs("Nclassid")%>"><%=rs("Nclass")%> 
-></option> <% rs.movenext
	loop
	end if
	rs.close
	set rs = nothing
%> </select> </td></tr> <tr> <td width="100%" align="center" bgcolor="#D6DBF7">