zoukankan      html  css  js  c++  java

  • 自适应输出表格(ASP版)

    <%
    '
    '        Made by Goodspeed
    '
    '        
    Option Explicit 
    Response.Buffer     = True
    'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
    Const SqlUsername = "sa"
    Const SqlPassword = "qwe"
    Const SqlDatabaseName = "NorthWind"
    Const SqlLocalName = "127.0.0.1"
    Dim ConnStr

    ConnStr     = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"

    '打开数据库
    Dim Conn
    Set Conn=server.createobject("adodb.connection")
    Conn.Open ConnStr
    %    >
    <html>
    <head>
            <title>ASP Test</title>
            <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    </head>
    <body>
    <table>
    <%
    Dim rs, strSQL, Field, strResponse

    strSQL     = "SELECT EmployeeID,LastName,FirstName FROM Employees;"
    Set rs = Conn.Execute(strSQL)


    '输出表头
    strResponse = "<tr>"
    For Each Field In rs.Fields
        strResponse     = strResponse & "<td>" & Field.Name & "</td>"
    Next
    strResponse     = strResponse & "</tr>"

    '输出表体
    Do Until rs.EOF
        strResponse     = strResponse & "<tr>"

        For Each Field In rs.Fields
            strResponse     = strResponse & "<td>" & rs(Field.Name)  & "</td>"
        Next
        
        strResponse     = strResponse & "</tr>"
        rs.MoveNext
    Loop
    Set rs = nothing
    Response.Write (strResponse)
    %    >
    </table>
    </body>
    </html>
    <%
    Conn.Close()
    Set Conn = nothing
    %    >
  • 相关阅读:
    Bootstrap中的Dropdown悬停触发
    git常用命令整理
    ThinkPHP-项目模块分组后自定义类库文件放去哪？
    项目开发中常用的PHP实用代码算法
    1049. Counting Ones (30)
    1059. Prime Factors (25)
    1050. String Subtraction (20)
    观察者模式
    策略模式
    JVM剖析
  • 原文地址：https://www.cnblogs.com/goodspeed/p/32675.html
Copyright © 2011-2022 走看看