queren.asp

来自「1、全面展示宾馆的自然情况和服务内容； 2、介绍宾馆信息,帮助客人了解宾馆相」· ASP 代码 · 共 34 行

<%
if session("admin_name")="" then response.end
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%
	if request("huifu")<>"pp" then
		set rs=server.CreateObject("adodb.recordset")
		sql="select * from email where id="&request("huifu")
		rs.open sql,conn,1,3
		set rs1=server.CreateObject("adodb.recordset")
		sql1="select * from dd where id="&session("id")
		rs1.open sql1,conn,1,3
		rs1("check")=true
		rs1("huifu")=request("huifu")
		rs1.update
		Set msg = Server.CreateObject("JMail.Message") 
		msg.silent = true 
		msg.Logging = true 
		msg.Charset = "gb2312" 
		msg.MailServerUserName =rs("femail") '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址） 
		msg.MailServerPassword = rs("pwd") '输入smtp服务器验证密码 （用户Email帐号对应的密码） 
		msg.From =rs("femail")  '发件人Email 
		msg.FromName = rs("fname")'发件人姓名 
		msg.AddRecipient rs1("email") '收件人Email 
		msg.Subject = rs("title") '信件主题 
		msg.Body = rs("content") '正文 
		msg.Send (rs("smtp")) 'smtp服务器地址（企业邮局地址） 
		set msg = nothing 
		response.Redirect("subpass.asp")
	else 
		response.Write("<script language=javascript>alert('请选择类型');location='javascript:history.go(-1)'</script>")
	end if
%>