求助，高手帮忙看一看啊！！
网页出现如下错误怎么解决，请高手帮下忙啊，谢谢啦！！Microsoft JET Database Engine 错误 '80040e10'
至少一个参数没有被指定值。
/inc/function.asp，行 1319
错误网页网址:http://,0,0
相关代码：
Function f_typeinfo(C1,C2,C3,T1,T2,T3,TitleZs,PW1,PH1,TitleZs1,TextZs1,PW2,PH2,TitleZs2,LW)
If T1=0 Then Exit Function
Dim TypeData,Page,Maxperpage,ShowType,OrderType,PageType,ss
Dim C,T,Sql,Rs,DataCount,PageCount,i
If C3>0 then
C=" And City_Oneid="&C1&" And City_Twoid="&C2&" And City_Threeid="&C3
ElseIf C2>0 Then
C=" And City_Oneid="&C1&" And City_Twoid="&C2
ElseIf C1>0 Then
C=" And City_Oneid="&C1
End If
IF T3>0 Then
T=" And Type_Oneid="&T1&" And Type_Twoid="&T2&" And Type_Threeid="&T3
ElseIf t2>0 Then
T=" And Type_Oneid="&T1&" And Type_Twoid="&T2
Else
T=" And Type_Oneid="&T1
End If
Page = StrInt(Request.QueryString("Page"))
If Page<1 Then Page = 1
ShowType = StrInt(Request.QueryString("ShowType"))
OrderType = StrInt(Request.QueryString("OrderType"))
PageType = StrInt(Request.QueryString("PageType"))
If PageType=1 Then
Maxperpage = 40
ElseIF PageType=2 Then
Maxperpage = 80
Else
Maxperpage = 20
End If
Page=Strint(Request.QueryString("Page"))
If Page<1 Then Page=1
If Maxperpage<1 Then Maxperpage=20
If Application(CacheName&"_Setup")(0)<>"" Then
Sql = "Select top "&Page*Maxperpage&" adid,City_oneid,City_twoid,City_threeid,City_one,City_two,City_three,type_oneid,type_twoid,type_threeid,[color],[title],[text],[date],pic,hits,[Money],MoneyDate,[Top],[hot] From China_Data Where mark=yes And (DateDiff(d,Date(),[stop])>=1 Or (DateDiff(d,Date(),[MoneyDate])>=1 And [Money]>0)) "&c&t&" order by [top] desc"
Else
Sql = "Select top "&Page*Maxperpage&" adid,city_oneid,city_twoid,city_threeid,city_one,city_two,city_three,type_oneid,type_twoid,type_threeid,[color],[title],[text],[date],pic,hits,[Money],MoneyDate,[Top],[hot] From China_Data Where mark=yes And ([stop]>=Date() Or ([Money]>0 And MoneyDate>=date())) "&c&t&" order by [top] desc"
End If
Select Case OrderType
Case 1
Sql = Sql & ",Adid"
Case 2
Sql = Sql & ",Adid Desc"
Case 3
Sql = Sql & ",hits"
Case 4
Sql = Sql & ",hits Desc"
Case Else
Sql = Sql & ",[money] Desc,Adid Desc"
End Select
If Not IsObject(Conn) Or Conn Is NoThing Then DbLink
Set Rs=server.createobject("adodb.recordset")
1319行 Rs.Open Sql,Conn,1,1
If Not Rs.Eof Then Rs.Move (Maxperpage*(page-1))
IF Not Rs.Eof Then typeData=Rs.Getrows
IF IsArray(TypeData) Then
For i=0 To Ubound(TypeData,2)
If ShowType=2 Then
Response.Write "<div style=""width:"&LW&"px;float:left;overflow:hidden;"" align=""center""><a href="&S_path("",TypeData(0,i),"")&" target=""_blank"">"
If TypeData(14,i)<>"||||" And not isnull(TypeData(14,i)) Then
Response.Write "<img src=""adpic/"&ShowPic(TypeData(14,i))&""" width="&PW2&" height="&PH2&" style=""margin:5px 0 8px 0; "">"
Else
Response.Write "<img src=""images/nopoto_1.gif"" width="&PW2&" height="&PH2&" style=""margin:5px 0 8px 0; "">"
End If
Response.Write "</a><br><a href="&S_path("",TypeData(0,i),"")&" target=""_blank"">"&CutStr(TypeData(12,i),TitleZs2)&"</a></div>"
Else
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr>"
If ShowType<>1 Then
If TypeData(14,i)<>"||||" And Not IsNull(TypeData(14,i)) Then
Response.Write "<td width="&PW1&"><img src=""adpic/"&ShowPic(TypeData(14,i))&""" width="&PW1&" height="&PH1&" style=""margin:5px 0 5px 0; ""></td>"
Else
Response.Write "<td width=""80"" style=""border-bottom:1px #CCCCCC dashed""><img src=""images/nopoto.gif"" width="&PW1&" height="&PH1&" style=""margin:5px 0 5px 0; ""></td>"
End If
End If
Response.Write "<td width=100 height=28 style=""border-bottom:1px #CCCCCC dashed"">【"
IF TypeData(6,i)<>"" And Not IsNull(TypeData(6,i)) Then
Response.Write "<a href=Type.asp?C="&TypeData(1,i)&","&TypeData(2,i)&","&TypeData(3,i)&"&T="&t1&","&t2&","&t3&">"&TypeData(6,i)&"</a>"
ElseIF TypeData(5,i)<>"" And Not IsNull(TypeData(5,i)) Then
Response.Write "<a href=Type.asp?C="&TypeData(1,i)&","&TypeData(2,i)&"&T="&t1&","&t2&","&t3&">"&TypeData(5,i)&"</a>"
ElseIF TypeData(4,i)<>"" And Not IsNull(TypeData(4,i)) Then
Response.Write "<a href=Type.asp?C="&TypeData(1,i)&"&T="&t1&","&t2&","&t3&">"&TypeData(4,i)&"</a>"
End IF
Response.Write "】</td><td style=""border-bottom:1px #CCCCCC dashed""><font color="""&TypeData(10,i)&"""><a href="&S_path("",TypeData(0,i),"")&" target=""_blank"">"&TypeData(11,i)&"</a></font>"
If TypeData(14,i)<>"||||" And Not IsNull(TypeData(14,i)) Then Response.Write " <img src=""Images/www9/picflag.gif"" width=""13"" height=""13"" alt=""附图"">"
If ShowType<>1 Then Response.Write "<br><a href="&S_path("",TypeData(0,i),"")&" target=""_blank"">"&CutStr(TypeData(12,i),TextZs1)&"</a>"
Response.Write "</td><td width=50px style=""border-bottom:1px #CCCCCC dashed""> "
If TypeData(16,i)>0 And TypeData(17,i)>=Date() Then Response.Write " <img src=""Images/www9/top_45.gif"" width=""15"" height=""13"" alt=""竟价""> "
If Cbool(TypeData(18,i)) Then Response.Write " <img src=""Images/www9/top_46.gif"" width=""15"" height=""13"" alt=""固顶""> "
If Cbool(TypeData(19,i)) Then Response.Write " <img src=""Images/www9/top_44.gif"" width=""15"" height=""13"" alt=""热点""> "
Response.Write "</td><td width=100 style=""border-bottom:1px #CCCCCC dashed"">"&TypeData(13,i)&"</td></tr></table>"
End If
Next
Response.Write "<div style=""clear:both"" align=center>"&PageSplit(MaxperPage,DataCount,Page,PageCount,"type.asp","&C="&c1&","&c2&","&c3&"&T="&t1&","&t2&","&t3&"&ShowType="&ShowType&"&OrderType="&OrderType&"&PageType="&PageType&"")&"</div>"
Else
Response.Write "<div align=center>暂无本类信息</div>"
End IF
End Function
[ 本帖最后由 cnboy216 于 2009-8-13 22:33 编辑 ]
