admin_review.asp

商机网站8.0,比教完整,可以自己二次开发!

<!--#include file="conn.asp"-->
<!--#include file="head.asp"-->
<!--#include file="const.asp"-->

<%
dim referer
referer = Request.ServerVariables("HTTP_REFERER")
if Request("action") = "del" then
	call del()

else 
	call show()
end if

%>


<%sub show()%>
<table width="100%" cellspacing="3" cellpadding="3"><tr><td height="20">当前位置：<a href=main.asp>管理首页</a> >> 评论列表</td></tr></table>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor=#999999 align=center>
 <form action=admin_site.asp?action=alldel method=post name=alldel>
  <tr bgcolor=#cccccc><td colspan=8><center><b>商业信息列表</b></td></tr>
  <tr bgcolor=#ffffff><td colspan=8 height=20></td></tr>
  <tr bgcolor=#ffcc00 align=center><td width=2%><img src=folder.gif border=0></td><td ><b>姓名</td><td ><b>内容</td><td ><b>时间</td><td ><b>IP</td><td ><b>相关网站</td><td><b>操作</td></tr>
<%
siteid=request("siteid")
dim pagecount,page,Spage,Epage,recordcount,i
page = request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
page = Cint(page)
set rs = server.CreateObject ("Adodb.recordset")
if request("siteid")="" then
sql="select * from review order by addtime desc"
else
sql="select * from review where siteid="&request("siteid")&"  order by addtime desc"
end if
rs.open sql,conn,1,1

recordcount = RS.RecordCount
RS.PageSize = PAGESIZE
pagecount = RS.PageCount
if page < 1 then
    page = 1
elseif page > pagecount then
    page = pagecount
end if
if RS.EOF  then
Response.Write("<tr bgcolor=#ffffff><td colspan=8 height=20><center><br><font color=red>目前还没有相关评论</font></td></tr>")

else
if recordcount > 0 then RS.AbsolutePage = page
for i = 1 to PAGESIZE
if RS.EOF then exit for
%>

<tr bgcolor=#eeeeee>
   <td><img src=folder.gif></td>
   <td><a class=list href=mailto:<%=rs("email")%>><%=rs("name")%></a></td>
   <td><%=rs("content")%></td>
   <td><center><%=rs("addtime")%></td>
   <td><center><%=rs("ip")%></td>
<%set rs2 = server.CreateObject ("Adodb.recordset")
sql2="select id,sitename,siteurl from site where id="& rs("siteid")
rs2.open sql2,conn,1,1
if rs2.eof then
sitename="不存在"
else
sitename=rs2("sitename")
end if
rs2.close
%>
   <td><%=sitename%></td>
   <td> <a href=admin_review.asp?action=del&reviewid=<%=rs("id")%>>删除</a></td>
    </tr>
<%

RS.MoveNext()
next
end if
%>
</table>



<%
if pagecount > 0 then
    response.write("<table width=""95%"" align=center cellspacing=3 cellpadding=3><tr><td align=right>")
    response.write("页次：<font color=red><b>" & page & "</font>/" & pagecount & "</b>&nbsp;&nbsp;每页<b>" & pagesize & "</b>&nbsp;&nbsp;共<b>" & recordcount & "</b>个178商机网&nbsp;&nbsp;分页：")
    Spage = page mod PARTSIZE
    if page > PARTSIZE then
        if Spage = 0 then Spage = PARTSIZE
        Spage = page - Spage + 1
    else
        Spage = 1
    end if
    Epage = Spage + PARTSIZE - 1
    if Epage > pagecount then Epage = pagecount
    if page > PARTSIZE then
        response.write("<a href=""admin_review.asp?self=" & tempself & " &page=" & Spage - 1 & """>[<<]</a>")
    end if
    for i = Spage to Epage
        if i = page then
            response.write("[<font color=red><b>" & i & "</b></font>]")
        else
            response.write("[<a href=""admin_review.asp?siteid=" & siteid & "&page=" & i & """>" & i & "</a>]")
        end if
    next
    if Epage < pagecount then
        response.write("<a href=""admin_review.asp?siteid=" & siteid & "&page=" & Epage + 1 & """>[>>]</a>")
    end if
    if Spage <> 1 then response.write("[<a href=""admin_review.asp?siteid=" & siteid & "&page=1"">首页</a>]")
    if Epage <> pagecount then response.write("[<a href=""admin_review.asp?siteid=" & siteid & "&page=" & pagecount & """>尾页</a>]")
    response.write("</td></tr></table><br>")    
end if
rs.close
set rs=nothing
%>
<%end sub%>

<%sub del()
sql="delete from review where id="&request("reviewid")
conn.execute(sql)
response.redirect (referer)
end sub%>