article.asp

来自「一个简单ASP+ACCESS博客程序Simple Blog v1.2 。ASP虽」· ASP 代码 · 共 107 行

ASP
107 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
' Project Name: Simple Blog
' Version: 1.1
' Author: James Tang
' Email: fwsous@gmail.com
' Web site: www.fwso.cn
' Copyright (C) 2008 James Tang. All Rights Reserved.
'
' Note: This program can be used for any purpose for free. 
'       
%>

<%
If Request.QueryString("article_id") = "" then
	Response.Redirect(Application("blogURL"))
End if
%>
<!--#include file="conn.asp"-->
<!--#include file="lib/util.asp"-->
<!--#include file="config.asp"-->
<%
'Read data from database
				Dim articleRs, articleSQL, articleID, articleTitle
				articleID = Request.QueryString("article_id")
				articleSQL = "SELECT article_title,article_date,article_content, user_name, cat_name FROM articles AS a, users AS u, categories AS c WHERE a.user_id=u.user_id AND a.cat_id=c.cat_id AND a.article_id=" & articleID
				
				Set articleRs = Server.CreateObject("ADODB.Recordset")
				articleRs.open articleSQL, conn, 1,1
				If articleRs.EOF or articleRs.BOF then '#If-Else-1
					articleTitle = "Article Not Exists"
				Else 
					articleTitle = articleRS("article_title")
				End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="description" content="D2590DD1058AB71D1561927E463BCE85" />
<meta name="description" content="Simple blog, powered by James Tang (www.fwso.cn)" />
<meta name="keywords" content="fwso.cn, James Tang, Java, web development, SQL, JavaScript" />
<title><%=articleTitle + " - " + Application("blogName")%></title>
<link type="text/css" rel="stylesheet" href="css/blogStyle.css" />
<script type="text/javascript" language="javascript" src="../js/prototype.js"></script>
<script type="text/javascript" language="javascript"  src="js/SimpleCMS.js"></script>
</head>

<body>

<div id="mainDiv">

	<!--#include file="top.asp"-->
    
  

	<div id="stageDiv">
    
    	 <!--#include file="leftDIV.asp"-->
        
        <div id="rightDiv">
        
         	<div id="showBox">
            
            	<%
				
				
				If articleRs.EOF or articleRs.BOF then '#If-Else-1
				
					Response.Write("The article you required does not exists.")
					
				Else
				%>
            
            	<div class="showTitle"><a href="./article.asp"><%=articleRs("article_title")%></a></div>
                <div class="showInfo"><%=articleRs("user_name")%> | <%=convertDatetime(articleRs("article_date"))%> | <%=articleRs("cat_name")%></div>
                
                <div class="showArticle">
                
                 	<%'=encodeHTML(articleRs("article_content"))%>
                    <%=articleRs("article_content")%>
                
                </div><!--End #showArticle-->
                
                <%
				End If 'End #If-Else-1
				articleRs.close
				Set articleRs = nothing
				conn.close
				Set conn = nothing
				%>
            </div><!--End #showBox-->
            
    	</div><!--End #leftDiv-->
        
    </div><!--End #stageDiv-->
    
    
    
   <!--#include file="bottom.asp"-->
	
</div><!--End #mainDiv-->

</body>
</html>

article.asp - 源码说明

本页面展示了「一个简单ASP+ACCESS博客程序Simple Blog v1.2 。ASP虽然有些老了」中的 article.asp 源码文件，采用 ASP 编程语言编写，共 107 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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