📄 qiugou.asp

📁 实用的拍卖源码。适合个人建站学习使用。仅供学习参考
💻 ASP
字号:
<%
if qgid<>"" then
call chk(rst("qgid"),"id")
end if
%>
<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="head.asp" -->
<!--#include file="perpage.asp"-->
<html>
<head>
<TITLE><%=webname%>--首页---联系QQ:6439358，联系邮箱vqqq59r@163.com，网站www.vqqq.com，谢谢大家对我们系统的支持</title>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
</HEAD>
<BODY>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=760>
  <tr>
    <td height="5"></td>
  </tr>
</table>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=760 bgcolor=<%=bgcolor%>>
  <TBODY>
  <TR>
    <TD vAlign=top width=240>
      <!--#include file="news_left.asp"--></td>
    <TD width=2 bgcolor=<%=bgcolor%>></TD>
    <TD vAlign=top>
      <TABLE class=yellow_bg border=0 cellPadding=0 cellSpacing=1 width="100%"><TBODY>
        <TR>
          <TD bgcolor=<%=bgcolor%>>
            <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
              <TBODY>
              <TR class=yellow_bg>
                <TD colSpan=3 height=2></TD></TR>
              <TR>
                <TD class=yellow_bg width=140>&nbsp;<font class=fblack><b>查看求购信息</b></font></TD>
                <TD width=20 class=yellow_bg>
                <IMG height=22 src="images/conner.gif" width=20></TD>
                <TD align=middle vAlign=bottom class=huise_bg>&nbsp;</TD></TR>
		</TBODY></TABLE><BR>
            <TABLE align=right border=0 cellPadding=2 cellSpacing=0 width=485>
              <TBODY>
<%
	if rst("qgid")<>"" then
	set rsn=server.createobject("adodb.recordset")
	sqln="select * from qiugou where qgid="&rst("qgid")
	rsn.open sqln,conn,1,1
If rsn.eof Then
   response.write"没有可显示的求购信息"
else
set rsuser=conn.execute("select regusername from users where regid="&rsn("qgownerid"))

%>
		<tr><td width=98%>
<table cellpadding=0 cellspacing=1 width=100% align=center class=tablebg>

	<tr class=titletd><td align=center><B>标题：</b><font color=<%=rsn("qgcolor")%>><%=rsn("qgtitle")%></font></td><td align=center width=140>发布人：<a href="displayuser.asp?uid=<%=rsuser("regid")%>"><%=rsuser("regusername")%></a></tr>
	<tr class=td><td align=left colspan=2>&nbsp;&nbsp;&nbsp;&nbsp;内容：<%=rsn("qginfo")%></td></tr>
</table>
		</td></tr>
<%
 end if
 rsn.close
 set rsn=nothing
 end if %>
              <TR>
                <TD width="485">
		<table cellpadding=0 cellspacing=1 width=100% align=center class=tablebg>
		<tr><td align=left class=titletd>&nbsp;&nbsp;<font class=fred>☆<font class=fblack>以下是求购信息列表</font>☆</font></td></tr>
		<tr><td width=100% class=td>
<%

 Set mypage=new xdownpage  	 '创建对象
 mypage.getconn=conn    	 '得到数据库连接
 mypage.getsql="select * from qiugou"
 mypage.pagesize=jsperpage  	 '设置每一页的记录
 set rs_new=mypage.getrs()   	 '返回Recordset

if rs_new.eof then
 response.write"<center><font class=fred>还没有求购信息记录！</font></center>"
 response.end
else

 for i=1 to mypage.pagesize    '接下来的操作就和操作一个普通Recordset对象一样操作
  if not rs_new.eof then   '这个标记是为了防止最后一页的溢出

		response.write"<IMG height=12 src=images/star.gif width=13>&nbsp;<a href=qiugou.asp?qgid="&rs_new("qgid")&" target=_blank>"
		content=rs_new("qgtitle")
                if len(content)>20 then content=left(content,20)&"…"
                response.write "<font color="&rs_new("qgcolor")&">"&content&"</font></a><br>"
   rs_new.movenext
  else
   exit for
  end if
 next
end if
%>
		</td></tr>
<tr><td class=td><center><font class=td><% mypage.showpage() %></font></center></td></tr>
</table>
<%
	rs_new.close
	set rs_new=nothing
%>
                </TD>
                </TR>
              </TBODY></TABLE>
              </TD></TR></TBODY></TABLE></td>
</TR></TBODY></TABLE>
</CENTER>
</BODY></HTML>
<!-- #include file="bottom.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -