commond.asp

来自「一套非常实用的博客源代码,功能全,界面简单易用.」· ASP 代码 · 共 422 行 · 第 1/2 页

		memName=Empty
		Response.Cookies(CookieName)("memPassword")=""
		memPassword=Empty
		Response.Cookies(CookieName)("memStatus")=""
		memStatus=Empty
	Else
		If CheckCookie("mem_LastIP")<>Guest_IP Or isNull(CheckCookie("mem_LastIP")) Then
			Response.Cookies(CookieName)("memName")=""
			memName=Empty
			Response.Cookies(CookieName)("memPassword")=""
			memPassword=Empty
			Response.Cookies(CookieName)("memStatus")=""
			memStatus=Empty
		End If
	End IF
	CheckCookie.Close
	Set CheckCookie=Nothing
Else
	Response.Cookies(CookieName)("memName")=""
	memName=Empty
	Response.Cookies(CookieName)("memPassword")=""
	memPassword=Empty
	Response.Cookies(CookieName)("memStatus")=""
	memStatus=Empty
End IF

'上传文件的大小以及后缀名限制
Dim Adm_UP_FileSize,Adm_UP_FileType,Mem_UP_FileSize,Mem_UP_FileType,MemCanUP
MemCanUP=0             '设定一般用户是否可以上传文件，1为可以上传，0为不可以上传
Adm_UP_FileSize = 20480000
Adm_UP_FileType = "RAR,ZIP,SWF,JPG,PNG,GIF,DOC,TXT,CHM,PDF,ACE,JPG,MP3,WMA,WMV,MIDI,AVI,RM,RA,RMVB,MOV,TORRENT"
Mem_UP_FileSize = 1024000
Mem_UP_FileType = "RAR,ZIP,SWF,JPG,PNG,GIF,DOC,TXT,CHM,PDF,ACE,JPG,MP3,WMA,WMV,MIDI,AVI,RM,RA,RMVB,MOV,TORRENT"


'写入日志分类
Dim Arr_Category
IF Not IsArray(Application(CookieName&"_blog_Category")) Then
	Dim log_CategoryList
	Set log_CategoryList=Server.CreateObject("ADODB.RecordSet")
	SQL="SELECT cate_ID,cate_Name,cate_Order FROM blog_Category ORDER BY cate_Order ASC"
	log_CategoryList.Open SQL,znwl,1,1
	SQLQueryNums=SQLQueryNums+1
	If log_CategoryList.EOF And log_CategoryList.BOF Then
		Redim Arr_Category(3,0)
	Else
		Arr_Category=log_CategoryList.GetRows
	End If
	log_CategoryList.Close
	Set log_CategoryList=Nothing
	Application.Lock
	Application(CookieName&"_blog_Category")=Arr_Category
	Application.UnLock
Else
	Arr_Category=Application(CookieName&"_blog_Category")
End IF

'写入TAGS
Dim Arr_tj
IF Not IsArray(Application(CookieName&"_blog_tj")) Then
	Dim log_tjList
	Set log_tjList=Server.CreateObject("ADODB.RecordSet")
	SQL="SELECT TagID,TagName FROM blog_tags ORDER BY TagID ASC"
	log_tjList.Open SQL,znwl,1,1
	SQLQueryNums=SQLQueryNums+1
	If log_tjList.EOF And log_tjList.BOF Then
		Redim Arr_tj(3,0)
	Else
		Arr_tj=log_tjList.GetRows
	End If
	log_tjList.Close
	Set log_tjList=Nothing
	Application.Lock
	Application(CookieName&"_blog_tj")=Arr_tj
	Application.UnLock
Else
	Arr_tj=Application(CookieName&"_blog_tj")
End IF

'写入TJTAGS
Dim Arr_tjtag
IF Not IsArray(Application(CookieName&"_blog_tjtag")) Then
	Dim log_tjtagList
	Set log_tjtagList=Server.CreateObject("ADODB.RecordSet")
	SQL="SELECT TOP 5 TagID,TagName,TjCount FROM blog_tags ORDER BY TjCount ASC"
	log_tjtagList.Open SQL,znwl,1,1
	SQLQueryNums=SQLQueryNums+1
	If log_tjtagList.EOF And log_tjtagList.BOF Then
		Redim Arr_tjtag(3,0)
	Else
		Arr_tjtag=log_tjtagList.GetRows
	End If
	log_tjtagList.Close
	Set log_tjtagList=Nothing
	Application.Lock
	Application(CookieName&"_blog_tjtag")=Arr_tjtag
	Application.UnLock
Else
	Arr_tjtag=Application(CookieName&"_blog_tjtag")
End IF

'写入论坛板块列表
Dim Arr_Forums
If Not IsArray(Application(CookieName&"_blog_Forums")) Then
	Dim log_ForumList
	Set log_ForumList=Server.CreateObject("ADODB.RecordSet")
	SQL="SELECT forum_ID,forum_Name,forum_Order,forum_ThreadNums FROM blog_Forums ORDER BY forum_Order ASC"
	log_ForumList.Open SQL,znwl,1,1
	SQLQueryNums=SQLQueryNums+1
	If log_ForumList.EOF And log_ForumList.BOF Then
		Redim Arr_Forums(4,0)
	Else
		Arr_Forums=log_ForumList.GetRows
	End If
	log_ForumList.Close
	Set log_ForumList=Nothing
	Application.Lock
	Application(CookieName&"_blog_Forums")=Arr_Forums
	Application.UnLock
Else
	Arr_Forums=Application(CookieName&"_blog_Forums")
End If

'写入表情符号
Dim Arr_Smilies
IF Not IsArray(Application(CookieName&"_blog_Smilies")) Then
	Dim log_SmiliesList
	Set log_SmiliesList=Server.CreateObject("ADODB.RecordSet")
	SQL="SELECT sm_ID,sm_Image,sm_Text FROM blog_Smilies ORDER BY sm_ID ASC"
	log_SmiliesList.Open SQL,znwl,1,1
	SQLQueryNums=SQLQueryNums+1
	If log_SmiliesList.EOF And log_SmiliesList.BOF Then
		Redim Arr_Smilies(3,0)
	Else
		Arr_Smilies=log_SmiliesList.GetRows
	End If
	log_SmiliesList.Close
	Set log_SmiliesList=Nothing
	Application.Lock
	Application(CookieName&"_blog_Smilies")=Arr_Smilies
	Application.UnLock
Else
	Arr_Smilies=Application(CookieName&"_blog_Smilies")
End IF

'写入关键字列表
Dim Arr_Keywords
IF Not IsArray(Application(CookieName&"_blog_Keywords")) Then
	Dim log_KeywordsList
	Set log_KeywordsList=Server.CreateObject("ADODB.RecordSet")
	SQL="SELECT key_ID,key_Text,key_URL,key_Image FROM blog_Keywords ORDER BY key_ID ASC"
	log_KeywordsList.Open SQL,znwl,1,1
	SQLQueryNums=SQLQueryNums+1
	If log_KeywordsList.EOF And log_KeywordsList.BOF Then
		Redim Arr_Keywords(4,0)
	Else
		Arr_Keywords=log_KeywordsList.GetRows
	End If
	log_KeywordsList.Close
	Set log_KeywordsList=Nothing
	Application.Lock
	Application(CookieName&"_blog_Keywords")=Arr_Keywords
	Application.UnLock
Else
	Arr_Keywords=Application(CookieName&"_blog_Keywords")
End IF

'写入首页链接列表
Dim Arr_Bloglinks
IF Not IsArray(Application(CookieName&"_blog_Bloglinks")) Then
	Dim log_BloglinksList
	Set log_BloglinksList=Server.CreateObject("ADODB.RecordSet")
	SQL="SELECT link_Name,link_URL,link_Image FROM blog_Links WHERE link_IsMain=True ORDER BY link_Order ASC"
	log_BloglinksList.Open SQL,znwl,1,1
	SQLQueryNums=SQLQueryNums+1
	If log_BloglinksList.EOF And log_BloglinksList.BOF Then
		Redim Arr_Bloglinks(3,0)
	Else
		Arr_Bloglinks=log_BloglinksList.GetRows
	End If
	log_BloglinksList.Close
	Set log_BloglinksList=Nothing
	Application.Lock
	Application(CookieName&"_blog_Bloglinks")=Arr_Bloglinks
	Application.UnLock
Else
	Arr_Bloglinks=Application(CookieName&"_blog_Bloglinks")
End IF

'写入词语屏蔽列表
Dim Arr_WordFilter
If Not IsArray(Application(CookieName&"_blog_WordFilter")) Then
	Dim log_WordFilter
	Set log_WordFilter=Server.CreateObject("ADODB.RecordSet")
	SQL="SELECT wf_ID,wf_String,wf_Replace FROM blog_WordFilter ORDER BY wf_ID ASC"
	log_WordFilter.Open SQL,znwl,1,1
	If log_WordFilter.Eof And log_WordFilter.Bof Then
		Redim Arr_WordFilter(3,0)
	Else
		Arr_WordFilter=log_WordFilter.GetRows
	End If
	log_WordFilter.Close
	Set log_WordFilter = Nothing
	Application.Lock
	Application(CookieName&"_blog_WordFilter")=Arr_WordFilter
	Application.UnLock
Else
	Arr_WordFilter=Application(CookieName&"_blog_WordFilter")
End If
%>
<!--#include file="ActiveUser.asp" -->