|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。<%
ConstadInteger=3
ConstadVarChar=200
声明变量
DimmyRecordset
DimiLetter
DimField
DimstrAltColor
DimbColor
bColor=False
此例使用内存中的recordset,你必要做的只是修正你的数据显现的部分就能够了。
SetmyRecordset=Server.CreateObject("ADODB.Recordset")
myRecordset.Fields.Append"ID",adInteger
myRecordset.Fields.Append"Title",adVarChar,25
myRecordset.Fields.Append"Description",adVarChar,255
myRecordset.Open
FillRSwithsampledata:
ForiLetter=Asc("A")ToAsc("M")
myRecordset.AddNew
myRecordset.Fields("ID").Value=iLetter-64
myRecordset.Fields("Title").Value="字母:"&Chr(iLetter)
myRecordset.Fields("Description").Value="这里测试字母:"&Chr(iLetter)&"."
myRecordset.Update
NextiLetter
挪动到头部入手下手地位,以便上面的轮回入手下手.
myRecordset.MoveFirst
在表格中显现数据
Response.Write"<tableborder=""0""cellspacing=""0""cellpadding=""3"">"&VBCrLf
表头
Response.WritevbTab&"<tr>"&vbCrLf
ForEachFieldinmyRecordset.Fields
Response.WritevbTab&vbTab&"<tdbgcolor=""#CCCCCC""><strong>"
Response.WriteField.Name
Response.Write"</strong></td>"&vbCrLf
NextField
Response.WritevbTab&"</tr>"&vbCrLf
DoWhileNotmyRecordset.EOF
轮回改动单位格的背景色彩
bColor=NotbColor
IfbColorThen
strAltColor="#FFFFFF"
Else
strAltColor="#FF8040"
EndIf
轮回改动单位格的背景色彩
Response.WritevbTab&"<tr>"&vbCrLf
ForEachFieldinmyRecordset.Fields
Response.WritevbTab&vbTab&"<tdbgcolor="""
Response.WritestrAltColor
Response.Write""">"&Field.Value&"</td>"&vbCrLf
NextField
Response.WritevbTab&"</tr>"&vbCrLf
myRecordset.MoveNext
Loop
Endthetable
Response.Write"</table>"&vbCrLf
封闭工具、开释资本
myRecordset.Close
SetmyRecordset=Nothing</p>缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 |
|