📄 view.asp

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

💻 ASP

字号:

<%@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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -