tpl_article.asp

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

<%function page_article(arr,arrComm,arrPost){%>
<%page_top(arr["title"]);%>
<%page_narrowTop();%>
<div class="article-unit">
	<h2><%=arr["title"]%></h2>
	<%if(arr["nextID"]!=0||arr["prevID"]!=0){%><table width="100%"><tr>
		<td align="left"><%if(arr["prevID"]!=0){%><a href="./article.asp?/a<%=arr["prevID"]%>.html">&lt;&lt; <%=arr["prevTitle"]%></a><%}%></td>
		<td align="right"><%if(arr["nextID"]!=0){%><a href="./article.asp?/a<%=arr["nextID"]%>.html"><%=arr["nextTitle"]%> &gt;&gt;</a><%}%></td>
	</tr></table><%}%>
	<div class="entry"><%=arr["content"]%></div>
	<div class="article-item">
		<%=arr["postTime"]%>
	</div>
	<h3><%=arr["commCount"]+arr["pingCount"]+arr["tbCount"]%>条评论 :</h3>
	<div class="article-link">
		<a href="./feed.asp?act=rss2-comm&logID=<%=arr["ID"]%>">RSS2.0订阅地址</a> 
		<a href="./trackback.asp?logID=<%=arr["ID"]%>">Trackback引用地址</a>
	</div>
</div>
<%if(arrComm!=null) page_commentList(arrComm);%>
<%if(arrPost["enableComment"]) page_commentPostForm(arrPost);%>
<%page_narrowBottom();%>
<%page_sideBar(["category","archive","comment","link"]);%>
<%page_bottom();%>
<%
}

//=======================================================================================================================
//=======================================================================================================================
//=======================================================================================================================

function page_commentList(arr){
%>
<a name="comment"></a>
<div class="comment-unit">
	<ul>
	<%for(var i=0;i<arr.length;i++){%>
	<a name="comment<%=arr[i]["ID"]%>"></a>
	<li>
		<%switch(arr[i]["type"]){%>
			<%case "comment":%>
			<div class="comment-content"><%=arr[i]["content"]%></div>
			<div class="comment-info">
				—— <%=arr[i]["homepage"]?"<a href=\""+arr[i]["homepage"]+"\" target=\"_blank\">"+arr[i]["authorName"]+"</a>":arr[i]["authorName"]%> 发表于 <%=arr[i]["postTime"]%>
			<%break;%>
			<%case "trackback":%>
			<div class="comment-content">[...] <%=arr[i]["excerpt"]%> [...]</div>
			<div class="comment-info">
				—— <a href="<%=arr[i]["URL"]%>" target="_blank"><%=arr[i]["blog"]%> : <%=arr[i]["title"]%></a> 引用 <%=arr[i]["time"]%>
			<%break;%>
			<%case "pingback":%>
			<div class="comment-content">[...] <%=arr[i]["excerpt"]%> [...]</div>
			<div class="comment-info">
				—— <a href="<%=arr[i]["URL"]%>" target="_blank"><%=arr[i]["title"]%></a> PING <%=arr[i]["time"]%>
			<%break;%>
		<%}%>
		<%if(!arr[i]["checked"]){%>
			<font color="red"> (未审核)</font>
		<%}%>
		</div>
	</li>
	<%}%>
	</ul>
</div>
<%
}

//=======================================================================================================================
//=======================================================================================================================
//=======================================================================================================================

function page_commentPostForm(arr){
%>
<a name="commentPost"></a>
<div class="form-unit">
	<h1>发表评论<%=arr["checkComment"]?"(需审核)":""%> :</h1>
	<form name="commPost" method="post" action="article.asp?act=commPost">
	<input type="hidden" name="articleID" value="<%=arr["articleID"]%>" />
	<div class="form-unit">
		<ul>
			<%if(arr["userID"]==0){%>
			<li>
				<input type="text" name="authorName" style="width:200px;" /> 您的称呼 (*)
			</li>
			<li>
				<input type="text" name="email" style="width:200px;" /> 邮箱地址 (*)
			</li>
			<li>
				<input type="text" name="homepage" style="width:200px;" /> 网站地址
			</li>
			<%}else{%>
			<li>
				您已经登录 : <%=arr["userName"]%> | <a href="login.asp?act=logout">注销</a>
			</li>
			<%}%>
			<li>
				<input type="text" name="sCode" style="width:200px;" /> <img src="scode.asp" />
			</li>
			<li>
				<textarea name="content" rows="12" style="width:420px;"></textarea>
			</li>
			<li>
				<input type="submit" name="post" value="发表" />
			</li>
		</ul>
	</div>
	</form>
</div>
<%
}
%>