commond1.asp

1、日志增加首页显示调用index_show.asp 2、日志增加用户的修改和删除权利 3、日志增加文件上传大小修改和限制 4、时间的动态修改 5、增加日志的日志推荐功能 6、用户的ip查询

 <%
Response.Buffer = True
Server.ScriptTimeOut = 90

Session.CodePage=65001

If Trim(Request.QueryString("CP"))="GBK" Then Session.CodePage = 936

'定义 Cookie,Application 域，必须修改，否则可能运行不正常
Const CookieName="loveyuki"

'站点开关操作
IF Not isNumeric(Application(CookieName & "_SiteEnable")) Then
	Application.Lock
	Application(CookieName & "_SiteEnable") = 1
	Application(CookieName & "_SiteDisbleWhy") = ""
	Application.UnLock
End IF
IF Application(CookieName & "_SiteEnable") = 0 AND Application(CookieName & "_SiteDisbleWhy")<>"" AND inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/admincp.asp") = 0  AND inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/logging.asp") = 0 Then
	Response.Write(Application(CookieName & "_SiteDisbleWhy"))
	Response.End
End IF

Dim StartTime,SQLQueryNums
StartTime=Timer()
SQLQueryNums=0

'定义数据库链接文件，根据自己的情况修改
Const AccessPath="blogdata"
Const AccessFile="123.mdb" 
Const IPAccessFile="ipdata.asa"

'定义数据库连接
Dim Conn
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessPath&"/"&AccessFile)
Conn.Open

Dim SQL,TempVar,siteTitle '定义常用变量

Dim blog_Infos,SiteName,SiteUrl,blogPerPage,blog_LogNums,blog_CommNums,blog_MemNums,blog_VisitBaseNums,blog_VisitNums,blog_QuoteNums,blog_GuestbookNums
Set blog_Infos=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM blog_Info"
blog_Infos.Open SQL,Conn,1,1
SQLQueryNums=SQLQueryNums+1
If blog_Infos.EOF And blog_Infos.BOF Then
	Response.Write("站点出错，请检查数据库中的站点基本信息设置……")
	Response.End
Else
	SiteName=blog_Infos("blog_Name")
	SiteURL=blog_Infos("blog_URL")
	blogPerPage=blog_Infos("blog_PerPage")
	blog_LogNums=blog_Infos("blog_LogNums")
	blog_CommNums=blog_Infos("blog_CommNums")
	blog_GuestbookNums=blog_Infos("blog_GuestbookNums")
	blog_MemNums=blog_Infos("blog_MemNums")
	blog_QuoteNums=blog_Infos("blog_QuoteNums")
	blog_VisitBaseNums=blog_Infos("blog_VisitBaseNums")
	blog_VisitNums=blog_Infos("blog_VisitNums")+blog_VisitBaseNums
End If
blog_Infos.Close
Set blog_Infos=Nothing

Dim Guest_IP
Guest_IP=Replace(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),"'","")
If Guest_IP=Empty Then Guest_IP=Replace(Request.ServerVariables("REMOTE_ADDR"),"'","")

'站点统计代码
IF Session("GuestIP")<>Guest_IP Then
	Dim Guest_Agent,Guest_Refer
	Guest_Agent=Trim(Request.ServerVariables("HTTP_USER_AGENT"))
	Guest_Refer=Trim(Request.ServerVariables("HTTP_REFERER"))
	Conn.ExeCute("INSERT INTO blog_Counter(coun_IP,coun_Agent,coun_Refer) VALUES ('"&Guest_IP&"','"&Guest_Agent&"','"&Guest_Refer&"')")
	Conn.ExeCute("UPDATE blog_Info SET blog_VisitNums=blog_VisitNums+1")
	SQLQueryNums=SQLQueryNums+2
	Session("GuestIP")=Guest_IP
End IF

Dim memName,memPassword,memStatus
memName=CheckStr(Request.Cookies(CookieName)("memName"))
memPassword=CheckStr(Request.Cookies(CookieName)("memPassword"))
memStatus=CheckStr(Request.Cookies(CookieName)("memStatus"))

IF memName<>Empty Then
    Dim CheckCookie
    Set CheckCookie=Server.CreateObject("ADODB.RecordSet")
    SQL="SELECT mem_Name,mem_Password,mem_Status,mem_LastIP FROM blog_Member WHERE mem_Name='"&memName&"' AND mem_Password='"&memPassword&"' AND mem_Status='"&memStatus&"'"
    CheckCookie.Open SQL,Conn,1,1
    SQLQueryNums=SQLQueryNums+1
    If CheckCookie.EOF AND CheckCookie.BOF Then
        Response.Cookies(CookieName)("memName")=""
        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
Dim MemCanUP
MemCanUP = 0   '设定一般用户是否可以上传文件，0为不可以，1为可以
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  '如果不允许一般会员上传设置为0即可！
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,Conn,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

'写入表情符号
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,Conn,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,Conn,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,Conn,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%>