ASP函数库

ser
  JmailMsg.mailserverpassword=serEmailPass
  JmailMsg.addrecipient email
  JmailMsg.from=fromer
  JmailMsg.fromname=senderName
  JmailMsg.charset="gb2312"
  JmailMsg.logging=true
  JmailMsg.silent=true
  JmailMsg.subject=Subject
  JmailMsg.body=Server.HTMLEncode(content)
  JmailMsg.htmlbody=content
  if not JmailMsg.send(mailaddress) then
      MSMail=False
  else
      MSMail=True
  end if
  JmailMsg.close
  set JmailMsg=nothing
End function
'**************************************************
'函数ID：0023[测试组件是否安装]
'函数名：IsObjInstalled
'作 用：测试组件是否安装
'参 数：strClassString ---- 组件名称或标识字串
'返回值：测试成功返回 True 否则 False
'示 例：IsObjInstalled("JMAIL.Message")
'**************************************************
Public Function IsObjInstalled(ByVal strClassString)
  On Error Resume Next
  IsObjInstalled = False
  Err = 0
  Dim xTestObj
  Set xTestObj = Server.CreateObject(strClassString)
  If 0 = Err Then IsObjInstalled = True
  Set xTestObj = Nothing
  Err = 0
End Function
'**************************************************
'函数名：GetObjVer
'作 用：返回组件版本信息
'参 数：strClassString ---- 组件名称或标识字串
'返回值：返回组件版本信息字串
'示 例：GetObjVer("JMAIL.Message")
'**************************************************
Public Function GetObjVer(ByVal strClassString)
  On Error Resume Next
  GetObjVer=""
  Err = 0
  Dim xTestObj
  Set xTestObj = Server.CreateObject(strClassString)
  If 0 = Err Then GetObjVer=xtestobj.version
  Set xTestObj = Nothing
  Err = 0
End Function
'**************************************************
'函数名：ListObjInfo
'作 用：列出组件安装信息
'参 数： ----
'返回值：列出组件安装信息
'示 例：ListObjInfo()
'**************************************************
Public Function ListObjInfo()
  Dim TempBs,TempBsXX,TempObjType,tmpObjs
  TempBs="×"
  TempBsXX=""
  TempObjType=""
  tmpObjs=""
  tmpObjs=tmpObjs& "JMail.Message|"
  tmpObjs=tmpObjs& "ADODB.Stream|"
  tmpObjs=tmpObjs& "MSWC.AdRotator|"
  tmpObjs=tmpObjs& "MSWC.BrowserType|"
  tmpObjs=tmpObjs& "MSWC.NextLink|"
  tmpObjs=tmpObjs& "MSWC.Tools|"
  tmpObjs=tmpObjs& "MSWC.Status|"
  tmpObjs=tmpObjs& "MSWC.Counters|"
  tmpObjs=tmpObjs& "MSWC.PermissionChecker|"
  tmpObjs=tmpObjs& "Scripting.FileSystemObject|"
  tmpObjs=tmpObjs& "adodb.connection|"
  tmpObjs=tmpObjs& "SoftArtisans.FileUp|"
  tmpObjs=tmpObjs& "SoftArtisans.FileManager|"
  tmpObjs=tmpObjs& "CDONTS.NewMail|"
  tmpObjs=tmpObjs& "Persits.MailSender|"
  tmpObjs=tmpObjs& "LyfUpload.UploadFile|"
  tmpObjs=tmpObjs& "Persits.Upload.1|"
  tmpObjs=tmpObjs& "w3.upload|"
  tmpObjs=Split(tmpObjs,"|")
  Response.write "<center><table border='1' bordercolor='#000000' cellspacing='0' cellpadding='0' style='font-size: 9pt;"">宋体'><tr><td width='33%' valign='middle' align='center' style='border-left: 1 solid #808080; border-right: 1 solid #FFFFFF; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #808080; padding-left: 2; padding-right: 2; padding-top: 1; padding-bottom: 1'>组件标识</td><td width='33%' valign='middle' align='center' style='border-left: 1 solid #808080; border-right: 1 solid #FFFFFF; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #808080; padding-left: 2; padding-right: 2; padding-top: 1; padding-bottom: 1'>√|×</td><td width='34%' valign='middle' align='center' style='border-left: 1 solid #808080; border-right: 1 solid #FFFFFF; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #808080; padding-left: 2; padding-right: 2; padding-top: 1; padding-bottom: 1'>版本</td></tr>" & vbCrlf
  For i = LBound(tmpObjs) To UBound(tmpObjs)
      If Trim(tmpObjs(i))<>"" Then
         If IsObjInstalled(tmpObjs(i)) Then
            TempObjType=tmpObjs(i)
            TempBs="√"
            TempBsXX=GetObjVer(tmpObjs(i))
            If TempBsXX="" Then TempBsXX=" "
         Else
            TempObjType="<font color='#800000'>"&tmpObjs(i)&"</font>"
            TempBs="<font color='#800000'>×</font>"
            TempBsXX=" "
         End If
         Response.write "<tr>" & vbCrlf
         Response.write "<td valign='middle' style='border-left: 1 solid #808080; border-right: 1 solid #FFFFFF; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #808080; padding-left: 2; padding-right: 2; padding-top: 1; padding-bottom: 1'>"&TempObjType&"</td>" & vbCrlf
         Response.write "<td valign='middle' align='center' style='border-left: 1 solid #808080; border-right: 1 solid #FFFFFF; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #808080; padding-left: 2; padding-right: 2; padding-top: 1; padding-bottom: 1'>"&TempBs&"</td>" & vbCrlf
         Response.write "<td valign='middle' align='center' style='border-left: 1 solid #808080; border-right: 1 solid #FFFFFF; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #808080; padding-left: 2; padding-right: 2; padding-top: 1; padding-bottom: 1'>"&TempBsXX&"</td>" & vbCrlf
         Response.write "</tr>" & vbCrlf
      End If
  Next
  Response.write "</table></center>" & vbCrlf
End Function
'**************************************************
'函数ID：0024[上传文件的窗口]
'函数名：PosImageWin
'作 用：上传选择文件窗口，可自动提取文件名及类型
'参 数：PfUrlstr ---- 处理二进制文件信息的URL地址
'返回值：网页HTML文件
'示 例：库结构例子 CREATE TABLE [IMAGES]  ([ID] int IDENTITY (1,1) NOT NULL PRIMARY KEY,[MC]  varchar(50),[LX] varchar(20),[MEM] Text,[IMGS] image)
'************************