pmcjck.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="196"><font color="#FF0000" size="1" face="幼圆">商品名称</font></td>
          <td width="240"><font color="#FF0000" size="1" face="幼圆">当前价格</font></td>
          <td width="216"><font color="#FF0000" size="1" face="幼圆">出价者ID</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 [bidpm] where pdtid='"&request("pdtid")&"';"
	'response.write sql
	
	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
	session("pdtid")=rs("pdtid")	
%>
        <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("bidprice")%></font></td>
          <td><a href="owner3.asp?userid=<%=rs("userid")%>">
			<font size="1" face="幼圆" color="#FF0000"><%=rs("userid")%></font></td>
          <td>　</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="3">
<font face="幼圆"><font size="1" 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
%>
   		  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</font>

<font color="#FF0000"><a href="pmcj.asp?pdtid=<%=session("pdtid")%>"><font color="#FF0000">
<span style="text-decoration: none"><font size="1">返回&gt;&gt;</font></span></font></a></font></font></td>

		  </form>
        </tr>
      </table>
		</td>
	</tr>
</table>