一个让我头疼的问题有关 server.createobject 方面?

cruise007 2005-03-30 05:54:58

function hzsocket(byval str)
on error resume next
err.clear
set recs=server.createobject("hzagent.modules")
if err.number<>0 then
if instr(lcase(err.description),"asp 0178")>0 then
hzsocket="10001 对不起,核心组件访问失败,请检查该组件是否安装正确!"
err.clear
else

hzsocket="10001 对不起,系统访问失败!"&err.description
err.clear
end if
else
str=str&"selfsite:"&pl_stetag&Vend
hzsocket=recs.enties(str)
end if
set recs=nothing
end function



{set recs=server.createobject("hzagent.modules")}
请问 hzagent.modules 表示什么意思真是让人难以理解
...全文
162 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
yb2008 2005-04-02
  • 打赏
  • 举报
回复
有了这个组件可以用一般的cuteftp软件上传上去,但要在服务器端注册才可以使用:

注册方法:开始-运行:regsvr32 *.dll
cruise007 2005-04-02
  • 打赏
  • 举报
回复
如果要到了这个组件后怎么上传到服务器上面去呢???
lv_kevin 2005-04-02
  • 打赏
  • 举报
回复
hzagent.modules是一个activeX类名,与adodb.recordset一样,如果没有装ado也不能运行的。谁都可以开发activex,名字可以随取,把activeX安装后就可以用createobject
daknis 2005-04-02
  • 打赏
  • 举报
回复
zagent.modules
这个东东 是别人开发的一个com组件,封状后成为一个.dll文件
在使用之前先要注册这个足见

运行-->

regsvr32 组件名称.dll

就可以用了
hhjjhjhj 2005-03-30
  • 打赏
  • 举报
回复
有什么办法可以解决这个问题呢?
还用问,向开发者要啊,或满地找啊。
cruise007 2005-03-30
  • 打赏
  • 举报
回复
原来 hzagent.modules是一个activeX类名 也就是说这是人家自己开发的一个类了 如果我没有这个类这段程序就无法运行了 有什么办法可以解决这个问题呢?
Aspclass 2005-03-30
  • 打赏
  • 举报
回复
用这个hzagent.modules 查找他的所有文件。。找出他的替身就知道是怎么回事了。

我想他应该是一个activex 控件
hhjjhjhj 2005-03-30
  • 打赏
  • 举报
回复
hzagent.modules是一个activeX类名,与adodb.recordset一样,如果没有装ado也不能运行的。谁都可以开发activex,名字可以随取,把activeX安装后就可以用createobject
myvicy 2005-03-30
  • 打赏
  • 举报
回复
这套系统的一个组件,一般由开发系统的人自己开发地。
ASP组件AspJpeg(加水印)使用方法大全ASPJPEG是Persits出品的共享软件,它是一款功能相当强大的asp图象处理组件,用它可以轻松地做出图片的缩略图和为图片加上水印功能。 水印组件AspJpeg2.4.0.1 下面简单介绍一下使用方法: 您先要执行下载得到的exe文件,安装该组件. 检测是否注册成功的方法: 将以下代码保存为asp,拷贝在服务器上,用浏览器打开,看返回结果。 一、为图片添加水印 <% Dim Jpeg ''''//声明变量 Set Jpeg = Server.CreateObject("Persits.Jpeg") ''''//调用组件 Jpeg.Open Server.MapPath("aaa.JPG") ''''//源图片位置 Jpeg.Canvas.Font.Color = &H000000; ''''//水印字体颜色 Jpeg.Canvas.Font.Family = "宋体" ''''//水印字体 Jpeg.Canvas.Font.Size = 14 ''''//水印字体大小 Jpeg.Canvas.Font.Bold = False ''''//是否粗体,粗体用:True Jpeg.Canvas.Font.BkMode = &HFFFFFF; ''''//字体背景颜色 Jpeg.Canvas.Print 10, 10, "不败顽童工作室" ''''//水印文字,两个数字10为水印的xy座标 Jpeg.Save Server.MapPath("aaa_05.jpg") ''''//生成有水印的新图片及保存位置 Set Jpeg = Nothing ''''//注销组件,释放资源 Response.Write "" ''''//在该页显示生成水印后的图片 %> 二、生成缩略图 <% Dim Jpeg ''''//声明变量 Set Jpeg = Server.CreateObject("Persits.Jpeg") ''''//调用组件 Jpeg.Open Server.MapPath("aaa.JPG") ''''//原图位置 Jpeg.Width = Jpeg.OriginalWidth/4 ''''//设图片宽度为原图的四分之一 Jpeg.Height = Jpeg.OriginalHeight/4 ''''//设图片高度为原图的四分之一 Jpeg.Sharpen 1, 130 ''''//设定锐化效果 Jpeg.Save Server.MapPath("aaa_small.jpg") ''''//生成缩略图位置及名称 Set Jpeg = Nothing ''''//注销组件,释放资源 Response.Write "" ''''//在该页显示生成缩略图 %> aspjpeg组件高级使用方法介绍 aspjpeg是一款非常强大的图片处理组件,纯英文版本。不过早已经有免费版和破解版,但是对其进行详细与深入介绍的文章却是不多,即使有也只牵涉到图片缩略和图片水印。可能是因为纯英文的缘故。 这里我就是针对这些问题谈谈aspjpeg的高级用法。这里的技术主要包括: 图片缩略 图片水印 安全码技术 图片切割 图片合并 数据库支持 更多不常用的方法介绍 以及相关的一些实用技术 aspjpeg唯一点不足的就是输出方式比较单一。在这里,我们主要谈将图片处理保存后再调用的这种输出方法。另外,本人比较懒,所以有些代码仍然引用于原文档,不懂的地方偶会加以解释! 学过vb或者.net的同志肯定一看就明白了。刷子来着。呵呵。 一、图片缩略 IIS无法访问asp! 解决办法!今天打开电脑发现IIS无法访问asp页面。 提示:Server Application Error 然后就有了下面的一段话。 The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail information. Please contact the server administrator for assistance. 在网上查了查解决方案如下: 首先是asp程序,死循环,要求:看一下你的页面定义同名rs是不是太多了,比如Set rs=Server.CreateObject("ADODB.Recordset") 如果太多,有可能会服务器被所住,解决办法, 1、取不一样的名字,如Set rs1=Server.CreateObject("ADODB.Recordset") Set rs2=Server.CreateObject("ADODB.Recordset") 2、把Set rs=Server.CreateObject("ADODB.Recordset")放在页面最顶部,每个都可以调用,把其他多余的删掉 或者:在页面中显式地释放资源: rs.close set rs=nothing conn.close set conn=nothing

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧