📄 qtlooker.asp
字号:
<!--#include file="conn.asp"-->
<%look_id=request.querystring("look_id")%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看签收情况</title>
<!--#include file="css.css"-->
</head>
<body topmargin="1">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file="top.asp"--></td>
</tr>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="760" valign="top" bgcolor="#98a5d0">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" class="unnamed12">
<tr>
<td width="600"> </td>
</tr>
</table>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr >
<table width="700" height="20" border="0" align="center" cellspacing="1" class="unnamed12">
<tr >
<td bgcolor="#FF9966"colspan="3" width="20%" height="25" class="unnamed14">
<p align="center" >签收单位
</td>
<td bgcolor="#FF9966" width="20%" height="25" class="unnamed14">
<div align="center"> 签收情况 </div>
</td>
<td width="20%" bgcolor="#FF9966" height="25" class="unnamed14">
<div align="center">签收人</div>
</td>
<td width="20%" bgcolor="#FF9966" height="25" class="unnamed14">
<div align="center">签收时间</div>
</td>
<td width="20%" bgcolor="#FF9966" height="25" class="unnamed14">
<div align="center">签收IP</div>
</td>
</tr>
<%str1="select * from qsnews where reid="&look_id&" order by 序号 asc"
set rs1=conn.execute(str1)
i=0
j=0
color=false
do while not rs1.EOF
if color then
bg="#ffcc99"
else
bg="#ffffff"
end if
Response.Write "<tr bgcolor="&bg&"><td colspan=3><p align=center>"
if rs1("签收状态")=1 then
i=i+1
Response.Write "<font color='#00a200'>"
else
j=j+1
Response.Write "<font color='#ff0000'>"
end if
'是发布者
Response.write rs1("单位")&"</font>"
Response.Write " </td> <td > <div align=center>"
if rs1("签收状态")=1 then
Response.Write "<font color='#00a200'>已签收</font>"
else
Response.write"<a href='qs.asp?look_id="&look_id&" '><font color='#ff0000'>请签收</font></a>"
end if
Response.Write "</div> </td><td><div align=center>"&rs1("签收人")&"</div></td><td ><div align=center>"&rs1("签收时间")&"</div></td><td ><div align=center>"&rs1("ip")&"</div></td></tr>"
rs1.MoveNext
color=not color
loop
response.write "<font class='unnamed14'>已签收单位共"&i&"个,未签收单位共"&j&"个</font>"
rs1.Close
if j=0 then
str="select * from news where id="&look_id&""
rs.Open str,conn,1,3
rs("签收状态")=true
rs.update
rs.Close
end if
%>
</table>
<br>
</tr>
</table>
</td>
</tr>
</table>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file="bottom.asp"--></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -