all.asp

来自「我刚学没多久,自己做的一个小留言,希望可以帮的上大家」· ASP 代码 · 共 43 行

ASP
43
字号
<html>

<!-- #include file="ADOfunctions.asp"-->
<% 
	
	dim objRS, strSQL
    strSQL="select * from aa "
    Set objRS = Server.CreateObject("ADODB.Recordset") 
		     objRS.open strSQL,objConn,1,1
%>
<P align=center><font color="#99CCFF" size="7"><STRONG><FONT face="华文新魏">这是你所要的全部记录</FONT></STRONG></font></P>

<TABLE BORDER="1" align="center"> 
        <TR>
            <%
            
            For I = 0 To objRS.Fields.Count - 1
                Response.Write "<TH>" & objRS.Fields(I).Name & "</TH>"
            Next
            %>
        </TR>
     
    <%
    Do While Not objRS.EOF
        Data = "<TR>"
        For I = 0 To objRS.Fields.Count - 1
            Data = Data & "<TD>" & objRS.Fields(I).Value & "</TD>"
        Next
        Response.Write Data & "</TR>"
        objRS.MoveNext
    Loop
    objRS.Close         
    Set objRS = Nothing 
    objConn.Close         
    Set objConn = Nothing 
    
    %>
</TABLE> 
 </TABLE>
 <p align="center"><a href="index.asp">返回输入</a></p>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?