Your Ad Here
首页 | 编程语言 | 网站建设 | 游戏天堂 | 冲浪宝典 | 网络安全 | 操作系统 | 软件时空 | 硬件指南 | 病毒相关 | IT 认证
软讯网络 > 编程语言 > 汇编语言 > 两个属性和一个方法
【标  题】:两个属性和一个方法
【关键字】:
【来  源】:http://blog.csdn.net/linrongfa036/archive/2006/09/18/1233834.aspx

两个属性和一个方法

Your Ad Here   End Sub
   
  Private Sub Class_Initialize()
  Max = 6
速度与激情3 bt下载斗鱼免费下载速递查询拼音繁体字下载  End Sub
   
   这个类模块定义了clsDice对象的两个属性和一个方法,这些属性和方法模拟了掷色子的过程 F渲蠱axpoint属性表示色子的面数,加入Property Let语句将使客户能修改色子的面数;Result属性表示最后掷出色子的点数;Throw方法代表掷色子的动作;Private Sub Class_Initialize语句将色子的面数缺?的设置为6面 ?
   
   从文件菜单中,?择生成MYDLL.DLL并将它保存到适当的地方 V链耍颐蔷痛唇艘桓鲎约旱腄LL文件 ?
   
   第二步要做的就是要在ASP文件中引用类clsDice ?
   
   ASP(活动服务器页面Active Server Pages)的所有代码都是在服务器上运行的,客户只能查看以HTML形式传回的结果 K褂??lt;% 焙??> 北昙抢幢晔督疟敬耄⒉淮乜突Ф耍诖胪獠浚褂肏TML标记来标识内容 T谙旅鍰ice.asp的代码中使用了CreateObject函数创建了一个clsDice对象实例,该对象来自于上面创建的ActiveX.DLL--MYDLL.DLL文件,下面的例子使用了VBScript脚本语言 ?
   
万能猫驱动下载印度流行歌曲 mp3光大证券研究所卡巴斯基最新中文版   
  <!--METADATA TYPE="typelib" FILE="Path/mydll.dll" -->
  '装载 METADATA 标签中指定的类型库 ?Path是mydll.dll在机器上存放的路径
  <html>
  <head><title>在ASP文件使用DLL</title></head>
  <body>
  <%
  On Error Resume Next 背绦虺鱿忠馔獯砦笫蹦芗绦葱?
   
  If Request.Form("T1")="" then
语文教学目标成都到西昌小神狼fpe2000 说明  Session("point") = 6
  Else
  Session("point")=Request.Form("T1")
  End If
  '用Session("point")来存放色子的面数
   
  Set dice1=Server.Createobject("MyDLL.clsDice")
  '使用set语句创建dice1对象,其中MyDLL是上面创建dll文件时的工程名称(注意:不是文件的名称),clsDice为类模块的名称 V链宋颐蔷涂梢杂肕axpoint,Result和Throw属性(方法)来对dice1对象进行操作 ?
   
  If Request.ServerVariables("Request_Method")="POST" then
长沙ktv价格海岛论坛红衣女郎下载sfc模拟器是什么  dice1.Maxpoint = Session("point") 瓒ㄉ拥拿媸?
  dice1.Throw 郎?
  %>
  <form method="POST" action="dice.asp">
  <p>当色子的面数为<input type="text" name="T1" size="5" value=<% = session("point") %>>时</p>
  <p><input type="submit" value="掷色子" name="B1"></p>
  </form>
  <p>结果为:<% = dice1.Result %>点 </p> 祷亟峁?
  <%
  Else
台服天堂2官方银河证券主页三星 sch m329狂犬疫苗的注射  dice1.Maxpoint = Session("point")
  %>
  <form method="POST" action="dice.asp">
  <p>当色子的面数为<input type="text" name="T1" size="5" value=<% = session("point") %>>时</p>
  <p><input type="submit" value="掷色子" name="B1"></p>
  </form>
  <%
  End If
  %>
  </body>
杭州家具厂杰伦06年的新专辑夜流莺mtv未见其人   在浏览器中浏览http://localhoat/dice.asp,结果如附图 W⒁猓褐挥性赪INDOWS NT+IIS3.0以上或WINDOWS9X+PWB的环境下才能正确浏览 ?
  
   以上代码在WINDOWS NT4.0+SP3+IIS4.0+IE5.0+VB5.0上编译运行通过,但还有不少的缺陷,但我的本意是向大家介绍如何在ASP中调用DLL,所以我没有去完善它 H绻奈桓呤钟懈玫姆椒ɑ蛘卟煌募猓肭騧ail我,我的信箱:jimi_chen@yeah.net
   
   

为了让大家能更方便 ⒖旖莸氖褂帽韭厶常 在这里发帖子时请大家注意:

与ASP技术无关的帖子,将被转移到其它版块里去?60天以上没有任何人回复的帖子,将被合并 ⒆频骄商厥瞻婵榛蚴巧境越谑 论坛资源 S胱ㄌ庀喙氐奶咏⑷胂喙刈ㄌ饫锶ィ 请大家注意?

绣花图片135和445端口珍贵的教科书说课稿腾讯qq升级包下载 请大家在发帖时请先在论坛里找找,看有没有自己想要的答案 L乇鹱⒁饪纯匆恍┩萍龈蠹业木樱ㄕ饫镉行┌镏募南略丶耙恍┚拥乃得鳎 大家可以直接到本版精华里找相关的内容?欢迎大家发表及推荐精华帖子加入?

为了方便大家讨论问题,已经固定了一些专题帖子,如果您的问题是相关专题的内容,请您最好到专题帖子里提问,这样可以方便大家查找相关内容,也可以知道您所问的问题是不是已经有其它人问过?当然如果您觉得不方便自己提问题,也可以单独开主题帖子,我们一样欢迎?


专题帖子:由于多种原因,使很多帖子还没来得及回复就沉下去了?过多的开主题也使网站资源浪费了不少,所以恳请各位,如果是与专题相关的问题帖子请到相关专题里提问,一方面可以使你的问题能在一定程度上更快的得到解决,一方面也节?了网站资源,同时也便于管理和方便其它人来查询?谢谢大家了?

最后恳请各位:请在相关专题里发问题帖子?

1 ⒂泄豐QL数据库方面的问题请在这里提出?(主要回复人:Jearol,...)
铁路托运规定传奇世界1.908外挂三和人才市场招聘大庆市环保局
                                 用ASP+XML打造留言本
                   作者: 苛子   www.ASPCool.com 时间:2004-12-3




     一 ⒍琳咧敢?
   
   读者指引帮助你掌握本文的梗概 R悦饽憧戳舜蟀氩琶靼渍獗辔恼虏皇屎夏悖阍斐墒泳跷廴??
湿疹性皮炎郑州汽车展母子性故事nba精彩瞬间   
   如果你正在用ASP+XML写一些程序,或者你正在学XML那就值得一看 ?
   
   阅读本文须具备的知识,对ASP有基本的了解,对XML和DOM有基本了解,如果你不了解那么你通过学习本文基本上能够撑握ASP+XML和DOM的应用,并能根据本文范写出自已更高级的ASP+XML程序 ?
   
   二 ⒒舅枷?
   
   本文思想是基于用ASP和DOM来读?和存储XML数据,并利用XML数据来存储留言信息,达到同用数据库存储数据的功能 ?
   
   三 ML留言本的优势
心酸的浪漫歌词虫虫特工队游戏戴尔打印机耗材上海外国语大学考研   
   或许你会问用ASP+TXT文本也可以达到不用数据库实上留言的功能,不错确实能够做到,而且网上也有很多这样的留言本免费下载,但这里我要讲一下ASP+XML的优越性 ?
   
   1 ML+ASP比ASP+TXT速度要快 ?赡苣阋卜⑾值盩XT文件很少时速度出奇的快,但是随着留言信息的增加TXT文本变大,速度却又是出奇的慢这就是ASP+TXT的弱点 5比晃也荒芩担粒樱校玐ML就一定是出奇的快,但是比起ASP+TXT来说是快了许多,当然随着留言信息的增加XML文本增大速度也下降很快,但是比起TXT来说就还是好了许多(这一点可以从WAS测试证明读者可以自行测试),当然ASP+XML比不上数据库,因为数据库对查询做了特别的优化,而XML只是纯文本,在ASP建立对像是要把XML数据全部读入内存中,如果数据量大的话可想而知速度会慢下来 D悄阋残砘嵛誓俏沂裁词焙蛴霉叵凳菘獯娲⑹荩质裁词焙蛴肵ML存储数据呢?我这里也顺便提一下,就是当数据比较复杂无规率时用XML数据比较合适,还有就是你打算这些数据要在不同的操作系统上读?运用时那就是XML大显身手的时候了 H绻闶瞧胀ǖ氖菽敲床坏焦丶笨袒虿恢С质菘獾目占涫被故遣灰肵ML文件来存储数据为好 ?
   2 ML数据的易读?性,TXT文本是比较难操作的,我们必须一行一行的读?判断,而且很多功能无法实上,只能编制比较简单的留言本,而XML数据则不同了,利用DOM可以轻易的访问每一个节点,而不是TXT那些烦人的Readline() Witeline()了,我们可以随意的加入删除更新某一个我们感兴趣的节点,利用ASP或者JS或者数据岛都可以轻松实上这一点,当然我这里为发考虑兼容性,用了ASP来读?XML数据,而没有用数据岛来读?节点数据(因为只有IE5以上版本才支持数据岛技术)而用ASP来实上就不存在这些问了因为客户得到的是HTML文件 ?
   
   3 ML数据夸操作系统性,只要我们把这些数据存储为XML那么这些数据就能被应何基它语言或系统所识别,而不用做应何改动 XT显然不具备这些性能 @缥颐窃谕系牧粞孕畔⒖梢灾苯颖槐蛔怀蓋ap格式在手机上显示 ?
   
   四 ⒔⒋娲⒘粞孕畔⒌腦ML文件(List.xml)
   我们这里不打算使用DTD,因为我们这是我们自已编制并测试通过的XML数据,所以不需要DTD来验证(如果你对此感兴趣当然可以加一个这不影响程序的运行) O衷谖颐抢纯纯唇⒁桓隽粞员镜幕疽?
梦幻西游科举答案贫困生专题片越南歌曲黄昏大嘴日语5.0破解版   
   0 ⒘粞裕桑暮?-定义为<id>
   
   1 ⒂没颐?-定义为<username>
   
   2 ⒗醋阅抢锩?-定义为<fromwhere>
   
   3 ⒘粞允奔涠?-义为<Posttime>
   
   4 ⒂没е饕扯?-义为<homepage>
qq空间做网络硬盘夏新da8说明书农村色文浙江大华技术   
   5 ⒂没У男畔?-定义为<email>
   
   6 ⒘粞阅谌荻?-义为<text>
   
   当然以上不是必须的读者可以自行命名并加减相关标签,把它们组合起来就得到List.xml的文件了
   
  <?xml version="1.0" encoding="gb2312"?>
  <site>
   <NewList>
牙齿有黑斑太平洋网络游戏香港到三亚机票冰封王座秘籍代码   <list>
   <id>1</id>
   <username>苛子</username>
   <fromwhere>中国广州</fromwhere>
   <Posttime>01-4-23 18:26:56</Posttime>
   <homepage>http://page2000.xiloo.com</homepage>
   <email>lucaihui@cmmail.com</email>
   <text>这是我的第一个XML文件</text>
   </list>
   </NewList>
瑞星2006最新升级mpeg格式歌曲跆拳道的起源超级兔子管理  </site>
   
   
   注意:必须加上encoding="gb2312"否则会报错为非法字符,因为XML默认不支持中文 #約ite>为根节点<NewList><ist>等为子节点 6哉飧鑫募囊馑嘉揖筒欢嗨盗舜蠹乙灿Ω每吹拿靼琢?=酉吕淳褪俏颐侨绾卫聪允舅??自yesky)
   

     五 ⒔⑾允綳ML数据的ASP文件(index.asp)
   
   这个文件要实现的功能就是读?并显示XML数据,首先创建一个XML对像然后把XML读入内存中,利用DOM分离出我们所要的数据 ?
   
中国广告设计联盟天平洋下载保时捷简介湖南益阳交友  <%
  strSourceFile = Server.MapPath("/") & "\List.xml"
  '获?XML文件的路径这里根据你的虚拟目录不同而不同
  Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
  '以自由线程创建一个XML对像
  objXML.load(strSourceFile)'把XML文件读入内存
  Set objRootsite = objXML.documentElement.selectSingleNode("NewList")
  '??NewList节点
  %>
  <html>
文秘专业知识试题康特听诊器戴尔1100网卡驱动虚拟机怎么上网  <head>
  <title>留言本</title>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  <style type="text/css">
  <!--
  td { font-family: "宋体"; font-size: 9pt; text-decoration: none}
  a { font-family: "宋体"; font-size: 9pt; color: #0066CC; text-decoration: none}
  a:hover { color: #FF6600; text-decoration: underline}
  -->
  </style>
北京四达人才换衣服小游戏学历教育包括哪些世界最先进的柴油机  </head><body bgcolor="#0099CC" text="#000000">
  <table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#CCCCCC">
  <tr bgcolor="#000000">
  <td colspan="2"><font color="#FFFFFF">留言溥 <a href="PostNew.asp"><font color=#FFFFFF>写新留言</font></a></font></td>
  </tr>
  <%
  PageSize =10'假设每页显示10条留言
  AllNodesNum =objRootsite.childNodes.length-1
  '获?子节点数据(因为是从节点数从0开始的所最大子节点数要减1)
  PageNum=AllNodesNum\PageSize+1'算出总页数
欢天喜地七仙女尾曲剑侠情缘2攻略秘籍江苏教育 电子信箱浙江电子警察  PageNo=request.querystring("PageNo")
  if PageNo="" then'如果是每一次获得页面则定位到每一页显示最新的留言
  PageNo=PageNum
  end if
  StarNodes=PageNo*PageSize-1'获得起始节点
  EndNodes=(PageNo-1)*PageSize'获得结束节点
  if EndNodes<0 then
  EndNodes=0
  end if
  if StarNodes>AllNodesNum then'判断起始节点数是否超过总的节点数
索尼数码相机内存卡熏衣草歌曲网易一卡通免费充值外星生物揭秘图片  EndNodes=EndNodes-(StarNodes-AllNodesNum)
  '如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错
  StarNodes=AllNodesNum
  end if
  if EndNodes<0 then
  EndNodes=0
  end if
  while StarNodes>=EndNodes
  '从结束节点到超始节点之间读?节点数据
  username = objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
一句爱情誓言北京慈济健康体检禁播 mv观看中文语音朗读软件  '获得用户名
  fromwhere = objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
  '获得用户来自那里
  Posttime = objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
  '获得留言时间
  homepage = objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
 
括每个软件后面的文章:【上一篇】
广告片或自己制作短片:【下一篇】
【相关文章】
没有相关文章
【随机文章】
  • 硬件兼容性的陷阱,DrawIndexedPrimitiveUP的用法
  • ATL窗口继承实现机制
  • 关于vc2005编译asm文件出错的一个处理方法
  • 设计模式之AbstractFactory
  • 如何实现DES算法
  • ie的outerhtml与xhtml不兼容的问题解决
  • 7天内两爬白云山
  • 为什么!机器是非标准的1280*768分辨率,修改xorg.conf,还是失败
  • 再谈从vc6迁移到vs2005
  • 深入理解和改进JSP/Servlet会话管理机制
  • 【相关评论】
    没有相关评论
    【发表评论】
    姓名:
    邮件:
    随机码*
    评论*
          
    |  首 页  |  版权声明  |  联系我们   |  网站地图  |
    CopyRight © 2004-2007 bbb软讯网络 All Rigths Reserved.