view.asp

来自「该资料包含大量网络开发的案例和源代码」· ASP 代码 · 共 40 行

ASP
40
字号
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
Set objconn = Server.CreateObject("ADODB.Connection")
connstr="driver={microsoft access driver (*.mdb)};dbq="& server.MapPath("register.Mdb")
objconn.Open connstr
sqlstr="select * from user"
set objrs=server.CreateObject("adodb.recordset")
objrs.open sqlstr,objconn,0,1
objrs.movefirst
%>
<p>&nbsp;</p><table width="100%" border="1" cellspacing="0" cellpadding="0">
  <tr>
    <td width="15%">编号</td>
    <td width="26%">用户名</td>
    <td width="8%">性别</td>
    <td width="24%">密码</td>
    <td width="27%">注册时间</td>
  </tr>
<% while not objrs.eof %>  
  <tr>
    <td><%= objrs("idno")%>&nbsp;</td>
    <td><%= objrs("name")%>&nbsp;</td>
    <td><%= objrs("gender")%>&nbsp;</td>
    <td><%= objrs("password")%>&nbsp;</td>
    <td><%= objrs("regtime")%>&nbsp;</td>
  </tr>
 <% objrs.movenext
 	wend %>
</table>
<a href="index_reg.htm" target="_self">返回</a>
</body>
</html>

⌨️ 快捷键说明

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