article.asp

来自「请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都」· ASP 代码 · 共 51 行

<!--#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 "add"
		call add()
	case "saveAdd"
		call saveAdd()
	case "edit"
		call edit()
	case "saveEdit"
		call saveAdd()
	case "image"
		call image()
	case "today"
		call today()
	case "topic"
		call topic()
	case "elite"
		call elite()
	case "del"
		call del()
	case else
		call main()
end select

sub main()
%>
<div id="article">
<!--article-->
<form name="articleForm" id="articleForm" 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_article where userID="&anysale.userID&" order by articleID 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>
   鍏