📄 gongszznr_top.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title>法政集团--管理</title>
<!--#include file="global.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
a:link { color:#FFFFFF;text-decoration:none}
a:hover {color:#666666;}
a:visited {color:#000000;text-decoration:none}
td {FONT-SIZE: 9pt; COLOR: #FFFFFF; FONT-FAMILY: "宋体"}
img {filter:Alpha(opacity:100); chroma(color=#FFFFFF)}
</style>
</head>
<% sql="select * from gongszz where id="&request("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Dim objFSO1
Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject")
aa=Server.mappath("/bangong/wjfj/gongszz/"&rs("dianzwjm"))
if objFSO1.FolderExists(aa) then
set fd= objFSO1.getfolder(aa)
sj1=0
sj2=""
For Each thing in fd.Files
IF RIGHT(THING,3)="jpg" THEN
sj1=sj1+1
END IF
Next
%>
<base target="contents">
<body leftmargin="0" topmargin="0" bgcolor="#FFFFFF">
<table border="1" width="100%" id="table1">
<tr>
<td>
<p align="center"><font color="#000000">法政办公系统-----附件列表</font></td>
</tr>
<tr>
<td>
<table BORDER=1 cellspacing=0 cellpadding=0 bordercolordark=#FFFFFF width="100%" class=12Font >
<tr>
<%
if sj1>0 then
i=1
for j=1 to sj1
if i>6 then
%>
</tr><tr>
<td >
<input type="checkbox" name=fenlei<%=j%> value="ok" checked ><font color="#000000"> </font>
<a target="main" href="gongszznr_right.asp?id=<%=request("id")%>&sj=<%=j%>">
<font color="#000000">
<%=rs("dianzwjm")%>p<%=j%>.jpg </font></a>
</td>
<%i=2
else%>
<td >
<input type="checkbox" name=fenlei<%=j%> value="ok" checked ><font color="#000000"> </font>
<font color="#000040">
<a target="main" href="gongszznr_right.asp?id=<%=request("id")%>&sj=<%=j%>">
<font color="#000000">
<%=rs("dianzwjm")%>p<%=j%>.jpg</font></a></font><font color="#000000"> </font>
</td>
<%i=i+1
end if
next
end if%>
</tr>
</table>
</td>
</tr>
</table>
<%else
response.write("没有附件")
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -