仓酷云

标题: ASP网站制作之将你的网站设置为客户的信托站点--VB方... [打印本页]

作者: 海妖 时间: 2015-1-16 22:30
标题: ASP网站制作之将你的网站设置为客户的信托站点--VB方...
Access是一种桌面数据库，只适合数据量少的应用，在处理少量数据和单机访问的数据库时是很好的，效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限，如果数据达到100M左右，很容易造成服务器iis假死，或者消耗掉服务器的内存导致服务器崩溃。

ConstHKEY_CLASSES_ROOT=-2147483648#
ConstHKEY_CURRENT_USER=-2147483647#
ConstHKEY_LOCAL_MACHINE=-2147483646#
ConstHKEY_USERS=-2147483645#

ConstREG_SZ=1&字符串值
ConstREG_BINARY=3&二?制值
ConstREG_DWORD=4&DWORD值

PrivateDeclareFunctionRegCreateKeyLib"advapi32.dll"Alias"RegCreateKeyA"(ByValhKeyAsLong,ByVallpSubKeyAsString,ByRefphkResultAsLong)AsLong

PrivateDeclareFunctionRegCloseKeyLib"advapi32.dll"(ByValhKeyAsLong)AsLong

PrivateDeclareFunctionRegSetValueExLib"advapi32.dll"Alias"RegSetValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByValReservedAsLong,ByValdwTypeAsLong,lpDataAsAny,ByValcbDataAsLong)AsLong

PrivateSubForm_Load()
CallSetTrustedSite(App.EXEName)
UnloadMe
EndSub

//SetTrustsite
PrivateFunctionSetTrustedSite(ByValStrSiteNameAsString)
OnErrorGoToErrhandle
DimnKeyHandle,KeyValue,IresultAsLong
DimStrkeyPathAsString
StrkeyPath="SoftwareMicrosoftWindowsCurrentVersionInternetSettingsoneMapDomains"
StrkeyPath=StrkeyPath&SplitSiteName(StrSiteName)
KeyValue=2
CallRegCreateKey(HKEY_CURRENT_USER,StrkeyPath,nKeyHandle)
Iresult=RegSetValueEx(nKeyHandle,"http",0,REG_DWORD,KeyValue,4)
IfIresult=0Then
MsgBox"Youhaveaccepthttp://"&StrSiteName&"asyourTrustedSite!"
Else
MsgBox"Failaddhttp://"&StrSiteName&"asyourTrustedSite!"
EndIf
CallRegCloseKey(nKeyHandle)
ExitFunction
Errhandle:
MsgBox"Failaddhttp://"&StrSiteName&"asyourTrustedSite!"
EndFunction

//SplitSiteName
//"A.B.C.D.E"---->"D.E/A.B.C"
//"A.B.C.D"---->"C.D/A.B"
//"A.B.C"---->"B.C/A"
//"A.B"---->"A.B"
//"A"---->"A"
PrivateFunctionSplitSiteName(ByValStrSiteNameAsString)AsString
DimArraySiteName
DimIntArrayLen,IAsInteger
DimStrSplitSiteAsString

ArraySiteName=Split(StrSiteName,".")
IntArrayLen=UBound(ArraySiteName)

IfIntArrayLen>1Then
StrSplitSite=ArraySiteName(IntArrayLen-1)&"."&ArraySiteName(IntArrayLen)&""
ForI=0ToIntArrayLen-2
IfI=0Then
StrSplitSite=StrSplitSite&ArraySiteName(I)
Else
StrSplitSite=StrSplitSite&"."&ArraySiteName(I)
EndIf
Next
SplitSiteName=StrSplitSite
Else
SplitSiteName=StrSiteName
EndIf

EndFunction
在实现ERP等高端的ASP应用时，用户需要提供核心的经营资料，需要ASP商有很高的信用度。楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。

作者: 再现理想 时间: 2015-1-17 11:18
学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

作者: 小魔女 时间: 2015-1-20 17:27
封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

作者: 第二个灵魂 时间: 2015-1-29 13:21
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

作者: 愤怒的大鸟 时间: 2015-2-6 01:23
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 分手快乐 时间: 2015-3-4 10:02
掌握asp的特性而且一定要知道为什么。

作者: admin 时间: 2015-3-11 18:13
掌握asp的特性而且一定要知道为什么。

作者: 老尸 时间: 2015-3-19 06:29
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 再见西城 时间: 2015-3-27 11:07
哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

欢迎光临仓酷云 (http://ckuyun.com/)