📄 article.asp
字号:
<%@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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -