📄 group.asp
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0
%>
<!-- #include file="dsnroot.asp" -->
<!-- #include file="links.asp" -->
<%
set cn=Server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
menu="12111111"
id=Request.QueryString ("id")
flag=Request.QueryString ("flag")
pageno=Request.QueryString ("pageno")
if id="" then
id=0
else
id=cint(id)
end if
if flag="" then
flag=0
else
flag=cint(flag)
end if
if id=0 then
sqltext="select top 1 id from danwei where enable=1 and pid=1 order by pl"
rs.Open sqltext,cn,1,1
if not rs.EOF then
id=rs("id")
end if
rs.Close
end if
if id<>0 then
sqltext="select name,body from danwei where enable=1 and id="&id
rs.Open sqltext,cn,1,1
if not rs.EOF then
title=trim(rs("name"))
content=checkstr(rs("body"))
end if
rs.Close
end if
if flag=1 then
title="天宏集团奖章证书"
end if
%>
<!-- #include file="design.asp" -->
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#66cc00" width="1"></td>
<td width="190" valign="top" background="images/group/left_p_group.jpg" style="background-repeat: no-repeat; background-position: bottom">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/group/left_top_p.jpg" width="190" height="45"></td>
</tr>
</table>
<table width="180" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><img src="images/group/left_nav_top.jpg" width="180" height="39"></td>
</tr>
<tr>
<td background="images/group/left_nav_bg.jpg">
<%sqltext="select id,name from danwei where enable=1 and pid=1 order by pl"
rs.Open sqltext,cn,1,1
do while not rs.EOF
if id=rs("id") and flag=0 then
fontcolor="#ff9900"
else
fontcolor="#000000"
end if
if flag=1 then
fontcolor="#000000"
fontcolor1="#ff9900"
end if
%>
<table width="78%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2" height="6"></td>
</tr>
<tr>
<td width="20" class="font3">※</td>
<td><a href="<%=linkgroup%>?id=<%=rs("id")%>" class="anews2"><font color="<%=fontcolor%>"><%=trim(rs("name"))%></font></a></td>
</tr>
</table>
<%rs.MoveNext
loop
rs.Close %>
<table width="78%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2" height="6"></td>
</tr>
<tr>
<td width="20" class="font3">※</td>
<td><a href="<%=linkgroup%>?flag=1" class="anews2"><font color="<%=fontcolor1%>">奖章证书</font></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td><img src="images/group/left_nav_bot.jpg" width="180" height="89"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="50">
<tr>
<td> </td>
</tr>
</table>
</td>
<td background="images/line_v.gif" width="1"></td>
<td valign="top" background="images/bot_bg.jpg" style="background-repeat: repeat-x; background-position: bottom">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/group/group_p.jpg" width="585" height="130"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/group/line3.gif" style="background-repeat: no-repeat; background-position: bottom" height="36" align="center"><%=title%></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> </td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="font1" height=200 valign=top>
<%if flag=0 then%>
<%=content%>
<%else%>
<%sqltext="select id from danwei where enable=1 and pid=16 and picflag=1 order by pl"
rs.Open sqltext,cn,1,1
listcs=6
rs.PageSize=listcs
if pageno="" then
pageno=1
else
pageno=cint(pageno)
end if
m=0
if rs.PageCount>0 then rs.AbsolutePage=pageno
if not rs.EOF and m<listcs then
colzs=2
rowzs=3
for i=1 to rowzs
if not rs.EOF then
%>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="30"> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<%for j=1 to colzs
if not rs.EOF and m<listcs then %>
<td class="font1"><img src="./admin/jpg.asp?id=<%=rs("id")%>&tabname=danwei" width="226" height="126"></td>
<%rs.MoveNext
m=m+1
else%>
<td class="font1"> </td>
<%end if
next%>
</tr>
</table>
<%end if
next
end if
%>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr height=40>
<td> </td>
</tr>
<tr>
<td>
<%if pageno>1 then%>
<a href="<%=linkgroup%>?pageno=<%=pageno-1%>&flag=1"><img src="images/arrow_pre.gif" width="55" height="12" border="0"></a>
<%end if%>
<%if pageno<rs.PageCount then%>
<a href="<%=linkgroup%>?pageno=<%=pageno+1%>&flag=1"><img src="images/arrow_next.gif" width="55" height="12" border="0"></a>
<%end if%>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%rs.Close %>
<%end if%>
</td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="50"> </td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="images/line_h.gif" height="1"></td>
</tr>
<tr>
<td height="30" align="right"><a href="#top"><img src="images/group/bt_top.gif" width="50" height="18" border="0"></a></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</td>
<td bgcolor="#66cc00" width="1"></td>
</tr>
</table>
<!-- #include file="end.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -