jiaju_more.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 302 行
ASP
302 行
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../inc/onlinecount.asp"-->
<!--#include file="../top.asp"-->
<%
Dim Rs,Sql
OpenDataConn
Set Rs=Server.CreateObject("ADODB.Recordset")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE><%=homepage_title%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script language="JavaScript" src="../inc/index.js"></script>
<LINK
href="../img/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.2706" name=GENERATOR></HEAD>
<BODY class=bg1 text=#000000 bgColor=#ffffff leftMargin=0 topMargin=1>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=980 align=center
background=../img/headbg4.gif border=0>
<TBODY>
<TR>
<TD align=right width=35>
<IMG height=13 src="../img/headarrow.gif"
width=17></TD>
<TD align=middle width=10></TD>
<TD class=TD_Place width=935>您现在的位置：<a href="../index.asp"><font color="#FFFFFF"><%=homepage_title%></font> </a> <FONT color=#ffffff>
>>
我要家装</FONT></TD></TR></TBODY></TABLE>
<TABLE height=7 cellSpacing=0 cellPadding=0 width=980 align=center
background=../img/headbg5.gif border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE height=100 cellSpacing=0 cellPadding=0 width=970 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=260 height=100>
<TABLE class=out3s_green height="100%" cellSpacing=0 cellPadding=0
width=255 bgColor=#7cb721 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="99%" align=center
border=0>
<TBODY>
<TR>
<TD background="../img/36.gif" height="42"> <b>
<font color=#FFFFFF>时 尚 家 居</font></b></TD></TR>
<TR>
<TD>
<table width="255" border="0" cellpadding="0" cellspacing="0" class="main">
<tr valign="top">
<td align="center" width="255">
<table width="255" border="0" cellpadding="0" cellspacing="0" bgcolor="#7CB721" class="main">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 6 * from news where sort=2 order by dnt desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr class="black">
<td width="10"> </td>
<td width="12" height="19"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td width="178" height="19"><a href=jiaju_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=2>
<font color=#ffffff><%=left(trim(rs("topic")),14)%></font></a></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table></td>
</tr>
<tr>
<td align="center">
<p align="right">
<a href="jiaju_more.asp?sort=2"><font color=#ffffff>更多</a></font> </td>
</tr>
</table>
</TD></TR>
<TR>
<TD background="../img/36.gif" height="39"> <b>
<font color=#ffffff>装 修 流 行 线</font></b></TD></TR>
<TR>
<TD>
<table width="255" border="0" cellpadding="0" cellspacing="0" bgcolor="#7CB721" class="main">
<tr class="black" height="7">
<td height="7" colspan="3"></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 6 * from news where sort=3 order by dnt desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr class="black">
<td width="10"> </td>
<td width="12" height="19"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td height="19"><a href=jiaju_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=3>
<font color=#ffffff><%=left(trim(rs("topic")),14)%></font></a></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</TD></TR>
<TR>
<TD>
<p align="right"><a href="jiaju_more.asp?sort=3"><font color=#ffffff>更多</font></a> </TD></TR>
<TR>
<TD background="../img/36.gif" height="37"> <b>
<font color=#ffffff>家 装 指 南</font></b></TD></TR>
<TR>
<TD>
<table width="255" border="0" cellpadding="0" cellspacing="0" class="main">
<tr class="black" height="7">
<td height="7" colspan="2"></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 7 * from news where sort=5 order by dnt desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr class="black">
<td width="19" height="19"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td width="313" height="19"><a href=jiaju_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=5>
<font color=#ffffff ><%=left(trim(rs("topic")),15)%></font></a></td>
</tr>
<%
rs.movenext
loop
rs.close
%>
</table>
</TD></TR>
<TR>
<TD>
<p align="right"><a href="jiaju_more.asp?sort=5"><font color=#ffffff>更多</font></a> </TD></TR>
<TR>
<TD> </TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR></TR>
<TR>
<TD height=5></TD></TR></TBODY></TABLE>
<div align="right">
<TABLE height=30 cellSpacing=0 cellPadding=0 width=710 border=0 id="table7">
<TBODY>
<TR>
<TD width=5><IMG height=30 src="../img/news1a.gif" width=5></TD>
<TD width=150 background=../img/news4a.gif>
<IMG height=9
src="../img/arr_w2.gif" width=9>
<font color=#ffffff>当前位置：
<!--#include file="../admin/sort2.asp"-->
</font></a></TD>
<TD width=5><IMG height=30 src="../img/news2a.gif" width=5></TD>
<TD background=../img/news5a.gif> </TD>
<TD width=5><IMG height=30 src="../img/news3a.gif"
width=5></TD></TR></TBODY></TABLE>
</div>
<TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<div align="right">
<TABLE class=out4s_green cellSpacing=0 cellPadding=0 width=710 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td> <TABLE width="100%" height=5
border=0 cellPadding=0 cellspacing="0"
borderColor=#808080 id=table618 style="BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<TD> <DIV align=center>
<DIV align=center>
<%
Sql = "Select * From Jc_Type"
Set Rsjc = Server.CreateObject("Adodb.Recordset")
Rsjc.Open Sql,conn,1,1
%>
<td width="710" align="center" valign="top">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="700" height="151" align="center" valign="top"><table width="97%" height="113" border="0" align="center" cellpadding="0" cellspacing="0">
<%
dim curpage
if request.querystring("curpage")="" then
curpage=1
else
curpage=request.querystring("curpage")
end if
const numperpage=23
sortnum=trim(request("sort"))
sql="select * from news where sort="&sortnum&" order by dnt desc"
rs.open sql,conn,1,1
if not rs.eof then
rs.pagesize=numperpage
dim totalpages
totalpages=rs.pagecount
rs.absolutepage=curpage
end if
dim count
count=0
do while not rs.eof and count<numperpage
%>
<tr class="p12">
<td width="8%" height="20"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td width="92%" height="22"><a href=liuchen_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=<%=trim(rs("sort"))%>><class="linkone" ><%=getStr(rs("topic"),27)%>
<%if trim(rs("imgname"))<>"0" and trim(rs("imgname"))<>"" then response.write "(图)" end if%>
</a><font color="#666666"> ( <%=Year(Rs("dnt"))&"-"&Month(Rs("dnt"))&"-"&Day(Rs("dnt"))%>)</font></td>
</tr>
<%
rs.movenext
count=count+1
loop
%>
<tr>
<td height="88" colspan="2"> <div align="center" class="p12">
<% if cint(curpage)<>1 then %>
<a href="jiaju_more.asp?curpage=1&sort=<%=trim(request("sort"))%>" class="linkone">首页 </a>
<% else %>
首页
<% end if %>
<% if cint(curpage)>1 then %>
<a href="jiaju_more.asp?curpage=<%=curpage-1%>&sort=<%=trim(request("sort"))%>" class="linkone">上一页 </a>
<% else %>
上一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
<a href="jiaju_more.asp?curpage=<%=curpage+1%>&sort=<%=trim(request("sort"))%>" class="linkone"> 下一页
<% else %>
下一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</a><a href="jiaju_more.asp?curpage=<%=totalpages%>&sort=<%=trim(request("sort"))%>" class="linkone"> 末页
<% else %>
末页
<% end if %>
</a> 第<font color="#FF0000"><%=curpage%></font>页/共<%=totalpages%>页 </div></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
</table></td>
</DIV>
</DIV></TD>
</TR>
</TBODY>
</TABLE>
<%
SqlJ = "Select top 3 * from Jc Order by id desc"
Set Rsj = server.CreateObject("adodb.Recordset")
Rsj.Open Sqlj,conn,1,1
%> </td>
</tr>
</table>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=708
background=../img/bomgreen2.gif border=0>
<TBODY>
<TR>
<TD width=20>
<IMG height=27 src="../img/bomgreen1.gif"
width=13></TD>
<TD align=right>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</div>
</TD></TR></TBODY></TABLE>
<!--#include file="../end.asp"-->
</BODY></HTML>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?