config.asp

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

<%
' 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

If Application("blogName") <> "" Then
	blogName = Application("blogName")
	blogURL =  Application("blogURL")
	blogBottom = Application("blogBottom")
	blogDesc = Application("blogDesc")
	blogShows = Application("blogShows")
Else 

	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")
		Application("blogName") = configRS("blog_name")
		Application("blogURL") =  configRS("blog_url")
		Application("blogBottom") = configRS("blog_bottom")
		Application("blogDesc") = configRS("blog_desc")
		Application("blogShows") = configRS("blog_shows")
	End If
	configRS.close
	Set configRS = nothing
End If
%>