MicrosoftVBScript运行时错误错误'800a000d'类型不匹配:'Table_Open'/type_cnftp_fix_s

Microsoft Vbscript 运行时错误 错误 '800a000d' 
类型不匹配: 'Table_Open' 
/type_cnftp_fix_show.asp，行 298 



<%
visitopen=0 '1开放访问，0有密码访问
gpagenum=20'单页显示量
gtimecheck=0
gregist=Request.COOKIEs("sregist")

if gregist="yes" then gtimecheck=1

gallnum=request("lallnum")
gnext=request("lnext")
gpagenow=request("lpagenow")
if gpagenow<1 then gpagenow=1
gpagenow=int(gpagenow)
%>
<%
if gnext=1 then
gtextget=request("ltext")
gtext=""
gtexts=split(gtextget,"|")
for i=0 to ubound(gtexts)
if len(gtexts(i))>0 then
gtext=gtext & chr(gtexts(i))
end if
next

gtextget=request("lneworder")
gneworder=""
gtexts=split(gtextget,"|")
for i=0 to ubound(gtexts)
if len(gtexts(i))>0 then
gneworder=gneworder & chr(gtexts(i))
end if
next

else
gshowtype=request("lshowtype")
if gshowtype=1 then
'查询检索计算开始
 gtext = "(1=1)"
 '注册
greg=request("lreg")
If greg<>1 Then
If greg=3 Then
gtext = gtext & " and datediff(day,ldeltime,getdate())>0 "
Else
gtext = gtext & " and datediff(day,ldeltime,getdate())<=0 "
End If
End If


'字数
getnum1=trim(request("lnum1"))
getnum2=trim(request("lnum2"))
If request("lnum3")<>1 and isnumeric(getnum1) and isnumeric(getnum2) Then
gtext = gtext & " and (llength between " & getnum1 & " and " & getnum2 & ")"
End If

'收录
getnum=trim(request("lnum_pr"))
If isnumeric(getnum) then
if getnum>0 Then
gtext = gtext & " and (lgooglepr>=" & getnum & ")"
end if
End If
getnum=trim(request("lnum_alexa"))
If isnumeric(getnum) then
if getnum>0 Then
gtext = gtext & " and (lalexa<=" & getnum & ")"
end if
End If
getnum=trim(request("lnum_baidusite"))
If isnumeric(getnum) then
if getnum>0 Then
gtext = gtext & " and (lbaidusite>=" & getnum & ")"
end if
End If
getnum=trim(request("lnum_baidudomain"))
If isnumeric(getnum) then
if getnum>0 Then
gtext = gtext & " and (lbaidudomain>=" & getnum & ")"
end if
End If
getnum=trim(request("lnum_baidupr"))
If isnumeric(getnum) then
if getnum>0 Then
gtext = gtext & " and (lbaidupr>=" & getnum & ")"
end if
End If
'过期备案时间
If request("lbacktime3")<>1 Then
if IsDate(request("lbacktime1")) and IsDate(request("lbacktime2")) then
gbacktime1=CDate(request("lbacktime1"))
gbacktime2=CDate(request("lbacktime2"))
gtext = gtext & " and (lbacktime between '" & gbacktime1 & "' and '" & gbacktime2 & "')"
end if
end if
'过期删除时间
If request("ldeltime3")<>1 Then
if IsDate(request("ldeltime1")) and IsDate(request("ldeltime2")) then
gbacktime1=CDate(request("ldeltime1"))
gbacktime2=CDate(request("ldeltime2"))
gtext = gtext & " and (ldeltime between '" & gbacktime1 & "' and '" & gbacktime2 & "')"
end if
end if
'过期快照时间
If request("lbaidutime3")<>1 Then
if IsDate(request("lbaidutime1")) and IsDate(request("lbaidutime2")) then
gbacktime1=CDate(request("lbaidutime1"))
gbacktime2=CDate(request("lbaidutime2"))
gtext = gtext & " and (lbaidutime between '" & gbacktime1 & "' and '" & gbacktime2 & "')"
end if
end if
'过期注册时间
If request("lregtime3")<>1 Then
if IsDate(request("lregtime1")) and IsDate(request("lregtime2")) then
gbacktime1=CDate(request("lregtime1"))
gbacktime2=CDate(request("lregtime2"))
gtext = gtext & " and (lregtime between '" & gbacktime1 & "' and '" & gbacktime2 & "')"
end if
end if

'response.write FormatDateTime(CDate(request("lbacktime1")), "YYYY-MM-DD")
gfind=LCase(request("lfind"))
gfind=trim(gfind)


If len(gfind)>0 and gfind<>"无关键词请置空" Then
gsearch_type=request("lsearch_type")
if gsearch_type="bak" then 
gsearch="lbackname"
elseif gsearch_type="backcode" then 
gsearch="lback"
elseif  gsearch_type="quick" then 
gsearch="lbaidutitle"
else
gsearch="lname"
end if
gkeysite=request("keysite")
if gkeysite=2 then
gtext = gtext & " and " & gsearch & " like '%" &  gfind & "' "
elseif gkeysite=3 then
gtext = gtext & " and " & gsearch & " like '" &  gfind & "%' "
else
gtext = gtext & " and " & gsearch & " like '%" &  gfind & "%' "
end if
End If


'限备案
If request("lbakonly") = 1 Then gtext = gtext & " and lprend=1"
'限拼音
If request("lpyonly") = 1 Then gtext = gtext & " and lpy<>0"
'限收录
If request("lquickonly") = 1 Then gtext = gtext & " and datediff(day,'2001-1-1',lbaidutime)>0"
'构成
If request("lcomposenum1") <> request("lcomposenum2") Then
If request("lcomposenum1") = 1 Then
gnewnum = 2
Else
gnewnum = 3
End If
gtext = gtext & " and lcompose=" & gnewnum
End If

'中划线
If request("lcomposenum3") = 0 Then gtext = gtext & " and lesp=0"
'中文
If request("lcomposenum4") = 0 Then gtext = gtext & " and llang=1"
'扩展名


If request("lextendnumall")<>1 Then
gnewtext="1=2"
for i=1 to 5
gextendnum="lextendnum" &  i
gexthidden="lexthidden" &  i
If request(gextendnum) = 1 then gnewtext = gnewtext & " or lextend like '%" &  request(gexthidden) & "' "
next
If InStr(1, gnewtext, "or") > 0 Then gtext = gtext & " and (" & gnewtext & ")"
End If

'备案性质
If request("lbakkind")<>"all" Then gtext = gtext & " and lbackhostkind='" & request("lbakkind") & "' "
'备案地区
If request("lbakarea")<>"all" Then gtext = gtext & " and lback like '%" &  request("lbakarea") & "' "

'拼音域名
If request("lpyall")<>1 Then
gnewtext="1=2"
If request("lpy1") = 1 then gnewtext = gnewtext & " or lpy=1"
If request("lpy2") = 1 then gnewtext = gnewtext & " or lpy=2"
If request("lpy3") = 1 then gnewtext = gnewtext & " or lpy>=3"
If InStr(1, gnewtext, "or") > 0 Then gtext = gtext & " and (" & gnewtext & ")"
End If

'排序，另类
gnewtext=""
for i=1 to 18
gextendnum="lordernum" &  i
gexthidden="lordhidden" &  i

4 个解决方案

PR值：<%=gpr%>/10
ALEXA:<%=galexa%>
百度收录：<%=gbaidusite%>
百度外链：<%=gbaidudomain%>
百度权重：<%=gbaidupr%>