推薦：一個簡單好用的UBB編輯器(含代碼)現在的在線編輯器有很多，且功能強大，比如 eWebEditor，但也占用空間大，一些簡單的 論壇、留言板并不還需要太強大的功能， HtmlEditor就是這樣一個編輯器，簡單漂亮，調用也方便，推薦大家使用。 調用時代碼， 提交頁： form method=POST action=Post.a
| <% a=request("姓名") aa=request("電話") aaa=request("mail") aaaa=request("yb") aaaaa=request("dz") b=request("bt") bb=request("內容") '上面是請求的數據，由普通表單提交過來即可。 Dim JMail, contentId Set JMail = Server.CreateObject("JMail.Message") JMail.Charset = "gb2312" ’ 郵件字符集，默認為"US-ASCII" ’ JMail.ISOEncodeHeaders = False ’ 是否進行ISO編碼，默認為True ’ 發送者信息（可用變量方式賦值） JMail.From = "xx@xxx.com" ’ 用于發送的郵箱 JMail.FromName = "網站1" ’ 發送者姓名 JMail.Subject = "信箱a" ’ 郵件主題 ’ 身份驗證 JMail.MailServerUserName = "xx@xxx.com" ’用于發送的郵箱 JMail.MailServerPassword = "xxxxxxx" ’ 密碼 ’ 設置優先級，范圍從1到5，越大的優先級越高，3為普通 JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") ’ 加入一個收件人【變量email：收件人地址】可以同一語句重復加入多個 JMail.AddRecipient(yy@yyyy.com) ’ 加入附件【變量filename：附件文件的絕對地址，確保用戶IUSR_????有訪問的權限】 ’ 【參數設置是(True)否(False)為Inline方式】 ’contentId = JMail.AddAttachment (filename, True) ’ 郵件主體（HTML(注意信件內鏈接附件的方式)） JMail.HTMLBody = ""發信人姓名："&a&"<br>電話："&aa&"<br>mail："&aaa&"<br>郵編："&aaaa&"<br>聯系地址："&aaaaa&"<br>標題："&b&" <br> 內容："&bb&"<br>" ’ 郵件主體（文本部分） JMail.Body = "我們的郵件采用了HTML格式，請點擊郵件下方""HTML內容""來查看詳細內容。" ’ 發送【調用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】 sendok=JMail.Send("mail.xxx.com") '發送mail服務器 if sendok then endstr= "已經成功發送了郵件！" else endstr= "發送郵件失敗，可能是您填寫了錯誤的郵件地址。<br/>" & _ "如果您確信沒有寫錯郵件地址，則可能是發信程序出了<br/>" & _ "故障，請與管理員聯系！" end if ’ 關閉并清除對象 JMail.Close() Set JMail = Nothing %> <%=endstr%> |
分享：如何防止網上投票重復投票ASP對象 在ASP中有5個對象：Request、Response、Session、Application、Server。下面只針對本文能用到的對象屬性進行說明，其他方面的屬性請參考相關資料。本文提供的方法的原理是：設置一個邏輯變量IsVoted，在投票之前驗證IsVoted的值，只有值為False時，才
新聞熱點
疑難解答
