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> </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")%> </td>
<td><%= objrs("name")%> </td>
<td><%= objrs("gender")%> </td>
<td><%= objrs("password")%> </td>
<td><%= objrs("regtime")%> </td>
</tr>
<% objrs.movenext
wend %>
</table>
<a href="index_reg.htm" target="_self">返回</a>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?