admin_ly_list.asp 水族产品用品经营类企业网站asp源代码程序 - ASP源码程序

www.gusucode.com > 水族产品用品经营类企业网站asp源代码程序 > admin/admin_ly_list.asp

    <!--#INCLUDE VIRTUAL="/comm.asp"-->
<%
if session("admin")="" then
	response.Redirect("admin_login.asp")
end if

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/db_ly.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ly Order By ID DESC"
rs.open sql,conn,3,2

if rs.eof then response.Redirect("/error.asp?p=无留言！")
page1=cint(request("page"))
if page1=0 then page1=1
rows=15
allcount=rs.recordcount
if allcount/rows=int(allcount/rows) then
	page2=allcount/rows
else
	page2=int(allcount/rows)+1
end if
if page1>page2 then page1=page2
if not rs.eof then rs.move (page1-1)*rows
%>
<link href="../css.css" rel="stylesheet" type="text/css">
<body background="../image/admin_bj.gif"><table  border="0" cellpadding="6" cellspacing="2" class="ww10">
  <tr align="center" bgcolor="#CCCCCC" class="w5">
    <td>姓名</td>
    <td>单位</td>
    <td>联系电话</td>
    <td>传真号码</td>
    <td>电子邮箱</td>
    <td>网站地址</td>
    <td>内容</td>
    <td>删除</td>
  </tr>
<%
for i=1 to rows
%>
  <tr align="center" bgcolor="#E2E2E2">
    <td><%=rs("name") %></td>
    <td><%=rs("unit") %></td>
    <td><%=rs("phone") %></td>
    <td><%=rs("fax") %></td>
    <td><%=rs("email") %></td>
    <td><%=rs("web") %></td>
    <td><pre><%=rs("text") %></pre></td>
    <td><a href="admin_ly_del.asp?id=<%=rs("id") %>">删除</a></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
</table>
<span class="ww10">
<%
for i=1 to page2
response.Write("<a href='admin_ly_list.asp?page=" & i & "'>" & i & "</a>　")
next

%>
</span>