ASP网页编程之经常使用数据库操纵的自界说函数
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题函数|数据|数据库<%一些asp开辟过程当中经常使用的数据操纵,收拾成了函数,进步开辟效力
webdir="test/"路径,依据实践情形修正
functionConndb(ConnName)毗连数据库
setConnName=server.createobject("adodb.connection")
ConnName.open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&server.mappath(webdir&"inc/mydb.mdb")
ConnName.open"Provider=SQLOLEDB;server=192.168.0.1;uid=sa;pwd=;database=test"利用sqlserver数据库时
endfunction
functionclose(ObjectName)封闭工具
ObjectName.close
setObjectName=nothing
endfunction
functionCreateRs(RsName)创立数据集工具
setRsName=server.createobject("adodb.recordset")
endfunction
functiongetvalue(thisvalue)
getvalue=trim(request(thisvalue))
endfunction
以下函数形参界说注释
Rsname为界说数据集工具,DataName为表名,Fields为要猎取的字段称号(以逗号离隔,空为一切)
Where为前提,order为排序体例
eg:callReaddb(rs,"tablename1","id,name,sex","sex=男andid>10","iddesc")
前往:纪录集工具
subReadDb(RsName,DataName,Fields,Where,order)读取纪录
DimSource,recRsName,Mok
iftrim(Fields)=""thenFields="*"
Source="select"&Fields&"from"&DataName
iftrim(where)""thenSource=Source&"where"&Where
iftrim(order)""thenSource=Source&"orderby"&order
setrecRsName=Server.CreateObject("ADODB.Recordset")
recRsName.OpenSource,conn,3,1
setRsName=recRsName
endsub
FunctionCountNumber(tablename,where)取得表中满意前提的纪录数
Iflen(trim(where))>0Then
thiswhere="where"&where
Else
thiswhere=""
EndIf
setrs=conn.execute("selectcount(*)asthisnumberfrom"&tablename&thiswhere)
thisnumber=rs("thisnumber")
closers
CountNumber=thisnumber
EndFunction
functionInsertDb(DataName,Field)增添,拔出一条新纪录,请求提交表单项称号与数据表中的字段称号一致。
diminsertrs,i,datafield,datafieldvalue
datafield=split(Field,",")
setinsertrs=server.CreateObject("adodb.recordset")
insertrs.OpenDataName,conn,1,3
insertrs.addnew
fori=0toubound(datafield)
datafieldvalue=getvalue(datafield(i))
iflen(datafieldvalue)=0then
datafieldvalue=""
endif
insertrs(datafield(i))=datafieldvalue
next
insertrs.Update
closeinsertrs
endfunction
functionModifyDb(DataName,Field,Where)修正满意前提的纪录。
iftrim(Field)=""then
Fields="*"
else
Fields=Field
endif
Source="select"&Fields&"from"&DataName
iftrim(where)""thenSource=Source&"where"&Where
datafield=split(Field,",")
setinsertrs=server.CreateObject("adodb.recordset")
insertrs.OpenSource,conn,3,2
whilenotinsertrs.eof
fori=0toubound(datafield)
datafieldvalue=getvalue(datafield(i))
insertrs(datafield(i))=datafieldvalue
next
insertrs.Update
insertrs.movenext
wend
closeinsertrs
endfunction
functionDeleteDb(DataName,Where)删除纪录
dimdelsql
delsql="deletefrom"&DataName
iftrim(where)""thendelsql=delsql&"where"&where
conn.executedelsql
endfunction
%>
</p>缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。 没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题: 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。 代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。 ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
页:
[1]