📄 writemsg.asp

📁 电子商城代码
💻 ASP
字号:
<!--#include file="connshop.asp" -->
<!--#include file="webconfig.asp"-->
<script>
function killErrors() {
return true;
}
window.onerror = killErrors;
dd
</script>
<%
session.codepage=65001
response.charset="utf-8"
strwebtitle=www56770com_word629
response.write c_skin_56770(c_skin_word(skin_head))
Dim subject,to_user,idate,msg
if session(""&cookiesname&"user_id")="" Then
        response.write"<meta http-equiv='refresh' content=3;url=javascript:window.close()>"
        tl=www56770com_word675
        mes="路"&www56770com_word630&""
        mes=mes&"<br><br>路<a href='javascript:window.close();'><img border=0 src=images/close.gif align=absmiddle>"&www56770com_word235&"</a>"
		call sendinfo(tl,mes)
        id=request("id")
ElseIf request("action")="add" Then
                subject=safereplace(request("subject"))
                user_id=safereplace(session(""&cookiesname&"user_id"))
                msg=safereplace(request("msg"))
                to_user=""&www56770com_word250&""
                idate=now()
                If subject="" or msg="" then
                        response.write"<meta http-equiv=refresh content=2;url=javascript:history.go(-1)>"
                        tl=www56770com_word675
                        mes="路"&www56770com_word631&""
                        mes=mes&"<br><br>路<a href='javascript:history.go(-1)'><img border=0 src=images/re.gif align=absmiddle>"&www56770com_word345&"</a>"
		                call sendinfo(tl,mes)
                else
                        conn.execute "insert into [56770_message] (subject,user_id,msg,idate,to_user) values ('"&subject&"','"&user_id&"','"&msg&"','"&idate&"','"&to_user&"')"
						response.write"<meta http-equiv='refresh' content=3;url=javascript:window.close()>"
                        tl=www56770com_word629
                        mes="路"&www56770com_word632&""
                        mes=mes&"<br><br>路<a href='javascript:window.close();'><img border=0 src=images/close.gif align=absmiddle>"&www56770com_word235&"</a>"
	                	call sendinfo(tl,mes)
                end if
else
%>
<BODY BGCOLOR="#ffffff" TEXT="#00000" MARGINHEIGHT="0" MARGINWIDTH="0" TOPMARGIN="0" LEFTMARGIN="0">
<table width="100%" border="0" cellspacing="1" cellpadding="3" class="bk_b">
<form name="form1" method="post" action="writemsg.asp">
<tr class="bk_h">
<td width="20%"><%=www56770com_word292%></td>
<td width="80%">
<input type="text" name="subject" size="40" class="form" value="[<%=www56770com_word633%>]<%=request("product_name")%>" readonly>
</td>
</tr>
<tr class="bg_l">
<td width="20%"><%=www56770com_word297%></td>
<td width="80%">
<textarea name="msg" cols="38" rows="4"></textarea>
</td>
</tr>
<tr align="center">
<td CLASS="bk_h" colspan="2">
<input type="submit" name="Submit2" value="<%=www56770com_word497%>" class="wenbenkuang1">
<input type="hidden" name="action" value="add">
<input type="hidden" name="user_id" value="<%=session("user_id")%>">
</td>
</tr>
</form>
</table>
<%End if%>
<%connclose()%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -