teachsupport_in.asp

来自「功能最强大的ASP网站」· ASP 代码 · 共 54 行

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%

if session("username")="" then
	session("mesg")="请先登录,再注册"
	Response.Redirect "../result.asp"
end if

'on error resume next
strTitle=request("Title")
strBody=request("Body")

if strTitle="" or strBody="" then
	session("mesg")="标题和内容不能为空"
	Response.Redirect "../result.asp"
end if

set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&session("username")&"'"
rs.open sql,conn,1,1

UserEmail = rs("email")
UserName = rs("rchname")
rs.close
set rs=nothing


mess="您好:"& vbcrlf
mess=mess& vbcrlf
mess=mess& vbcrlf
mess=mess&"    用户["&session("username")&"]有如下问题:"& vbcrlf
mess=mess&"    姓名:"&UserName& vbcrlf
mess=mess&"    邮箱:"&UserEmail& vbcrlf
mess=mess&"    标题:"&strTitle& vbcrlf
mess=mess&"    问题:"&strBody& vbcrlf
mess=mess& vbcrlf
mess=mess& vbcrlf

set RsMailSet = conn.execute ("select * from mailCfg where CfgName like 'SysCfg%'")
	 do while not RsMailSet.eof
	 if RsMailSet("CfgName") = "SysCfg-RecvMailBox" then  SysCfg_RecvMailBox = RsMailSet("CfgBody")
	 RsMailSet.movenext
	 loop
	 RsMailSet.close
	 
result = SendEMail(SysCfg_RecvMailBox,mess)

session("mesg")=result
Response.Redirect "../result.asp"

%>