图行天下--娱乐休闲

[an error occurred while processing this directive] <% '建立数据库连接 dim zxhdxx,lanMu2_img,lanMu2_text,lanMu2_title,lanMu3 set rs=server.CreateObject("ADODB.RecordSet") '栏目一最新信息(热门) lanMu1_img="" lanMu1_text="" lanMu1_title="" sql="select article_ID,banKuai_Name,banKuai_ID,lanMu_ID,article_Title,article_date,article_pic,article_jianjie from article where banKuai_ID=2 and article_rank=1 and article_check=1 order by article_ID desc" rs.Open sql,conn,1,1 if rs.EOF then lanMu1_img="

" lanMu1_text="欢迎您光临迅图网" lanMu1_title="迅图网" else lanMu1_img=rs("article_pic") lanMu1_text=rs("article_jianjie") if trim(lanMu1_img)="0" then lanMu1_img="

" else lanMu1_imgs=split(lanMu1_img,"|") if right(lanMu1_imgs(0),3)="swf" then lanMu1_img="

" else lanMu1_img="

" end if end if if trim(lanMu1_text)="" then lanMu1_text="暂无最新活动信息" if len(rs("article_jianjie"))>20 then lanMu1_text=""&left(rs("article_jianjie"),20)&"..
" else lanMu1_text="·"&rs("article_jianjie")&" " end if if len(rs("article_title"))>12 then lanMu1_title=""&left(rs("article_title"),12)&"..
" else lanMu1_title=""&rs("article_title")&" " end if end if rs.close '栏目一最新信息 zxhdxx="" sql="select * from special where banKuai_ID=2 and lanMu_ID=1 order by special_ID desc" rs.Open sql,conn,1,1 i=0 if rs.EOF then zxhdxx="" else while not rs.EOF and i<>5 zxhdxx=zxhdxx&"·"&rs("special_Name")&"
" rs.MoveNext i=i+1 wend end if rs.close sql="select article_ID,banKuai_Name,banKuai_ID,lanMu_ID,article_Title,article_date from article where banKuai_ID=2 and lanMu_ID=1 and article_check=1 order by article_ID desc" rs.Open sql,conn,1,1 i=0 if rs.EOF then zxhdxx=zxhdxx&"" else while not rs.EOF and i<>5 if len(rs("article_title"))>8 then zxhdxx=zxhdxx&"·"&left(rs("article_title"),8)&"..
" else zxhdxx=zxhdxx&"·"&rs("article_Title")&"
" end if rs.MoveNext i=i+1 wend end if rs.close '栏目二推荐场所 lanMu2_img="" lanMu2_text="" lanMu2_title="" sql="select article_ID,banKuai_Name,banKuai_ID,lanMu_ID,article_Title,article_date,article_pic,article_jianjie from article where banKuai_ID=2 and article_tj=1 and article_check=1 order by article_ID desc" rs.Open sql,conn,1,1 if rs.EOF then lanMu2_img="

" lanMu2_text="欢迎使用迅图网上电子地图..." lanMu2_title="迅图网" else lanMu2_img=rs("article_pic") lanMu2_text=rs("article_jianjie") if trim(lanMu2_img)="0" then lanMu2_img="

" else lanMu2_imgs=split(lanMu2_img,"|") if right(lanMu2_imgs(0),3)="swf" then lanMu2_img="

" else lanMu2_img="

" end if end if if trim(lanMu2_text)="" then lanMu2_text="文章简介暂无" if len(rs("article_jianjie"))>30 then lanMu2_text=""&left(rs("article_jianjie"),30)&"..
" else lanMu2_text="·"&rs("article_jianjie")&" " end if if len(rs("article_title"))>12 then lanMu2_title=""&left(rs("article_title"),12)&"..
" else lanMu2_title=""&rs("article_title")&" " end if end if rs.close '栏目三 (交通服务:在公共栏目中) lanMu3="" sql="select article_ID,banKuai_Name,banKuai_ID,lanMu_ID,article_Title,article_date from article where banKuai_ID=6 and lanMu_ID=1 and article_check=1 order by article_ID desc" rs.Open sql,conn,1,1 lanMu3="" if rs.EOF then lanMu3="内容暂无" else while not rs.EOF lanMu3=lanMu3&""&rs("article_Title")&"
" rs.MoveNext wend end if rs.close '栏目四京郊特色游 lanMu4="" sql="select article_ID,banKuai_Name,banKuai_ID,lanMu_ID,article_Title,article_date from article where banKuai_ID=6 and lanMu_ID=3 and article_check=1 order by article_ID desc" rs.Open sql,conn,1,1 if rs.EOF then lanMu4="内容暂无" else while not rs.EOF lanMu4=lanMu4&""&rs("article_Title")&"
" rs.MoveNext wend end if rs.close '栏目五吃在京城 lanMu5_1="" lanMu5_2="" sql="select * from special where banKuai_ID=2 and lanMu_ID=5 order by special_ID desc" rs.Open sql,conn,1,1 if rs.EOF then lanMu5_1="" lanMu5_2="" else i=0 while not rs.EOF and i<>5 lanMu5_1=lanMu5_1&"·"&rs("special_Name")&"
" rs.MoveNext i=i+1 wend i=0 while not rs.EOF and i<>5 lanMu5_2=lanMu5_2&"·"&rs("special_Name")&"
" rs.MoveNext i=i+1 wend end if rs.close i=0 sql="select article_ID,banKuai_Name,banKuai_ID,lanMu_ID,article_Title,article_date from article where banKuai_ID=2 and lanMu_ID=5 and article_check=1 order by article_ID desc" rs.Open sql,conn,1,1 if rs.EOF then lanMu5_1=lanMu5_1&"" lanMu5_2=lanMu5_2&"" else i=0 while not rs.EOF and i<>5 lanMu5_1=lanMu5_1&"·"&rs("article_Title")&"
" rs.MoveNext i=i+1 wend i=0 while not rs.EOF and i<>5 lanMu5_2=lanMu5_2&"·"&rs("article_Title")&"
" rs.MoveNext i=i+1 wend end if rs.close '栏目6 乐在京城 lanMu6_1="" lanMu6_2="" sql="select * from special where banKuai_ID=2 and lanMu_ID=3 order by special_ID desc" rs.Open sql,conn,1,1 i=0 if rs.EOF then lanMu6_1="" else while not rs.EOF and i<>3 lanMu6_1=lanMu6_1&"·"&rs("special_Name")&"
" rs.MoveNext i=i+1 wend end if rs.close sql="select article_ID,banKuai_Name,banKuai_ID,lanMu_ID,article_Title,article_date from article where banKuai_ID=2 and lanMu_ID=3 and article_check=1 order by article_ID desc" rs.Open sql,conn,1,1 i=0 if rs.EOF then lanMu6_2=lanMu6_2&"" else while not rs.EOF and i<>5 if len(rs("article_Title"))>11 then lanMu6_2=lanMu6_2&"·"&left(rs("article_Title"),10)&"..
" else lanMu6_2=lanMu6_2&"·"&rs("article_Title")&"
" end if rs.MoveNext i=i+1 wend end if rs.close '栏目7 玩在京城 lanMu7="" sql="select * from special where banKuai_ID=2 and lanMu_ID=4 order by special_ID desc" rs.Open sql,conn,1,1 i=0 if rs.EOF then lanMu7="  " else while not rs.EOF and i<>3 lanMu7=lanMu7&"·"&rs("special_Name")&"
" rs.MoveNext i=i+1 wend end if rs.close i=0 sql="select article_ID,banKuai_Name,banKuai_ID,lanMu_ID,article_Title,article_date from article where banKuai_ID=2 and lanMu_ID=4 and article_check=1 order by article_ID desc" rs.Open sql,conn,1,1 if rs.EOF then lanMu7=lanMu7&"  " else while not rs.EOF and i<>3 lanMu7=lanMu7&"·"&rs("article_Title")&"
" rs.MoveNext i=i+1 wend end if rs.close '栏目8 吃在京城 lanMu8="" sql="select * from special where banKuai_ID=2 and lanMu_ID=2 order by special_ID desc" rs.Open sql,conn,1,1 i=0 if rs.EOF then lanMu8="  " else while not rs.EOF and i<>3 lanMu8=lanMu8&"·"&rs("special_Name")&"
" rs.MoveNext i=i+1 wend end if rs.close i=0 sql="select article_ID,banKuai_Name,banKuai_ID,lanMu_ID,article_Title,article_date from article where banKuai_ID=2 and lanMu_ID=2 and article_check=1 order by article_ID desc" rs.Open sql,conn,1,1 if rs.EOF then lanMu8=lanMu8&"  " else while not rs.EOF and i<>3 lanMu8=lanMu8&"·"&rs("article_Title")&"
" rs.MoveNext i=i+1 wend end if rs.close '栏目9 交通服务 lanMu9="" sql="select * from special where banKuai_ID=1 and lanMu_ID=3 order by special_ID desc" rs.Open sql,conn,1,1 i=0 if rs.EOF then lanMu9=" " else while not rs.EOF and i<>5 lanMu9=lanMu9&"·"&rs("special_Name")&"" rs.MoveNext i=i+1 wend end if rs.close set rs=nothing conn.close set conn=nothing %> 图行天下--娱乐休闲