📄 sale.asp

📁 基于Sabrina SecondMarket v1.0
💻 ASP
字号:
<!--
版本：草原二手市场V1.1
本程序作者：mysql QQ:54016224 TEL:13036133798

-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK 
href="css/css.css" rel=stylesheet>
<title>无标题文档</title>
</head>
<body bgcolor="#F0F9FB" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="include/conn.asp"-->
<%
sql                 = "select * from Info where InfoStatus = 0 order by InfoID desc"
set rs              = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
'********************分页模块******************************'
apage               = trim(request("page"))
rs.pagesize         = 10
pagesize            = rs.pagesize             
totalnum            = rs.recordcount
pagenum             = cint(totalnum/pagesize) + 1


if not IsNumeric(apage) then
	apage               = 1
	if not rs.eof and not rs.bof then
	rs.absolutepage = apage
	page            = rs.absolutepage
	end if
else
	apage               = abs(cint(apage))
	'*************************************
	if apage           <= 0 then
		if not rs.eof and not rs.bof then
		rs.absolutepage = 1
		page            = rs.absolutepage
		end if
	else
		if apage > pagenum  then 
			if not rs.eof and not rs.bof then
			rs.absolutepage = pagenum
			page            = rs.absolutepage
			end if
		else
			if not rs.eof and not rs.bof then
			rs.absolutepage = apage
			page            = rs.absolutepage
			end if
		
		end if
	end if
	'*************************************
end if
'************************分页模块end*********************************'
i                   = 0
%>

<div align="right"><a href ="?page=<%=abs(page)-1%>">上一页</a><font color="red">|第<%=abs(page)%>页|</font><a href ="?page=<%=abs(page)+1%>">下一页</a></div>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#C5DCE2">
<% 
do while not rs.eof and not rs.bof 
i = i + 1
if i > 13 then exit do 
select case rs("InfoStatus")
	   case 0
	   getstatus = "供"
	   case 1
	   getstatus = "求"
end select
%>
  <tr class="font-12px120-999999">
    <td align="center" bgcolor="#F0F9FB">[<font color="#FF0000"><%=getStatus%></font>]</td>
	<td align="center" bgcolor="#F0F9FB"><a href=showInfo.asp?InfoID=<%=rs("InfoID")%> target="_parent"><%=rs("InfoName")%></a></td>
	<td align="center" bgcolor="#F0F9FB"><%=rs("PostTime")%></td>
  </tr>
<%
rs.movenext
loop
%> 
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -