股票太钢不锈今日行情:ASP高手救命~~```帮我看看哪里错了 下面是部分代码

来源：百度文库 编辑：高考问答 时间：2024/04/28 22:25:45
错误类型：
Server 对象, ASP 0177 (0x800401F3)
无效的类别字符串
/addUser_ok.asp, 第 69 行
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员注册</title>
<link rel="stylesheet" href="inc/css.CSS">
<%
dim userName,email,userType,pswd,realName,sexy,fond,memo
userName=trim(request("userName"))
email=trim(request("email"))
userType=trim(request("userType"))
pswd=trim(request("newPswd"))
realName=trim(request("realName"))
sexy=trim(request("sexy"))
fond=trim(request("fond"))
memo=trim(request("memo"))
dim conn,strconn
Set conn = Server.CreateObject("ADODB.Connection")
strconn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data/db.mdb")
conn.Open Strconn
dim rs,sql
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from tb_user"
rs.open sql,conn,1,3
rs.addnew
rs("userName")=userName
rs("email")=email
rs("pswd")=pswd
rs("userType")=userType
rs("realName")=realName
rs("sexy")=sexy
rs("fond")=fond
rs("memo")=memo
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
mailto="kjl@inetcop.com.cn"
mailfrom=request.form("email")
mailtopic="网站反馈:"&request.form("title")
mailbody="<html>"
mailbody=mailbody & "<title>网站反馈</title>"
mailbody=mailbody & "<body>"
mailbody=mailbody & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
mailbody=mailbody & "<TD valign=middle align=top>"
mailbody=mailbody & " 您好：<br><br>"
mailbody=mailbody & " 网站有新的反馈信息,请注意查看！<br>"
mailbody=mailbody & " 用户帐号："&request.form("userName")&"<br>"
mailbody=mailbody & " 电子邮件："&request.form("email")&"<br>"
mailbody=mailbody & " 权限级别："&request.form("userType")&"<br>"
mailbody=mailbody & " 用户口令："&request.form("pswd")&"<br>"
mailbody=mailbody & " 真实姓名："&request.form("realName")&"<br>"
mailbody=mailbody & " 用户性别："&request.form("sexy")&"<br>"
mailbody=mailbody & " 个人爱好："&request.form("fond")&"<br>"
mailbody=mailbody & " 其它情况："&request.form("memo")&"<br>"
mailbody=mailbody & "<br><br>"
mailbody=mailbody & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
mailbody=mailbody & "</body>"
mailbody=mailbody & "</html>"
call Jmail_msg(mailto,mailfrom,mailtopic,mailbody)
sub Jmail_msg(mailto,mailfrom,mailtopic,mailbody)
dim SMTPServer
dim SMTPAccount,SMTPPwd
SMTPServer="inetcop.com.cn"
SMTPAccount="kjl@inetcop.com.cn"
SMTPPwd="147258369"
dim SendMailStatus,rcpt,i
dim msg
set msg = Server.CreateOBject( "JMail.Message" )
msg.silent = true
msg.Logging = true
msg.Charset ="gb2312"
msg.ContentType = "text/html"
msg.From = mailfrom
'msg.FromName = "Sender name"
msg.RePlyTo = mailfrom
rcpt=split(mailto,",")
for i=0 to ubound(rcpt)
msg.AddRecipient rcpt(i)
next
msg.Subject = mailtopic
msg.Body = mailbody

是那一行？？？
照这样看，你应该没有装jmail组件。

首先缺少了end sub,你还得装j_mail组件

报错在第几行？

ASP高手救命~~```帮我看看哪里错了 我想拜师 加我QQ43433268 ASP高手救命~~```帮我看看哪里错了 下面是部分代码 ASP高手救命~~```帮我看看哪里错了 下面是部分代码 ASP高手帮我看看这段分页代码哪里错了，怎么不显示呢 高手帮我看看!ASP 帮我看看电脑怎么了，高手救命 asp分页－高手帮我看看哪里出错了！－我饭都没吃啊，郁闷～～ 多谢多谢 ASP高手来帮我看看代码 高手帮我看看这个asp问题 ASP编程!高手帮我看看呀!