asp代码实现检测组件是否安装的函数_应用技巧

<%
'******************************
'函数：IsObjInstalled(strClassString)
'参数：strClassString,组件对象名
'作者：阿里西西
'日期：2007/7/13
'描述：检测组件是否安装
'示例：<%=IsObjInstalled(strClassString)%>
'******************************
Function IsObjInstalled(strClassString)
    On Error Resume Next
    IsObjInstalled = False
    'Err = 0
    Dim xTestObj
    Set xTestObj = Server.CreateObject(strClassString)
    If Err<>-2147221005 Then IsObjInstalled = True Else IsObjInstalled = False End IF
    Set xTestObj = Nothing
    'rr = 0
End Function
%>

时间： 2024-10-30 21:41:20

asp代码实现检测组件是否安装的函数_应用技巧的相关文章

asp代码实现检测组件是否安装的函数

<% '****************************** '函数:IsObjInstalled(strClassString) '参数:strClassString,组件对象名 '作者:阿里西西 '日期:2007/7/13 '描述:检测组件是否安装 '示例:<%=IsObjInstalled(strClassString)%> '****************************** Function IsObjInstalled(strClassString)    

用IS6 进行 ASP 软件的打包和自动安装 的方法_应用技巧

#include "ifx.h" //不能移动  //////////////////////////////////////////////////////////////////////////////  // 用InstallShield 进行 ASP 软件的打包和自动安装  // 原创作者: 贾俊 (Jaron)  // 网址: http://www.jiangdu.net ; // 邮件: jaron@jdinfo.net  // 首次发表于网易,ChinaASP,ASPHo

asp检测是否为中文字符函数_应用技巧

<% '****************************** '函数:CheckChinese(strng) '参数:strng,待验证字符 '描述:检测是否为中文字符,返回值:中文为true,否则false '示例:<%=CheckChinese(strng)%> '****************************** Function CheckChinese(strng) CheckChinese = true Dim regEx, Match Set regEx

asp下的一个检测链接是否正常的函数_应用技巧

Function urlChk(sUrl) on error resume next Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP") xmlHttp.open "GET",sUrl,false xmlHttp.send     if xmlHttp.Status <> 200 then         urlChk=false     else         urlChk=true     

ASP中实现的URLEncode、URLDecode自定义函数_应用技巧

在做ajax中的post时,发现在服务器端取得数据时总是乱码,网上看了些解决方法也搞不定,我post过去时是xml形式,由于乱码服务器端xml也解析不了或出错.于是在post前先把它编码,到服务器端再解码,这样问题解决了,但是要是数据很大时估计会很影响速度. 虽然ASP中的request会自动解码经过url编码的字符串,但是Request.BinaryRead(Request.TotalBytes)取得post数据时却不会解码,所以要进行解码. 下面是我找到的一个ASP中server.urlen

asp.net(vb.net)获取真实IP的函数_实用技巧

aspx vb.net获取真实IP的函数如下: 复制代码 代码如下: <script runat="server"> Public Function CheckIp(ByVal ip As String) As Boolean Dim pat As String = "^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$" Dim reg As Regex = New Regex(pat) if ip = "

用asp实现网址和邮件地址的转换函数_应用技巧

网址和邮件地址的转换函数<% function URLconvert(str)  convertstr=str urlLocation=instr(convertstr,"http://") if (urlLocation=0) and (mailLocation=0) then  URLconvert=convertstr exit function end if if urlLocation<>0 then rightstr=str Do while urlLoc

asp实现图片右键滑轮控制大小的函数_应用技巧

<% '****************************** '函数:bbimg(l1,maximgheight,maximgwidth) '参数:l1,图片路径:maximgheight,最大允许图片高度:maximgwidth,最大允许图片宽度 '作者:阿里西西 '日期:2007/7/12 '描述:限制页面图片的最大高度和宽度 '示例:<%=bbimg("alixixi.gif",300,100)%> '**************************

asp下实现截取字符串特定部分内容函数_应用技巧

截取字符串特定部分内容函数<% '****************************** '函数:GetKey(HTML,Start,Last) '参数:HTML,待截取的原字符串:tart,截取开始标记:last,截取结束标记 '作者:阿里西西 '日期:2007/7/12 '描述:截取字符串函数,从Start开始截取,到Last为结束 '示例:<%=GetKey("阿里西西,国内最大的WEB开发资源","最大的","资源")%