| 從http://www.oioj.net/上下載了最新的oblog2.52測試版，安裝并試用，感覺(jué)作者葉開(kāi)程序寫(xiě)的很好，故打算將代碼從頭到尾看一遍，學(xué)習一下?？吹倪^(guò)程肯定有所收獲，因此記錄下來(lái)以備后查。 要分析網(wǎng)頁(yè)或ASP程序應該從網(wǎng)站的首頁(yè)開(kāi)始，一般是index.htm、index.asp、default.htm、
default.asp等（當然了網(wǎng)站的首頁(yè)是可以自己定義的，象IIS中就可以定義網(wǎng)站的起始頁(yè)面），
就像在C語(yǔ)言中分析一個(gè)函數要從main函數入手一樣。 首頁(yè)當然是顯示第一個(gè)頁(yè)面了（廢話(huà)？），不過(guò)在本系統中，該頁(yè)面顯示的有點(diǎn)麻煩（我自己
這樣認為的），要經(jīng)過(guò)很多轉換，判斷很多東西，最后顯示出來(lái)，不過(guò)正式的軟件是應該這樣
做的。
<!--#include file="conn.asp"-->
<!--#include file="inc/bloginfo.asp"-->
<!--#include file="inc/syscode.asp"-->
<!--#include file="inc/function.asp"-->
以上4行是包含文件，他們的功能就相當于C語(yǔ)言中的頭文件一樣。#include指令將指定文件的
內容在A(yíng)SP服務(wù)器執行之前插入到ASP文件中。這些指定的文件一般都是一些在多個(gè)頁(yè)面內都要
用到的一些公共函數、變量等網(wǎng)頁(yè)元素。
<%
dim show
dim 用來(lái)定義變量，屬于VB語(yǔ)法格式
Application對象用來(lái)在應用中共享信息。應用包括在指定的虛擬目錄下及其子目錄下的所有
asp文件。cachename是一個(gè)常量在conn.asp文件中，其值為"oblog"。
if Application(cachename&"index_update")=false and application(cachename&"index")<>"" then
‘ 判斷首頁(yè)文件是否已經(jīng)生成并保存，通過(guò)這種機制可以實(shí)現記住使用者
show=application(cachename&"index")
else
如果沒(méi)有則重新生成。重新產(chǎn)生index文件時(shí)，先從sysskin表中查找系統設定的缺省值。
dim rstmp
set rstmp=conn.execute("select skinmain from sysskin where isdefault=‘true‘")
show=rstmp(0)
set rstmp=nothing
call indexshow()
indexshow函數在文件syscode.asp中，用來(lái)產(chǎn)生index文件。
Application.Lock
application(cachename&"index")=show
Application(cachename&"index_update")=false
Application.unLock
if Application(cachename&"siterefu")<>"" then
conn.execute("update [bloginfo] set siterefu_num="&Application(cachename&"siterefu"))
end if
end if
if instr(show,"$show_userlogin$")>0 then
call showuserlogin()
show=replace(show,"$show_userlogin$",show_userlogin)
end if
response.Write show
最終將頁(yè)面顯示出來(lái)
call bottom()
%>
數據庫連接
目前大多數網(wǎng)站都用到了數據庫，不論是大型的數據庫如Oracle、SQL Server還小型的象Access、MySQL。數據庫可以將用戶(hù)的資料和網(wǎng)站的信息按照一定的形式存儲起來(lái)，方便信息的檢索、組織。 用ASP來(lái)進(jìn)行網(wǎng)站開(kāi)發(fā)的時(shí)候一般是用ADO來(lái)進(jìn)行數據庫的操作。ADO（ActiveX Data Object）是允許用戶(hù)與數據存儲進(jìn)行交互的組件，它能使客戶(hù)端應用程序通過(guò)OLE DB提供者訪(fǎng)問(wèn)和操作數據庫服務(wù)器中的數據。常用的ADO對象主要有下面幾個(gè)： Connection 連接數據庫 Command 對數據庫執行命令 Recordset 執行命令返回所包含的數據集 在oblog中，文件conn.asp包含的就是實(shí)現數據庫連接的代碼。 首先在代碼的開(kāi)始用Option Explicit語(yǔ)句強制要求顯式聲明所有變量，即所有的變量都必須用Dim、Public、Private和Redim語(yǔ)句顯式聲明，如果試圖使用未經(jīng)聲明的變量名，則會(huì )出現錯誤，這是一種良好的編程風(fēng)格。接下來(lái)進(jìn)行數據庫連接。 const issqldate=false
if not issqldate then
Dim Db
Db = "data/oblog2.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
else
‘sql數據庫連接參數：數據庫名、用戶(hù)密碼、用戶(hù)名、連接名（本地用local，外地用IP）
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "oblog"
SqlPassword = "oblog"
SqlUsername = "oblog"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
end if
‘On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "數據庫連接出錯，請檢查連接字串。"
Response.End
End If
在這里作者使用了一個(gè)變量issqldate以判斷數據庫是用Access還是SQL Server，該版本代碼中使用的是Access數據庫。先定義數據庫連接字符串ConnStr，然后創(chuàng )建一個(gè)ADODB.Connection對象，最后用Connection的Open方法打開(kāi)數據庫。 判斷是否有錯誤出現，當出現錯誤時(shí)，先清空Connection，然后用Response.End結束頁(yè)面的處理。 下面代碼用來(lái)實(shí)現系統信息的自動(dòng)存取。 const cachename="oblog" ‘緩存對象前綴名
if isarray(application(cachename&"info"))=false then
call ***pplicationValue()
end if
‘call ***pplicationValue()
sub closeconn()
conn.close
set conn=nothing
end sub
sub ***pplicationValue()
dim infosql,rsinfo
infosql="select show_log_num,enguestcomment,site_keyword,needclassid,sitefriends,"
infosql=infosql&"blogcheck,copyrighturl,siteurl,siterefu_num,sitetitle,webmasteremail,"
infosql=infosql&"logcount,getlog_num,EnableUserReg,logcount,commentcount,messagecount,usercount,timediff,"
infosql=infosql&"sitename,show_imgw_num,show_img_mouse,blog_showruntime,blog_showrefu,vip_prosee,show_listuser_num,"
infosql=infosql&"blog_profilt,show_comment_asc,userlink_add,user_sendword,siteplacard,smalledit,gourl"
infosql=infosql&" from bloginfo"
set rsinfo=conn.execute(infosql)
Redim ApplicationValue(34)
dim i
for i=0 to 32
ApplicationValue(i)=rsinfo(i)
next
set rsinfo=nothing
Application.Lock
set Application(cachename&"info")=nothing
Application(cachename&"info")=ApplicationValue
Application(cachename&"index_update")=true
Application(cachename&"list_update")=true
Application.unlock
end sub 上面代碼中還提供了一個(gè)函數closeconn()，用來(lái)關(guān)閉數據庫。我個(gè)人感覺(jué)conn.asp中所實(shí)現的代碼有點(diǎn)亂，應該有更加結構化、更清晰的實(shí)現方法（比如數據庫的打開(kāi)是否可以用函數來(lái)表示），具體怎么實(shí)現我也沒(méi)有想好，在此先記錄下來(lái)。 | 
