📄 qgdisplay.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<title>图书求购浏览</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css2.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
dim qgrs,page
set qgrs=server.CreateObject("adodb.recordset")
qgrs.open "select * from shop_qbooks order by qgdate desc",conn,1,1
if qgrs.eof and qgrs.bof then
%>
<table width="90%" border="0" height=450 cellpadding="0" cellspacing="0">
<tr><td bgcolor="#ece9d8">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<table width=77 border="0" cellpadding="0" cellspacing="0">
<tr valign=bottom><td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>图书求购</font></div></td></tr>
</table>
<tr><td>
<table width="100%" border="1" align=center cellspacing="0" cellpadding="3" bordercolordark="#FFFFFF" bordercolorlight="#666666">
<tr><td bgcolor="#ece9d8"><div align="center"><font color=red>目前还没有求购图书信息！</font></div></td></tr>
</table>
</tr>
</table>
<%
end if
Page = qgrs.AbsolutePage
qgrs.PageSize = 5
if Not IsEmpty(Request("Page")) then
Page = CInt(Request("Page"))
if Page > qgrs.PageCount then
qgrs.AbsolutePage = qgrs.PageCount
elseif Page <= 0 then
Page = 1
else
qgrs.AbsolutePage = Page
end if
else
Page = 1
End if
%>
<table width="90%" border="0" height=450 cellpadding="0" cellspacing="0">
<tr><td bgcolor="#ece9d8"><br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<table width=77 border="0" cellpadding="0" cellspacing="0">
<tr valign=bottom>
<td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>图书求购</font></div></td>
</tr>
</table>
<tr><td>
<table width="100%" border="1" align=center cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#666666">
<%do while not qgrs.eof%>
<tr>
<td bgcolor="#cccccc" style="padding-left: 8px" height=25>作者：<font color=blue><%=qgrs("bookzz")%></font></td>
<td bgcolor="#cccccc" style="padding-left: 8px">出版社：<font color=blue><%=qgrs("bookchuban")%></font></td>
<td bgcolor="#cccccc" style="padding-left: 8px">email：<font color=blue><a href=mailto:<%=trim(qgrs("qgemail"))%> title=此用户的邮箱是：<%=trim(qgrs("qgemail"))%>><font color=red><%=trim(qgrs("qgemail"))%></font></a></td>
<td bgcolor="#cccccc" style="padding-left: 8px"><a href="delqg.asp?id=<%=qgrs("qgid")%>" onClick="return confirm('您确定删除吗？')">删除</a></td>
</tr>
<tr><td colspan=5 bgcolor="eeeeee"><div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><b>书名：<%=qgrs("bookname")%></b></div>
<div style="padding-left: 20px"><%=qgrs("bookxx")%></div>
<div style="padding-left: 20px">联系方式：<font color=blue><%=qgrs("qgtele")%></font></div>
<div align=right>提交时间：<font color=blue><%=qgrs("qgdate")%></font></div></td>
</tr>
</table>
</tr>
<%qgrs.movenext
loop %>
</tr>
</table>
<table width="90%" border="0" cellspacing="0">
<tr>
<td><div align="center"><font color=blue size="2">求购图书信息共<font color=red><%=qgrs.recordcount%></font>条<font color=red><%=qgrs.pagecount%></font>页</td>
<td><div align="right"><%if request("page")>1 then%><a Href="sbkdisplay.asp?Page=<% = 1%>">首页</a> <a Href="sbkdisplay.asp?Page=<% =page -1 %>">上一页</a><%end if %><%if request("page")<>qgrs.pagecount and page<qgrs.pagecount then %><a Href="sbkdisplay.asp?Page=<% =page + 1%>">下一页</a> <a Href="sbkdisplay.asp?Page=<% = qgrs.PageCount%>">尾页</a> <% end if %>
<%if qgrs.pagecount>0 then %>
当前第<font color="#FF3300"><%=page%></font> 页
<%end if%></font></div></td><br>
</tr>
</table>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -