📄 default.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="ADOVBS.INC"-->
<%
strAction=Request.Form("cmdMove")
If Not (strAction="前一页" or strAction="后一页") Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.open Application("DBCon_ConnectionString")
set rs=server.createobject("adodb.recordset")
sqltext="select * from forum order by xl,regtime desc"
rs.cursortype=adOpenStatic
'rs.locktype=adlockoptimistic
rs.open sqltext,conn
'response.write( "adopenstatic"&adOpenStatic)
rs.PageSize=30
If rs.RecordCount=0 Then
Emptyyn=true
Conn.close
Set rs=nothing
response.write"当前无记录"
response.end
Else
'response.write(rs.recordcount & "rec pages:" & rs.pagecount)
rs.AbsolutePage=1
Set Session("rs")=rs
Session("pg")=1
End If
Else
Set rs=Session("rs")
Select Case strAction
Case "前一页"
If Session("pg")>1 Then
Session("pg")=Session("pg")-1
Else
Session("pg")=1
End if
rs.AbsolutePage=Session("pg")
Case "后一页"
If rs.AbsolutePage<rs.PageCount Then
Session("pg")=Session("pg")+1
Else
Session("pg")=rs.PageCount
End if
rs.AbsolutePage=Session("pg")
case Else
Session("pg")=1
rs.AbsolutePage=Session("pg")
End Select
End If
%>
<html>
<head>
<title>供求信息</title>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<style type="text/css">
<!--
.bottom { font-size: 12px; color: #000000; background-color: #E8E277; cursor: hand}
.textarea { font-size: 12px; color: #000000; background-color: #FFFFE8}
.select1 { font-size: 12px; color: #000000; background-color: #FFFFE8}
.dateyj { font-size: 9px; color: #000000; font-style: italic}
.big1 { font-size: 14px; color: #003366}
.red { color: #FF0000}
-->
</style>
<meta content="Microsoft FrontPage 3.0" name="GENERATOR">
<link rel="stylesheet" href="../html/3508.css">
</head>
<body bgColor="#FFFFFF" link="#000080" text="#000000" vLink="#000080" background="../images/bg1.gif">
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
<tr>
<td width="162" height="39" align="center"><img src="../images/newzhao1zhao.gif" width="140" height="50"></td>
<td width="578" valign="bottom" height="39" align="right">
<table width="480" border="1" bordercolordark="#FFFFFF" bordercolorlight="#FFFFFF" bgcolor="#CCCCFF" cellpadding="0" cellspacing="0" height="22">
<tr align="center">
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../html/navigator.asp">本站导航</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18">
<a href="../sh/search.asp">二手市场</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="default.asp">供求信息</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../news/index.asp">精品生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18">
<a href="../lovelife/default.asp">我爱生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../xhtj/index.asp">笑话天地</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../diaocha1/diaocha1.asp">调查生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../club/Default.asp">生活社区</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2" height="1" bgcolor="006600"></td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" bgcolor="#CCFFCC" align="center">
<tr>
<td width="667" height="18">【本站导航】<a href="../default.asp">本站首页</a> >>
供求信息</td>
<td width="73">★<a href="newtitle.asp">发布信息</a>★</td>
</tr>
</table>
<table border="0" width="93%" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="5" height="17"> </td>
</tr>
<tr>
<td width="398" bgcolor="#d5e6e1"><font color="#000080">标题</font> </td>
<td width="75" align="center" bgcolor="#d5e6e1"><font color="#000080">发表人</font></td>
<td noWrap width="132" align="center" bgcolor="#d5e6e1"><font color="#000080">发表时间</font>
</td>
<td noWrap width="48" align="center" bgcolor="#d5e6e1"><font color="#000080">阅读</font>
</td>
<td noWrap width="41" align="center" bgcolor="#d5e6e1"><font color="#000080">跟读</font>
</td>
</tr>
<%
if not rs.recordcount=0 then
for j=1 to rs.pagesize
if len(trim(rs("xl")))=5 then
if j>1 then
%>
<tr>
<td height="1" bgcolor="006600" colspan="5">
</tr>
<%end if%>
<tr>
<td width="398"><img src="browimage\<% =trim(rs("brow")) %>.gif"><a href="comment2.asp?id=<% =rs("id") %>" target="blank"><%=rs("title")%></a>
</td>
<td width="75" align="center"><%=rs("username")%> </td>
<td width="132"><%
mjj=formatdatetime(rs("regtime"),vblongdate)&" "&formatdatetime(rs("regtime"),vblongtime)
response.write mjj
%> </td>
<td width="48" align="center"><%=rs("hitnumber")%></td>
<td width="41" align="center"><%=rs("child")%></td>
</tr>
<% end if %> <% if len(trim(rs("xl")))=8 then %>
<tr>
<td width="398"> <img src="browimage\<% =trim(rs("brow")) %>.gif">
<a href="comment2.asp?id=<% =rs("id") %>" target="blank"><%=rs("title")%></a>
</td>
<td width="75" align="center"><%=rs("username")%> </td>
<td width="132">
<%
mjj=formatdatetime(rs("regtime"),vblongdate)&" "&formatdatetime(rs("regtime"),vblongtime)
response.write mjj
%>
</td>
<td width="48" align="center"><%=rs("hitnumber")%></td>
<td width="41" align="center"><%=rs("child")%></td>
</tr>
<% end if %> <% if len(trim(rs("xl")))=11 then %>
<tr>
<td width="398"> <img src="browimage\<% =trim(rs("brow")) %>.gif"><a href="comment2.asp?id=<% =rs("id") %>" target="blank"><%=rs("title")%></a>
</td>
<td width="75" align="center"><%=rs("username")%> </td>
<td width="132">
<%
mjj=formatdatetime(rs("regtime"),vblongdate)&" "&formatdatetime(rs("regtime"),vblongtime)
response.write mjj
%>
</td>
<td width="48" align="center"><%=rs("hitnumber")%> </td>
<td width="41" align="center"><%=rs("child")%></td>
</tr>
<% end if %> <% if len(trim(rs("xl")))=14 then %>
<tr>
<td width="398"> <img src="browimage\<% =trim(rs("brow")) %>.gif"><a href="comment2.asp?id=<% =rs("id") %>" target="blank"><%=rs("title")%></a>
</td>
<td width="75" align="center"><%=rs("username")%> </td>
<td width="132">
<%
mjj=formatdatetime(rs("regtime"),vblongdate)&" "&formatdatetime(rs("regtime"),vblongtime)
response.write mjj
%>
</td>
<td width="48" align="center"><%=rs("hitnumber")%> </td>
<td width="41" align="center"><%=rs("child")%></td>
</tr>
<% end if %> <% if len(trim(rs("xl")))=17 then %>
<tr>
<td width="398"> <img src="browimage\<% =trim(rs("brow")) %>.gif">
<a href="comment2.asp?id=<% =rs("id") %>" target="blank"><%=rs("title")%></a>
</td>
<td width="75" align="center"><%=rs("username")%> </td>
<td width="132">
<%
mjj=formatdatetime(rs("regtime"),vblongdate)&" "&formatdatetime(rs("regtime"),vblongtime)
response.write mjj
%>
</td>
<td width="48" align="center"><%=rs("hitnumber")%></td>
<td width="41" align="center"><%=rs("child")%></td>
</tr>
<% end if %> <%
rs.MoveNext
if rs.eof then
exit for
end if
next
end if
%>
</table>
<p align="center">共有<% =rs.RecordCount %>条符合条件的信息,本页是第<% =Session("pg") %>页！
<form action="default.asp" name="查询" method="post">
<% If Session("pg")>1 Then %>
<p align="center">
<input type="submit" name="cmdMove" value="前一页" class="textarea">
<%End If%> <% If Session("pg")<rs.PageCount Then %>
<input type="submit" name="cmdMove" value="后一页" class="textarea">
<%End If%> </p>
</form>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="1" bgcolor="#000066" colspan="3"></td>
</tr>
<tr>
<td width="486">神州行因特网广告公司 地址：北京海淀区北三环西路47号 邮编：100086<br>
TEL：(010)82632584 FAX：(010)82632584 </td>
<td width="34"><img height="27" src="../images/mail.gif" width="39"></td>
<td width="220">sales@zhao1zhao.com<br>
webmaster@zhao1zhao.com </td>
</tr>
<tr>
<td height="1" bgcolor="#000066" colspan="3"></td>
</tr>
<tr align="middle">
<td colspan="3">
<p align="center"><i><font face="Georgia, Times New Roman, Times, serif" size="1">?CopyRight
April 17, 2000</font></i></p>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -