⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 viper_list.asp

📁 一个简单的asp程序,用来实现基本的数据库连接
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>VIP会员列表</title>
<link href="text.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="conn.asp" -->
<body>
<%
sqlstr = "select*from userinfo order by -adddate"
cpage = 1
bNoData = false
rs.pagesize=12
rs.open sqlstr,conn,1,1
if rs.eof or rs.bof then
	bNoData = 1
else
	bNoData = 0
	rs.absolutepage=CInt(cpage)
	rowcount=0
end if
	
if bNoData then
%>
<p><font class = 12p color = "red">没有有效数据!</font></p>
<%
else
%>

<table width="490" border="0" cellpadding="0" cellspacing="0" bgcolor="#EEEEEE" class=12p>
  <tr bgcolor="#FF0080">
    <td height="20" colspan="4">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="4"><table width="490" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td>
		    <div align="center">            
		      <table width="123" height="160" border="0" cellpadding="0" cellspacing="0" class="12p">
                <%if not rs.eof or rs.bof then%>
                <tr>
                  <td height="130"><div align="center"> <a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><img src="display.asp?uid=<%=rs("userid")%>" width="96" height="116"></a></div></td>
                </tr>
                <tr>
                  <td><div align="center"><a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><%=rs("usernetname")%></a></div></td>
                </tr>
                <%rs.movenext%>
                <%else%>
                <tr>
                  <td height="130"><div align="center"> <img src="images/waitmore.jpg" width="96" height="116"></div></td>
                </tr>
                <tr>
                  <td><div align="center">申请VIP</div></td>
                </tr>
                <%end if%>
              </table>
		    </div>		    </td>
        <td><div align="center">
          <table width="123" height="160" border="0" cellpadding="0" cellspacing="0" class="12p">
            <%if not rs.eof or rs.bof then%>
            <tr>
              <td height="130"><div align="center"> <a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><img src="display.asp?uid=<%=rs("userid")%>" width="96" height="116"></a></div></td>
            </tr>
            <tr>
              <td><div align="center"><a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><%=rs("usernetname")%></a></div></td>
            </tr>
            <%rs.movenext%>
            <%else%>
            <tr>
              <td height="130"><div align="center"> <img src="images/waitmore.jpg" width="96" height="116"></div></td>
            </tr>
            <tr>
              <td><div align="center">申请VIP</div></td>
            </tr>
            <%end if%>
          </table>
        </div>          
        <div align="center"></div></td>
        <td><div align="center">
          <table width="123" height="160" border="0" cellpadding="0" cellspacing="0" class="12p">
            <%if not rs.eof or rs.bof then%>
            <tr>
              <td height="130"><div align="center"> <a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><img src="display.asp?uid=<%=rs("userid")%>" width="96" height="116"></a></div></td>
            </tr>
            <tr>
              <td><div align="center"><a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><%=rs("usernetname")%></a></div></td>
            </tr>
            <%rs.movenext%>
            <%else%>
            <tr>
              <td height="130"><div align="center"> <img src="images/waitmore.jpg" width="96" height="116"></div></td>
            </tr>
            <tr>
              <td><div align="center">申请VIP</div></td>
            </tr>
            <%end if%>
          </table>
        </div>          
        <div align="center"></div></td>
        <td><div align="center">
          <table width="123" height="160" border="0" cellpadding="0" cellspacing="0" class="12p">
            <%if not rs.eof or rs.bof then%>
            <tr>
              <td height="130"><div align="center"> <a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><img src="display.asp?uid=<%=rs("userid")%>" width="96" height="116"></a></div></td>
            </tr>
            <tr>
              <td><div align="center"><a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><%=rs("usernetname")%></a></div></td>
            </tr>
            <%rs.movenext%>
            <%else%>
            <tr>
              <td height="130"><div align="center"> <img src="images/waitmore.jpg" width="96" height="116"></div></td>
            </tr>
            <tr>
              <td><div align="center">申请VIP</div></td>
            </tr>
            <%end if%>
          </table>
        </div>          
        <div align="center"></div></td>
      </tr>
    </table></td>
  </tr>
  <tr bgcolor="#FF71B8">
    <td colspan="4">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="4"><table width="490" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><div align="center">
          <table width="123" height="160" border="0" cellpadding="0" cellspacing="0" class="12p">
            <%if not rs.eof or rs.bof then%>
            <tr>
              <td height="130"><div align="center"> <a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><img src="display.asp?uid=<%=rs("userid")%>" width="96" height="116"></a></div></td>
            </tr>
            <tr>
              <td><div align="center"><a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><%=rs("usernetname")%></a></div></td>
            </tr>
            <%rs.movenext%>
            <%else%>
            <tr>
              <td height="130"><div align="center"> <img src="images/waitmore.jpg" width="96" height="116"></div></td>
            </tr>
            <tr>
              <td><div align="center">申请VIP</div></td>
            </tr>
            <%end if%>
          </table>
        </div>          <div align="center"></div></td>
        <td><div align="center">
          <table width="123" height="160" border="0" cellpadding="0" cellspacing="0" class="12p">
            <%if not rs.eof or rs.bof then%>
            <tr>
              <td height="130"><div align="center"> <a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><img src="display.asp?uid=<%=rs("userid")%>" width="96" height="116"></a></div></td>
            </tr>
            <tr>
              <td><div align="center"><a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><%=rs("usernetname")%></a></div></td>
            </tr>
            <%rs.movenext%>
            <%else%>
            <tr>
              <td height="130"><div align="center"> <img src="images/waitmore.jpg" width="96" height="116"></div></td>
            </tr>
            <tr>
              <td><div align="center">申请VIP</div></td>
            </tr>
            <%end if%>
          </table>
        </div>          <div align="center"></div></td>
        <td><div align="center">
          <table width="123" height="160" border="0" cellpadding="0" cellspacing="0" class="12p">
            <%if not rs.eof or rs.bof then%>
            <tr>
              <td height="130"><div align="center"> <a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><img src="display.asp?uid=<%=rs("userid")%>" width="96" height="116"></a></div></td>
            </tr>
            <tr>
              <td><div align="center"><a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><%=rs("usernetname")%></a></div></td>
            </tr>
            <%rs.movenext%>
            <%else%>
            <tr>
              <td height="130"><div align="center"> <img src="images/waitmore.jpg" width="96" height="116"></div></td>
            </tr>
            <tr>
              <td><div align="center">申请VIP</div></td>
            </tr>
            <%end if%>
          </table>
        </div>          <div align="center"></div></td>
        <td><div align="center">
          <table width="123" height="160" border="0" cellpadding="0" cellspacing="0" class="12p">
            <%if not rs.eof or rs.bof then%>
            <tr>
              <td height="130"><div align="center"> <a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><img src="display.asp?uid=<%=rs("userid")%>" width="96" height="116"></a></div></td>
            </tr>
            <tr>
              <td><div align="center"><a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><%=rs("usernetname")%></a></div></td>
            </tr>
            <%rs.movenext%>
            <%else%>
            <tr>
              <td height="130"><div align="center"> <img src="images/waitmore.jpg" width="96" height="116"></div></td>
            </tr>
            <tr>
              <td><div align="center">申请VIP</div></td>
            </tr>
            <%end if%>
          </table>
        </div>          <div align="center"></div></td>
      </tr>
    </table></td>
  </tr>
  <tr bgcolor="#FF71B8">
    <td colspan="4">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="4"><table width="490" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><div align="center">
          <table width="123" height="160" border="0" cellpadding="0" cellspacing="0" class="12p">
            <%if not rs.eof or rs.bof then%>
            <tr>
              <td height="130"><div align="center"> <a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><img src="display.asp?uid=<%=rs("userid")%>" width="96" height="116"></a></div></td>
            </tr>
            <tr>
              <td><div align="center"><a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><%=rs("usernetname")%></a></div></td>
            </tr>
            <%rs.movenext%>
            <%else%>
            <tr>
              <td height="130"><div align="center"> <img src="images/waitmore.jpg" width="96" height="116"></div></td>
            </tr>
            <tr>
              <td><div align="center">申请VIP</div></td>
            </tr>
            <%end if%>
          </table>
        </div>          <div align="center"></div></td>
        <td><div align="center">
          <table width="123" height="160" border="0" cellpadding="0" cellspacing="0" class="12p">
            <%if not rs.eof or rs.bof then%>
            <tr>
              <td height="130"><div align="center"> <a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><img src="display.asp?uid=<%=rs("userid")%>" width="96" height="116"></a></div></td>
            </tr>
            <tr>
              <td><div align="center"><a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><%=rs("usernetname")%></a></div></td>
            </tr>
            <%rs.movenext%>
            <%else%>
            <tr>
              <td height="130"><div align="center"> <img src="images/waitmore.jpg" width="96" height="116"></div></td>
            </tr>
            <tr>
              <td><div align="center">申请VIP</div></td>
            </tr>
            <%end if%>
          </table>
        </div>          <div align="center"></div></td>
        <td><div align="center">
          <table width="123" height="160" border="0" cellpadding="0" cellspacing="0" class="12p">
            <%if not rs.eof or rs.bof then%>
            <tr>
              <td height="130"><div align="center"> <a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><img src="display.asp?uid=<%=rs("userid")%>" width="96" height="116"></a></div></td>
            </tr>
            <tr>
              <td><div align="center"><a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><%=rs("usernetname")%></a></div></td>
            </tr>
            <%rs.movenext%>
            <%else%>
            <tr>
              <td height="130"><div align="center"> <img src="images/waitmore.jpg" width="96" height="116"></div></td>
            </tr>
            <tr>
              <td><div align="center">申请VIP</div></td>
            </tr>
            <%end if%>
          </table>
        </div>          <div align="center"></div></td>
        <td><div align="center">
          <table width="123" height="160" border="0" cellpadding="0" cellspacing="0" class="12p">
            <%if not rs.eof or rs.bof then%>
            <tr>
              <td height="130"><div align="center"> <a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><img src="display.asp?uid=<%=rs("userid")%>" width="96" height="116"></a></div></td>
            </tr>
            <tr>
              <td><div align="center"><a href = "viper_info.asp?uid=<%=rs("userid")%>" target="_blank"><%=rs("usernetname")%></a></div></td>
            </tr>
            <%rs.movenext%>
            <%else%>
            <tr>
              <td height="130"><div align="center"> <img src="images/waitmore.jpg" width="96" height="116"></div></td>
            </tr>
            <tr>
              <td><div align="center">申请VIP</div></td>
            </tr>
            <%end if%>
          </table>
        </div>          <div align="center"></div></td>
      </tr>
    </table></td>
  </tr>
  <tr bgcolor="#FF0080">
    <td height="20" colspan="4">&nbsp;</td>
  </tr>
</table>
<%end if%>
</body>
</html>

⌨️ 快捷键说明

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