出现错:
Microsoft VBScript 运行时错误 错误 '800a01b6' 对象不支持此属性或方法: 'ttinfo' /com/mytest.asp,行 9
Microsoft VBScript 运行时错误 错误 '800a01b6' 对象不支持此属性或方法: 'ttinfo' /com/mytest.asp,行 9
解决方案 »
- 主任何如何等待线程执行完程,
- 求助:TblobField怎么用????
- 高分悬赏解决:dbgrid1数据刷新时记录乱跳的现象
- 如何在Microsoft OutLook中加入自定义工具栏
- 有关大量照片(一寸)的存储方式的讨论,欢迎大家进入,侃侃
- 数据库密码问题
- 关于component中的font属性
- hi,我又遇到困难了,帮我解答解答好吗?我在线等着,谢谢了.
- 怪问题,高分相送,程序的某一个窗体在运行一段时间后便消失了,不能显示了,谁能指点?
- 什么工具可以检测程序的内存泄露
- 带密码解压rar文件到特定的目录,有没有控件?用命令行怎么写?
- windowsNT的密码!!??装系统的时候为登录不用密码!!装上以后设置为要密码登录??可是不知道密码!!??
因为vb里面的不存在虚方法表,所以可以通过这样的方法创建一个asp可以调用的.
用法示意如下:
<%@LANGUAGE="VBSCRIPT"%>
<%
'option explicit
dim DbConn,connstr,db
'Email配置信息
dim SmtpHost, AdminName, AdminEmail, NeedAuth, EmailAccount, EmailPW
SmtpHost="smtp.263.net"
AdminEmail="[email protected]"
NeedAuth=true '是否需要认证
EmailAccount="hubdog"
EmailPW="XXXX"
AdminName="管理员"
'发送email
function SendMail(Email, Subject, Body)
set MailSender=Server.CreateObject("IndyMail.MailSender")
MailSender.SetBody Body
MailSender.SetFrom """"+AdminName+""" <"+AdminEmail+">"
MailSender.SetHost SmtpHost
MailSender.SetAuth NeedAuth
MailSender.SetSenderName EmailAccount
MailSender.SetSenderPW EmailPW
MailSender.SetSubject Subject
MailSender.SetTo Email
SendMail=MailSender.Send
end function
%>