我在XP上装了Jmail,写以下的代码,就是调试不出来!!!!




<%  
'jmail在2003上发送邮件不成功,但是在XP下同样的代码,同样的方法却不成功??? 

'是不是2003还需要怎么特殊配置么? 
'附代码: 
'================================ 
Dim JMail,MailServer,Flag  
Set JMail=Server.CreateObject("JMail.Message")  
If err Then  
  SendMail = False  
  response.Write("false") 
  err.clear  
  'Exit Function  
End if  
JMail.Charset="gb2312" '邮件编码  
JMail.silent=True  
JMail.ContentType = "text/html" '邮件正文格式  

  
 MailServer = "smtp.163.com" '用来发送邮件的SMTP服务器  
 JMail.MailServerUserName = "wwtop" '邮箱登录用户名  
 JMail.MailServerPassWord = "****" '邮箱登录密码  
 JMail.MailDomain = "163.com" '域名（如果用"name@domain.com"这样的用户名登录时，请指明domain.com），可选  
  
 JMail.AddRecipient "weitop@163.com","weitop" '收信人邮箱和收信人名称  
JMail.Subject = "Subject" '主题  
JMail.AppendHTML(MailBody)  
JMail.FromName = "FromName" '发信人姓名  
JMail.From = "wwtop@163.com" '发信人Email  
JMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级  
JMail.Send(MailServer)  
Response.write "<pre>" & JMail.log & "</pre>" 
If  err Then  
   SendMail=True  
   response.Write("true") 
Else  
   SendMail=False  
   response.Write("false2w")' |||||||||||||||||||||||此处显示错误                
End If  
JMail.Close  
Set JMail=nothing  



%>[em18][em18][em18]