mypbyc.asp

本网上拍卖系统选用ASP + SQL Server进行开发, 是一个基于Brower/ Server (浏览器/ 服务器) 并采用C2C (Customer to Customer 即个人——个人)运

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table border="0" width="675" height="510" id="table1">
	<tr>
		<td bgcolor="#C0C0C0" align="center" valign="top"> 
      <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="799AE1" id="table2">
        <tr height="20" bgcolor="#FFFFFF" align="center"> 
          <td width="16%"><font color="#FF0000" size="1" face="幼圆">商品名称</font></td>
          <td width="35%"><div align="center">
			<font color="#FF0000" size="1" face="幼圆">商品描述</font></div></td>
          <td width="11%"><font color="#FF0000" size="1" face="幼圆">商品价格</font></td>
          <td width="10%"><font color="#FF0000" size="1" face="幼圆">商品数量</font></td>
          <td width="11%"><font color="#FF0000" size="1" face="幼圆">商品新旧</font></td>
          
          <td width="12%"><font color="#FF0000" size="1" face="幼圆">联系卖家</font></td>
          
        </tr>
<%
SqlDatabaseName = "paimai"            			      '数据库名
SqlUsername = "sa"                                    '用户名
SqlPassword = " "                                      '用户密码
Dim Conn,ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & ";"
Conn.Open ConnStr
     
	sql="select * from [bidykj] where userid='"&session("userid")&"';"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,1	'以写入方式打开
if rs.eof and rs.bof then
	Response.Write "<p align='center' class='contents'> 对不起，您还没有购买任何宝贝！</p>"
else
	rs.pagesize=10
	'SafeRequest(request("page"))
	page=clng(request("page"))
	if page<1 then page=1
	if page>rs.pagecount then page=rs.pagecount
	show rs,page
	sub show(rs,page)
	rs.absolutepage=page
	for i=1 to rs.pagesize
		
%>
        <tr height="20" bgcolor="#FFFFFF" align="center">
          <td><font size="1" face="幼圆" color="#FF0000"><%=rs("pdtname")%></a></font></td>
          <td><font size="1" face="幼圆" color="#FF0000"><%=rs("pdtdesc")%></font></td>
          <td><font size="1" color="#FF0000" face="幼圆"><%=rs("bidprice")%>元</font></td>
          <td><font size="1" color="#FF0000" face="幼圆"><%=rs("bidamount")%>个</font></td>
          <td><font size="1" face="幼圆" color="#FF0000"><%=rs("pdtoldnew")%></font></td>
          
          <td><a href="owner2.asp?pdtowner=<%=rs("pdtowner")%>">
			<font size="1" face="幼圆" color="#FF0000"><%=rs("pdtowner")%></font></td>

          
          <td width="1%">　</td>
        </tr>
<%
	rs.movenext
	if rs.eof then exit for
	next
	end sub
%>
        <tr height="20" bgcolor="#FFFFFF" align="center">
		<form name="form" action="?" method="get">
          <td colspan="7">
<font size="1" face="幼圆" color="#FF0000">
<%	
	if page<>1 then
		response.Write("&nbsp;&nbsp;<a href="&path&"?page=1>第一页</a>")
		response.Write("&nbsp;&nbsp;<a href="&path&"?page="&(page-1)&" >上一页</a>")
	end if 
	response.Write("&nbsp;&nbsp;当前 <font color='#FF0000'>"&page&"</font> 页")
	response.Write("&nbsp;&nbsp;共<font color='#FF0000'>"&rs.recordcount&"</font>条/<font color='#FF0000'>"&rs.pagecount&"</font> 页")
	if page<>rs.pagecount then
		response.Write("&nbsp;&nbsp;<a href="&path&"?page="&(page+1)&">下一页</a>")
		response.Write("&nbsp;&nbsp;<a href="&path&"?page="&rs.pagecount&">最末页</a>")
	end if
	'response.Write("&nbsp;&nbsp;跳转到<input type='text' size='2' name='page'>页<input type='submit' value='GO'>")
end if
rs.close
set rs=nothing
%>
   		  </font>
   		  </td>
		  </form>
        </tr>
      </table>
		</td>
		 
	</tr>
	 
</table>