ASP——读取数据库所有记录(示例)

<%
    SET conn=Server.Createobject("adodb.Connection") 
    conn.open "Driver={MySQL ODBC 3.51     Driver};server=IP;database=db;uid=rt;pwd=;port=3306;OPTION=3;stmt=SET     NAMES gbk"
    SET rs=server.CreateObject("ADODB.RecordSet")

%>
    <DIV id=content class=widecolumn>
        <H2>全部预约</H2>
		<%
			pageSize=5
			pageNo=request.querystring("pageNo")
			if pageNo="" then
				pageNo=1
			end if
			'response.Write(conn.state) '显示连接状态，若为1表示连接成功，若为0连接失败。
			strsql="select * from wxyy order by 时间 DESC limit " & (pageNo-1)*pageSize & "," & pageSize & ""
			rs.open strsql,conn,1
			'response.Write(rs.state) '显示连接状态，若为1表示连接成功，若为0连接失败。
			z="here"
			'response.Write rs.recordcount
			if rs.eof then 
				'response.Write(z) 
		%>
        <DIV class="postmetadata alt">
        	没有任何预约  
			<hr  style='display:block'>
		</DIV> 
        <%
		   	else
		   		'response.Write(z) 
		   		i=0
				'rs.pagesize=5
				'response.Write(z) 
		   		
				response.write "<br>"
				'response.Write(z) 
				'rs.absolutepage=1
				'response.Write(z)
				response.write "<br>" 
				response.write "<hr style='display:block'>"
		   		do until rs.eof 'or i=rs.pagesize
		   			i=i+1
		   			response.write i  & "|" & rs("ID") & "|" & rs("时间") & "|" & rs("姓名") & "|" & rs("电话") & "|" & rs("QQ") & "|" & rs("地址") 
					response.write "<br>"
					response.write rs("故障描述")
					response.write "<br>"   
		   			response.write "<hr style='display:block'>"
		   			rs.movenext
		   		loop
		   	end if
        %>
    </DIV>

参考文章

https://blog.csdn.net/weixin_43272781/article/details/101319339

https://blog.csdn.net/weixin_43272781/article/details/101319460