马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。asp.net|创立|静态PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Putusercodetoinitializethepagehere
DimdlAsNewDataList
dl.HeaderTemplate=NewCreateDL(ListItemType.Header)
dl.ItemTemplate=NewCreateDL(ListItemType.Item)
dl.AlternatingItemTemplate=NewCreateDL(ListItemType.AlternatingItem)
dl.FooterTemplate=NewCreateDL(ListItemType.Footer)
DimdAsNewData
dl.DataSource=d.getTree
dl.DataBind()
div1.Controls.Add(dl)
EndSub
PublicClassCreateDL
ImplementsITemplate
ShareditemcountAsInteger=0
DimTemplateTypeAsListItemType
SubNew(ByValtypeAsListItemType)
TemplateType=type
EndSub
SubInstantiateIn(ByValcontainerAsControl)ImplementsITemplate.InstantiateIn
DimlcAsNewLiteral
SelectCaseTemplateType
CaseListItemType.Header
lc.Text="<TABLEborder=1><TR><TH>Items</TH></TR>"
CaseListItemType.Item
lc.Text="<TR><TD>Itemnumber:"&itemcount.ToString&"</TD></TR>"
AddHandlerlc.DataBinding,AddressOfTemplateControl_Databinding
CaseListItemType.AlternatingItem
lc.Text="<TR><TDbgcolor=lightblue>Itemnumber:"_
&itemcount.ToString&"</TD></TR>"
CaseListItemType.Footer
lc.Text="</TABLE>"
EndSelect
container.Controls.Add(lc)
itemcount+=1
EndSub
PrivateSubTemplateControl_DataBinding(ByValsenderAsObject,_
ByValeAsSystem.EventArgs)
DimlcAsLiteral
lc=CType(sender,Literal)
DimcontainerAsDataListItem
container=CType(lc.NamingContainer,DataListItem)
lc.Text&=DataBinder.Eval(container.DataItem,"text")
lc.Text&="</TD></TR>"
EndSub
EndClass
</p>Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |