selling.asp

一个不错的竞价程序

<!--#include file="conn.asp" -->
<!-- #include file="inc/adovbs.inc" -->

<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%
header
'on error resume next
dim strsql,userid
userid=request.querystring("user_id")
if userid ="" then 
%>
错误的参数
<%else
sql="select * from auctions where aucItemOwner ="&userid&" and aucended='N' and aucItemOwner="&userid
set rs=conn.execute(sql)
			if rs.eof then
			response.write "该用户名不存在<br>或者该用户现在没有在卖的商品！"
			else
				response.write "该用户正在卖的商品有：<br>"
				while not rs.eof
		  
			
			
				response.write "<a href="&weburl&"viewaucid.asp?aucid="&rs("aucid")&">"&rs("aucItemTitle")&"</a><br>"
				rs.movenext
				wend 
			
			end if
		
		end if
		
 


footer
%>