📄 writesendinfo.asp

📁 红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统

💻 ASP

字号:

<%@ Language=VBScript %> 
<!--#include file="function.asp"-->
<html>
<head>
<title>成功发送...</title>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="expires" content="web,26 Feb 1960 08:21:57 GMT">
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
</head>
<body>
<script language="JScript" runat="server">
function bm(inputstr)
{
return escape(inputstr);
}
</script>
<%
'on error resume next
response.expiresabsolute=dateadd("s",1,now())
if isempty(session("username")) or session("username")="" then
		application.lock
		application("online")=application("online")+1
		if application("online")>1000 then
			application("online")=1
		end if
		application.unlock
		session("username")="访客"&application("online")
end if
if find_online_user(session("siteid"))=0 then
	call write_online_user(session("siteid"),1)
	response.write("<script language=""javascript"">")
	response.write("opener.parent.refflag.value=1;")
	response.write("</script>")
end if
backinfo=Request.form("backinfo")
sendinfo=trim(Request.Form("info"))
if sendinfo<>"" and backinfo<>"" then
	sendinfo=bm(sendinfo)
	application.lock
	writestr=backinfo&sendinfo&"$"&now()&"|"
	application("info")=application("info")&writestr
	onlineuser=application("onlineuser"&session("siteid"))
	nowtime=now()
	for i=0 to ubound(onlineuser)
			if left(onlineuser(i),instr(onlineuser(i),"$"))=cstr(session.sessionid)&"$" then
				number=instrrev(onlineuser(i),"$")
				frontstr=left(onlineuser(i),number-1)
				number1=instrrev(frontstr,"$")
				frontstr=left(frontstr,number1)
				backstr=right(onlineuser(i),len(onlineuser(i))-number)
				onlineuser(i)=frontstr&nowtime&"$"&backstr
				exit for
			end if
	next
	application("onlineuser"&session("siteid"))=onlineuser
	if session("manager")="1" then
		onlinemanager=application("onlinemanager")
		for i=0 to ubound(onlinemanager)
				if 	left(onlinemanager(i),instr(onlinemanager(i),"$"))=cstr(session.sessionid)&"$" then
					number=instrrev(onlinemanager(i),"$")
					frontstr=left(onlinemanager(i),number-1)
					number1=instrrev(frontstr,"$")
					frontstr=left(frontstr,number1)
					backstr=right(onlinemanager(i),len(onlinemanager(i))-number)
					onlinemanager(i)=frontstr&nowtime&"$"&backstr
					exit for
				end if
		next
		application("onlinemanager")=onlinemanager
	end if
	application.unlock
end if
Response.Write("<p align=center><font color=#ff0000>信息成功发送！</font></p>")
Response.Write("<script language=""javascript"">")
response.write("window.close();")
Response.Write("</script>")
Response.End
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -