asp.net的Mail对象不能够发信。请问是怎么回事。

asp.net的Mail对象不能够发信。请问是怎么回事。下面代码能显示OK。但收不到邮件。<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Import Namespace="system.web.mail" %>
<%@ Import Namespace="system.io" %>
<%%>
<script runat="server">
sub upload_click( src as object,e as eventargs)
   dim filename,filearr as string
   dim filepath as string
   filepath=server.mappath("upload/")
   filename=path.getfilename(uploadfile.postedfile.filename)
    
   uploadfile.postedfile.saveas(filepath & filename)
  
   message.text=message.text &"<br>|" & uploadfile.postedfile.filenameend subSub enter_click(Src As Object, E As EventArgs)
   dim objmail as new mailmessage
   dim filepath as string
   filepath=server.mappath("upload/")
   objmail.from=mailfrom.text
   objmail.to=mailto.text
   objmail.subject=subject.text
   objmail.body=body.text
   dim filename,arr() as string
   arr=split(message.text,"|")
   
   for each filename in arr
        　label.text=label.text & filename
   　    dim objattach as new mailattachment(filepath & path.getfilename(filename))
objmail.attachments(objattach)
　　next 
   smtpmail.smtpserver=""
   smtpmail.send(objmail)
   message.text="OK"End Sub
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>发信程序</title>
<style type="text/css">
<!--
body {
background-image: url();
}
-->
</style></head>
<body>
<p align="center">收发邮件</p><form enctype="multipart/form-data" runat="server">
<table width="500" border="0" align="center">
  <tr>
    <td width="116"><div align="right">收件人</div></td>
    <td width="374">
      <asp:TextBox Columns="50" ID="mailfrom"  runat="server" />   </td>
  </tr>
  <tr>
    <td><div align="right">发件人</div></td>
    <td>
      <asp:TextBox Columns="50" ID="mailto" runat="server" />   </td>
  </tr>
  <tr>
    <td><div align="right">主　题</div></td>
    <td><asp:TextBox Columns="50" ID="subject" runat="server" /></td>
  </tr>
  <tr>
    <td><div align="right">内　容</div></td>
    <td><asp:TextBox ID="body" Columns="50" runat="server" TextMode="MultiLine" Rows="8" /></td>
  </tr>
  <tr>
    <td><div align="right">附　件</div></td>
    <td><input name="uploadfile" type="file" id="uploadfile" size="40" runat="server"></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td> <div align="right"><asp:Button ID="upload" Text="上传" onclick="upload_click" runat="server" />   </div></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><asp:Label ID="message" runat="server" />    </td>
  </tr>
  <tr>
    <td colspan="2"><div align="center"><asp:Button ID="enter" runat="server" Text="发送" OnClick="enter_click" />    
      &nbsp;
      
         <input type="reset" name="Submit" value="重置">
      </div></td>
    </tr>
</table> 
<p>
  <asp:Label ID="Label" runat="server" />  </p>
</form>
</body>
</html>