📄 policy.asp
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="dsn_root.asp" -->
<!-- #include file="func.inc.asp" -->
<%
dim cn, rs, sql
'????ìo?|?§???§?è????????ê?è|?§??2?|?§??¨o?¨¨??
set cn = Server.CreateObject("adodb.Connection")
set rs = Server.CreateObject("adodb.Recordset")
cn.Open mycnstr
pageno=Request.QueryString("pageno")
classcode=Request.QueryString("classcode")
baseclass="300"
url="policy.asp"
if classcode="" then
sql="select classcode,classname from miscell_class where baseclass='"+baseclass+"' and flag='0' order by sortnum"
else
sql="select classcode,classname from miscell_class where classcode='"+classcode+"' and flag='0' order by sortnum"
end if
rs.Open sql,cn,0,1,1
if not rs.EOF then
classcode=rs(0)
classname=trim(rs(1))
end if
rs.Close
%>
<!-- #include file="begin.asp" -->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="13"> </td>
<td valign="bottom"><a href="default.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image45','','images/bt_defautl_1.jpg',1)"><img src="images/bt_defautl_01.jpg" name="Image45" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="company.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image38','','images/bt_company_1.jpg',1)"><img src="images/bt_company_01.jpg" name="Image38" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="policy.asp"><img src="images/bt_policy_1.jpg" name="Image39" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="news.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image40','','images/bt_news_1.jpg',1)"><img src="images/bt_news_01.jpg" name="Image40" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td width="1"><a href="investment.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image41','','images/bt_investment_1.jpg',1)"><img src="images/bt_investment_01.jpg" name="Image41" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="member.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image37','','images/bt_member_1.jpg',1)"><img src="images/bt_member_01.jpg" name="Image37" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="show.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image42','','images/bt_show_1.jpg',1)"><img src="images/bt_show_01.jpg" name="Image42" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="forum/forum.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image43','','images/bt_bbs_1.jpg',1)"><img src="images/bt_bbs_01.jpg" name="Image43" width="84" height="31" border="0"></a></td>
<td width="1"></td>
<td><a href="contact.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image44','','images/bt_contact_1.jpg',1)"><img src="images/bt_contact_01.jpg" name="Image44" width="84" height="31" border="0"></a></td>
</tr>
</table>
<table width="778" height="8" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#e90100"></td>
</tr>
</table>
<table width="778" height="3" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="285"><img src="images/policy/banner_left.jpg" width="386" height="110"></td>
<td width="493" bgcolor="#e90100">
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" height="53" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="15%"> </td>
<td align="left" valign="top"><img src="images/policy/banner_right.jpg" width="292" height="52"></td>
</tr>
</table></td>
</tr>
</table>
<table width="778" height="8" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#000000"></td>
</tr>
</table>
<table width="778" height="4" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="180" height="50%" valign="top" bgcolor="#ffc875">
<table width="100%" height="44" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" background="images/company/bg_top_left1.jpg" class="font"> 政策法规 </td>
<%
sql = "select classcode,classname from miscell_class where baseclass='"+baseclass+"' and flag='0' order by sortnum"
rs.open sql,cn,0,1,1
%>
</tr>
</table>
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ffc875"></td>
</tr>
</table>
<%
do while not rs.eof
if classcode=rs("classcode") then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#e90100"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="8%"> </td>
<td width="30%" align="left"><img src="images/company/arrow2.gif" width="5"
height="8"></td>
<td><a href="<%=url%>?classcode=<%=rs("classcode")%>"
class="a01"><%=rs("classname")%></a></td>
</tr>
</table></td>
<td width="6"><img src="images/company/point_title1_1.jpg" width="6" height="23"></td>
</tr>
</table>
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ffc875"></td>
</tr>
</table>
<%else%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#f4a022"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="8%"> </td>
<td width="30%" align="left"><img src="images/company/arrow2.gif" width="5"
height="8"></td>
<td><a href="<%=url%>?classcode=<%=rs("classcode")%>"
class="a01"><%=rs("classname")%></a></td>
</tr>
</table></td>
<td width="6"><img src="images/company/point_title2_1.jpg" width="6" height="23"></td>
</tr>
</table>
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ffc875"></td>
</tr>
</table>
<%
end if
rs.MoveNext
loop
rs.close
%>
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ffc875"></td>
</tr>
</table>
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ffc875"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table></td>
<td width="19" rowspan="2"> </td>
<td rowspan="2" valign="top"><table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="19%"><img src="images/company/arrow3.gif" width="21" height="17"><span class="font4"><%=classname%></span></td>
<td width="81%"><table width="100%" height="6" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="100%" height="1" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#a5a5a5"></td>
</tr>
</table>
<table width="100%" height="4" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ececec"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<%
sql="select keyno,title,creadate from miscell where classcode='"+classcode+"' and state='1' order by sortnum desc"
rs.Open sql,cn,1,1,1
pagesize = 10
rs.PageSize=pagesize
if not isnumeric(pageno) then
pageno = 1
else
pageno = cint(pageno)
end if
if pageno < 1 then pageno = 1
pagecount = rs.PageCount
reccount = rs.RecordCount
if pagecount > 0 then rs.AbsolutePage = pageno
i=1
do while not rs.EOF and i<=pagesize
%>
<tr>
<td>
<table width="100%" height="35" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/company/arrow4.jpg" width="11" height="10"> <a href="news_display.asp?keyno=<%=rs("keyno")%>" target="_blank" class="A02"><%=trim(rs("title"))%></a></td>
<td width="15%"><%=datevalue(rs("creadate"))%></td>
</tr>
</table>
<table width="100%" height="1" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/policy/line_point1.gif"></td>
</tr>
</table> </td>
</tr>
<%
i = i + 1
rs.MoveNext
loop
rs.Close
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" height="7" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/company/line_point1.gif"></td>
</tr>
</table>
<table width="100%" height="35" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="3%"> </td>
<td width="12%"><a href="<%=url%>?classcode=<%=classcode%>&pageno=<%=pageno-1%>"><img src="images/policy/bt_up.gif" width="60" height="16" border="0"></a></td>
<td width="10%" align="center"><%=pageno%>/<%=pagecount%></td>
<td align="left"><a href="<%=url%>?classcode=<%=classcode%>&pageno=<%=pageno+1%>"><img src="images/policy/bt_down.gif" width="60" height="16" border="0"></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table></td>
<td width="1" valign="top" bgcolor="#ececec"><table width="100%" height="6" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="50%" valign="bottom" bgcolor="#ffc875"><img src="images/company/picture_down_1.jpg" width="180" height="131"></td>
</tr>
</table>
<table width="778" height="7" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#9B0000"></td>
</tr>
</table>
<!-- #include file="end.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -