📄 sendmsg_action.asp

📁 OFFICE办公自动化

💻 ASP

字号:

<!--#include file="dbconn.asp"-->
<!--#include file="inc_function.asp"-->
<html>
<head>
<title>发送消息
</title>
<script language="javascript">
<!--
function document_onkeydown() {
if(event.ctrlKey && window.event.keyCode==78)
  {
  
     window.alert ("欢迎使用B-ICQ")

  }
}

//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=document EVENT=onkeydown>
<!--
 document_onkeydown()
//-->
</SCRIPT>
</head>
<body oncontextmenu=self.event.returnValue=false>
<%
touser=filt_space(trim(request.form("touser")))
'msg=char_filter(trim(request.form("Message")))
msg=trim(request.form("Message"))

set rs=server.createobject("adodb.recordset")

sqlstr="select * from userinfor where username='"&touser&"'"
on error resume next
rs.open sqlstr,conn,1,3
if Err.number <> 0 then
	hassErr=true
	msgerror="提示\n\n发送超时\n\n请重新发送!"
	Err.Clear 
elseif rs.recordcount<>1 then
	msgerror="接收方出错！\n\n请重新发送!"
	hassErr=true
end if

rs.Close 
'***************************************
if hassErr=false then
	sqlstr="select * from msg where 1=2"
	rs.open sqlstr,conn,1,3
	on error resume next
	rs.addnew
	rs("sender")=session("icqusername")
	rs("receiver")=touser
	rs("msgdate")=now()
	rs("msg")=msg
	rs("state")="new"
	rs.update
	rs.close
	if Err.number<>0 then
	msgerror="发送超时\n\n请重新发送!"
	end if
end if
if msgerror <> "" then
%>
<script language=javascript>
if(confirm("   提示  \n<%=msgerror%>")){
history.back()
}else{

self.close()

}

</script>
<%
else
%>
<script language=javascript>

self.close()

</script>
<%
end if
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -