📄 bottom.asp

📁 一个小小的固定资产程序

💻 ASP

字号:

<!--#INCLUDE FILE="connection.asp" -->
<HTML><HEAD><TITLE>bottom_main</TITLE>
<SCRIPT>
function OpenWindows(url,widthx,heighx)
{
  var 
 newwin=window.open(url,"_blank","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,top=20,left=60,width=320,height=160");
 return false;
 
}
function OpenWindows1(url,widthx,heighx)
{
  var 
 newwin=window.open(url,"_blank","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,top=20,left=60,width=500,height=300");
 return false;
 
}
</SCRIPT>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<meta HTTP-EQUIV=REFRESH CONTENT=6;URL=bottom.asp>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
   <%
nowtime=now()
shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)+right("0"+cstr(hour(nowtime)),2)+right("0"+cstr(minute(nowtime)),2)
strSQL ="SELECT * FROM calendar where (userid="&session("Uid")&" and state=false and remindtime<'"&shijian&"') ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL,Conn,1,1
if not rs.eof then
	do while not (rs.eof or rs.bof)
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
OpenWindows1('checkcalendar.asp?id='+<%=rs("id")%>,'width=500','height=300')
//-->
</SCRIPT>
 <%rs.movenext 
loop 
else%>

<BODY bgColor=#276db2 leftMargin=0 topMargin=0 marginheight="0" 
marginwidth="0">
<%
end if

	set rs=server.createobject("ADODB.recordset")
    rs.open "select top 5 * from chat where receive='"&session("Uid")&"' and zt=false order by id",conn,1,1
	if not rs.eof then
	%>
	<BODY bgColor=#276db2 leftMargin=0 topMargin=0 marginheight="0" 
marginwidth="0">
	<%
	do while not (rs.eof or rs.bof)
	%>
<SCRIPT LANGUAGE="JavaScript">
<!--
OpenWindows('AlertMsg.asp?id='+<%=rs("id")%>,'width=320','height=160')
//-->
</SCRIPT>

<%rs.movenext 
loop 
else%>

<BODY bgColor=#276db2 leftMargin=0 topMargin=0 marginheight="0" 
marginwidth="0">
<%
end if
Conn.execute"delete from chat WHERE endtime<=date()-30"
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing%>
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -