|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
当然了,现在国内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>缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。 |
|