article.asp

来自「ZD-BS是一个基于asp+access的个人blog系统 程序特点: 1.」· ASP 代码 · 共 52 行

ASP
52
字号
<!--#include file="admin_global.asp"-->
<!--#include file="admin_common.asp"-->

<%doit();%>

<script language="JScript" runat="server">

function logList(){
	var arrQS=func.getInput(0);
	var intAPage=func.checkInt(arrQS["page"]);
	var strQS=func.checkStr(arrQS["qs"]);
	if(intAPage<1) intAPage=1;
	if(strQS!="private"&&strQS!="draft"&&strQS!="publish") strQS="";
	admin_top("鏂囩珷 - ZD_BS",3,1);
	var strQuery="select ";
	strQuery+="(select count(comm_ID) from zd_comment where comm_postID=post_ID and (comm_type='comment' or comm_type='pingback' or comm_type='trackback')) as commCount,";
	strQuery+="cat_ID,cat_name,post_ID,post_title,post_authorID,post_authorName,post_postTime,post_ip,post_state from zd_post,zd_category where post_catID=cat_ID and post_type='article' ";
	if(zd_userGroup=="author") strQuery+="and post_authorID="+zd_userID+" ";
	if(strQS!="") strQuery+="and post_state='"+strQS+"' ";
	strQuery+="order by post_postTime desc";
	var arrArticle=dbConn.query(strQuery,20,intAPage);
	var arr=null,strPage="";
	if(arrArticle!=null){
		var pCount=dbConn.pageCount;
		if(intAPage>pCount) intAPage=pCount;
		var mainURL="article.asp";
		var plusURL=strQS==""?"":"qs="+strQS;
		strPage=theHTML.pageLink(pCount,intAPage,mainURL,plusURL);
		arr=new Array();
		for(var i=0;i<arrArticle.length;i++){
			arr[i]={
				"commCount":arrArticle[i]["commCount"],
				"catID":arrArticle[i]["cat_ID"],
				"catName":arrArticle[i]["cat_name"],
				"ID":arrArticle[i]["post_ID"],
				"title":theHTML.sliceStr(arrArticle[i]["post_title"],24,"...",true),
				"authorID":arrArticle[i]["post_authorID"],
				"authorName":arrArticle[i]["post_authorName"],
				"postTime":func.dateStr(arrArticle[i]["post_postTime"]),
				"ip":arrArticle[i]["post_ip"],
				"state":arrArticle[i]["post_state"]
			};
		}
	}
	admin_logList(arr);
	admin_pages(strPage);
	admin_bottom();
}

function logPost(){
	var strErr="";
	admin_top("鎾板啓鏂版枃绔

⌨️ 快捷键说明

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