仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 456|回复: 9
打印 上一主题 下一主题

[学习教程] ASP网站制作之操纵INI文件的COM

[复制链接]
蒙在股里 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:56:37 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。这个是VB的代码,本人新建一个ActiveXDLL,然后改动工程称号和类称号,然后在类中输出以下内容便可。

//////////////////////////////
中文称号:INI文件操纵类
英文称号:Blood_INIClass
Blood
制造工夫:2002.2.8
版本:1.0
版权一切Blood2002-2003
//////////////////////////////

声名变量
PrivatestrAppNameAsStringINI大节称号
PrivatestrKeyNameAsStringINI项目名
PrivatestrValueStrAsStringINI的项目值
PrivatestrFileNameAsStringINI文件名

声名操纵INI文件的API
PrivateDeclareFunctionGetPrivateProfileStringLib"kernel32"Alias"GetPrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)AsLong
PrivateDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpStringAsString,ByVallpFileNameAsString)AsLong

////////////////////
入手下手界说函数
////////////////////

界说写INI文件的函数
PublicFunctionWriteINI()AsLong
经由过程API将值写进INI文件
WriteINI=WritePrivateProfileString(strAppName,strKeyName,strValueStr,strFileName)
EndFunction

界说读INI文件的函数
PublicFunctionGetINI()AsString
ConstSTRING_SIZE=255指定字符串长度
DimlngLengthAsLong界说API函数前往的长度
DimstrDefaultAsString*STRING_SIZE界说在没有找到指定的项目时前往的默许值
DimstrReturnAsString*STRING_SIZE界说一个字符串缓冲区

经由过程API函数获得INI文件的内容
lngLength=GetPrivateProfileString(strAppName,strKeyName,strDefault,strReturn,STRING_SIZE,strFileName)

经由过程判别API函数前往的长度来断定前往的值
If(lngLength=0)Then
GetINI=strValueStr
Else
GetINI=Mid(strReturn,1,lngLength)
EndIf

EndFunction

////////////////////
界说函数停止
////////////////////

////////////////////
入手下手界说属性
////////////////////

获得INI文件的称号
PublicPropertyLetFileName(ByValstrFileAsString)
strFileName=strFile
EndProperty

获得项目值
PublicPropertyLetValueStr(ByValstrValueAsString)
strValueStr=strValue
EndProperty

获得项目称号
PublicPropertyLetKeyName(ByValstrKeyAsString)
strKeyName=strKey
EndProperty

获得大节称号
PublicPropertyLetAppName(ByValstrAppAsString)
strAppName=strApp
EndProperty

////////////////////
停止界说属性
////////////////////

</p>由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况;
沙发
发表于 2015-1-20 06:16:56 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
不帅 该用户已被删除
板凳
发表于 2015-1-27 11:31:22 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
第二个灵魂 该用户已被删除
地板
发表于 2015-2-5 05:02:40 | 只看该作者
Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)
admin 该用户已被删除
5#
发表于 2015-2-11 05:27:24 | 只看该作者
Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)
金色的骷髅 该用户已被删除
6#
发表于 2015-3-1 21:41:14 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
乐观 该用户已被删除
7#
发表于 2015-3-11 00:02:52 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
山那边是海 该用户已被删除
8#
发表于 2015-3-17 16:10:36 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
海妖 该用户已被删除
9#
发表于 2015-3-17 16:10:37 | 只看该作者
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
再现理想 该用户已被删除
10#
发表于 2015-3-24 11:35:30 | 只看该作者
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 23:50

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表