recycle.asp

1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER /WIN9X+PWS 2. 数 据 库：Access2000

		<TD align=middle width=11%><div align="center"><%= Rs("BbsPsd") %>	</div></TD>
		<TD align=middle width=11%><div align="center">	<% if Rs("BbsShow")=True Then
		Response.write "隐 藏" 
		Else
		Response.write "显 示" 
		End if
		%></div></TD>
		<TD align=left width=10%> <p align="center"> <%= Rs("BbsPx") %>	</TD>
		</TR>
		</TABLE>
		<%
		Rs.Movenext
		Loop
		Rs.Close
		Set Rs = Nothing
	Case "OrderList"%>
<TABLE borderColor="#a4b6d7" background=images/title_sub.gif  cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
	<form method="POST" name="form1">
	<TR  height=25>
	<TD align=middle width=6%> 
      <input type=checkbox name=chkall value=on onclick=CheckAll(this.form)></TD>
	<TD width=10%> 
      <p align="center">订单号</TD>
	<TD  align=left  width="16%"> 
      <p align="center">订单状态</TD>
	<TD align=middle width=16%>产品总金额</TD>
	<TD align=middle width=16%>汇款单</TD>
	<TD align=left width=16%> 
      <p align="center">定单人</TD>
	<TD align=left width=20%> 
      <p align="center">定购时间</TD></TR>
	</TABLE>
<%	
	Sql="Select OrderRemittance,OrderAppearance,Ordersingle,OrderPerson,OrderTime,OrderUserID,OrderAllMoney From OrderList where DelThis=True"
		Set Rs = Conn.Execute(Sql)
		Do While Not Rs.Eof
		if Trim(rs("OrderRemittance"))<>"" then
		Remittance="<a target=_blank href=UpProductimg/Scan/"&rs("OrderRemittance")&">点击查看</a>"
		else
		Remittance="未上传"
		end if
		
		Select Case Rs("OrderAppearance")
		Case 0
		Appearance="订单待审"
		Case 1
		Appearance="草稿"
		Case 2
		Appearance="处理中"
		Case 3
		Appearance="已完成"
		End Select
		
		if trim(rs("OrderPerson"))<>"" Then
		TT=rs("Ordersingle")&"号定单由"&rs("OrderPerson")&"接手处理！"
		else
		TT="此定单尚未处理！"
		end if%>
		<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24">
		<TR  height=25>
		<TD align=middle width=6%> <input type="checkbox" name="TBbsID" value="<%=rs("Ordersingle")%>"></TD>
		<TD width=10%><p align="center"><a target=_blank href=OrderList.asp?Menu=ShowList&ID=<%=rs("Ordersingle")%>><%=rs("Ordersingle")%></a></TD>
		<TD  align=left  width="16%"><p align="center"><a title="点击上传发货单" href="Other.asp?menu=Hair&OrID=<%=rs("Ordersingle")%>"><%=Appearance%></a></TD>
		<TD align=middle width=16%><%=FormatCurrency(Rs("OrderAllMoney"))%></TD>
		<TD align=middle width=16%><%=Remittance%></TD>
		<TD align=left width=16%><p align="center"><a href=ShowUserInfo.asp?UsId=<%=rs("OrderUserID")%>><%=conn.execute("Select UserName_1 from UserInfo where UserID="&Rs("OrderUserID"))(0)%></a></TD>
		<TD align=left width=20%><p align="center"><%=rs("OrderTime")%></TD></TR></TABLE>
		<%Rs.Movenext
		Loop
		Rs.Close
		Set Rs = Nothing
	Case "Product_Info"
		sql="Select FunctionInfo From Functions where FunctionID Between 13 and 15"
		Set Rs = Conn.Execute(Sql)
		ProductI=Rs("FunctionInfo")
		rs.movenext
		ProductII=Rs("FunctionInfo")
		rs.movenext
		ProductIII=Rs("FunctionInfo")
		rs.close
		Set Rs = Nothing
		%>
		<table borderColor="#a4b6d7" background=images/title_sub.gif  cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse"><tr>	
			<form method="POST" name="form1"><td height="23" align="center" width="5%"><input type=checkbox name=chkall value=on onclick=CheckAll(this.form)></td>	
		<td height="23" align="center" width="6%"><p align="center">货号</td>
		<td height="23" align="center" width="17%">中文名称</td>		
		<td height="23" align="center" width="18%">英文名称</td>		
		<td height="23" align="center" width="9%"><p align="center"><%=ProductI%></td>		
		<td height="23" align="center" width="7%"><p align="center"><%=ProductII%></td>		
		<td height="23" align="center" width="8%"><p align="center"><%=ProductIII%></td>		
		<td height="23" align="center" width="10%">产品规格</td>		
		<td height="23" align="center" width="9%">产品包装</td>		
		<td height="23" align="center" width="11%">排序</td>
		</tr>
		</table>
		<%Sql="Select ProductNum,ProductID,ProductIII,ProductII,ProductI,ProductCnName,ProductEnName,ProductSf,ProductPacking,ProductArrange From Product_Info where DelThis=True"
		Set Rs = Conn.Execute(Sql)
		Do While Not Rs.Eof%>
		<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24">
		<tr>
		<td height="23" align="center" width="5%"><input type="checkbox" name="TBbsID" value="<%=rs("ProductID")%>"></td>
		<td height="23" align="center" width="6%"><p align="center"><%=rs("ProductNum")%></td>
		<td height="23" align="center" width="17%"><%=rs("ProductCnName")%></td>
		<td height="23" align="center" width="18%"><%=rs("ProductEnName")%></td>
		<td height="23" align="center" width="9%"><%=FormatCurrency(rs("ProductI"))%></td>
		<td height="23" align="center" width="7%"><%=FormatCurrency(rs("ProductII"))%></td>
		<td height="23" align="center" width="8%"><%=FormatCurrency(rs("ProductIII"))%></td>
		<td height="23" align="center" width="10%"><%=rs("ProductSf")%></td>
		<td height="23" align="center" width="9%"><%=rs("ProductPacking")%></td>
		<td height="23" align="center" width="11%"><%=rs("ProductArrange")%></td></tr>
		</table>
		<%Rs.Movenext
		Loop
		Rs.Close
		Set Rs = Nothing
	Case "Forced_sale"%>
	
	
	
	
	
	
	<%Case "UserInfo"%>
	<TABLE borderColor="#a4b6d7" background=images/title_sub.gif  cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
	<form method="POST" name="form1"><TR  height=25> 
	<TD width=11% align=middle> <p align=center><input type=checkbox name=chkall value=on onclick=CheckAll(this.form)></TD>
	<TD width=11% align=middle><div align="center">用户号</div></TD>
	<TD align=middle width=11%> <div align=center>真实姓名</div></TD>
	<TD align=middle width=13%> <div align=center>社区昵称</div></TD>
	<TD width=9% align=middle> <div align=center>性别</div></TD>
	<TD align=middle width=14%><div align=center>用户类型</div></TD>
	<TD align=middle width=9%><div align="center">金钱</div></TD>
	<TD align=middle width=22%><div align=center>上次登陆时间</div></TD>
	</TR>
	</TABLE>
	<%	Sql="Select UserID,UserSex,UserGrade,UserName_1,UserName_2,UserMoney,UserLastT From UserInfo where DelThis=True"
		'Rs.Open Sql,Conn,1
		Set Rs = Conn.Execute(Sql)
		Do While Not Rs.Eof
				if Rs("UserSex")=False Then
				Sex="女"
				Else
				Sex="男"
				End if
				Select case rs("UserGrade")
					case 0,1
					Uleve="普通用户"
					case 2
					Uleve="VIP会员"
					case 3
					Uleve="社区管理员"
					case 4
					Uleve="商城管理员"
					case 5
					Uleve="总管理员"
					case 6
					Uleve="商城站长"
				End Select
				%>
		<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24">
		<TR  height=25> 
		<TD width=11% align=middle> <p align=center><input type="checkbox" name="TBbsID" value="<%=rs("UserID")%>"></TD>
		<TD width=11% align=middle><div align="center"><%= Rs("UserID") %></div></TD>
		<TD align=middle width=11%> <div align=center><%= Rs("UserName_1") %></div></TD>
		<TD align=middle width=13%> <div align=center><%= Rs("UserName_2") %></div></TD>
		<TD width=9% align=middle> <div align=center><%= sex %></div></TD>
		<TD align=middle width=14%><div align=center><%= Uleve %></div></TD>
		<TD align=middle width=9%><div align="center"><font color="#FF3300"><%= Rs("UserMoney") %></font></div></TD>
		<TD align=middle width=22%><div align=center><%= Rs("UserLastT") %></div></TD>
		</TR>
		</TABLE>
	<%
		Rs.Movenext
		Loop
		Case Else
	Error 1,"参数非法传递！\n 您的IP已被记录！",""
	End Select
	Response.write "<input type=submit value=删除 onclick=checkclick('删除以后将无法恢复.\n确定请继续，否则请按取消！') name=B1>&nbsp;<input type=submit value=还原 name=B1></form>"
Case Else
	Error 1,"参数非法传递！\n 您的IP已被记录！",""
End Select
htmlend%>


<%Sub Tab(Msg1,Msg2)%>
	<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
	<tr><td height="25" background=images/title_sub.gif style="border-right: 0px none; border-top: 0px none"> 
	<b>&nbsp;■ </b><%= Msg1 %></td>
	</tr></table>
	<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
	<TR> 
	<TD  height=12 width="75%" >&nbsp;<img src="images/2.gif" width="60" height="9"><%= Msg2 %></TD>
	</TR></TABLE>
<%End Sub

Sub NextPage(BbsI,AllPage)
if AllPage > 15 Then
a=1
Response.write "（<img src=images/multipage.gif> "
For i=i to AllPage Step 15
Response.write "<a href=BbsShow.asp?Menu=Show&BbsId="&BbsI&"&Bbs="&BbsID&"&page="&a&"><b>"&a&"</b></a> "
a=a+1
Next
Response.write "）"
End if
End Sub
%>