Microsoft JET Database Engine (0x80004005) O sistema operacional não tem suporte para a seqüência de agrupamento selecionada. /blog/commond.asp, line 123... um trechinho do codigo: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Option Explicit
Response.Buffer = True
Server.ScriptTimeOut = 90
Session.CodePage=65001
'定义 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="loveyuki.asa"
'定义数据库连接
Dim Conn
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("blogdata/L-BLOG.MDB")
Conn.Open
Dim blog_Infos,SiteName,SiteUrl,blogPerPage,blog_LogNums,blog_CommNums,blog_MemNums,blog_VisitNums,blog_QuoteNums
Set blog_Infos=Conn.ExeCute("SELECT * FROM blog_Info") SQLQueryNums=SQLQueryNums+1
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_MemNums=blog_Infos("blog_MemNums")
blog_QuoteNums=blog_Infos("blog_QuoteNums")
blog_VisitNums=blog_Infos("blog_VisitNums")+blog_Infos("blog_VisitBaseNums")
Set blog_Infos=Nothing
Dim memName,memPassword,memStatus
memName=CheckStr(Request.Cookies(CookieName)("memName"))
memPassword=CheckStr(Request.Cookies(CookieName)("memPassword"))
memStatus=CheckStr(Request.Cookies(CookieName)("memStatus"))
Dim Guest_IP
Guest_IP=Replace(Request.ServerVariables("REMOTE_ADDR"),"'","")
IF memName<>Empty AND Session("GuestIP")<>Guest_IP Then
Dim CheckCookie
Set CheckCookie=Conn.ExeCute("SELECT mem_Name,mem_Password,mem_Status FROM blog_Member WHERE mem_Name='"&memName&"' AND mem_Password='"&memPassword&"' AND mem_Status='"&memStatus&"'")
SQLQueryNums=SQLQueryNums+1
IF CheckCookie.EOF AND CheckCookie.BOF Then
Response.Cookies(CookieName)("memName")=""
memName=""
Response.Cookies(CookieName)("memPassword")=""
memPassword=""
Response.Cookies(CookieName)("memStatus")=""
memStatus=""
End IF
Set CheckCookie=Nothing
End IF
Dim SQL,TempVar,siteTitle
'上传文件的大小以及后缀名限制
Dim UP_FileSize
Dim UP_FileType
IF memStatus="SupAdmin" Or memStatus="Admin" Then
UP_FileSize ="20480000" '20M
UP_FileType=Split("RAR,ZIP,SWF,JPG,PNG,GIF,DOC,TXT,CHM,PDF,ACE,JPG,MP3,WMA,WMV,MIDI,AVI,RM,RA,RMVB,MOV,TORRENT",",")
Else
UP_FileSize ="512000" '512K
UP_FileType=Split("RAR,ZIP,JPG,PNG,GIF,JPG,TORRENT",",")
End IF
'站点统计代码
IF Session("GuestIP")<>Guest_IP Then
Dim Guest_Soft,Guest_Browser,Guest_OS
Guest_Soft=Request.ServerVariables("HTTP_USER_AGENT")
'浏览器
IF Instr(Guest_Soft,"NetCaptor")>0 then
Guest_Browser="NetCaptor"
ElseIF Instr(Guest_Soft,"MSIE 6")>0 then
Guest_Browser="Microsoft Internet Explorer 6.x"
ElseIF Instr(Guest_Soft,"MSIE 5")>0 then
Guest_Browser="Microsoft Internet Explorer 5.x"
ElseIF Instr(Guest_Soft,"MSIE 4")>0 then
Guest_Browser="Microsoft Internet Explorer 4.x"
ElseIF Instr(Guest_Soft,"Netscape")>0 then
Guest_Browser="Netscape"
ElseIF Instr(Guest_Soft,"Opera")>0 then
Guest_Browser="Opera"
Else
Guest_Browser="nada"
End IF
'操作系统
IF Instr(Guest_Soft,"Windows NT 5.0")>0 Then
Guest_OS="Windows 2000"
ElseIF Instr(Guest_Soft,"Windows NT 5.2")>0 Then
Guest_OS="Windows 2003"
ElseIF Instr(Guest_Soft,"Windows NT 5.1")>0 Then
Guest_OS="Windows XP"
ElseIF Instr(Guest_Soft,"Windows NT")>0 Then
Guest_OS="Windows NT"
ElseIF Instr(Guest_Soft,"Windows 9")>0 Then
Guest_OS="Windows 9x"
ElseIF Instr(Guest_Soft,"unix") or Instr(Guest_Soft,"linux") or Instr(Guest_Soft,"SunOS") or Instr(Guest_Soft,"BSD") Then
Guest_OS="类Unix操作系统"
ElseIF Instr(Guest_Soft,"Mac") then
Guest_OS="Mac"
Else
Guest_OS="nada"
End IF
Conn.ExeCute("INSERT INTO blog_Counter(coun_IP,coun_OS,coun_Browser) VALUES ('"&Guest_IP&"','"&Guest_OS&"','"&Guest_Browser&"')")
Conn.ExeCute("UPDATE blog_Info SET blog_VisitNums=blog_VisitNums+1")
SQLQueryNums=SQLQueryNums+2
Session("GuestIP")=Guest_IP
End IF
'写入日志分类
Dim Arr_Category
IF Not IsArray(Application(CookieName&"_blog_Category")) Then
Dim log_CategoryList
Set log_CategoryList=Conn.Execute("SELECT cate_ID,cate_Name,cate_Order FROM blog_Category ORDER BY cate_Order ASC")
SQLQueryNums=SQLQueryNums+1
If Not(log_CategoryList.EOF And log_CategoryList.BOF) Then
Arr_Category=log_CategoryList.GetRows
Else
Redim Arr_Category(3,0)
End If
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=Conn.Execute("SELECT sm_ID,sm_Image,sm_Text FROM blog_Smilies ORDER BY sm_ID ASC")
SQLQueryNums=SQLQueryNums+1
If Not(log_SmiliesList.EOF And log_SmiliesList.BOF) Then
Arr_Smilies=log_SmiliesList.GetRows
Else
Redim Arr_Smilies(3,0)
End If
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=Conn.Execute("SELECT key_ID,key_Text,key_URL,key_Image FROM blog_Keywords ORDER BY key_ID ASC")
SQLQueryNums=SQLQueryNums+1
If Not(log_KeywordsList.EOF And log_KeywordsList.BOF) Then
Arr_Keywords=log_KeywordsList.GetRows
Else
Redim Arr_Keywords(4,0)
End If
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=Conn.ExeCute("SELECT link_Name,link_URL,link_Image FROM blog_Links WHERE link_IsMain=True ORDER BY link_Order ASC")
SQLQueryNums=SQLQueryNums+1
If Not(log_BloglinksList.EOF And log_BloglinksList.BOF) Then
Arr_Bloglinks=log_BloglinksList.GetRows
Else
Redim Arr_Bloglinks(3,0)
End If
Set log_BloglinksList=Nothing
Application.Lock
Application(CookieName&"_blog_Bloglinks")=Arr_Bloglinks
Application.UnLock
Else
Arr_Bloglinks=Application(CookieName&"_blog_Bloglinks")
End IF
%>
