<!--#Include file="feng.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/style.css" type="text/css">
<%
dim db
set db=server.CreateObject("adodb.connection")
db.open "provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("data.mdb")
%>
<style type="text/css">
<!--
.STYLE3 {color: #FFFFFF}
#Layer1 { position:absolute;
width:180px;
height:174px;
z-index:1;
left: 208px;
top: 291px;
}
.STYLE6 {color: #FFBF55}
body {
background-image: url(images/31bg.jpg);
}
.STYLE7 {font-family: "宋体"}
-->
</style>
<%
dim strsql11,rs11
strsql11="select * from picture where p_type='网站HEAD' order by id desc"
set rs11=db.execute(strsql11)
%>
<%
strsql10="select * from picture where p_type='网页图标' order by id desc"
set rs10=db.execute(strsql10)
%>
</head>
<body text="#000000" leftmargin="0" topmargin="0">
<table width="800" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#336699" height="5"></td>
</tr>
</table>
<table width="777" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="">
<tr>
<td height="70">
<div>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="70"><table width="800" height="150" border="0">
<tr valign="top">
<td height="66"><%if rs11.eof and rs11.bof then
response.write ""
else%><img name="head" src="<%=rs11("img")%>" width="800" height="150" alt=""></td>
<%end if%></tr>
</table></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
dim strsql,rs
strsql="select * from sect order by id desc"
set rs=db.execute(strsql)
if rs.eof and rs.bof then
response.write "当前记录未找到！"
response.write "<a href='sect.asp'>点此返回</a>"
response.end
else
%>
<table width="800" height="29" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#336699">
<tbody>
<tr>
<td width="77" style="cursor: hand" ></td>
<td><img src="<%=RootUrl%>/images/line_1.gif" width="1"></td>
<td width="77" style="cursor: hand" onMouseOver="this.style.backgroundColor='#78A5D1'" onMouseOut="this.style.backgroundColor='#336699'" onClick="document.location.href='index.asp'">
<div align="center"><font color="#FFFFFF"><%=rs("menu_a")%></font></div> </td>
<td><img src="<%=RootUrl%>/images/line_1.gif" width="1" height="23"></td>
<td style="cursor: hand" onMouseOver="this.style.backgroundColor='#78A5D1'" onMouseOut="this.style.backgroundColor='#336699'" onClick="document.location.href='intro.asp'">
<div align="center"><font color="#FFFFFF"><%=rs("menu_b")%></font></div> </td>
<td><img src="<%=RootUrl%>/images/line_1.gif" width="1"></td>
<td width="77" style="cursor: hand" onMouseOver="this.style.backgroundColor='#78A5D1'" onMouseOut="this.style.backgroundColor='#336699'" onClick="document.location.href='policy.asp'">
<div align="center"><font color="#FFFFFF"><%=rs("menu_c")%></font></div> </td>
<td><img src="<%=RootUrl%>/images/line_1.gif" width="1" height="23"></td>
<td width="77" style="cursor: hand" onMouseOver="this.style.backgroundColor='#78A5D1'" onMouseOut="this.style.backgroundColor='#336699'" onClick="document.location.href='index_news.asp'">
<div align="center"><font color="#FFFFFF"><%=rs("menu_d")%></font></div> </td>
<td><font color="#FFFFFF"><img src="<%=RootUrl%>/images/line_1.gif" width="1" height="23"></font></td>
<td width="77" style="cursor: hand" onMouseOver="this.style.backgroundColor='#78A5D1'" onMouseOut="this.style.backgroundColor='#336699'" onClick="document.location.href='index_y.asp'">
<div align="center"><font color="#FFFFFF"><%=rs("menu_e")%></font></div> </td>
<td><img src="<%=RootUrl%>/images/line_1.gif" width="1" height="23"></td>
<td width="77" style="cursor: hand" onMouseOver="this.style.backgroundColor='#78A5D1'" onMouseOut="this.style.backgroundColor='#336699'" onClick="document.location.href='index_IT.asp'">
<div align="center"><font color="#FFFFFF"><%=rs("menu_f")%></font></div> </td>
<td><img src="<%=RootUrl%>/images/line_1.gif" width="1" height="23"></td>
<td width="77" style="cursor: hand" onMouseOver="this.style.backgroundColor='#78A5D1'" onMouseOut="this.style.backgroundColor='#336699'" onClick="document.location.href='product.asp'">
<div align="center"><font color="#FFFFFF"><%=rs("menu_g")%></font></div></td>
<td><img src="<%=RootUrl%>/images/line_1.gif" width="1" height="23"></td>
<td width="77" style="cursor: hand" onMouseOver="this.style.backgroundColor='#78A5D1'" onMouseOut="this.style.backgroundColor='#336699'" onClick="document.location.href='w_count.asp'">
<div align="center"><font color="#FFFFFF"><%=rs("menu_h")%></font></div> </td>
<td><img src="<%=RootUrl%>/images/line_1.gif" width="1" height="23"></td>
<td width="77" style="cursor: hand" onMouseOver="this.style.backgroundColor='#78A5D1'" onMouseOut="this.style.backgroundColor='#336699'" onClick="document.location.href='online_list.asp'">
<div align="center"><font color="#FFFFFF"><%=rs("menu_i")%></font></div> </td>
</tr>
</table>
<%end if%>
<table width="800" height="120" border=0 align="center" cellpadding=0 cellspacing=0 background="images/31bg.jpg">
<tr>
<td height="1" background="images/line_3.gif"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" height="105"><iframe src="flash.asp" width="800" marginwidth="0" height="120" marginheight="0" scrolling="no" frameborder="0"></iframe></td>
</tr>
<tr>
<td height="1" background="images/line_3.gif"></td>
</tr>
</table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" background="images/31bg.jpg" bgcolor="#FFFFFF">
<tr>
<td width="183" align="left" valign="top" bgcolor="#F5F5F5">
<td width="612" rowspan="2" valign="top" style="border-left:1px #000000 dotted"><table width="612" border="0" cellspacing="0">
<tr>
<td height="10" align="left" valign="top"><table width="100%" height="28" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor=#F2F2F2>
<tr> </tr>
<%
dim vars_type
vars_type=request.QueryString("s_type")
session("s_type") =vars_type
strsql6="select * from story where s_type= "&vars_type&" order by s_time desc"
set rs6=db.execute(strsql6)
if rs6.eof and rs6.bof then
response.write "当前记录未找到！"
response.write "<a href='index.asp'>点此返回</a>"
response.end
else
%>
<tr>
<td height="20"> <span class="STYLE7">当前位置</span>：<a href="index.asp">首页</a>>>><%=rs6("s_type")%></td>
</tr>
<tr>
<td background="images/line_3.gif" height="2"></td>
</tr>
</table></td>
</tr>
<tr>
</tr>
<tr>
<td>
</tr>
<tr>
<td height="100" valign="top">
<table width="612" border="0" cellspacing="5">
<tr>
<td><table width="609" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
<td> </td>
<td><div align="right"></div></td>
</tr>
<%
do while not rs6.eof
%><%
Dim DataCount'记录总数
Dim MaxPerPage'每页条数
Dim PageCount'总页数
Dim Page'页码
Dim PerPageNum '每页显示的分页页码数量=PerPageNum*2+1
Dim MaxPageNum '每页显示的分页的最大页码
Dim MinPageNum '每页显示的分页的最小页码
Dim DataTable'数据表名
Dim PageUrl'本页地址
PerPageNum = 2
Page = Clng(Request("Page"))
MaxPerPage = 4
DataTable = "stroy"
PageUrl = Request.ServerVariables("Path_Info")
Taxis = " Order By s_time"
Set Rs=Server.CreateObject("ADODB.Recordset")
StrSQL6="Select s_type From "&DataTable&Taxis
'response.write (strsql6)
'response.end
Rs6.open StrSQL6,DbConn,3,3
DataCount=Rs6.RecordCount
If(DataCount>0) Then'如果记录总数=0,则不处理
If(DataCount Mod MaxPerPage=0)Then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
PageCount=Int(DataCount/MaxPerPage)'获取总页数
Else
PageCount=Int(DataCount/MaxPerPage)+1'获取总页数
End If
'获取本页需要用到的id============================================
'读取所有记录的id数值,因为只有id所以速度很快
Rs6.PageSize = MaxPerPage '每页显示记录数
If Page<1 Then Page = 1
If Page>PageCount Then Page = PageCount
If PageCount> 0 Then Rs6.absolutepage = Page
For I=1 To Rs6.PageSize
If Rs6.EOF Then Exit For
If(I=1)Then
s_type=Rs6("s_type")
Else
s_stype=s_stype &","&Rs6("s_type")
End If
Rs6.MoveNext
Next
'获取本页需要用到的id结束============================================
End If
Rs6.Close
%>
<tr>
<td width="15"></td>
<td width="14"><img src="images/pot_1.gif" width="4" height="6"></td>
<td width="576"><table width="557" border="0" cellspacing="5" cellpadding="0">
<tr>
<td width="557"><a href="count.asp?id=<%=rs6("id")%>"><%=rs6("s_head")%></a><span class="STYLE6 STYLE4">[<%=rs6("s_time")%>]
<%
dim ddate
ddate=datediff("h",rs6("s_time"),now())
if ddate>72 then
response.write " "
else if rs10.eof and rs10.bof then
response.write ""
else
Response.write("<img src='" & rs10("img") & "' />")
end if
end if
%>
</span></td>
</tr>
<tr>
<td background="images/line_3.gif"></td>
</tr>
</table></td>
</tr>
<%
rs6.movenext
loop
end if%>
</table></td>
</tr>
</table>
<p> </p>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="54" valign="top" ><table width="183" height="300" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="182" height="28" border=0 align="center" cellpadding=0 cellspacing=0>
<div></div>
<tr><td width="188" style="border-left:1px #000000 dotted" valign="top"> <tbody>
<tr>
<td height=28 background="images/bg_1.gif"><b> <img src="images/pot_4.gif" width="13" height="9"> 今 天 是：</b></td>
</tr>
</tbody>
</table>
<table width="183" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><iframe src="time.asp" width="182" marginwidth="10" height="70" marginheight="5" align="" scrolling="no" frameborder="0" hspace="0" vspace="0"></iframe></td>
</tr>
</table>
<table width="183" height="28" border=0 cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td height=28 background="images/bg_1.gif"><b> <img src="images/pot_4.gif" width="13" height="9">
合 作 社 公 告</b></td>
</tr>
</tbody>
</table>
<table width="183" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><iframe src="index_notice.asp" width="182" marginwidth="0" height="150" marginheight="0" scrolling="no" frameborder="0" hspace="0" vspace="0" allowtransparency="true" application="true"></iframe></td>
</tr>
</table></td>
<tr>
<td><table width="183" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table cellspacing=0 cellpadding=0 width="100%" border=0>
<tr>
<td height=1 background="images/line_3.gif"></td>
</tr>
<%
dim strsql3,rs3
strsql3="select top 6 * from fast order by id asc"
set rs3=db.execute(strsql3)
%>
<tr>
<td height=28 background="images/bg_1.gif"><b> <img src="images/pot_4.gif" width="13" height="9"> 快 速 通 道</b></td>
</tr>
</table></td>
</tr>
<tr>
<td><table cellspacing=0 cellpadding=0 width="99%" border=0>
<tr>
<td valign="top"><table width="183" border="0" cellspacing="0">
<tr>
<%
do while not rs3.eof
%>
<td width="33"><div align="right"><img src="images/line_4.gif" width="32" height="20"></div></td>
<td width="140">·<a href="f_lists.asp?id=<%=rs3("id")%>"><%=rs3("fast_n")%></a><%
ddate=datediff("h",rs3("f_time"),now())
if ddate>72 then
response.write " "
else if rs10.eof and rs10.bof then
response.write ""
else
Response.write("<img src='" & rs10("img") & "' />")
end if
end if
%></td>
</tr>
<%
rs3.movenext
loop%>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="183" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/31bg.jpg">
<tr>
<td height="1" background="images/line_3.gif"></td>
</tr>
<%
dim strsql2,rs2
strsql2="select * from web order by id desc"
set rs2=db.execute(strsql2)
%>
<tr>
<td background="images/bg_1.gif" height="28"><b><img src="images/pot_9.gif" width="20" height="20" align="absmiddle"> 友 情 连 接</b></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="183" border="0" cellpadding="0" cellspacing="0">
<%
do while not rs2.eof
%>
<tr>
<td width="24"> </td>
<td width="15"><img src="images/bg.gif" width="4" height="4"></td>
<td width="144"><div><a href="<%=rs2("webadd")%>"><%=rs2("webname")%></a></div></td>
</tr>
<%
rs2.movenext
loop%>
</table></td>
</tr>
</table> </td>
</tr>
<tr>
<td><table width="183" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/31bg.jpg">
<tr>
<%
dim strsql9,rs9
strsql9="select * from tie order by id desc"
set rs9=db.execute(strsql9)
if rs9.eof and rs9.bof then
response.write "当前记录未找到！"
response.end
else
%>
<td height="1" background="images/line_3.gif"></td>
</tr>
<tr>
<td background="images/bg_1.gif" height="28"><b><img src="images/pot_9.gif" width="20" height="20" align="absmiddle"> 联 系 我 们</b></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2"><div align="center"><strong><%=rs9("t_have")%></strong></div></td>
</tr>
<tr>
<td><div align="right">地址：</div></td>
<td><%=rs9("t_add")%> </td>
</tr>
<tr>
<td><div align="right">电话：</div></td>
<td><%=rs9("t_tel")%></td>
</tr>
<tr>
<td><div align="right">邮箱：</div></td>
<td><%=rs9("e_mail")%></td>
</tr>
<tr>
<td><div align="right">Q Q：</div></td>
<td><%=rs9("qq")%></td>
</tr>
<tr>
<td width="58"><div align="right">传真：</div></td>
<td width="125"><%=rs9("t_c")%></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="800" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align=right bgcolor=#78A5D1 height=13></td>
</tr>
<tr>
<td align=right bgcolor=#336699 height=40>
<div align="center"><font color="#FFFFFF">| </font>
<A
href="index.asp" class=date STYLE3
οnclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://localhost/dezi/index.asp')"><span class="STYLE3">设为首页</span></A> <span class="STYLE3">|</span> </font><A
href="index.asp" title=加入收藏夹 target=_self class="STYLE3"
οnclick="window.external.addFavorite('http://localhost/bangnong/index.asp',')">加入收藏</A><font color="#FFFFFF"> | </font><A href="mailto:zhangqingde_9043@sina.com" class="STYLE3">联系站长</A><font color="#FFFFFF"> |</font> <a href="admin/login.asp" class="STYLE3">后台管理 </a><font color="#FFFFFF">|</font>
<table width="665" border="0">
<tr>
<td><div align="center"><span class="STYLE3"> | 请使用IE5.0或以上版本浏览器,分辩率1024×768或更高
| </span> </div></td>
</tr>
<tr>
<td><div align="center"><span class="STYLE3">版权所有：<%=rs9("t_have")%> <%=rs9("t_icp")%></span>
<%end if %>
</div></td>
</tr>
</table>
</div></td>
</tr>
</table>
</body>
</html>
6万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
