<% option explicit dim conn,connstr,rs, execstr,iNewsID,sAction dim sContent iNewsID=Request.QueryString("NewsID") sAction=Request.QueryString("action") execstr="select * from newscontent where id="&iNewsID if sAction="new" then execstr="select top 1 * from newscontent order by postdate desc" end if if sAction="prve" then execstr="select top 1 * from newscontent where id<"&iNewsID&" order by postdate desc" end if if sAction="next" then execstr="select top 1 * from newscontent where id>"&iNewsID&" order by postdate" end if 'response.write iNewsID&"
" if iNewsID<99999 and iNewsID>0 then Set Conn=Server.CreateObject("ADODB.Connection") connstr ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="&Server.MapPath("data/ete~12jf.mdb") 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 iNewsID=rs("id") %> 德州扑克看牌器:【<%=rs("newstitle")%>】四川省中國青年旅行社 - 德州扑克天下网

歡迎您來到青年旅行社游記選登欄目!


<%=rs("newstitle") %>

<% 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 = Replace(sContent, "
", vbCrLf) 'Response.Write DvBCode(sContent) sContent = DvBCode(sContent) Response.Write global_hoturl_Code(sContent) %>
其它文章
<% dim exec, s, url const topNum=20 '首頁調用留言數量 const maxLen=14 '首頁調用留言標題字符長度限制 rs.close 'url= "//"&request.servervariables("server_name")&replace(request.servervariables("script_name"),"list.asp","") url= "//www.obbaq.com/travelnote/" exec="select top "& topNum &" * from newscontent where id <" & iNewsID & " order by postdate desc" set rs=conn.execute(exec) if rs.eof then s= "暫時沒有游記!" else do until rs.eof 's=s&"" rs.movenext loop end if 's=replace(s,"""","") 'response.write "document.write('"&s&"');" response.write s %>
" s=s&"
" s=s&"" s=s&"
" s=s&"" if len(rs("newstitle"))<=maxLen then s=s&rs("newstitle") else s=s&left(rs("newstitle"),maxLen)&".." end if s=s&"

<% if session("logined")<>true then Response.Write "
德州扑克天下网" else Response.Write "
管理" end if %>
<% end if rs.close set rs=nothing conn.close set conn=nothing else response.write "差數錯誤!" end if %>