email.asp

与asp相关的技术 如数据库和网页设计 很有用的哦

<%
if session("user_type")<>"S" then
	response.redirect "../../../index.asp"
end if
%>
	<%response.buffer=true%>
	<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
	<!--#INCLUDE FILE="../../../../config/config.asp"-->
<%
	On error resume next
	'获取参数
	dim guest_id,append_file,user_id
	guest_id=request("guest_id")
	user_id=session("user_id")


	'开始发信
	Dim Jmail        
	Set Jmail = Server.CreateObject("Jmail.Message")    
	'获取信件内容
	
	sql="select guest.title,guest.body as body2,guest.reader_id,guest.email_open,teacher.email from guest,teacher"
	sql=sql & " where guest.guest_id=" & guest_id
	sql=sql & " and guest.email_open=1"
	sql=sql & " and guest.writer_id=teacher.user_id"
	set rs=db.execute(sql)
	
	'如果允许email公开，就执行下面发送操作！
	if rs("email_open")=1 then

	Jmail.From = rs("email")     '发件人 
	Jmail.Subject = rs("title")  '主题
	'If rs("body2")<>"" then
		ttt=rs("body2") 
		if ttt<>"" then
		Jmail.Body = ttt '内容
		end if
	'end if
		Jmail.Body = ttt '内容
	'下面做收件人,如是"ALL" 则，如下
	IF rs("reader_id")="ALL" Then
		sql2="select email from teacher"
		set rs2=db.execute(sql2)
		do while not rs2.eof 
			if rs2("email")<>"" then
			Jmail.AddRecipient rs2("email")
			end if
			rs2.movenext
		loop
		sql2="select email from student"
		set rs2=db.execute(sql2)
		do while not rs2.eof 
			if rs2("email")<>"" then
			Jmail.AddRecipient rs2("email")
			end if
			rs2.movenext
		loop
	elseIF rs("reader_id")=session("lesson_id") Then
		sql2="select teacher.email from teacher,user_lesson"
		sql2=sql2 & " where  teacher.user_id=user_lesson.user_id"
		sql2=sql2 & " and user_lesson.lesson_id='" & session("lesson_id") & "'"
		set rs2=db.execute(sql2)
		do while not rs2.eof 
			if rs2("email")<>"" then
			Jmail.AddRecipient rs2("email")
			end if
			rs2.movenext
		loop
		sql2="select student.email from student,user_lesson"
		sql2=sql2 & " where  student.user_id=user_lesson.user_id"
		sql2=sql2 & " and user_lesson.lesson_id='" & session("lesson_id") & "'"
		set rs2=db.execute(sql2)
		do while not rs2.eof 
			if rs2("email")<>"" then
			Jmail.AddRecipient rs2("email")
			end if
			rs2.movenext
		loop
	else
		sql2="select teacher.email from teacher where user_id='" & rs("reader_id") & "'"
		set rs2=db.execute(sql2)
		do while not rs2.eof 
			if rs2("email")<>"" then
			Jmail.AddRecipient rs2("email")
			end if
			rs2.movenext
		loop
		sql2="select student.email from student where user_id='" & rs("reader_id") & "'"
		set rs2=db.execute(sql2)
		do while not rs2.eof 
			if rs2("email")<>"" then
			Jmail.AddRecipient rs2("email")
			end if
			rs2.movenext
		loop

	end if

	'执行发送,请换成你的发信服务器
	Jmail.Charset="gb2312"
	Jmail.send(email_server)  
	Jmail.Close  '关闭对象
	end if

	response.redirect "index.asp"
%>