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
    %    >
  • 相关阅读:
    C#与Java的几点区别
    用VB读取记事本的内容，控制计算器的按钮(VB6)
    通过实例说明Java中的多态
    [导入]析构函数（内存泄漏，三法则）
    [导入]const限制符
    [导入]类的一些特殊限制成员
    [导入]基类的复制控制函数
    [导入]容器适配器
    [导入]派生类到基类转换的可访问性
    [导入]（复制、默认）构造函数
  • 原文地址：https://www.cnblogs.com/goodspeed/p/32675.html
Copyright © 2011-2022 走看看