|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。前些日子有网友问:将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
</p>使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。 |
|