作家
登录

将ASP记录集输出成n列的表格形式显示的方法

作者: 来源:www.28hudong.com 2013-03-30 08:26:39 阅读 我要评论

'定义变量 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文章中随机插入网站版权文字的实现代码

当然,如果你的网站文章中有图片,那么请记得一定要打上自己的LOGO,而且这个LOGO不要固定在这些图片的某个角落里,一定要随机出现在图片的任意位置,做到神出鬼没,让采集者感慨:对方网站站标真是变幻莫测,防不>>>详细阅读


本文标题:将ASP记录集输出成n列的表格形式显示的方法

地址:http://www.17bianji.com/kaifa2/ASP/32170.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)