📄 index.asp
字号:
<!--#include file=head.asp -->
<SCRIPT language=javaScript src="Include/link.js" type=text/javascript></SCRIPT>
<%
sub navigation()
response.write " >> "
response.write "首页--"&a125_title
end sub
%>
<table border="0" cellpadding="0" cellspacing="0" width="996"><TBODY>
<tr>
<td width="212" valign="top" bgcolor="#FFFBF0">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="212" height="32" background="images/index_402.gif">
<TBODY><tr>
<td width="5"> </td><td width="30"> </td>
<td valign="bottom"><span style="color:#000000;line-height:16px;height:20px;">政府公告</span></td>
<td width="45"><a href="gonggao.asp"><IMG SRC="images/2/more.gif" border="0" WIDTH=30 HEIGHT=10 ALT=""></a></td>
<td width="6"> </td>
</tr></TBODY>
</table>
<TABLE cellSpacing=0 cellPadding=5 border=1 width=210 bordercolor="#efefef" bgcolor='#ffffff'>
<TBODY>
<TR>
<TD align=middle height=125>
<% Call a125_Marquee(switch_gonggao) %>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=213 height=90 border=0 background="images/2/index_28.gif">
<TBODY>
<TR><TD align=center height=30> <a href="feedback.asp">投诉反馈</a></TD></TR>
<TR><TD align=center height=30> <a href="leadingbox.asp"><%=leader%>信箱</a></TD></TR>
<TR><TD align=center height=30> <a href="down.asp">表格下载</a></TD></TR>
</TBODY>
</TABLE>
</div>
</td>
<td width="236" valign="top" bgcolor="#FFFBF0">
<div align="center">
<!--#include file="flash.asp"-->
</div>
</TD>
<TD width=332 HEIGHT=220 valign="top" bgcolor="#FFFBF0" border-left:1px #e0e0e0 solid;border-right:1px #e0e0e0 solid;border-bottom:1px #e0e0e0 solid;>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="98%" height="32" background="images/index_401.gif">
<tr>
<td width="5"> </td><td width="30"> </td>
<td valign="bottom"><span style="color:#000000;line-height:16px;height:20px;">新闻动态</span></td>
<td width="45"><a href="news.asp"><IMG SRC="images/2/more.gif" border="0" WIDTH=30 HEIGHT=10 ALT=""></a></td>
<td width="6"> </td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" id="table3">
<%
set rs=server.createobject("adodb.recordset")
sql="select top 9 * from a125_news ORDER BY id DESC"
rs.open sql,conn,1,1
if Rs.eof or Rs.bof then
response.write"<div align='center'>还没有添加新闻<div>"
end if
do while not rs.eof
title = rs("title")
%>
<tr>
<td width="5%" height =25 background="images/table_bg2.gif"><img src="Images/a125_Guide.gif" width="11" height="11"></td>
<td width="71%" height =25 background="images/table_bg2.gif"><a href="a125_news.asp?id=<%response.write rs(0)%>" title="<%=title%>" target="_blank">
<%
if Getlen(title)>30 then
response.write LeftStr(title,28)
response.write ".."
else
response.write ""&title&""
end if
%>
</a> </td>
<td width="24%" height =25 background="images/table_bg2.gif" align="left"><font color='#808080'><%=rs("time")%></font></td>
</tr>
<%
rs.movenext
loop
Rs.Close
Set Rs=Nothing
%>
</table></div>
</td>
<td width="218" valign="top" bgcolor="#FEF1CF">
<div align="center">
<TABLE cellSpacing=0 cellPadding=0 width=215 border=0>
<TBODY>
<TR>
<TD align=middle height="32">
<img src="images/2/index_066.gif" width="215" height="32" alt="">
</TD>
</TR>
<TR>
<TD align=middle height=50 valign="top">
<div align="center"><iframe src="http://weather.cncn.com/weather/58826.htm?time=" width="170" height="50" frameborder="0" marginwidth="0" marginheight="0" scrolling="no"></iframe></div>
</TD>
</TR>
<TR>
<TD align=middle>
<img src="images/2/index_27.gif" width="215" height="32" alt="">
</TD>
</TR>
<tr><TD align=middle>
<table width="202" ><TBODY>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 5 * from a125_m_news where isbest=1 ORDER BY id DESC"
rs.open sql,conn,1,1
if Rs.eof or Rs.bof then
response.write"<div align='center'>还没有推荐视频<div>"
end if
do while not rs.eof
title = rs("pic_name")
%>
<tr>
<td width="4%" height =25 background="images/table_bg2.gif"><img src="Images/a125_movie.gif" width="16" height="16"></td>
<td width="72%" height =25 background="images/table_bg2.gif"><a href="movienews.asp?id=<%response.write rs(0)%>" title="<%=title%>" target="_blank">
<%
if Getlen(title)>50 then
response.write LeftStr(title,44)
response.write "..."
else
response.write ""&title&""
end if
%>
</a></td>
</tr>
<%
rs.movenext
loop
Rs.Close
Set Rs=Nothing
%>
</TBODY></table>
</td></tr></TBODY>
</TABLE>
</div>
</td>
</tr></TBODY>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="996" >
<tr>
<td width="778" valign="top" bgcolor="#FFFBF0">
<div align="center">
<%
dim sqlsort,RsSort,hangpicnum
sqlsort="select * from a125_type where a125_big_id=0 and a125_setting < 4 and Indexshow=True order by a125_order"
Set RsSort=conn.execute (sqlsort)
RsSort.Open sql,Conn,1,1
Response.Write"<table border='0' cellspacing='0' width='100%' align='center'><tbody>"
if RsSort.eof and RsSort.bof then
response.write "<div align=center>还没有任何栏目</div>"
else
response.write"<tr>"
do while not rs.eof
for hangpicnum=1 to 3
if RsSort.eof then exit for
Response.Write"<td>"
%>
<table border="0" cellpadding="0" cellspacing="0" width="249" height="98">
<tr><tbody>
<TD height=20>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="249" height="32" background="images/2/index_40.gif">
<tr>
<td width="5"> </td><td width="30"> </td>
<td valign="bottom"><span style="color:#000000;line-height:16px;height:20px;"><%=RsSort(1)%></span></td>
<td width="45"><a href="type.asp?a125id=<%=RsSort(0)%>"><IMG SRC="images/2/more.gif" border="0" WIDTH=30 HEIGHT=10 ALT=""></a></td>
<td width="6"> </td>
</tr>
</table>
</div></TD>
</tr>
<tr>
<td height="135" style="border-left:1px #e0e0e0 solid;border-right:1px #e0e0e0 solid;border-bottom:1px #e0e0e0 solid;">
<% Call a125_ShowInfo(5,5,21,RsSort("id"),1,"6%","62%","32%") %>
</td>
</tr></tbody>
</table>
<%
Response.Write"</td>"
RsSort.movenext
next
Response.Write"</tr>"
if RsSort.eof then exit do
loop
end if
RsSort.Close
set RsSort=nothing
Response.Write"</tbody></table>"
%>
<table><TBODY><TR><TD width=778 bgcolor="#FFFBF0"><div align="center" style="margin-top:3px;">
<table border="0" cellpadding="0" cellspacing="0" width="763" height="141"><TBODY>
<tr>
<td width="48"><img src="images/2/index_82.gif" width="48" height="143" alt=""></td>
<td width="700" background="images/2/index_83.gif"><!--#include file="newsphoto.asp"--></td>
<td width="15"><img src="images/2/index_85.gif" width="15" height="143" alt=""></td>
</tr>
</TBODY></table></div></td></tr></TBODY></table>
</div>
</td>
<td width="218" valign="top" bgcolor="#FEF1CF">
<div align="center">
<TABLE cellSpacing=0 cellPadding=0 width=212 height=210 border=0 >
<TBODY>
<TR>
<TD align=middle height=32>
<img src="images/2/index_24.gif" width="215" height="32" alt="">
</TD>
</TR>
<TR>
<TD align=middle height=178><a href="map.asp" target="_blank"><img src="images/xiamao.gif" width="200" height="178" alt="" border=0></a></TD>
</TR>
<TR>
<TD align=middle valign=center height=45><a href="http://www.smzwzx.com/wssb/login.asp" target="_blank"><img src="images/WssbHeaderLink.gif" width="180" height="27" alt="" border=0></a></TD>
</TR>
</TBODY>
</TABLE>
</div>
<!--#include file=topic.asp -->
</TD>
</TR>
</TBODY>
</TABLE>
<%if a125_Banner<>"" then%>
<table border="0" cellpadding="0" cellspacing="0" width="996" height="104" >
<tr><td valign="bottom" align=middle><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100%" height="100%">
<param name=movie value="<%=a125_Banner%>">
<param name=quality value=high>
<param name="wmode" value="transparent">
<param name="menu" value="false">
<embed src="<%=a125_Banner%>" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100%" height="100%" wmode="transparent" menu="false"></embed>
</object></td></tr></table>
<%end if%>
<TABLE cellSpacing=0 cellPadding=0 width=996 border=0>
<TBODY>
<TR>
<TD width=156 bgcolor="#FFFBF0" valign="top"><div align="center" style="margin-top:9px;margin-left:5px;">
<table width="156" height="320" border="0" cellpadding="0" cellspacing="0" style="border-left:4px #F4F4F4 solid;border-right:4px #F4F4F4 solid;border-bottom:4px #F4F4F4 solid;">
<tr>
<td width="156" height="31" align="center"><img src="images/2/link.gif" width="156" height="31" border="0" alt=""></td>
</tr>
<tr>
<td width="156" height="50" align="center"><img src="images/ggw3.jpg" width="132" height="42" border="0" alt=""></td>
</tr>
<tr>
<td width="156" height="50" align="center"><img src="images/ggw3.jpg" width="132" height="42" border="0" alt=""></td>
</tr>
<tr>
<td width="156" height="50" align="center"><img src="images/ggw3.jpg" width="132" height="42" border="0" alt=""></td>
</tr>
<tr>
<td width="156" valign="top">
<SCRIPT language=javascript>link1();link2();link3();link4();link5();</SCRIPT> </td>
</tr></table></div>
</TD>
<TD width=608 bgcolor="#FFFBF0" valign="top">
<div align="center" style="margin-top:3px;">
<table border="0" cellpadding="0" cellspacing="0" width="590" height="141">
<tr>
<td width="590" align="top">
<SCRIPT>
function PanShow(objname,curid,maxid)
{
for(var i=1;i<=maxid;i++)
{
var obj=document.getElementById(objname+i);
obj.style.display="none";
var objtitle=document.getElementById(objname+"T"+i);
objtitle.className=objname+"_OFF";
}
var obj=document.getElementById(objname+curid);
obj.style.display="";
var objtitle=document.getElementById(objname+"T"+curid);
objtitle.className=objname+"_ON";
}
</SCRIPT>
<div align="center">
<div style="margin-top:5px;margin-bottom:5px;width:590;height:131px;background:#FFFBF0;">
<SPAN id=IOTCT0 style="float:left;margin-right:5px;"><img src="images/2/index_91.gif" width="89" height="20" border="0" alt=""></SPAN>
<SPAN class=IOTC_OFF id=IOTCT1 onMouseOver="PanShow('IOTC',1,4)">公众</SPAN>
<SPAN class=IOTC_OFF id=IOTCT2 onMouseOver="PanShow('IOTC',2,4)">企业</SPAN>
<SPAN class=IOTC_OFF id=IOTCT3 onMouseOver="PanShow('IOTC',3,4)">投资者</SPAN>
<SPAN class=IOTC_OFF id=IOTCT4 onMouseOver="PanShow('IOTC',4,4)">旅游者</SPAN>
<div id=IOTC1 align="center" style="width:590px;height:111px;border:1px #CC0000 solid;background:#FFFBF0;" valign="top"><IFRAME src="linkfuwu.asp?ID=53" frameBorder=0 width="99%" scrolling=no height=111px></IFRAME></div>
<div id=IOTC2 style="DISPLAY: none" align="center" style="width:590px;height:111px;border:1px #CC0000 solid;background:#FFFBF0;"><IFRAME src="linkfuwu.asp?ID=54" frameBorder=0 width="98%" scrolling=no height=111px></IFRAME></div>
<div id=IOTC3 style="DISPLAY: none" align="center" style="width:590px;height:111px;border:1px #CC0000 solid;background:#FFFBF0;"><IFRAME src="linkfuwu.asp?ID=9" frameBorder=0 width="99%" scrolling=no height=111px></IFRAME></div>
<div id=IOTC4 style="DISPLAY: none" align="center" style="width:590px;height:111px;border:1px #CC0000 solid;background:#FFFBF0;"><IFRAME src="linkfuwu.asp?ID=56" frameBorder=0 width="99%" scrolling=no height=111px></IFRAME></div>
</div>
<div style="margin-top:5px;margin-bottom:5px;width:590;height:131px;background:#FFFBF0;">
<SPAN id=IOTDT0 style="float:left;margin-right:5px;"><img src="images/2/index_97.gif" width="89" height="20" border="0" alt=""></SPAN>
<%
dim sqldp,Rsdp,dpnum,dpn,dpword
dpn=1
dpword=""
sqldp="select * from HX_DepartmentSort order by S_Order"
set Rsdp=server.createobject("adodb.recordset")
Rsdp.open sqldp,conn,1,1
if Rsdp.eof and Rsdp.bof then
response.write "<div align=center>还没有任何部门分类</div>"
else
dpnum=Rsdp.recordcount
do while not Rsdp.eof
if dpn=1 then
response.write "<SPAN class=IOTD_OFF id=IOTDT"&dpn&" onMouseOver=""PanShow('IOTD',"&dpn&","&dpnum&")"">"&Rsdp("Names")&"</SPAN>"
dpword=dpword&"<div id=IOTD"&dpn&" align=""center"" style=""width:590px;height:120px;border:1px #CC0000 solid;background:#FFFBF0;"" valign=""top""><IFRAME src=""linkbumeng.asp?ID="&Rsdp("ID")&""" frameBorder=0 width=""99%"" scrolling=no height=""100%""></IFRAME></div>"
else
response.write "<SPAN class=IOTD_OFF id=IOTDT"&dpn&" onMouseOver=""PanShow('IOTD',"&dpn&","&dpnum&")"">"&Rsdp("Names")&"</SPAN>"
dpword=dpword&"<div id=IOTD"&dpn&" style=""DISPLAY: none"" align=""center"" style=""width:590px;height:120px;border:1px #CC0000 solid;background:#FFFBF0;"" valign=""top""><IFRAME src=""linkbumeng.asp?ID="&Rsdp("ID")&""" frameBorder=0 width=""99%"" scrolling=no height=""100%""></IFRAME></div>"
end if
dpn=dpn+1
Rsdp.movenext
loop
Rsdp.Close
set Rsdp=nothing
response.write dpword
end if
%>
</div></div></td></tr></table></div>
</TD>
<TD width=218 bgcolor="#FEF1CF" valign="top"><div align="center" style="margin-bottom:5px;">
<div align="center">
<% call a125_Search5() %>
</div>
<TABLE cellSpacing=0 cellPadding=0 width=206 border=0 style="border:1px #CC0000 solid;">
<TBODY>
<TR>
<TD align=middle height=30><img src="images/2/index_93.gif" width="206" height="30" alt=""></TD>
</TR>
<TR>
<TD align=center height=190 bgcolor="#ffffff"><IFRAME ID="vote" SRC="Vote/index.htm" FRAMEBORDER="0" SCROLLING="no" WIDTH="180" HEIGHT="180"></IFRAME></TD>
</TR>
</TBODY>
</TABLE>
</div>
</TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="foot.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -