📄 inquiry_view_ok.asp
字号:
<!-- #include virtual="/admin/admin_head.asp" -->
<%
Category = request("category")
userID = request("userid")
username = request("username")
Email = request("email")
TItle = request("title")
question = request("question")
answer = request("answer")
page = request("page")
idx = request("idx")
qdate = now
Const CdoBodyFormatHTML = 0 ' Body property is HTML
Const CdoBodyFormatText = 1 ' Body property is plain text (default)
Const CdoMailFormatMime = 0 ' NewMail object is in MIME format
Const CdoMailFormatText = 1 ' NewMail object is plain text (default)
Const CdoLow = 0 ' Low importance
Const CdoNormal = 1 ' Normal importance (default)
Const CdoHigh = 2 ' High importance
strFrom = "bgadmin@bombgame.com"
strTo = Email
strSubject = "[BombGame] " & username & "雀盔丛膊辑 巩狼窍脚 郴侩俊 措茄 翠函涝聪促."
If Not (IsNull(strTo)) AND (Instr(strTo, "@") <> 0) AND (Instr(strTo, ".") <> 0) Then
strBody = " <html>"
strBody = strBody & " <head>"
strBody = strBody & " <meta http-equiv=content-type content=text/html; charset=euc-kr>"
strBody = strBody & " <link rel=stylesheet href=http://www.bombgame.com/common/css/bomb.css type=text/css>"
strBody = strBody & " </head>"
strBody = strBody & " <body >"
strBody = strBody & " <table align=center border=0 cellpadding=0 cellspacing=0 width=500>"
strBody = strBody & " <tr>"
strBody = strBody & " <td width=500 height=107 background=http://www.bombgame.com/common/inquiryfile/images/mailtoadmin_01.gif>"
strBody = strBody & " <table align=center border=0 cellpadding=0 cellspacing=0 width=500 height=107 class=boardtext03>"
strBody = strBody & " <tr>"
strBody = strBody & " <td width=269 height=72></td>"
strBody = strBody & " <td width=231 height=72 valign=bottom align=right><a href=http://www.bombgame.com target=_blank><font color=black>www.BombGame.com</font></a> </td>"
strBody = strBody & " </tr>"
strBody = strBody & " <tr>"
strBody = strBody & " <td width=269 align=right ><font color=blue>"
strBody = strBody & username
strBody = strBody & " 丛狼</font></td>"
strBody = strBody & " <td width=231></td>"
strBody = strBody & " </tr>"
strBody = strBody & " </table>"
strBody = strBody & " </td>"
strBody = strBody & " </tr>"
strBody = strBody & " <tr>"
strBody = strBody & " <td width=500 height=60 background=http://www.bombgame.com/common/inquiryfile/images/mailtoadmin_02.gif>"
strBody = strBody & " <table align=center border=0 cellpadding=0 cellspacing=0 width=500 height=60 class=boardtext03>"
strBody = strBody & " <tr>"
strBody = strBody & " <td width=61></td>"
strBody = strBody & " <td width=439><B><font color=blue>"
strBody = strBody & title
strBody = strBody & " </font></B></td>"
strBody = strBody & " </tr>"
strBody = strBody & " </table>"
strBody = strBody & " </td>"
strBody = strBody & " </tr>"
strBody = strBody & " <tr>"
strBody = strBody & " <td width=500 background=http://www.bombgame.com/common/inquiryfile/images/mailtoadmin_03.gif>"
strBody = strBody & " <table align=center border=0 cellpadding=0 cellspacing=0 width=450 class=boardtext03>"
strBody = strBody & " <tr>"
strBody = strBody & " <td width=490 class=black>"
strBody = strBody & question
strBody = strBody & " </td>"
strBody = strBody & " </tr>"
strBody = strBody & " </table>"
strBody = strBody & " </td>"
strBody = strBody & " </tr>"
strBody = strBody & " <tr>"
strBody = strBody & " <td width=500 align=center><img src=http://www.bombgame.com/common/inquiryfile/images/mailtoadmin_04.gif width=500 height=44 border=0></td>"
strBody = strBody & " </tr>"
strBody = strBody & " <tr>"
strBody = strBody & " <td width=500 background=http://www.bombgame.com/common/inquiryfile/images/mailtoadmin_05.gif>"
strBody = strBody & " <table align=center border=0 cellpadding=0 cellspacing=0 width=450 class=boardtext03>"
strBody = strBody & " <tr>"
strBody = strBody & " <td width=490><font color=blue>"
strBody = strBody & answer
strBody = strBody & " </font></td>"
strBody = strBody & " </tr>"
strBody = strBody & " </table>"
strBody = strBody & " </td>"
strBody = strBody & " </tr>"
strBody = strBody & " <tr><td width=500><a href=http://www.bombgame.com target=_blank><img src=http://www.bombgame.com/common/inquiryfile/images/mailtoadmin_06.gif width=500 height=66 border=0></a></td></tr>"
strBody = strBody & " </table>"
strBody = strBody & " </body>"
strBody = strBody & " </html>"
Set objSendMail = CreateObject("CDONTS.NewMail")
objSendMail.From = strFrom
objSendMail.To = strTo
objSendMail.Subject = strSubject
objSendMail.Body = strBody
objSendMail.BodyFormat = CdoBodyFormatHTML
objSendMail.MailFormat = CdoMailFormatMime
objSendMail.Importance = CdoNormal
objSendMail.Send
Set objSendMail = nothing
SQL ="UPDATE mailtoadmin SET ansYorN = " & 1 & " WHERE idx=" & idx
DbCon.Execute(SQL)
%>
<script language="javascript">
<!--
var page = "<%=page%>";
alert("翠函 皋老捞 己傍利栏肺 惯价 登菌嚼聪促.");
location.href="inquiry.asp";
//-->
</script>
<%
else
%>
<script language="javascript">
<!--
var page = "<%=page%>";
alert("翠函 皋老 惯价捞 角菩窍看嚼聪促.\n\n皋老 林家甫 犬牢窍咯 焊技夸!!!");
location.href="inquiry.asp";
//-->
</script>
<%
end If
%>
<!-- #include virtual="/admin/admin_bottom.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -