| 网站首页 | 资讯 | 影音 | 图片 | 论坛 | 模拟驾考 | 免费取名算命 | 瓷都工具 | 留言本 | 域名 | 瓷都商城 | 汇款 | 
|
资讯首页
|
瓷都德化
|
站内新闻
|
影视剧情
|
汽车世界
|
网络文摘
|
周易八卦
|
教程技巧
|
房产信息
|
您现在的位置: 瓷都热线|诚信中国:“一就是一”(1941.CN) >> 资讯 >> 教程技巧0 >> 网络编程 >> 正文 登录 注册
专 题 栏 目
  • 四川汶川8.0级强震
  • 机动车驾驶员考试资料
  • 高考试题及答案
  • 最 新 热 门
     德化又添3个地理标志证明
     [组图]期待!德化龙门湖
     [组图]德化:“绿色动脉
     [图文]德化:造莲花美景
     [图文]德化:编织小网格
     [图文]德化龙门滩龙门湖
     [图文]福建德化县美湖镇
     德化白瓷艺术展亮相深圳
     [组图]“世界瓷都·润养
     德化:前妻婚内举债近8万
    最 新 推 荐
     [组图]期待!德化龙门湖
     [组图]德化:“绿色动脉
     [图文]德化龙门滩龙门湖
     [图文]福建德化县美湖镇
     [组图]德化各种花卉相继
     [组图]福建德化九仙山迎
     [图文]德化石牛山惊现双
     [组图]千年古瓷都德化的
     [组图]警方连捣5传销窝点
     [组图]福建民俗博物馆办
    相 关 文 章
    如何制作无状态的ASP组件
    GB与BIG5内码转换COM原代
    一个用组件动态创建Exce
    利用OWC服务器端组件动态
    利用WinWebMail组件在AS
    用webeasymail组件发送邮
    Asp组件高级入门与精通系
    Asp组件中级入门与精通系
    Asp组件中级入门与精通系
    使用组件封装数据库操作
    Asp组件初级入门与精通         ★★★
    Asp组件初级入门与精通
    作者:龙卷风.NET 文章来源:csdn.net 更新时间:2006-4-22 22:53:20
    【声明:转载此信息在于传递更多信息,其内容表达的观点并不代表本站立场,由这些信息所产生的一切后果本站不负任何责任。如果您对本信息有什么意见,欢迎和本站联系,谢谢!】http://CiDu.Net
       

    在运行前几章的例子,可能或多或少的都会碰上一些问题
    如:组件编译后,又要修改,发生”权限被拒绝,’f:\csdn\fcom.dll’”等等的错误。
     
    当asp页面浏览时,打开任务管理器,会看到一个dllhost.exe,用户名为IWAM_YANG的进程。IWAM_YANG会根据计算机名而有所不同。
     
    可以使用以下几种方式来解决
    1.  重新启动iis.
    在控制面板中找到管理工具->internet信息服务->右键点击左边树图第二层本地计算机->所有任务->重新启动IIS即可,这个操作需要一点时间。
    此时你可以看到这个dllhost.exe的进程已经关闭
     
    2.  上面这种方法的缺点就是当前所有的网站都被关闭直到重新启动
    有没有针对单个网站或者虚拟目录的?有
    在控制面板中找到管理工具->internet信息服务->找到你的组件运行的虚拟目录。->右键属性->第一项虚拟目录中->应用程序保护->点击卸载即可。
    此时你可以看到这个dllhost.exe的进程已经关闭
     
    3.  如果你觉得麻烦,直接在Windows任务管理器中结束该进程既可
     
    4.  最后一种方法
    在控制面板中找到管理工具->组件服务->在树图中点击计算机,我的电脑,正在运行的进程->IIS Out-Of-Process Pooled Applications(2860)->右键关闭即可
    此时你可以看到这个dllhost.exe的进程已经关闭

    [NextPage]

    我们来做一个组件,一个可以生成GUID的组件

    全局唯一标志(GUID)

    一个GUID可以表示成32个字符的十六进制格式。COM提供了一个名叫CoCreateGuid的系统级函数,可以用它来生成新的GUID。该函数依靠一种类似使用计算机网卡的唯一标志符和系统时钟等信息的算法,来创建一个在时间和空间上都唯一的GUID.

     

    打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fC8

    Option Explicit

     

    Private Type GUID

        Data1 As Long

        Data2 As Long

        Data3 As Long

        Data4(8) As Byte

    End Type

    Private Declare Function CoCreateGuid Lib "ole32.dll" (pguid As GUID) As Long

    Private Declare Function StringFromGUID2 Lib "ole32.dll" (rguid As Any, ByVal lpstrClsId As Long, ByVal cbMax As Long) As Long

     

    'GUID

    '参数:

    '返回值:STRING,一个GUID.

    Public Function GetGUIDCode() As String

      Dim uGUID As GUID

      Dim sGUID As String

      Dim bGUID() As Byte

      Dim lLen As Long

      Dim RetVal As Long

     

      lLen = 40

      bGUID = String(lLen, 0)

      CoCreateGuid uGUID '把结构转换为一个可显示的字符串

      RetVal = StringFromGUID2(uGUID, VarPtr(bGUID(0)), lLen)

      sGUID = bGUID

      If (Asc(Mid$(sGUID, RetVal, 1)) = 0) Then RetVal = RetVal - 1

      GetGUIDCode = Left$(sGUID, RetVal)

    End Function

     

     

     

    Ok,一个组件就写好了,点击菜单->文件->生成fCom.dll文件

    确定,在目录下就会有fCom.dll文件

     

    测试

    打开visual interdev6.0,生成一个asp文件

    <%@ Language=VBScript %>

    <HTML>

    <BODY>

    <%

    dim obj

    set obj=server.CreateObject("fCom.fC8")

    Response.Write obj.GetGUIDCode()

    Response.Write "<br>"

    Response.Write obj.GetGUIDCode()

    %>

     

    </BODY>

    </HTML>

     

    配置好虚拟目录,在ie中执行此asp文件,得到结果如下:

    {EF7BF6F9-564C-44D9-91BF-F31695DA6298}
    {C8A68CAC-A108-45A6-84F5-0BF92B9CF721}

    可以多次刷新,可以看到这个值在不断变化.

    上一页  [1] [2] [3] [4] [5] [6] [7] 


    声明:以上信息资料大都是网上搜集而来,版权归作者,如有版权问题请留言告知我将马上改正。
    文中所提到的各种观点只是原文观点,各种说法未经一一确认。并不代表本站认可此观点!!
    资讯录入:admin    责任编辑:admin 
  • 上一篇资讯:

  • 下一篇资讯:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    点击数:1869
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
        没有任何评论