易截截图软件、单文件、免安装、纯绿色、仅160KB

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内置对象及其作用

一、Application对象
Application对象是个应用程序级的对象,用来在所有用户间共享信息,并可以在Web应用程序运行期间持久地保持数据。
Application的属性:
Application对象没有内置的属性,但是我们可以自行创建其属性。
<% Application(”属性名”)=值 %>
大部分Application变量都 存放在Con ......

ASP.NET ASP.NET 网页的 HTML 控件


      本节中的主题描述如何使用 Visual Web Developer 工具箱的“HTML”选项卡上的 ASP.NET Web 服务器控件。
默认情况下,服务器无法使用 ASP.NET 网页上的 HTML 元素;这些元素被视为传递给浏览器的不透明文本。但是,通过将 HTML 元素转换成 HTML 服务器控件,可以将它们公开为 ......

asp上传excle文件并导入到access数据库

<%
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 ......

asp导出EXCEL数字格式及自动适应宽度的问题


asp导出EXCEL数字格式及自动适应宽度的问题
下面直接进行代码演示:
<%
If Response.IsClientConnected Then
Response.Flush
Else
Response.End
End If
Set xlApplication = Server.CreateObject("Excel.Application")
xlApplication.Visible = False
xlApplication.Workbooks.Add
Set xlWorksheet = xl ......

ASP .NET 中 AJAX 的 TabContainer 的 CSS 样式编写

在 ASP .NET 的 AJAX 控件中 TabContainer 的 CSS 样式的编写具有一定的格式规范及命名规则,如下图:
具体的 CSS 样式的编写为:
.ajax_tab_menu .ajax__tab_header /*整体按钮底样式*/
{
font-family:宋体;
height:29px;
font-size:12px;
background:#181c1f repeat-x bottom;
}
.ajax_tab_menu .ajax__tab ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号