reauction.asp

. 缓存处理技术

<!-- #include file="sysconfig.asp" -->
<!--#include file="checkadmin.asp" -->
<%
Call CheckAdminFlag(TempAdminFlag,3)

Dim AucID,ReAucDay
aucid=CheckStr(Trim(Request.form("id")))
reaucday=CheckStr(Trim(request.form("reaucday")))
if aucid<>"" and reaucday<>"" and request.form("act")="yes" then
  set rs = server.createobject("adodb.recordset")
  rs.open "select aucclosedate,aucended,aucnum from auctions where aucid in ("& aucid &") order by AucCloseDate",conn,1,3
  if rs.eof then
     response.write"<script language=javascript>alert('没有此找到此商品信息！');history.back(-1);</script>"
     response.end
  else
     rs("aucclosedate")=dateadd("d",reaucday,now())
     rs("aucended")="N"
     rs("aucnum")=1
     rs.update
     response.write"<script language=javascript>alert('此商品已经重新上架！');this.location.href='Search_Auction.asp';</script>"
     response.end 
  end if
  rs.close
  set rs=nothing
end if
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td width="5">&nbsp;</td>
<td align="left" valign="top">
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<form name=form1 action=reauction.asp method=post>
<tr>
<td align=center><br><br><hr width=100% noshade color="#e0e0e0">☆商品重新上架天数：
<select name=reaucday>
<option value=0>请选择</option>
<%
  For i=1 to 30
    response.write"<option value="& i &">"& i &"</option>"
  Next
%>
</select>
<input type=hidden name=id value="<%=request.form("id")%>">
<input type=hidden name=act value="yes">
<input type=submit name=submit value="重新上架确认"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>