首页 爱情文章 亲情文章 友情文章 生活随笔 校园文章 经典文章 人生哲理 励志文章 搞笑文章 心情日记
  • 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
    •
    当前位置: 山茶花美文网 > 范文大全 > 正文

    托管班常用纪录表格【将ASP纪录集输出成n列的的表格形式显示的方法】

    时间：2020-05-27来源：山茶花美文网 本文已影响 人 山茶花美文网手机站

    前些日子有网友问：将ASP纪录集输出成n列的的表格形式显示的方法，现在写了一个，方便大家使用。

    "定义变量
    Dim cn,rs,Sql

    Sql = "select CustomerID from Orders"

    "记录总数
    Dim TotalNumbe
    Set cn = Server.CreateObject("ADODB.Connection")
    cn.Open "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;"

    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open Sql, cn, 3, 1
    TotalNumber = rs.RecordCount
    If TotalNumber = 0 Then
    Response.Write "没有记录输出。"
    Else
    Dim jj,nLeft,cCol
    jj = 0
    nCol = 415
    nLeft = nCol- (TotalNumber Mod nCol)
    If nLeft = nCol Then nLeft = 0
    Response.Write "<table border><tr>" & vbCrLf
    While not rs.EOF
    Response.Write "<td>" & rs("CustomerID") & "</td>" & vbCrLf
    "If (jj Mod nCol) = (nCol - 1) And jj <> TotalNumber - 1 Then Response.Write "</tr><tr>" & vbCrLf
    "If (jj Mod nCol) = (nCol - 1) And jj = TotalNumber-1 Then Response.Write "</tr>" & vbCrLf

    If (jj Mod nCol) = (nCol - 1) Then
    If jj <> TotalNumber - 1 Then
    Response.Write "</tr><tr>" & vbCrLf
    Else
    Response.Write "</tr>" & vbCrLf
    End If
    End If
    jj = jj + 1
    rs.MoveNext
    Wend
    If nLeft <> 0 And nLeft <> nCol Then
    If nCol < TotalNumber Then
    For i = 1 to nLeft
    Response.Write "<td> </td>" & vbCrLf
    Next
    End If
    Response.Write "</tr>" & vbCrLf
    End If
    Response.Write "</table>"
    End If
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    Response.End

    • 托管班常用纪录表格【将ASP纪录集输出成n列的的表格形式显示的方法】 相关文章:
    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全

    最新文章

    热点文章

    推荐访问

    军训远足心得体会 军训爬山心得体会 大学军训徒步拉练感想 军训徒步作文 军训徒步10公里感想 军训徒步心得体会 5分钟演讲中秋节节日 中秋一分钟演讲 中秋节演讲稿4分钟 中秋节演讲稿一分钟 中秋节演讲稿五分钟 3-5分钟 中秋节短篇演讲稿 中秋节演讲稿两分钟 中秋节的演讲稿3分钟 关于中秋节的演讲稿三分钟 孩子体验军训的心得 参加孩子军训活动的感受与收获 家长对孩子军训后的收获和感悟 小孩军训的收获与感悟 学生军训的收获与感悟 孩子军训成长过程家长感悟 孩子军训感悟 孩子军训心得体会 孩子军训的收获与感悟 兵役前训练心得体会 部队当兵的心得 新兵役前教育训练心得体会 预备役军训心得体会 新兵军训感悟

    本文托管班常用纪录表格【将ASP纪录集输出成n列的的表格形式显示的方法】由山茶花美文网整理提供，版权归原作者、原出处所有。

    Copyright © 山茶花美文网 All Rights Reserved.