📄 members.asp

📁 该资料包含大量网络开发的案例和源代码

💻 ASP

字号:

<HTML><HEAD><TITLE></TITLE><meta name="Microsoft Border" content="t, default">
</HEAD>
<BODY topmargin=10><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>

<p align="center"><font size="6"><strong></strong></font><br>
</p>
<p align="center">&nbsp;</p>

</td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">
<center><font size=5 face=隶书 color=#000000><b>上海同济大学同学会会员信息</b></font>
<table border=2 cellspacing=0 width=540>
<tr><td bgcolor=#e8e8e8 align=center width=100><font size=2><b>姓名</b></td>
    <td bgcolor=#e8e8e8 align=center width=80><font size=2><b>性别</b></td>
    <td bgcolor=#e8e8e8 align=center width=80><font size=2><b>年龄</b></td>
    <td bgcolor=#e8e8e8 align=center width=80><font size=2><b>学号</b></td>
    <td bgcolor=#e8e8e8 align=center width=200><font size=2><b>地址</b></td>
</tr>


<%
   set Conn=Server.CreateObject("ADODB.connection")
   constr="Provider=microsoft.jet.oledb.4.0;Data source=" & Server.mappath("my97.mdb")
   conn.Open constr

   set rs1=Server.CreateObject("ADODB.RecordSet")
   sql="select * from members"
   
    rs1.Open sql,conn,1,1
do while not rs1.eof
  Response.Write"<tr><td><font size=2>" &RS1("name") &"</font></td>"
    Response.Write"<td><font size=2>" &RS1("gender") &"</font></td>"
    Response.Write"<td><font size=2>" &RS1("age") &"</font></td>"
    Response.Write"<td><font size=2>" &RS1("email") &"</font></td>"
    Response.Write"<td><font size=2>" &RS1("address") &"</font></td>"
    Response.Write"</tr>"
    RS1.MoveNext
loop
RS1.Close
Conn.Close
set rs1=nothing
set comm=nothing

%>
</table></center>

<!--msnavigation--></td></tr><!--msnavigation--></table></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -