<% Head() dim admin_flag,rs_c admin_flag=",1," If Not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 Then Errmsg=ErrMsg + "
  • 本页面为管理员专用,请登录后进入。
  • 您没有管理本页面的权限。" Call dvbbs_error() Else If request("action")="save" Then call saveconst() ElseIf request("action")="restore" Then Call restore() Else Call consted() end if Footer() end if Sub consted() Dim sel %>
    论坛基本设置(目前只提供一种设置)
    [基本信息] [论坛系统数据设置] [悄悄话选项] [论坛首页选项] [用户与注册选项] [系统设置] [在线和用户来源]
    [邮件选项] [上传设置] [用户选项(签名、头衔、排行等)] [帖子选项] [防刷新机制] [论坛分页设置] [门派设置]
    [搜索选项] [官方插件设置] [安全设置] [RSS/WAP/手机短信/在线支付] [VIP用户组设置]
    如果您的论坛的设置搞乱了,可以使用还原论坛默认设置
    论坛默认使用风格 <% Dim forum_sid,iforum_setting,stopreadme,forum_pack,iCssName,iCssID,iStyleName Dim Style_Option,css_Option,Forum_cid,TempOption set rs=dvbbs.execute("select forum_sid,forum_setting,forum_pack,forum_cid from dv_setup") Forum_sid=rs(0) Forum_pack=Split(rs(2),"|||") Iforum_setting=split(rs(1),"|||") Forum_cid=rs(3) Rs.close:Set Rs=Nothing stopreadme=iforum_setting(5) %> Css样式:
    论坛当前状态
    维护期间可设置关闭论坛
    checked<%end if%>>打开  checked<%end if%>>关闭 
    维护说明
    在论坛关闭情况下显示,支持html语法

    论坛定时设置: checked <%End If%>>关 闭 checked <%End If%>>定时关闭 checked <%End If%>>定时只读
    定时设置
    请根据需要选择开或关
    <% Dvbbs.forum_setting(70)=split(Dvbbs.forum_setting(70),"|") If UBound(Dvbbs.forum_setting(70))<2 Then Dvbbs.forum_setting(70)="1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1" Dvbbs.forum_setting(70)=split(Dvbbs.forum_setting(70),"|") End If For i= 0 to UBound(Dvbbs.forum_setting(70)) If i<10 Then Response.Write " " %> <%=i%>点:checked<%End If%>>开 <% If (i+1) mod 4 = 0 Then Response.Write "
    " Next %>

    安全设置[顶部]
    后台管理目录的设定
    缺省目录为admin为安全起见,不让其他人知道目录,请修改.


    注意:目录名称后面要有"/",如"admin/"
    是否禁止代理服务器访问
    禁止代理服务器访问能避免恶意的CC攻击,但开放后影响站点排名,建议在受到明显的攻击的时候开启
    checked<%end if%>>否  checked<%end if%>>是 
    限制同一IP连接数为
    限制同一IP连接数,可以减少恶意的CC攻击的影响,但会造成用户访问不便,建议设置为0关闭此功能,在受到攻击的时候才开放
    <% Dim IP_MAX_value If UBound(Dvbbs.forum_setting) > 101 Then IP_MAX_value=Dvbbs.forum_setting(101) Else IP_MAX_value=0 End If %>

    官方自动通讯设置
    是否起用官方自动通讯系统
    开启后可在论坛后台收到官方最新通知以及直接参与官方讨论区讨论和发贴
    checked<%end if%>>否  checked<%end if%>>是 
    开启通讯系统用户名与密码
    用户名与密码用符号“|||”分开
    用户名和密码请到 论坛官方 获取
    <% If UBound(forum_pack)<2 Then ReDim forum_pack(3) %>

    论坛基本信息[顶部]
    论坛名称
    论坛的访问地址
    论坛的创建日期(格式:YYYY-M-D)
    论坛首页文件名
    网站主页名称
    网站主页访问地址
    论坛管理员Email
    联系我们的链接(不填写为Mailto管理员)
    论坛首页Logo图片地址
    显示在论坛顶部左上角,可用相对路径或者绝对路径
    站点关键字
    将被搜索引擎用来搜索您网站的关键内容
    每个关键字用“|”号分隔
    站点描述
    将被搜索引擎用来说明您网站的主要内容
    介绍中请不要带英文的逗号
    论坛版权信息

    论坛系统数据设置[顶部]--(以下信息不建议用户修改)
    论坛会员总数
    论坛主题总数
    论坛帖子总数
    论坛最高日发贴
    论坛最高日发贴发生时间 (格式:YYYY-M-D H:M:S)
    历史最高同时在线纪录人数
    历史最高同时在线纪录发生时间 (格式:YYYY-M-D H:M:S)

    悄悄话选项[顶部]
    新短消息弹出窗口 checked<%end if%>>否  checked<%end if%>>是 
    发论坛短消息是否采用验证码
    开启此项可以防止恶意短消息
    checked<%end if%>>否  checked<%end if%>>是 

    论坛首页选项[顶部]
    首页显示论坛深度
    是否显示过生日会员 checked<%end if%>>否  checked<%end if%>>是 

    用户与注册选项[顶部]
    是否允许新用户注册
    关闭后论坛将不能注册
    checked<%end if%>>否  checked<%end if%>>是 
    注册是否采用验证码
    开启此项可以防止恶意注册
    checked<%end if%>>否  checked<%end if%>>是 
    登录是否采用验证码
    开启此项可以防止恶意登录猜解密码
    checked<%end if%>>否  checked<%end if%>>是 
    会员取回密码是否采用验证码
    开启此项可以防止恶意登录猜解密码
    checked<%end if%>>否  checked<%end if%>>是 
    会员取回密码次数限制
    0则表示无限制,若取回问答错误超过此限制,则停止至24小时后才能再次使用取回密码功能。
    最短用户名长度
    填写数字,不能小于1大于50
    最长用户名长度
    填写数字,不能小于1大于50
    同一IP注册间隔时间
    如不想限制可填写0
     秒
    Email通知密码
    确认您的站点支持发送mail,所包含密码为系统随机生成
    checked<%end if%>>关闭  checked<%end if%>>打开 
    一个Email只能注册一个帐号 checked<%end if%>>关闭  checked<%end if%>>打开 
    注册需要管理员认证 checked<%end if%>>关闭  checked<%end if%>>打开 
    发送注册信息邮件
    请确认您打开了邮件功能
    checked<%end if%>>关闭  checked<%end if%>>打开 
    开启短信欢迎新注册用户 checked<%end if%>>关闭  checked<%end if%>>打开 

    系统设置[顶部]
    论坛所在时区
    服务器时差
    脚本超时时间
    默认为300,一般不做更改
     秒
    是否显示页面执行时间 checked<%end if%>>否  checked<%end if%>>是 
    禁止的邮件地址
    在下面指定的邮件地址将被禁止注册,每个邮件地址用“|”符号分隔
    本功能支持模糊搜索,如设置了eway禁止,将禁止eway@aspsky.net或者eway@dvbbs.net类似这样的注册
    论坛脚本过滤扩展设置
    此设置为开启HTML解释的时候对脚本代码的识别设置,
    您可以根据需要添加自定的过滤
    格式是:过滤字| 如:abc|efg| 这样就添加了abc和efg的过滤

    没有添加可以填0,如果添加了最后一个字符必须是"|"

    在线和用户来源[顶部]
    在线显示用户IP
    关闭后如果所属用户组、论坛权限、用户权限中设置了用户可浏览则可见
    checked<%end if%>>保密  checked<%end if%>>公开 
    在线显示用户来源
    关闭后如果所属用户组、论坛权限、用户权限中设置了用户可浏览则可见
    开启本功能较消耗资源
    checked<%end if%>>保密  checked<%end if%>>公开 
    在线资料列表显示用户当前位置 checked<%end if%>>否  checked<%end if%>>是 
    在线资料列表显示用户登录和活动时间 checked<%end if%>>否  checked<%end if%>>是 
    在线资料列表显示用户浏览器和操作系统 checked<%end if%>>否  checked<%end if%>>是 
    在线名单显示客人在线
    为节省资源建议关闭
    checked<%end if%>>关闭  checked<%end if%>>打开 
    在线名单显示用户在线
    为节省资源建议关闭
    checked<%end if%>>关闭  checked<%end if%>>打开 
    删除不活动用户时间
    可设置删除多少分钟内不活动用户
    单位:分钟,请输入数字
     分钟
    总论坛允许同时在线数
    如不想限制,可设置为0
     人
    展开用户在线列表每页显示用户数  人

    邮件选项[顶部]
    发送邮件组件
    如果您的服务器不支持下列组件,请选择不支持
    SMTP Server地址
    只有在论坛使用设置中打开了发送邮件功能,该填写内容方有效
    邮件登录用户名
    只有在论坛使用设置中打开了发送邮件功能,该填写内容方有效
    邮件登录密码

    <% Dim UploadSetting UploadSetting = Split(Dvbbs.forum_setting(7),"|") If Ubound(UploadSetting)<>20 Then Redim UploadSetting(20) For i=0 to 20 If i=2 or i=3 Then UploadSetting(i)=999 Else UploadSetting(i)=0 End If Next End If %> <% If IsObjInstalled("Scripting.FileSystemObject") Then %> <% End If %>
    上传设置[顶部]
    头像上传
    允许的最大头像文件大小  K
    选取上传组件:
    选取生成预览图片组件:
    生成预览图片大小设置(宽度|高度): 宽度: 象素 高度: 象素
    生成预览图片大小规则选项:
    图片水印设置开关:
    上传图片添加水印文字信息(可为空或0):
    上传添加水印字体大小: px
    上传添加水印字体颜色:
    上传添加水印字体名称:
    上传水印字体是否粗体:
    上传图片添加水印LOGO图片信息(可为空或0):
    填写LOGO的图片相对路径
    上传图片添加水印透明度: 如60%请填写0.6
    水印图片去除底色:
    保留为空则水印图片不去除底色。
    水印文字或图片的长宽区域定义:
    如水印图片的宽度和高度。
    宽度: 象素 高度: 象素
    上传图片添加水印LOGO位置坐标 :
    是否采用文件、图片防盗链 checked<%end if%>>关闭  checked<%end if%>>打开 
    上传目录设定 <% If Dvbbs.Forum_Setting(76)="" Or Dvbbs.Forum_Setting(76)="0" Then Dvbbs.Forum_Setting(76)="UploadFile/" %> >如果修改了此项,请用FTP手工创建目录和移动原有上传文件。

    用户选项[顶部]
    允许个人签名 checked<%end if%>>关闭  checked<%end if%>>打开 
    允许用户使用头像 checked<%end if%>>关闭  checked<%end if%>>打开 
    最大头像尺寸
    定义内容为头像的最大高度和宽度
     象素
    默认头像宽度
    定义内容为论坛头像的默认宽度
     象素
    默认头像高度
    定义内容为论坛头像的默认宽度
     象素
    使用自定义头像的最少发帖数  篇
    允许从其他站点链接头像
    就是是否可以直接使用http..这样的url来直接显示头像
    checked<%end if%>>关闭  checked<%end if%>>打开 
    用户签名是否开启UBB代码 checked<%end if%>>关闭  checked<%end if%>>打开 
    用户签名是否开启HTML代码 checked<%end if%>>关闭  checked<%end if%>>打开 
    用户是否开启贴图标签 checked<%end if%>>关闭  checked<%end if%>>打开 
    用户是否开启Flash标签 checked<%end if%>>关闭  checked<%end if%>>打开 
    用户头衔
    是否允许用户自定义头衔
    checked<%end if%>>关闭  checked<%end if%>>打开 
    用户头衔最大长度  byte
    自定义头衔最少发帖数量限制
    不做限制请设置为0
     篇
    自定义头衔注册天数限制
    不做限制请设置为0
     天
    自定义头衔上面两个条件加在一起限制 checked<%end if%>>否  checked<%end if%>>是 
    自定义头衔中要屏蔽的词语
    每个限制字符用“|”符号隔开
    帖子显示页面是否显示支付宝和该用户交易图标 checked<%end if%>>否  checked<%end if%>>是 

    防刷新机制[顶部]
    防刷新机制
    如选择打开请填写下面的限制刷新时间
    对版主和管理员无效
    checked<%end if%>>关闭  checked<%end if%>>打开 
    浏览刷新时间间隔
    填写该项目请确认您打开了防刷新机制
    仅对帖子列表和显示帖子页面起作用
     秒
    防刷新功能有效的页面
    请确认您打开了防刷新功能
    您指定的页面将有防刷新作用,用户在限定的时间内不能重复打开该页面,具有一定减少资源消耗的作用
    每个页面名请用“|”符号隔开

    搜索选项[顶部]
    每次搜索时间间隔  秒
    搜索字串最小和最大长度
    最小和最大字符请用符号“|”分隔,单位为字节
    最小字符不宜设置过小,最大字符不宜设置过大,建议用默认值
    搜索可以不受字串长度限制的词
    每个字符请用符号“|”分隔
     
    搜索返回最多的结果数
    建议不要设置过大
     个
    搜索热门帖子条件中对应的搜索天数和浏览次数标准
    搜索天数和浏览次数请用符号“|”分隔,单位为数字
    搜索天数不宜设置过大,建议用默认值
    是否开启全文搜索
    ACCESS数据库不建议开启
    SQL数据库做了全文索引可以开启
    checked<%end if%>>关闭  checked<%end if%>>打开 
    用户列表允许用户名搜索 checked<%end if%>>关闭  checked<%end if%>>打开 
    用户列表允许列出管理团队 checked<%end if%>>关闭  checked<%end if%>>打开 
    用户列表允许列出所有用户 checked<%end if%>>关闭  checked<%end if%>>打开 
    用户列表允许列出TOP排行用户 checked<%end if%>>关闭  checked<%end if%>>打开 
    用户列表TOP个数  个

    论坛分页设置[顶部]
    每页显示最多纪录
    用于论坛所有和分页有关的项目(帖子列表和浏览帖子除外)
     条

    帖子选项[顶部]
    作为热门话题的最低人气值
    标准为主题回复数
     条
    编辑过的帖子显示"由xxx于yyy编辑"的信息 checked<%end if%>>否  checked<%end if%>>是 
    管理员编辑后显示"由XXX编辑"的信息 checked<%end if%>>否  checked<%end if%>>是 
    等待"由XXX编辑"信息显示的时间
    允许用户编辑自己的帖子而不在帖子底部显示"由XXX编辑"信息的时限(以分钟为单位)
     分钟
    编辑帖子时限
    编辑处理帖子的时间限制(以分钟为单位, 1天是1440分钟) 超过这个时间限制, 只有管理员和版主才能编辑和删除帖子. 如果不想使用这项功能, 请设置为0
     分钟

    门派设置[顶部]
    是否开启论坛门派 checked<%end if%>>否  checked<%end if%>>是 

    VIP用户组功能开启设置[顶部]
    是否VIP用户组功能
    若开启VIP用户组功能,请确认论坛用户组(等级)管理里是否添加了VIP用户组。
    checked<%end if%>>否  checked<%end if%>>是 

    官方插件选项[顶部]
    道具功能总开关 checked<%end if%>>关闭  checked<%end if%>>开启 
    道具中心买卖交易 checked<%end if%>>关闭  checked<%end if%>>开启 
    道具中心采用独立数据库
    (若设为独立,请自行修改CONN.ASP文件,设置独立数据库路径)
    checked<%end if%>>关闭  checked<%end if%>>开启 
    魔法表情(头像)总开关
    该功能数据库采用道具中心数据库,功能可独立于道具中心之外开关
    checked<%end if%>>关闭  checked<%end if%>>开启 
    是否启用博客功能
    开启后请打开boke/config.asp文件做好相关设置
    checked<%end if%>>否  checked<%end if%>>是 
    是否启用虚拟形象(暂未开通) checked<%end if%>>否  checked<%end if%>>是 
    论坛金币汇率设置
    金钱与金币汇率  金钱=1金币
    经验与金币汇率  经验=1金币
    魅力与金币汇率  魅力=1金币
    点券与金币汇率  点券=1金币
    其它设置
    版主每日可奖励金币个数  个金币
     
    <% Dim InstalledObjects(12) InstalledObjects(1) = "JMail.Message" 'JMail 4.3 InstalledObjects(2) = "CDONTS.NewMail" 'CDONTS InstalledObjects(3) = "Persits.MailSender" 'ASPEMAIL '----------------------- InstalledObjects(4) = "Adodb.Stream" 'Adodb.Stream InstalledObjects(5) = "Persits.Upload" 'Aspupload3.0 InstalledObjects(6) = "SoftArtisans.FileUp" 'SA-FileUp 4.0 InstalledObjects(7) = "DvFile.Upload" 'DvFile-Up V1.0 '----------------------- InstalledObjects(9) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage InstalledObjects(10) = "Persits.Jpeg" 'AspJpeg InstalledObjects(11) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21 InstalledObjects(12) = "sjCatSoft.Thumbnail" 'sjCatSoft.Thumbnail V2.6 For i=1 to 12 Response.Write "
    " If IsObjInstalled(InstalledObjects(i)) Then Response.Write InstalledObjects(i)&":服务器支持!" Else Response.Write InstalledObjects(i)&"×服务器不支持!" Response.Write "
    " Next %> <% end sub Sub saveconst() Dim Forum_copyright,Forum_info,forum_setting,iforum_setting,isetting Dim Forum_Maxonline,Forum_TopicNum,Forum_PostNum Dim Forum_UserNum,Forum_MaxPostNum,Forum_MaxPostDate,Forum_MaxonlineDate Dim Forum_pack Dim UploadSetting,Tempstr If not IsDate(Request.Form("Forum_Setting(74)")) Then Errmsg=ErrMsg + "
  • 论坛创建日期必须是一个有效日期。" Dvbbs_error() Exit Sub End If If not IsDate(Request.Form("Forum_MaxPostDate")) Then Errmsg=ErrMsg + "
  • 论坛最高日发贴发生时间日期必须是一个有效日期。" Dvbbs_error() Exit Sub Else Forum_MaxPostDate=Request.Form("Forum_MaxPostDate") End If If not IsDate(Request.Form("Forum_MaxonlineDate")) Then Errmsg=ErrMsg + "
  • 历史最高同时在线纪录发生时间日期必须是一个有效日期。" Dvbbs_error() Exit Sub Else Forum_MaxonlineDate=Request.Form("Forum_MaxonlineDate") End If Forum_Maxonline = Request.Form("Forum_Maxonline") Forum_TopicNum = Request.Form("Forum_TopicNum") Forum_PostNum = Request.Form("Forum_PostNum") Forum_UserNum = Request.Form("Forum_UserNum") Forum_MaxPostNum= Request.Form("Forum_MaxPostNum") Forum_pack = Request.Form("Forum_pack(0)")&"|||"&Trim(Request.Form("Forum_pack(1)")) If Not ISNumeric(Forum_Maxonline&Forum_TopicNum&Forum_PostNum&Forum_UserNum&Forum_MaxPostNum) Then Errmsg=ErrMsg + "
  • 非法的参数,论坛系统数据出错,提交中止。" Dvbbs_error() Exit Sub End If If not isnumeric(request.Form("cid")) or not isnumeric(request.Form("Sid")) Then Errmsg=ErrMsg + "
  • 请选择模板与风格!" Dvbbs_error() Exit Sub End IF UploadSetting = "" For i=0 To 20 Tempstr = Trim(Request.Form("UploadSetting("&i&")")) If Tempstr = "" Then UploadSetting = UploadSetting & 0 Else UploadSetting = UploadSetting & Replace(Replace(Tempstr,"|",""),",","") End If If i<20 Then UploadSetting = UploadSetting & "|" End If Next Dim setingdata,j If Forum_Maxonline="" Then Forum_Maxonline=0 If Forum_TopicNum="" Then Forum_TopicNum=0 If Forum_PostNum="" Then Forum_PostNum=0 If Forum_UserNum="" Then Forum_UserNum=0 If Forum_MaxPostNum="" Then Forum_MaxPostNum=0 For i = 0 To 120 If Trim(request.Form("Forum_Setting("&i&")"))="" Or i=70 or i = 7 Then 'Response.Write "Forum_Setting("&i&")
    " isetting=0 If i=7 Then isetting = UploadSetting End If If i=70 Then isetting="" For j=0 to 23 If isetting="" Then If Request.form("Forum_Setting(70)"&j)="1" Then isetting="1" Else isetting="0" End If Else If Request.form("Forum_Setting(70)"&j)="1" Then isetting=isetting&"|1" Else isetting=isetting&"|0" End If End If Next End If Else isetting=Replace(Trim(request.Form("Forum_Setting("&i&")")),",","") End If If i = 0 Then forum_setting = isetting Else forum_setting = forum_setting & "," & isetting End If Next For i = 0 To 13 If Trim(Request.Form("Forum_info("&i&")")) = "" And i <> 4 And i <> 12 And i<>13 Then 'Response.Write "Forum_info("&i&")
    " isetting=0 Else isetting=Replace(Trim(request.Form("Forum_info("&i&")")),",","") End If If i = 0 Then Forum_info = isetting Else Forum_info = Forum_info & "," & isetting End If Next Forum_copyright=request("copyright") 'forum_info|||forum_setting|||forum_user|||copyright|||splitword|||stopreadme Set rs=Dvbbs.execute("select forum_setting from dv_setup") iforum_setting=split(rs(0),"|||") forum_setting=forum_info & "|||" & forum_setting & "|||" & iforum_setting(2) & "|||" & Forum_copyright & "|||" & iforum_setting(4) & "|||" & request.Form("StopReadme") forum_setting=Replace(forum_setting,"'","''") Dim Forum_AdminFolder Forum_AdminFolder=Request("Forum_AdminFolder") If Forum_AdminFolder<>"" Then Forum_AdminFolder=Forum_AdminFolder&"/" Forum_AdminFolder=replace(Forum_AdminFolder,"\","/") Forum_AdminFolder=replace(Forum_AdminFolder,"//","/") Else Forum_AdminFolder=Dvbbs.CacheData(33,0) End If 'Response.Write forum_setting 'Response.end sql="update Dv_setup set Forum_AdminFolder='"&Dvbbs.Checkstr(Forum_AdminFolder)&"',Forum_Setting='"&forum_setting&"',forum_sid="&Dvbbs.checkstr(request.Form("Sid"))&",forum_Cid="&Dvbbs.checkstr(request.Form("cid")) sql=sql+",Forum_Maxonline="&Forum_Maxonline&",Forum_TopicNum="&Forum_TopicNum&",Forum_PostNum="&Forum_PostNum &",Forum_UserNum="&Forum_UserNum&",Forum_MaxPostNum="&Forum_MaxPostNum&",Forum_MaxPostDate='"&Forum_MaxPostDate &"',Forum_MaxonlineDate='"&Forum_MaxonlineDate&"',Forum_pack='"&Forum_pack&"'" dvbbs.execute(sql) Dvbbs.loadSetup() Dv_suc("设置论坛常规信息成功") end sub '恢复默认设置 Sub restore() Dim Forum_setting forum_setting=" 论坛,http://www.oilpainting-china.com,,020@oilpainting-china.com,images/logo.gif,oilpainting-china.com,asp|油画论坛|插件,北京时间,油画讨论站点,希望我们的努力可以为您带来很多方便,index.asp,,|||0,300,0,60,2|20,1,1,2|100|0|999|bbs.dvbbs.net|12|#FF0000|Arial|0|images/WaterMap.gif|0.7|110|35|4|120|100|1|2|#0066cc|0|0,40,dvbbs|sql|aspsky|asp|php|cgi|jsp|htm,0,20,500,20|200,0,0,1,1,1,0,30,0,7200,0,1,0,0,1,1,0,1,1,1,1,1,1,0,1,32,32,1,10,1,0,10,0,1,0,1,1,0,0,0,1,10,1,0,120,30,9,15,4,0,0,0,1,0,1,20,0,1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1,0,0,0,2000-3-26,0,UploadFile/,object|EMBED|,1,1,1,1,0,0,5,0,0,0,0,0,1,1,0,50,30,20,5,100,1,0,0|||100,15,12,12,8,60,10,5,5,6,30,6,2,2,3,25,15,20|||Copyright ©2000 - 2005 oilpainting-china.com|||!,@,#,$,%,^,&,*,(,),{,},[,],|,\,.,/,?,`,~|||论坛暂停使用" Conn.Execute("update Dv_setup set Forum_Setting='"&forum_setting&"'") Dv_suc("还原论坛常规设置成功") Dvbbs.loadSetup() End Sub Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If Err = 0 Then IsObjInstalled = True If Err = -2147352567 Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %>