v_list.asp

本系统为ASP版 1

<%Admin="UserSee"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_user.asp"-->
<style>
td{font-size:9pt;line-height:120%} 
body{font-size:9pt;line-height:120%} 
a:link       { color: #666666; text-decoration: none }
a:visited    { color: #666666; text-decoration: none }
a:active     { color: #666666; text-decoration: none }
a:hover      { color: #000000; text-decoration: underline}
a.JyDownSort:link    { color: #FFFFFF; text-decoration: none }
a.JyDownSort:visited { color: #FFFFFF; text-decoration: none }
a.JyDownSort:hover   { color: #DFDFDF; text-decoration: underline}
</style>
<table border="0" cellspacing="1" width="100%" bgcolor="#e6e6e6">
<tr align="center">
        <td width="2%" bgcolor="#BBAADD" height="22"><font color="#FFFFFF">ID</font></td>
        <td width="12%" bgcolor="#BBAADD"><font color="#FFFFFF">用户名</font></td>
        <td width="10%" bgcolor="#BBAADD"><font color="#FFFFFF">姓名</font></td>
        <td width="17%" bgcolor="#BBAADD"><font color="#FFFFFF">邮箱</font></td>
        <td width="10%" bgcolor="#BBAADD"><font color="#FFFFFF">注册时间</font></td>
        <td width="8%" bgcolor="#BBAADD"><font color="#FFFFFF">金额</font></td>
        <td width="10%" bgcolor="#BBAADD"><font color="#FFFFFF">银行</font></td>
        <td width="10%" bgcolor="#BBAADD"><font color="#FFFFFF">付款时间</font></td>
        <td width="10%" bgcolor="#BBAADD"><font color="#FFFFFF">付款时间</font></td>
      </tr>

<%     
		 sql="select top 100 * from userinfo where v_pstatus='30' order by id desc; "     
		set rs=server.createobject("adodb.recordset")                                                    
		 rs.open sql,conn,1,1                                                         
		do while not rs.EOF                      
		Response.Write "<tr align=center bgcolor=#FFFFFF height=22><td>"&rs("id")&"</td><td><a href=user_edit.asp?id="&rs("id")&"><b>"&rs("user")&"</a></b></td><td><a href=mailto:"&rs("email")&">"&rs("homepage")&"</a></td><td>"&rs("v_oid")&"</td><td>"&year(rs("regdate"))&"-"&month(rs("regdate"))&"-"&day(rs("regdate"))&"</td><td>"&rs("v_amount")&"</td><td>"&rs("v_pmode")&"</td><td>"&rs("v_date")&"</td><td>"&rs("v_date")&"</td></tr>" 
		rs.MoveNext  
		loop 
		rs.Close 
		set rs=nothing 
  %></table>