admin_inc.asp

1、下载亿博购物系统 亿博购物系统每次发布最新版本

<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">
<input class="go-wenbenkuang" type="button" name="Submit2" value="<- 返回管理" onclick="javascript:history.go(-1)">　
<input class="go-wenbenkuang" type="submit" name="Submit" value="OK,下一步->" onclick='return checkkk();'>
</td>
</tr>
</table>
</form>


<%
end sub

sub addshp()
if request.cookies("godbook")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>