?? main.asp
字號(hào):
<!--#INCLUDE FILE="data.asp" -->
<!--#INCLUDE FILE="check.asp" -->
<html>
<meta http-equiv="refresh" content="1;url=main1.asp?action=search">
<title>圣時(shí)代Loading ....</title>
<script>
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=420,height=300");
return false;
}
</script>
</head>
<body style="font-family: 宋體; font-size: 9pt">
<p>請(qǐng)等待<br>
Loading ...</p>
<%
nowtime=now()
shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)
strSQL ="SELECT * FROM soft where (userid="&session("Uid")&" and daoshitime2<'"&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)
%>
<%rs.movenext
loop
%>
<script LANGUAGE="JavaScript">
OpenWindows1('checkcalendar.asp?id=<%=rs("id")%>','width=420','height=300')
</script><%end if%>
<%rs.Update
rs.close
Set rs=nothing
%>
<%
nowtime=now()
shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)
strSQL ="SELECT * FROM soft where (userid="&session("Uid")&" and tx=1 and daoshitime<'"&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)
%>
<%rs.movenext
loop
%>
<script LANGUAGE="JavaScript">
OpenWindows1('checkcalendar1.asp?id=<%=rs("id")%>','width=420','height=300')
</script><%end if%>
<%rs.Update
rs.close
Set rs=nothing
%>
<%
nowtime=now()
shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)
strSQL ="SELECT * FROM soft where (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)
%>
<%rs.movenext
loop
%>
<script LANGUAGE="JavaScript">
OpenWindows1('checkcalendar3.asp?id=1','width=420','height=300')
</script><%end if%>
<%rs.Update
rs.close
Set rs=nothing
%>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -