Microsoft JET Database Engine error '80004005' ???

yyyandyou · 发表于 17-6-2006 12:47 PM

我用 ASP link access database, 不知道什么问题???
Error:
Microsoft JET Database Engine error '80004005'
Selected collating sequence not supported by the operating system.
/bannerbox/index.asp, line 62

Code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
if request("user")<>"" then
if request.Cookies("user")("oo")=request.ServerVariables("LOCAL_ADDR") or request.Cookies("user")("uu")=request("user") then
else
if request("user")>0 then
a=Time()
b=int(replace(a,":",""))
c=100000
if b<c then
t=(Month(Now)&day(Now)&"0"&Time())
else
t=(Month(Now)&day(Now)&Time())
end if
t=int(replace(t,":",""))
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [G_user] where G_userid="&request("user")
rs.open sql,conn,1,3
if rs.eof then
else
rs("G_date")=t
rs("G_comeintime")=now()
rs("G_comein")=(rs("G_comein")+1)
rs.update
rs.close
idd=request("user")
ipp=request.ServerVariables("LOCAL_ADDR")
response.Cookies("user")("oo")=ipp
response.Cookies("user")("uu")=idd
end if
end if
end if
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>魔方格子网—网站免费广告宣传格子网_让你的网站流量迅速飘起来</title>
<META Name="keywords" Content="魔方，魔方格子网，网站免费推广工具，网站免费宣传工具，格子,格子主页,格子广告,格子经济,格子网,格子网站,格子网页,格子首页,百万主页,百万格子,百万格子主页,百万格子网,百万格子网站,百万格子网页,百万格子首页,百万网,百万网站,百万网页,百万美元,百万美元主页,百万美元网,百万美元网站,百万美元网页,百万美元首页,百万美圆,百万首页,网络格子,超级格子">
<META Name="description" Content="BannerBox.cn 百万流量免费广告格子">
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">

</style></head>

<body>
<div align="center">




<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr align="center">
<td height="28" colspan="2" bgcolor="#F5F5F5">

<%set rs=server.CreateObject("adodb.recordset")
sql="select top 30 * from [G_class] order by G_classid asc"
rs.open sql,conn,1,1%>
   <table width="1000" border="0" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#FFCC33">
      <%row_count=1 %>
      <tr align="center"><%if rs.eof and rs.bof then
response.write (" ")
else
Do While Not rs.EOF%>
      <td align="left"><table width="28" border="0" align="left" cellpadding="0" cellspacing="0">
            <tr>
            <td height="26" align="center"><a href="class.asp?id=<%=rs("G_classid")%>"><%=rs("G_class")%></a></td>
            </tr>
      </table></td>
      <% if row_count mod 25 =0 then%>
      </tr><%end if
rs.MoveNext
row_count=row_count+1
Loop
rs.close
end if%>
   </table>

</td>
  </tr>
  <tr>
<td height="1" colspan="2" bgcolor="#CCCCCC"></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
<td height="1" bgcolor="#887872"></td>
  </tr>
</table>

<table width="1000"  border="0" cellspacing="0" cellpadding="0">
  <tr>
<td height="3000" valign="top" background="images/gezi.gif">

<%set rs=server.CreateObject("adodb.recordset")
sql="select top 3000 * from [G_user] where G_comein>2 and G_validate=1 order by G_date desc"'G_userid
rs.open sql,conn,1,1%>
   <table width="100" border="0" cellspacing="0" cellpadding="0">
      <%row_count=1 %>
      <tr align="center"><%if rs.eof and rs.bof then
response.write (" ")
else
randomize
Num=(int(rnd()*802)+1)
i=Num
'以上三行控制表格颜色
Do While Not rs.EOF%>
      <td align="left"><table width="100" border="0" align="left" cellpadding="0" cellspacing="0">
            <%if rs("G_photoshop")="no" then%>
   <tr>
            <td height="100" align="center" bgcolor="#FE<%=i%>"><a href="go.asp?id=<%=rs("G_userid")%>" target="_blank"><font title="<%=rs("G_webinfo")%>【点入】<%=rs("G_comein")%>【点出】<%=rs("G_goout")%>"><%=rs("G_webname")%><br><%=rs("G_webinfo")%></font></a></td>
            </tr>
<%else%>
            <tr>
            <td height="100" align="center"><a href="go.asp?id=<%=rs("G_userid")%>" target="_blank"><img src="Spread/<%=rs("G_photoshop")%>" alt="<%=rs("G_webinfo")%>【点入】<%=rs("G_comein")%>【点出】<%=rs("G_goout")%>" width="100" height="100" border="0"></a></td>
            </tr>
<%end if%>
      </table></td>
      <% if row_count mod 10 =0 then%>
      </tr><%end if
rs.MoveNext
row_count=row_count+1
i=i+375
Loop
rs.close
end if%>
   </table>
</td>
  </tr>
</table>

<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
<td height="1" bgcolor="#887872"></td>
  </tr>
</table>


</div>
</body>
</html>

		自动登录	找回密码
密码			注册

Microsoft JET Database Engine error '80004005' ???

所属分类: 电脑手机

浏览过的版块