forcedlist.asp

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

<!-- #include file="setup.asp" -->
<!--#include file="inc/Pagination.asp"-->
<%

Call Top
Call table
Response.Write("<style><!--	TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}--></style><br>")	%>
		<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse" ID="Table1">
		<TR><TD height=25 valign="middle" background=images/title_sub.gif> <p align="left"> ■  您现在的位置：<%=Community%> --> 商城拍卖区　　</TD>
		</TR>
		</TABLE>
		<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse" ID="Table2">
		<TR> 
		<TD  height=12 width="100%" >
		<table  cellSpacing="0" cellPadding="0" width=100% align="center" border="0" ID="Table3">
		<tr> 
			<form name="form1" method="post" action="ForcedList.asp?menu=Search" ID="Form2"><td align="left" width="65%">&nbsp;
			<select name="Class">
			<option selected value=Forced_Title>拍卖标题</option>
			<option value=Forced_ProName>拍卖产品</option>
			<option value=Forced_info>拍卖说明</option>
			<option value=Forced_SendUs>拍卖用户</option>
			</select>
			<input name="key" type="text" size="20" maxlength="20" ID="Text2">
			<input type="submit" name="Submit" value="搜索" ID="Submit1">

		</td></form>
		<td align="right" width="35%"><a href=AddForced.asp?Menu=add><img src=images/fb.gif border=0> 拍卖产品</a>
		</td>
		</tr>
		</table>
		
		</TD>
		</TR></TABLE>
		
		<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="1" width="100%" align="center" border="1" ID="Table4">
		<tr bgColor="#c4d4e5" height="25"> 
		<td background=images/title_sub.gif width="14%" align="center">图片</td>
		<td background=images/title_sub.gif width="44%" align="center">标题</td>
		<td background=images/title_sub.gif width="7%" align="center">现价</td>
		<td background=images/title_sub.gif width="9%" align="center">一口价</td>
		<td background=images/title_sub.gif width="6%" align="center">卖家</td>
		<td background=images/title_sub.gif width="6%" align="center">竞标数</td>
		</tr></table>
		
		
		
<%
Menu=Request.QueryString("menu")
key=Request("key")
SSort=Request("Class")
Set rs = Server.CreateObject("ADODB.Recordset")
Select Case Menu
	Case ""
		Sql="Select Forced_ID,Forced_Now,Forced_Conceal,Forced_SendUs,Forced_Title,Forced_Buy,Forced_DiQu,Forced_OK,Forced_OvTime,Forced_Simg,Forced_Bimg From Forced_sale where int(Forced_Conceal)>0 and DateDiff('d',Forced_OvTime,Now) <= 0 and delthis=false Order by Forced_AddTime Desc,Forced_ID"
		link="Menu="&Request("menu")
	Case "Search"
		'if SSort="Forced_SendUs" Then validate "Login.asp",0
		if Key="" Then Error 2,"请输入关键字!",""
		link="Menu="&Request("menu")&"&key="&key&"&Class="&SSort
		Sql="Select Forced_ID,Forced_Now,Forced_Conceal,Forced_SendUs,Forced_Title,Forced_Buy,Forced_DiQu,Forced_OK,Forced_OvTime,Forced_Simg,Forced_Bimg From Forced_sale where int(Forced_Conceal)>0 and DateDiff('d',Forced_OvTime,Now) <= 0 and delthis=false and "&SSort&" like '%"&key&"%' Order by Forced_AddTime Desc,Forced_ID"
	Case "My"
		key=Request.Cookies("Username")
		if Key="" Then Error 2,"请先登录!!",""
		Sql="Select Forced_ID,Forced_Now,Forced_Conceal,Forced_SendUs,Forced_Title,Forced_Buy,Forced_DiQu,Forced_OK,Forced_OvTime,Forced_Simg,Forced_Bimg From Forced_sale where int(Forced_Conceal)>0 and delthis=false and Forced_SendUs = '"&key&"' Order by Forced_AddTime Desc,Forced_ID"
	Case Else
	Error 1,"参数非法传递！",""
End Select
'Response.Write Sql
'Response.End
rs.open sql,conn,1,1
rs.pagesize=20

page=Cint(Request.QueryString("page"))
if page = "" Then page = 1
if page < 1 then page=1
if int(page) > rs.pagecount then page=rs.pagecount
num=rs.recordcount
maxpage=rs.pagecount
i=1
if rs.eof then
writeln "<center><br>尚无等待拍卖之产品！</center>"
else
showonepage rs,page,i
end if

rs.close%>

	<table width="100%" border="0" cellspacing="0" align="center" ID="Table7"><tr>
	<td><strong>本类别共有 <font color="#CC3300"> <%= maxpage %> </font>页 [ <% Npage page,maxpage,link %>]</strong></td>
	<form ID="Form1"><td><div align="right">跳转到第 <input type="text" name="pagel" size="2" maxlength=3 value=<%=page%> ID="Text1"> 页 <input name="go" type="button"  value="GO!" Onclick=javascript:location.href='?Menu=<%= Request("menu") %>&page='+form.pagel.value;>
	</div></td></form></tr></table>
	
<%sub showonepage(rs,page,i)
	rs.absolutepage=int(page)
	For ipage=1 to rs.pagesize
	rsToGbook rs,ipage,i
	rs.MoveNext
	if rs.EOF Then Exit For
	i=i+1
	Next
end sub
		
sub RsToGbook(rs,ipage,i)
if DateDiff("d",Rs("Forced_OvTime"),Now()) > 0 Then MM = "<font color=#ff0000>[过期信息]</font>"
if Trim(Rs("Forced_Conceal"))>1 Then DD = "<font color=#ff0000>[交易完成]</font>"

if Rs("Forced_Simg")="" Then
	img1="缺"
else
	img1="<a href=UpProductimg/B/"&Rs("Forced_Bimg")&" target=_blank><img src=UpProductimg/S/"&Rs("Forced_Simg")&" border=0 onload='javascript:if(this.width>80){this.width=80};'></a>"
end if
%>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="1" width="100%" align="center" border="1" ID="Table5">
	<tr height="25"> 
	<td vAlign="center" width="14%" align="center"><%=img1%></td>
	<td vAlign="center" width="44%" align="center" onmouseover="this.style.backgroundColor='#ECF5FF'" onmouseout="this.style.backgroundColor=''"><table cellSpacing="0" cellPadding="3" width="100%" border="0" ID="Table6">
    <tr><td colspan="2" height=67 valign=top><%=DD%> <%=MM%> <a href=ForCedShow.asp?ShowID=<%=Rs("Forced_ID")%>><%=Rs("Forced_Title")%></a></td></tr>
    <tr><td width="45%" bgcolor="#ECF5FF"> <font color="#999999">商品所在:</font> <%=Rs("Forced_DiQu")%></td>
    <td width="55%" bgcolor="#ECF5FF"><font color=999999>结束日期:</font><%=Rs("Forced_OvTime")%></td></tr>
    </table></td>
	<td vAlign="center" width="7%" align="center"><%=FormatCurrency(Rs("Forced_Now"))%> </td>
	<td vAlign="center" width="9%" align="center"><%=FormatCurrency(Rs("Forced_OK"))%></td>
	<td vAlign="center" width="6%" align="center"><%=Rs("Forced_SendUs")%></td>
	<td width="6%" align="center" vAlign="center"><%=Rs("Forced_Buy")%></td>
	</tr></table>
<%end sub
htmlend%>