asp空间如何判断jmail组件已经安装？是否支持呢？
试验了好久，终于搞定了。
首先，必须有错误继续进行的声明On Error Resume Next
然后尝试简历jmail实例：
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
对实例做出判断，如果组件没有安装成功，则没有创建实例：
If JMail Is Nothing Then
Response.Write "不支持"
Else
Response.Write "支持"
End If
其他组件同样处理，非常简单了。
最好在global文件中处理，里面使用的时候不用那么麻烦了。
最好的方法把邮件生成放到一个表里，然后再说发送的事情。
刘全洪 2009年圣诞
Function object_install(strClassString)
On Error Resume Next
object_install=False
Dim xTestObj
Err=0
Set xTestObj=Server.CreateObject(strClassString)
If Err=0 Then object_install=True
Set xTestObj=Nothing
Err=0
End Function
相关文档：
花了两个晚上帮朋友将一个asp开发的网站从ACCESS数据库转向SQL SERVER 2000. 网上查了些资料，加上自己的经历，总结：
1、首先看asp 的程序中是否有 on error resume next; 如果有,先注释掉。否则很多错误无法暴露出来
2、创建SQL SERVER 数据表。 使用SQL SERVER 2000自带的数据导入向导，将ACCESS数据库中的表结构，以� ......
本节中的主题描述如何使用 Visual Web Developer 工具箱的“HTML”选项卡上的 ASP.NET Web 服务器控件。
默认情况下，服务器无法使用 ASP.NET 网页上的 HTML 元素；这些元素被视为传递给浏览器的不透明文本。但是，通过将 HTML 元素转换成 HTML 服务器控件，可以将它们公开为 ......
<%
function FSOFileDel(filename)
Dim objFSO,objCountFile,FiletempData
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.DeleteFile(Server.MapPath(filename),true)
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
En ......
内容是：
function _doPostBack(){};
if(typeof("__doPostBack")=="function")
{
_doPostBack=__doPostBack;
__doPostBack=_doPostBackNew;
}
document.attachEvent("onmousemove",_onmousemove);
var _isPosting=false;
var _divMask=null; ......
MicrosoftVBScript语法错误(0×800A03E9)–＞内存不足MicrosoftVBScript语法错误(0×800A03EA)–＞语法错误
MicrosoftVBScript语法错误(0×800A03EB)–＞缺少?’:’
MicrosoftVBScript语法错误(0×800A03ED)–＞缺少?’(’
Micros ......
