Erro Estranho

bareta · Março 10, 2005

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

cyberalexxx · Março 10, 2005

Sera que não são os caracteres japas nesta variavel:

ElseIF Instr(Guest_Soft,"unix") or Instr(Guest_Soft,"linux") or Instr(Guest_Soft,"SunOS") or Instr(Guest_Soft,"BSD") Then
 Guest_OS="类Unix操作系统"

Espartaco · Março 10, 2005

Qual é a aplicação na qual você vai usar esse código aí? O que esse script vai fazer?

bareta · Março 11, 2005

vou esperimentar tirar eles......

eu havia retirado alguns ...... vou limpar tudo agora

esse script é um blog que peguei num site japones........

Entrar

Erro Estranho

Pergunta

bareta

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

cyberalexxx

Link para o comentário

Compartilhar em outros sites

Espartaco

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades