我有一个城市分站的导航,然后鼠标一上去就自动显示所有的分站,鼠标离开就关闭了。
但是我不记得改了哪个代码,鼠标没放上去就显示了,搞的每次一进首页那个东西就弹出来,好烦,谁能帮我看看,是哪里出了问题。
下面是代码:
If (ic mod 10)=0 Then exit do
ic=ic+1
Rs.movenext
loop
CloseRs
navigate=navigate& "[url=]
[color=]更多
[/url]"
Dim L_ID,T_ID,CT_ID
L_ID="C="&city_oneid&","&city_twoid&","&city_threeid
T_ID="T="&type_oneid&","&type_twoid&","&type_threeid
CT_ID="C="&city_oneid&","&city_twoid&","&city_threeid&"&T="&type_oneid&","&type_twoid&","&type_threeid
Dim qiehuan,CityData
If city_twoid>0 Then
Sql="Select ID,twoid,threeid,city,TwoDomain From china_city Where id="&city_oneid&" and twoid="&city_twoid&" And Threeid>0 and indexshow='yes' order by indexid"
ElseIF city_oneid>0 Then
Sql="Select ID,twoid,threeid,city,TwoDomain From china_city Where id="&city_oneid&" And Twoid>0 and threeid=0 and indexshow='yes' order by indexid"
Else
Sql="Select ID,twoid,threeid,city,TwoDomain From china_city Where twoid=0 and indexshow='yes' order by indexid"
End If
Set Rs=Conn.Execute(Sql)
If Not Rs.eof Then CityData=Rs.getrows
CloseRs
If IsArray(CityData) Then
qiehuan="
[img][/img]
"
If Domain"" Then
For i=0 to ubound(CityData,2)
If CityData(4,i)"" And Not IsNull(CityData(4,i)) Then
Qiehuan=Qiehuan&"[url=]"&CityData(3,i)&"[/url]"
Else
qiehuan=qiehuan&"[url=]"&CityData(3,i)&"[/url]"
End If
Next
Else
For i=0 to ubound(CityData,2)
qiehuan=qiehuan&"[url=]"&CityData(3,i)&"[/url]"
next
End If
qiehuan=qiehuan&"[url=]返回总站[/url] | [url=]更多城市[/url]"
End If
sub mulu()
oo=oo+1
If coun>=oo Then
Response.write ""
End If
End Sub%>
还是没用阿。
|