📄 goodsbook.asp

📁 一个不错的个人商务网站的源码
💻 ASP
字号:
<%dim nowplace
nowplace="guestbook"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/pages.asp"-->
<!--#include file="../comm/my_lib.asp"-->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=AdminStyle.css rel=stylesheet type=text/css>
<title>商品留言评论管理</title>
</head>

<body>
<div align="center">
	<table border="1" width="100%" id="table1" style="border:1px solid #183789; border-collapse: collapse; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" bordercolor="#EFEFEF" cellpadding="4" cellspacing="1">
		<tr>
			<td width="100%" height="25" colspan="3" background="Image/admin_bg_1.gif">
		<p align="left">
		<font color="#FFFFFF">
		<b>商品评论管理</b></font><font color="#0000FF"></font></td>
		</tr>
		<%  sql="select * from product_leave order by addtime desc"
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td width=500 colspan=4><font color=#FF0000>目前还没有任何留言</font></td>"
    response.write "</tr>"
    else
    rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
						  ii=1
						  while not rs.eof and ii<=rs.pagesize
id=rs("id")
username=rs("username")
xingxing=rs("xingxing")
neirong=rs("neirong")
pid=rs("pid")
ip=rs("ip")
addtime=rs("addtime")

sqls="select p_name from yqj_product where id="&pid
set rsp=conn.execute (sqls)
p_name=rsp("p_name")
rsp.close
set rsp=nothing
%>

		<tr>
			<td width="33" bgcolor="#D4D4D4" height="28" rowspan="2"><%=(page-1)*20+ii%></td>
			<td width="675" height="18">针对商品：<a href=../product/ProductDetail.asp?id=<%=pid%> target=_blank><%=p_name%></a>&nbsp;&nbsp;网名：<%=username%>&nbsp;&nbsp;评价星级：<%
			for ai=1 to cint(xingxing)
		response.write "<img border=0 src=../images/art1.gif>"
		next
          %>&nbsp;&nbsp;IP地址：<%=ip%>&nbsp;&nbsp;留言时间：<%=addtime%></td>
			<td width="37" height="18">
			<p align="center"><a href="del_p.asp?id=<%=id%>&page=<%=page%>">
			<font color="#0000FF">删除</font></a></td>
		</tr>
		<tr>
			<td width="717" height="18" colspan="2"><font color="#FF0000">留言内容：</font><%=neirong%></td>
		</tr>

		<tr>
			<td colspan="3"><hr color="#D4D4D4" size="1" noshade></td>
		</tr><%
rs.movenext
ii=ii+1
wend
%>
		<tr>
			<td colspan="3" height="18">
			<p align="right"><%call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")%></td>
		</tr>
	</table>
</div>
</body>

</html>
⌨️ 快捷键说明

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