Server 对象, ASP 0177 无效的类别字符串,谁能帮我改改!

原创 2005年04月24日 14:58:00

急,谁能帮我改改!

错误类型:
Server 对象, ASP 0177 (0x800401F3)
无效的类别字符串
/manage/sendmailto.asp, 第 102 行

<%@language=vbscript codepage=936 %>
<!--#include file="Admin.asp"-->
<!--#include file="Conndb.asp"-->
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="150" align="center" valign="top"> <table width="150" height="100%" border="0" cellpadding="0" cellspacing="0" class="HeaderTdStyle">
        <tr>
          <td align="center" valign="top"><table width="100%" height="24" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td align="center">功能菜单</td>
              </tr>
            </table>
            <table width="100%" height="90%" border="0" cellpadding="0" cellspacing="0" class="MenuBg">
              <tr>
                <td align="center" valign="top"><br> <table width="90%" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="16%"><img src="../Img/Left_1.gif" width="28" height="11"></td>
                      <td width="84%" height="20"><font color="#FFFF00">邮件列表管理</font></td>
                    </tr>
                  </table>
                  <table width="90%" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="34%" height="20" align="right"><img src="../Img/Left_1_1.gif" width="29" height="16"></td>
                      <td width="66%" valign="bottom"><a href="Maildefault.asp"><font color="#FFFF00">邮件列表设置</font></a></td>
                    </tr>
                  </table>
                  <table width="90%" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="34%" height="20" align="right"><img src="../Img/Left_1_1.gif" width="29" height="16"></td>
                      <td width="66%" valign="bottom"><a href="Sendmail.asp"><font color="#FFFF00">发送邮件</font></a></td>
                    </tr>
                  </table>
                  <table width="90%" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="34%" height="20" align="right"><img src="../Img/Left_1_1.gif" width="29" height="16"></td>
                      <td width="66%" valign="bottom"><a href="Viewuser.asp"><font color="#FFFF00">用户管理</font></a></td>
                    </tr>
                  </table>
                  <table width="90%" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="34%" height="20" align="right"><img src="../Img/Left_1_1.gif" width="29" height="16"></td>
                      <td width="66%" valign="bottom"><a href="Adduser.asp"><font color="#FFFF00">添加用户</font></a></td>
                    </tr>
                    <tr>
                      <td height="20" align="right">&nbsp;</td>
                      <td valign="bottom">&nbsp;</td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
    <td width="862" align="center" valign="top">
 <br>
      <br>
      <b>发 送 邮 件</b><br>
      <br>
      <br>
   <%
'发送
set rs=server.createobject("adodb.recordset")
sql="select * from email "
rs.open sql,conn,1,3 

'读取默认的邮件标题及内容
set rs1=server.createobject("adodb.recordset")
sql1="select * from maildefault "
rs1.open sql1,conn,1,3 

'设置发信人
frommail=request("frommail")
if frommail="" then
frommail=rs1("frommail")
end if

'设置邮件主题
mailsubject=request("mailsubject")
if mailsubject="" then
mailsubject=rs1("mailsubject")
end if

'设置邮件内容
mailbody=request("mailbody")
if mailbody="" then
mailbody=rs1("mailbody")
end if

'判断对谁发信
tomail=request("tomail")
'写发信信息
response.write "发信人地址: "&frommail
response.write "<br><br><br>"
if tomail<>"" then
response.write "收信人地址:"&tomail
else
response.write "正在进行邮件群发!"
end if

if tomail<>"" then
'对于单一用户发信
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = frommail
objCDOMail.To = tomail
objCDOMail.Subject = mailsubject 
objCDOMail.Body = mailbody  
objCDOMail.Send
Set objCDOMail = Nothing
else

'对于在用户数据库中的全体用户发信
for i=1 to rs.recordcount
tomail=rs("email")
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = frommail
objCDOMail.To = tomail
objCDOMail.Subject = mailsubject 
objCDOMail.Body = mailbody  
objCDOMail.Send
Set objCDOMail = Nothing
rs.movenext
next
end if
response.write "<br><br><br>"
response.write "邮件发送成功!^&^"
'response.write "<br><br><br>"
'response.write rs1("mailsubject")
%> <a href="Sendmail.asp">返回</a>
    </td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->

Server 对象, ASP 0177 (0x800401F3)无效

Server 对象, ASP 0177 (0x800401F3)无效 写一个asp程序的时候遇到了标题的错误提示,发现最重要的是注册表的权限问题。  解决方法 1、首先在系统盘中查找scrrun...

无法打开数据库文件,怎么回事,谁能帮我解决解决啊!!!

下面是我的代码信息:    button.setOnClickListener(new OnClickListener() { @Override public void o...

谁能帮我写个用C语言实现计算机网络零比特流插入

谢谢!

谁能帮我看看这段jsp代码中的问题

http://www.w3.org/TR/html4/loose.dtd">        用户登陆验证          //获取登录的用户名   String UserName...

【转载】SQL+ASP.NET对象名无效

SQL对象名无效的解决方法 默认分类   2009-11-03 15:10   阅读365   评论6   字号: 大大  中中  小小 产生SQL对象名无效的问题大多原因是由于数据迁移导致的,...

对象的当前状态使该操作无效-asp.net

问题:现在asp.net request 表单域的默认长度是1000,如果是超过一千 就会出错,或者request.form取不到1000以后的表单数据。 测试代码:   ...

Sql Server2008之关于”***对象无效“错误

我们在sql server2008中编写sql语言时,经常会遇到这样的提示:***对象无效。这是什么错误,为什么在2000版本中就不存在这样的情况呢?其实这主要是sql server 2005/200...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Server 对象, ASP 0177 无效的类别字符串,谁能帮我改改!
举报原因:
原因补充:

(最多只允许输入30个字)