各位兄弟帮帮忙啊,这段代码为什么上传使用没反应啊。还是发不出邮件啊
<%
If Request("Send") <> Empty Then
Set mail = Server.CreateObject( "CDONTS.NewMail" )
mail.To = Request("To")
mail.From = Request("From")
mail.Subject = Request("Subject")
mail.Body = Request("Body")
mail.Send
Response.Write "邮件已送出! "
Else
mail = request("mail")
%>
<HTML>
<BODY>
<FORM Action=send_mail.asp Method=POST>
<TABLE Border=0 cellpadding="3" cellspacing="0" align="center">
<TR>
<TD>收件人:</TD>
<TD>
<INPUT Type=Text Name="To" Size=40 value="<%=mail%>">
</TD>
</TR>
<TR>
<TD>发件人:</TD>
<TD>
<INPUT Type=Text Name="From" Size=40>
</TD>
</TR>
<TR>
<TD>主题:</TD>
<TD>
<INPUT Type=Text Name="Subject" Size=40>
</TD>
</TR>
<TR>
<TD>内容:</TD>
<TD>
<TEXTAREA Name="Body" Rows=8 Cols=40></TEXTAREA>
</TD>
</TR>
<TR>
<TD colspan="2">
<div align="center">
<input type=Submit value=" 发 送 " name="Send">
</div>
</TD>
</TR>
</TABLE>
</FORM>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center"><a href="http://www.k666.com">k666软件园</a></td>
</tr>
<%
End If
%>
</BODY>
</HTML>