|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP在国内异常流行,因为国内大多使用的是盗版的Windows和盗版的SQLServer,而ASP+COM+SQLServer实际上也是一种不错的搭配,其性能也不输于PHP+MYSQL,特别是Windows系统和SQLServer都有图形界面,比APACHE和MYSQL易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。前些日子有网友问:将ASP记录集输入成n列的的表格情势显现的办法,如今写了一个,便利人人利用。
界说变量
Dimcn,rs,Sql
Sql="selectCustomerIDfromOrders"
纪录总数
DimTotalNumbe
Setcn=Server.CreateObject("ADODB.Connection")
cn.Open"Provider=SQLOLEDB.1;UserID=sa;InitialCatalog=NorthWind;DataSource=.;Password=;"
Setrs=Server.CreateObject("ADODB.Recordset")
rs.OpenSql,cn,3,1
TotalNumber=rs.RecordCount
IfTotalNumber=0Then
Response.Write"没有纪录输入。"
Else
Dimjj,nLeft,cCol
jj=0
nCol=415
nLeft=nCol-(TotalNumberModnCol)
IfnLeft=nColThennLeft=0
Response.Write"<tableborder><tr>"&vbCrLf
Whilenotrs.EOF
Response.Write"<td>"&rs("CustomerID")&"</td>"&vbCrLf
If(jjModnCol)=(nCol-1)AndjjTotalNumber-1ThenResponse.Write"</tr><tr>"&vbCrLf
If(jjModnCol)=(nCol-1)Andjj=TotalNumber-1ThenResponse.Write"</tr>"&vbCrLf
If(jjModnCol)=(nCol-1)Then
IfjjTotalNumber-1Then
Response.Write"</tr><tr>"&vbCrLf
Else
Response.Write"</tr>"&vbCrLf
EndIf
EndIf
jj=jj+1
rs.MoveNext
Wend
IfnLeft0AndnLeftnColThen
IfnCol<TotalNumberThen
Fori=1tonLeft
Response.Write"<td></td>"&vbCrLf
Next
EndIf
Response.Write"</tr>"&vbCrLf
EndIf
Response.Write"</table>"
EndIf
rs.Close
Setrs=Nothing
cn.Close
Setcn=Nothing
Response.End
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 |
|