forcedsale.asp

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

<!-- #include file="setup.asp" -->
<%validate "Login.asp",1
Menu=Server.HTMLEncode(Trim(Request.QueryString("Menu")))
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>")
if Request.ServerVariables("request_method")="POST" then
Send=trim(Request.Form("Send"))

Select case Send
 case "删 除"
       for each nums in request.form("Tid")
        conn.execute("update Forced_sale set DelThis=true where Forced_ID="&nums)
       next
 case "拍 卖"
		ErProN=""
       for each nums in request.form("Tid")
		conn.execute("update Forced_sale set Forced_Conceal='1' where Forced_ID="&nums)
       next
       if len(ErProN)>0 Then Error 3,"很抱歉的告诉您,由于以下商品正在拍卖中,所以您无法将其其进行隐藏!\n\n"&ErProN,"Forcedsale.asp"
  case "修 改"
		Session("Edit")=","&Replace(request.form("Tid")," ","")&","
		Response.Redirect "AddForced.asp?Menu=Edit"
  Case "隐 藏"
		ErProN=""
		for each nums in request.form("Tid")
        if Cint(Conn.Execute("Select Forced_Conceal From Forced_sale where Forced_ID="&nums)(0))=1 Then 
		ErProN=ErProN&"\t\t"&Conn.Execute("Select Forced_ProName From Forced_sale where Forced_ID="&nums)(0)&"\n"
		else
         conn.execute("update Forced_sale set Forced_Conceal='0' where Forced_ID="&nums)
		end if
		next
		if len(ErProN)>0 Then Error 3,"很抱歉的告诉您,由于以下商品正在拍卖中,所以您无法将其其进行隐藏!\n\n"&ErProN,"Forcedsale.asp"
end select
end if

%>
<script language=javascript>
function CheckAll(form){
	for (var i=0;i<form.elements.length;i++){
	var e = form.elements[i];
	if (e.name != 'chkall')e.checked = form.chkall.checked;
	}
}
function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}

</script>
<form name=f1 action=Forcedsale.asp ID="Form1" method=post>
	<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"> ■  拍卖区产品管理　　</TD>
	</TR>
	</TABLE>
	
	
	<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse" ID="Table3">
	<TR>
	<TD  height=25 width="75%" >&nbsp;<img src="images/2.gif" width="60" height="9"><a href=AddForced.asp?Menu=add><font color=#cc0000>新增</font></a>拍卖产品
	</TD>
	</TR>
	</TABLE>
	
	
	
	<table width="100%" cellspacing=0 cellpadding=4 borderColor="#a4b6d7" border="1"  height="21" style="border-collapse: collapse"  bgcolor="#DDECFF" ID="Table2">
	<tr>
    <td height="1" align="center" width="5%"><input type=checkbox name=chkall value=on onclick=CheckAll(this.form) ID="Checkbox1"></td>
    <td height="1" align="center" width="12%"> 产品</td>
    <td height="1" align="center" width="25%">拍卖标题</td>
    <td height="1" align="center" width="11%">起价/一口价</td>
    <td height="1" align="center" width="10%">当前价</td>
    <td height="1" align="center" width="10%">开始日期</td>
    <td height="1" align="center" width="9%">结束日期</td>
    <td height="1" align="center" width="6%">大图</td>
    <td height="1" align="center" width="5%">小图</td>
    <td height="1" align="center" width="7%">状态</td>
	</tr>
	</table>

<%
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="Select Forced_ID,Forced_ProName,Forced_Now,Forced_Title,Forced_Stat,Forced_OK,Forced_StTime,Forced_OvTime,Forced_Bimg,Forced_Simg,Forced_Conceal From Forced_sale where delthis=false Order by Forced_ID Desc"
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 borderColor=a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse" ID="Table4">
	<TR><TD  height=25 width="50%" >
	<input type=submit name=Send value="删 除" onclick="checkclick('您确定要将该产品信息删除到回收站吗？')"> 
	<input type=submit name=Send value="修 改"> 
	<input type=submit name=Send value="拍 卖" onclick="checkclick('您确定要开始拍卖该产品吗？\n\n注意：产品一旦进入拍卖状态，该产品信息将无法修改！')"> 
	<input type=submit name=Send value="隐 藏" > 
	</TD>
	<td align=right><%=num%>条拍卖信息,共有<%=maxpage%>页, 当前在<%=page%>页 &nbsp;跳转到第 <input type="text" name="pagel" size="2" maxlength=3 value=<%=page%> ID="Text1"> 页<input name="go" type="button"  value="GO!" Onclick=javascript:location.href='?page='+f1.pagel.value;>
	</td></TR></TABLE></form>
	
	


<%
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)
Select Case Rs("Forced_Conceal")
Case 0
	Concela="隐藏"
Case 1
	Concela="拍卖中"
Case 2
	Concela="已成交"
End Select
if Rs("Forced_Bimg")="" Then
	img="缺"
else
	img="<a href=UpProductimg/b/"&Rs("Forced_Bimg")&" target=_blank><img src=images/look.gif border=0></a>"
end if

if Rs("Forced_Simg")="" Then
	img1="缺"
else
	img1="<a href=UpProductimg/S/"&Rs("Forced_Simg")&" target=_blank><img src=images/look.gif border=0></a>"
end if
%>	<table width="100%" cellspacing=0 cellpadding=4 borderColor="#a4b6d7" border="1"  height="21" style="border-collapse: collapse" >
	<tr><td height="1" align="center" width="5%"><input type=checkbox name=Tid value=<%=Rs("Forced_ID")%>></td>
    <td height="1" align="center" width="12%"><%=Rs("Forced_ProName")%></td>
    <td height="1" align="center" width="25%"><%=Rs("Forced_Title")%></td>
    <td height="1" align="center" width="11%"><%=Rs("Forced_Stat")%>/<%=Rs("Forced_OK")%></td>
    <td height="1" align="center" width="10%"><%=Rs("Forced_Now")%></td>
    <td height="1" align="center" width="10%"><%=Rs("Forced_StTime")%></td>
    <td height="1" align="center" width="9%"><%=Rs("Forced_OvTime")%></td>
    <td height="1" align="center" width="6%"><%=img1%></td>
    <td height="1" align="center" width="5%"><%=img%></td>
    <td height="1" align="center" width="7%"><%=Concela%></td>
	</tr></table>
<%end sub
htmlend%>