📄 vqqqmoli.asp

📁 实用的拍卖源码。适合个人建站学习使用。仅供学习参考
💻 ASP
字号:
<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="inc/adovbs.inc" -->
<!-- #include file="head2.asp" -->
<!-- #include file="chksession.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%>">
<link href="images/main_style.css" rel="stylesheet" type="text/css">
<script language=javascript>alert('你现在使用的是vqqq拍卖程序2.0免费测试版，需要购买请联系QQ：6439358');</script>
<SCRIPT LANGUAGE="JavaScript" >
<!--
function check()
{
if (!confirm('你确定要购买此vqqq魔力吗，是否确认？'))
  {	return (false);
  }
document.Form1.submit();
}
-->
</SCRIPT>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 onmouseover=exitpop=false text=#000000 topMargin=0 marginheight="0" marginwidth="0">
<%
dim user
user=session("user")
%>

<table width="760" border="0" cellspacing="0" cellpadding="0" align=center>
  <tr>
    <td width="150" align="left" valign="top"> 
      <!--#include file="vqqqleft.asp" -->
    </td>
    <td width="5">&nbsp;</td>
    <td align="left" valign="top">
		<table width='100%' border=0 cellPadding=4 cellSpacing=0 id='b1'><tr><td height='10' colspan='2'></td></tr><tr>
          <td height='25' >您的位置：用户管理 〉购买道具</td>
        </tr></table>      <table width="100%" border="0" cellspacing="0" cellpadding="0" id="b1">
        <tr> 
          <td width="4" valign="top" id="bg11">&nbsp;</td>
          <td width="100" align="center" valign="bottom" id="bg11">&nbsp;</td>
          <td width="4" valign="top" id="bg11">&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td height="2" colspan="4" id="bg11"></td>
        </tr>
      </table>
	<table border=0 cellPadding=0 cellSpacing=0 width="100%">
        <tr> 
          <td height="10"> 
            <table width="100%" border="0" cellpadding=0 cellspacing=1 class=tablebg>
<%
 Set mypage=new xdownpage   '创建对象
 mypage.getconn=conn    '得到数据库连接
 mypage.getsql="select * from bbrmoli where moliownerid=0"
 mypage.pagesize=jsperpage   '设置每一页的记录
 set rs=mypage.getrs()    '返回Recordset
  if rs.eof then 
  response.write "<tr><td align=center class=td>还没有提供任何的vqqq魔力，请稍候再来！</td></tr>"
  else
%>
              <tr class=titletd> 
                <td width="20%" align=center>道具名称</td>
                <td width="50%"> 
                  <div align="center">功能</div>
                </td>
                <td width="8%" align=center>对象</td>
                <td width="12%" align=center>价格</td>
                <td width="10%" align=center>操作</td>
              </tr>
<%
 for i=1 to mypage.pagesize    '接下来的操作就和操作一个普通Recordset对象一样操作
  if not rs.eof then   '这个标记是为了防止最后一页的溢出
%>
              <tr class=td>
	<form action="payformoli.asp?mlid=<%=rs("moliid")%>" method="post" onsubmit="return check()">
                <td width="20%">&nbsp;<A href="moliinfo.asp?mlid=<%=rs("moliid")%>" target=_blank>
<%
auctitle=rs("moliname")
if len(auctitle)>12 then
auctitle=left(auctitle,10)&"..."
response.write auctitle
else
response.write auctitle
end if
%>
</a></td>
           				
                <td width="50%" align=center>
<%
auctitle=rs("moliinfo")
if len(auctitle)>22 then
auctitle=left(auctitle,20)&"..."
response.write auctitle
else
response.write auctitle
end if
%>
	
                </td>
                <td width="8%" align=center><%=rs("molifor")%> </td>
                <td width="12%" align=center><%=rs("molicost")%> （<%=webmoney%>）</td>
                <td width="10%" align=center><input type=submit name=B2B value="购买"></td>

	</form>

              </tr>
<%
   rs.movenext
  else
   exit for
  end if
 next
%>
<tr><td colspan=5 class=td><center><font class=td><% mypage.showpage() %></font></center></td></tr>
<%
end if
%>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body></html>
<!-- #include file="bottom.asp" -->
⌨️ 快捷键说明

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