config.asp

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

<%
' Project Name: Simple Blog
' Version: 1.1
' Author: James Tang
' Email: [e-mail]
' Web site: www.fwso.cn
' Copyright (C) 2008 James Tang. All Rights Reserved.
'
' Note: This program can be used for any purpose for free. 
'       
%>


<%
Dim blogName, blogDesc, blogBottom, blogURL, blogShows
Dim configRS, configSQL
configSQL = "SELECT TOP 1 * FROM config ORDER BY blog_id DESC"
Set configRS = Server.CreateObject("ADODB.Recordset")
configRS.open configSQL, conn, 1,1

IF configRS.EOF or configRS.BOF then
	Response.Write("The configure information is missing.")
Else
	blogName = configRS("blog_name")
	blogURL =  configRS("blog_url")
	blogBottom = configRS("blog_bottom")
	blogDesc = configRS("blog_desc")
	blogShows = configRS("blog_shows")
End If
configRS.close
Set configRS = nothing
conn.close
Set conn = nothing
%>