⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 email.asp

📁 不错的ASP整站源代码。在IIS环境下运行都没有问题
💻 ASP
字号:
<%
toemail=request("toemail")
toname=request("toname")
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="css/style.css">
<title>在线电邮</title>
</head>

<body bgcolor="#F8F8E8">
<p><img border="0" src="Boydianmao.gif" width="107" height="98"></p>

<%if request("邮件")="发送" then
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Charset = "gb2312"
JMail.ContentType = "text/html"
JMail.Sender = "hnwmxx@163.net"
JMail.Subject = request("myname")&"通过X情网给你的问候"
JMail.AddRecipient(""&toemail&"")
JMail.Body = request("s1")& "<br>-----------------------------------<br><a href=http://www.hnwmxx.net>湖南外贸学校 http://www.hnwmxx.net"
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
JMail.Close
Set JMail = Nothing%>
<p align="center"><font color="#ff0000" size="4">信已发出!</font>  
<%else%>

<form method="POST" action="email.asp?b1=发送">
  <div align="center">
    <center>
  <table border="1" width="89%" style="border: 1 double #008000" bgcolor="#E0ECD0">
    <tr>
      <td width="12%">收信人:</td> 
      <td width="38%"> <input type="text" name="toname" size="20" value="<%=toname%>"></td> 
      <td width="12%">发信人:</td> 
      <td width="38%"> <input type="text" name="myname"  size="20" value="<%=request("myname")%>"></td> 
    </tr> 
    <tr> 
      <td width="12%">收信人EMAIL:</td> 
      <td width="38%"><input type="text" name="toemail" size="30" value="<%=toemail%>"></td> 
      <td width="12%">发信人EMAIL:</td> 
      <td width="38%"><input type="text" name="myemail" size="29" value="<%=request("myemail")%>"></td> 
    </tr> 
    <tr> 
      <td width="100%" colspan="4"> 
        <p align="center"><textarea rows="6" name="S1"  cols="88" ><%=request("s1")%></textarea></p>
      </td>
    </tr>
  </table>
    </center>
  </div>
  <p align="center"><input type="submit" value="发送" name="邮件"><input type="reset" value="全部重写" name="B2"></p>
</form>
  
<%end if    
%>    
</body>   
   
</html>   

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -