📄 adnybr.asp
字号:
<%@ Language=VBScript %>
<!-- #INCLUDE FILE="../../share\connectdb3.asp" -->
<!--#include file=../../pubfunction.asp-->
<%
set rs=server.CreateObject ("adodb.recordset")
dim imax,ssql
ssql="select csz from xt_tcssz where csid=102"
rs.Open ssql,conn,3,1
syff="0"
if rs.RecordCount >0 then
syff=syff&","&rs("csz")
end if
rs.Close
ssql="select distinct xm,mzh,lsh from view_mzdjsbrxx where rzks="&session("sxks")&" and syff in ("&syff&") and (cfzt=0 or cfzt=1) and sj>(convert(datetime,getdate(),20)-3)"
'Response.Write ssql
%>
<script language="javascript">
<!--
function clime(i,lsh,mzh,xm){
if(window.document.getElementById('td'+i)==null) return ;
var otd=window.document.getElementById('td'+i);
if(otd==null) return ;
var obj;
obj=otd.getBoundingClientRect();
window.mbdiv.style.posTop=obj.bottom-1 + idBody.scrollTop;
window.mbdiv.style.posLeft=10;
mbframe.thisform.iLSH.value=lsh;
mbframe.thisform.iXM.value=xm;
mbframe.thisform.iMZH.value=mzh;
mbframe.thisform.hdsyff.value=frmRQDJ.hdsyff.value;
mbframe.thisform.submit();
window.mbdiv.style.visibility='visible';
}
-->
</script>
<html>
<head>
<meta http-equiv="refresh" content="120">
<meta name="VI60_defaultClientScript" content="VBScript">
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</head>
<body topmargin=0 leftmargin=0 id=idBody name=idBody>
<form action ="" method="post" id="frmRQDJ" name="frmRQDJ">
<input type='hidden' id=hdsyff name=hdsyff value='<%=syff%>'>
<table border="0" name="tbcxjg" width='100%' cellspacing="0" cellpadding="0" bgcolor="<%=tableBGCOLOR%>">
<TR><TD nowrap colspan=4>
<table bgcolor=#Dcdcdc align="left" bordercolorlight="#000000" bordercolordark="#ffffff" border="1" cellPadding="0" cellSpacing="0" width="100%" >
<%
dim cs,m,k
'set rsyf=server.CreateObject ("adodb.recordset")
m=0
rs.Open ssql,conn,3,1
imax=rs.RecordCount
if imax>30 then
cs=int(imax/6+0.9)
else
cs=8
end if
for i=1 to cs
Response.Write "<tr>"
for j=1 to 6
if imax>=j+6*(i-1) then
' m=1
if not rs.EOF then
Response.Write "<td style='cursor:hand;height:45;width:80' background='../../images/wait1.gif'align=center id='td"&m&"' name='td"&m&"'"
Response.Write " onclick=javascript:clime('"&cint(m)&"'," & rs("lsh") & ",'" & rs("mzh") & "','" & rs("xm") & "')>"
Response.Write "<font color=blue>" & rs("mzh") & "<br>" & rs("xm") & "</font></td>"
rs.MoveNext
m=cint(m)+1
end if
else
Response.Write "<td style='height:45;width:80'> </td>"
end if
next
Response.Write "</tr>"
next
%>
</table>
</td></tr></table>
<div id=mbdiv name=mbdiv style="visibility:hidden;LEFT: -600px; POSITION: absolute; TOP: -600px" >
<iframe border=0 id=mbframe name=mbframe style="width:540;height=200" src="acDNYBR.asp" ></iframe>
</div>
</form>
</body>
</html>
<% set rs=nothing
conn.Close
set conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -