ASP源码
PHP源码
.NET源码
JSP源码
前些日子有网友问:将ASP纪录集输出成n列的的表格形式显示的方法,现在写了一个,方便大家使用。
'定义变量
Dim cn,rs,Sql
Sql = "select CustomerID from Orders"
'记录总数
Dim TotalNumbe
Set cn = Se***r.CreateObject("AD***.Connection")
cn.Open "Pr***der=SQLOLEDB.1;User ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;"
Set rs = Se***r.CreateObject("AD***.Recordset")
rs.Open Sql, cn, 3, 1
TotalNumber = rs***cordCount
If TotalNumber = 0 Then
Re***nse.Write "没有记录输出。"
'www.downcodes.com
Else
Dim jj,nLeft,cCol
jj = 0
nCol = 415
nLeft = nCol- (TotalNumber Mod nCol)
If nLeft = nCol Then nLeft = 0
Re***nse.Write "
" & rs("CustomerID") & " | " & vbCrLf
" & vbCrLf |