questionrepdo.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0820" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/SendMail.asp"-->
<%


strSQL="exec SP_Question_Handle " & +_
	"'" & Session("UserID") & "'," & +_
	"'" & Trim(Request.Form("act")) & "'," & +_
	"'" & Request.ServerVariables("REMOTE_ADDR") & "'," & +_
	"'" & Request.Form("UQID") & "'," & +_
	"'" & Request.Form("UQTitle") & "'," & +_
	"'" & Request.Form("UQDomainAbout") & "'," & +_
	"'" & Request.Form("UQIPAbout") & "'," & +_
	"'" & Request.Form("TypeCode") & "'," & +_
	"'" & Request.Form("UQInfo") & "'," & +_
	"'" & Request.ServerVariables("REMOTE_ADDR") & "'," & +_
	"'" & Request.Form("ReInfo") & "'," & +_
	"'" & Request.ServerVariables("REMOTE_ADDR") & "'"
'Response.Write strSQL
'Response.End
Set Rs= Cn.Execute(strSQL)  
%>                          
<br><br>
<p align="center" class="titletext"><%=Rs("msg")%> 
<%

if Rs("result")=0 and Trim(Request.Form("act"))<>"删除" then
	Subject="您提出的问题已经解答 --" & Opt_System_CompanyName
	MailFile = "../../Include/MailTemplate/question.txt"
	Send_Email Rs("Email"),Subject,MailFile,"$注册人$",Rs("UserName"),"$问题标题$",Rs("UQTitle"),"$提问时间$",Rs("UQTime"),"","","","","","","","","","","","","","","","","",""
%>
[<a href="QuestionList.asp?UQStat=2" class="a2">返回</a>]
<%
else
%>
[<a href="#" onclick="javascript:history.go(-1)" class="a2">返回上一步</a>]
<%
end if
%>
</p>
<%
Call PrintPageBottom
Rs.Close
Cn.Close
%>