comment.asp

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。

<!--#include file="../conn.asp"-->
<!--#include file="../inc/const.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<%
anysale.chkUser()
select case request("action")
	case "del"
		call del()
	case else
		call main()
end select

sub main()
%>
<div id="comment">
<!--comment-->
<form name="commentForm" id="commentForm" method="post">
<%
dim rs,sql,page,ipage
page = clng(request("page"))
if page="" or page<1 then page=1 end if

set rs=server.createobject("adodb.recordset")
sql="select * from as_comment where username='"&anysale.username&"' and isuser=1 order by commentID desc"
rs.open sql,conn,1,1
if not rs.eof then
	rs.pageSize = 17
	if page>rs.pageCount then page=rs.pageCount end if
	rs.absolutePage = page
end if
%>
<div class="subNav">
 <div class="right">
  <ul><li>
   鍏