userlist2.asp

这是一个基于WEB的树木分类专家系统asp源代码,对于初学者特别有帮助!

<%
dim strtoday
dim weekarray(6)
dim thisyear
dim thismonth
dim thisday
 
 weekarray(0)="星期天"
 weekarray(1)="星期一"
 weekarray(2)="星期二"
 weekarray(3)="星期三"
 weekarray(4)="星期四"
 weekarray(5)="星期五"
 weekarray(6)="星期六"
 
 thisyear=year(date)&"年"
 thismonth=month(date)
 if thismonth<10 then thismonth="0"&thismonth
 thismonth=thismonth&"月"
 thisday=day(date)
 if thisday<10 then thisday="0"&thisday
  thisday=thisday&"日"
 strtoday="<font color=red>"&thisyear&thismonth&thisday
 strtoday=strtoday&" "&weekarray(weekday(date)-1)&"</font>"
 response.Write strtoday

 %>
 <style type="text/css">
<!--
body,td,th {
	color: #66CC33;
}
body {
	background-image: url();
}
.style1 {
	font-family: "华文行楷";
	font-size: 24px;
}
-->
 </style>

 </script>
 <h2 align="center">用户浏览</h2>
 <div align="center">
 </div>
  <table width=100%" height="136" border="1" bordercolor="#CCCC99" >
    <tr>
      <td width="11%" height="39" nowrap>序 号</td>
      <td width="17%" nowrap>用 户 名</td>
      <td width="11%" nowrap> 密 码</td>
	   <td width="11%" nowrap> QQ</td>
	    <td width="20%" nowrap> Email</td>
    </tr>
  <%
    Set conn = Server.CreateObject("ADODB.Connection")
       conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("tree.mdb")
    set rs= server.createobject("adodb.recordset") 
    sql= "Select * from 用户信息表 " 
	set base=conn.execute(sql)
    i = 0
   do while not base.eof
     i=i+1
     username=base("username")
	 password=base("password")
	 qq=base("qq")
	 Email=base("Email")
  %>
  <tr>
    <td width="11%" nowrap><%=i%>　</td>
    <td width="17%" nowrap><%=username%>　</td>
    <td width="11%" nowrap><%=password%>　</td>
   <td width="11%" nowrap><%=qq%>　</td>
    <td width="20%" nowrap><%=Email%>　</td>
 </tr>
<%
  base.movenext
  loop
  %> 
    
</table>
  <p align="center"> <a href="manage.html" target="_blank" class="style1">返回管理页</a></p>