📄 test.asp
字号:
<% @ LANGUAGE="VBScript" %>
<HTML>
<HEAD>
<TITLE>显示表中的记录</TITLE>
</HEAD>
<BODY>
<%
temp=Request.Form("txtKCM")
Dim cn1, rs1, sql1, i
Set cn1=Server.CreateObject("ADODB.Connection")
Set rs1=Server.CreateObject("ADODB.Recordset")
cn1.ConnectionString="FILE NAME=" & Server.MapPath("\ec.UDL")
sql1="SELECT * FROM users"
response.write sql1
cn1.Open
rs1.Open sql1,cn1
%>
<TABLE ALIGN="center" BORDER="2" CELLSPACING="0">
<TR>
<% For i=0 To rs1.Fields.Count-1 %>
<Th><%=rs1(i).name %></Th>
<% Next %>
</TR>
<% While Not rs1.EOF %>
<TR>
<% For i=0 To rs1.Fields.Count-1 %>
<TD><% =rs1(i) %></TD>
<% Next %>
</TR>
<% rs1.MoveNext ' 将当前记录移动到记录集的下一条记录
Wend
Response.Write rs1.RecordCount
rs1.Close
%>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -