<%Response.ContentType="Text/plain"%>From:@dblab/mailsend.asp
Content-Type: text/X-PmailDX

<SEL=99;@dblab/mailin.asp>
<%
dim temp,mailcontent
If InStr(1,Request.ServerVariables("QUERY_STRING"),"data")=0 then
	mailcontent=""
Else
	mailcontent=request("data")
End If

If Not IsEmpty(request("str")) then
	temp=Split(Request("str"),"$$")
	If temp(1)="" or temp(2)="" or InStr(1,temp(1),"@")=0 or InStr(1,temp(2),"@")=0 Then
		Response.Write "寄件者或收件者E-mail填寫不正確，請重新填寫。"
	Else
		set mail = server.createobject("CDONTS.NewMail")
		mail.to = temp(2)
		mail.from = temp(1)
		mail.subject = temp(3)
		mail.body = mailcontent
		mail.send
		Response.Write "信件已送出。"
	End IF
End If
%>
感謝使用本系統。
99=>回郵件首頁。