|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用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提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。 |
|