ASP编程：ASP仿照asp.net的DataGrid
使用cdonts，可以发送、查看邮件，实现webmail的功能。结合wsh，可以实现对nt主机的管理，如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等，就像管理本地机一样方便。asp.net|datagrid|asp.net|datagrid主动天生表格，主动完成删除，编纂、填加、分页功效，自界说款式表头款式代码用两个类来完成
一入手下手思索得太多，功效想得太壮大，通用性越强，asp类跑起来越慢，做到厥后没乐趣，另有良多功效没有完成，如字段范例考证，显现图片、控件等，帖出代码供年夜这一同进修研讨，有乐趣的能够将这些功效加上
示例：
seta=newDataGrid
a.Connstr="Provider=SQLOLEDB.1;UserID=sa;Password=servser;InitialCatalog=temp_blue;DataSource=server;ConnectTimeout=30;AutoTranslate=True;PacketSize=4096;"
a.Connstr="Provider=Microsoft.Jet.OLEDB.4.0;"&"DataSource="&server.mappath("test.mdb")毗连ACCSS字符串
a.SQLString="select*fromtable1"天生datagrid所显现的纪录集的sql语句
a.isAddnew=1是不是能够填加新纪录
a.Table="table1"datagrid把持的主表
a.UniqueField="ID"标记字段，一切纪录不反复整型便可
a.PagePosition="down"分页显现地位，up下面，down上面updown高低,别的为不显现
a.pagesize=5每页显现纪录数
a.Pagenumber=10显现页数
a.BorderColor="#ff0000"默许为最终效果显现
a.BackGround="#00ff00"默许为最终效果显现
a.BorderWidth=1默许为1
a.
setb1=newcolumn
b1.Field="id"此列所绑定的数据库字段
b1.Title="标记"题目
b1.Align="center"对齐体例
a.AddColumn(b1)把此列拔出到datagrid
setb2=newcolumn
b2.Field="firstname"
b2.Title="姓"
a.AddColumn(b2)
setb3=newcolumn
b3.Field="lastname"
b3.Title="名"
a.AddColumn(b3)
setb4=newcolumn
b4.Field="logintimes"
b4.Title="上岸次数"
b4.ReadOnly=true设为只读，不会呈现在编纂框中和新增纪录中
a.AddColumn(b4)
setb5=newcolumn
b5.Title="编纂"
b5.Columntype="edit"编纂列
b5.EditCommandText="编纂"编纂按钮文本
a.AddColumn(b5)
setb6=newcolumn
b6.align="center"
b6.Width=200
b6.Columntype="delete"
b6.DeleteCommandText="删除按钮"
b6.Title="删除"
a.AddColumn(b6)
a.CreateGrid()
setb1=nothing
setb2=nothing
setb3=nothing
setb4=nothing
setb5=nothing
setb6=nothing
类文件以下：
<%ClassDataGrid
Privatepages
PrivatestrSQLString
PublicConnstr
PrivateColumns
Privateindex
PrivatestrUniqueField,strTable
Privaters
PrivatestrCellspacing,strCellpadding,strCssClass
PrivatestrBorderColorDark,strBorderColorLight,strBackGroundColor
PrivateintBorderWidth
PrivatestrHeadStyle,strHeadBackgroudColor
PrivatestrStyle,strAlternateStyle
PrivateUniqueKey,dg_action,currPage
PrivateactionURL,pageURL,operationURL,formURL
PublicPagePosition,Pagesize,Pagenumber
PublicisAddnew
PrivateSubClass_Initialize()
setColumns=Server.CreateObject("Scripting.Dictionary")
index=0
Pagesize=10
Pagenumber=10
PagePosition="updown"
strSQLString=Session("DSN")
uniquekey=Request("uniquekey")
dg_action=Request("dg_action")
currPage=Request("Page")
actionURL=Request.ServerVariables("Script_name")&"?page="&currPage
ifdg_action="edit"thenformURL=actionURL&"&dg_action=update&uniquekey="&uniquekey
operationURL=Request.ServerVariables("Script_name")&"?page="&currPage&"&uniquekey="&uniquekey
pageURL=Request.ServerVariables("Script_name")&"?1=1"
ifcurrPage=""orisnull(currPage)thencurrPage=1
strBorderColorDark="#f7f7f7"
strBorderColorLight="#cccccc"
strBackgroundColor="#f7f7f7"
strHeadBackgroudColor="#F2F2F2"
intBorderWidth=1
strAlternateStyle="bgcolor=#f6f6f6"
isAddnew=1
Setrs=Server.CreateObject("Adodb.Recordset")
EndSub
PrivateSubClass_Terminate()
rs.close
setrs=nothing
setColumns=nothing
EndSub
PublicPropertyGetSQLString()
SQLString=strSQLString
EndProperty
PublicPropertyLetSQLString(Value)
strSQLString=Value
EndProperty
PublicPropertyLetStyle(Value)
strStyle=Value()
EndProperty
PublicPropertyGetStyle()
Style=strStyle
EndProperty
PublicPropertyLetUniqueField(Value)
strUniqueField=lcase(Value)
EndProperty
PublicPropertyGetUniqueField()
&n
由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 掌握asp的特性而且一定要知道为什么。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。
页:
[1]