ASP教程之在ASP 中完成ASP.Net 的DataGrid 功能(...
在实现ERP等高端的ASP应用时,用户需要提供核心的经营资料,需要ASP商有很高的信用度。楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。asp.net|datagrid自从用贯了.Net的DataGrid就再也懒得往用ASP画表格了,因而想了一个折衷的举措,访照DataGrid的功效写了一个TBGrid类,如许能够轻松的重用代码.比起每次都得反复休息便利多了.但愿能给用失掉的人带往一些便利.用法很复杂,看前面的例子便一览无余了.有甚么不完美的中央但愿人人有和我会商.<%
ProgrammingBySmartpig
ClassTBGrid
publicDataSource数据源
publicstyle表格总作风
publicHeadStyle表头作风
publicHeadItemStyle表头独自作风
publicitemStyle单位格自力收集
publicColumns必要显现的列元素
publicAlternate是不是瓜代作风
publicAlternateStyle偶数行作风
publicNormalStyle一般作风
publicDefaultStyle默许作风簇
publicPageSize页巨细
publicCurPage以后页
publicAllowPageing是不是分页
publicPageingStyle页数作风
PrivateTemplates自界说单位项
内容之间的干系
Columns.add"Field","HeadText"
AddTemplate("HeadText",Template)
itemStyle.add"Field","style:adsasd"
DataSource(Columns.Keys(i))
PrivateSubClass_Initialize设置Initialize事务。
SetitemStyle=CreateObject("Scripting.Dictionary")
SetHeadItemStyle=CreateObject("Scripting.Dictionary")
SetColumns=CreateObject("Scripting.Dictionary")
SetTemplates=CreateObject("Scripting.Dictionary")
SetDataSource=CreateObject("ADODB.Recordset")
Alternate=0
EndSub
PrivateSubClass_Terminate设置Terminate事务。
SetitemStyle=Nothing
SetHeadItemStyle=Nothing
SetColumns=Nothing
SetDataSource=Nothing
EndSub
PrivateSubInitTable()
SetFieldsNum=DataSource.Fields.Count
SetRowsNum=DataSource.RecordCount
ifColumns.Count=0then
Fori=0toDataSource.Fields.Count-1
Columns.addDataSource.Fields(i).Name,DataSource.Fields(i).Name
response.Write(DataSource.Fields(i).Name)
Next
endif
ifIsEmpty(Style)andIsEmpty(NormalStyle)then
DefaultStyle=1
endif
ifPageSize=Emptythen
PageSize=10
endif
selectCaseDefaultStyle
Case1
Style="border=1cellpadding=2cellspaccing=0borderColor=#000000style=""Border-collapse:collapse;font-size:12px"""
Alternate=1
HeadStyle="Height=25bgColor=#CCCCCC"
AlternateStyle="bgColor=#EEEEEEheight=20"
NormalStyle="height=20"
CaseElse
EndSelect
Endsub
publicSubAddTemplate(ByValColumnName,ByValTemplate)
Columns.addColumnName,ColumnName
Templates.addColumnName,Template
EndSub
publicSubShow()
InitTable()
DimtableStr
DimtdStart,tdEnd,tbStyle,tbContent
DimcurRow
Dimclm
DimregEx,Match,Matches
tableStr="<table"&style&">"&vbCrLF
DrawTableHead
Response.Write(tableStr)
Response.Write("<tr>")
forEachclminColumns.Keys()
tbStyle=HeadStyle&""&HeadItemStyle(clm)
tdStart="<td"&tbStyle&">"
tdEnd="</td>"
Response.Write(tdStart)
Response.Write(Columns(clm))
Response.Write(tdEnd)
Next
Response.Write("</tr>"&vbCrLF)
DrawTableitems
curRow=1
ifAllowPageingEmptythen
</p>使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。 以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件) 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。 学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点: 还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。 那么,ASP.Net有哪些改进呢? 下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
页:
[1]