📄 8_9.asp

📁 《asp网页设计》作者沈才梁源代码,共十章

💻 ASP

字号:

<HTML>
<HEAD>
<TITLE>8_9.asp ：输出所有字段名称以及每个字段内容</TITLE>
</HEAD>
<BODY>
Userlist表中的所有字段的内容<hr>
<% 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.open "txl"	

Set Rs = Server.CreateObject("ADODB.Recordset")	
SQL = "Select * from userlist"
Rs.Open SQL,Conn,1,1
FieldsNum=Rs.Fields.Count  '字段个数
RecordsNum=Rs.RecordCount  '记录条数
Response.Write "共有记录" & RecordsNum & "条"
'输出表格
Response.Write "<Table Border=1>"

Response.Write "<Tr>"
For I=0 To FieldsNum-1	'打印每个字段的名称
    Response.WRite "<Td>"&Rs(I).Name&"</Td>"  
Next
Response.Write "</Tr>"
'下面开始逐行打印每条记录的内容
Do While Not Rs.Eof
  Response.Write "<Tr>"
  For I=0 To FieldsNum-1	 	'打印当前记录（行）的每个字段（列）的值
    Response.WRite "<Td>"& Rs(I).value &"</Td>"
  Next
  Response.Write "</Tr>"
  Rs.MoveNext	'将记录指针移到下一条记录，即下一行
Loop

Response.Write "</Table>"

Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -