<%=title%>_ABC资讯

<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% keyno=Request.QueryString("keyno") if keyno="" then Response.End set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") sqltext="select * from miscell where state='1' and keyno="&keyno rs.Open sqltext,cn,1,3 if not rs.EOF then title=trim(rs("title")) sortnum=rs("sortnum") newsform=trim(rs("newsform")) author=trim(rs("author")) content=trim(rs("content")) classcode=rs("classcode") picflag=rs("picflag") picflag2=rs("picflag2") flag=rs("flag") website=trim(rs("website")) basclass=rs("basclass") creadate=rs("creadate") querycount=rs("querycount") rs("querycount")=rs("querycount")+1 picalign=trim(rs("picalign")) infocount=rs("infocount") keyword=trim(rs("keyword"))+"/" xx1=1 xx2=instr(xx1,keyword,chr(47)) wheretxt="" do while xx2>0 ttt=mid(keyword,xx1,xx2-xx1) if ttt<>"" then ttt="(title like '%"+ttt+"%' or keyword like '%"+ttt+"%')" if wheretxt="" then wheretxt=ttt else wheretxt=wheretxt+" or "+ttt end if end if xx1=xx2+1 xx2=instr(xx1,keyword,"/") loop rs.Update else Response.End end if rs.Close myurl="news_display.asp?temp=1" mymenu="#" %> <%=title%>_ABC资讯

<% sqltext="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='n1' order by sortnum" rs2.Open sqltext,cn,1,1 %> <% if (lcase(right(trim(rs2(2)),3))="jpg" or lcase(right(trim(rs2(2)),3))="gif") then if trim(rs2("website"))<>"" then %> " target=_blank>"> <% end if %> <% else if lcase(right(trim(rs2(2)),3))="swf" then %> <% end if end if%> <% rs2.Close %>

您所在的位置：首页 > 澳洲新闻 > <%select case classcode case "501" Response.Write ("社会新闻") case "502" Response.Write ("财经新闻") case "503" Response.Write ("娱乐新闻") case "504" Response.Write ("体育新闻") case "505" Response.Write ("出国新闻") case "506" Response.Write ("华人新闻") case "507" Response.Write ("时政新闻") case "508" Response.Write ("国际新闻") case "509" Response.Write ("科技新闻") case "510" Response.Write ("文化新闻") end select%>

<%=title%>

来源:<%=newsform%> 时间:<%=creadate%> 浏览<%=querycount+1%>次发表评论

<% if infocount>0 then sqltext="select * from miscell_info where miscellno="&keyno&" order by sortnum" rs2.Open sqltext,cn,1,1 do while not rs2.EOF if rs2("picflag")="1" then picalign2=trim(rs2("picalign")) if picalign2="center" then %>

<%if rs2("picflag2")="1" then%> " target=_blank>

" border="0"> <%else%>

" border="0"> <%end if%>

<%if rs2("flag")="1" then%>

<%=trim(rs2("title"))%>

<%end if else if rs2("picflag2")="1" then %> " target=_blank>

" border="0" align=<%=picalign2%>> <% else %>

" border="0" align=<%=picalign2%>> <%end if end if end if Response.Write(checkstr(trim(rs2("content")),"1")&"
") rs2.MoveNext loop rs2.Close else if picflag="1" then piccode="miscell" if picflag2="1" then piccode="miscell2" if picalign="center" then %>

<% else%>

<% end if end if end if%> <%=checkstr(content,"1")%>

[责任编辑：<%=author%>]

<% sqltext="select top 1 title,keyno from miscell where state='1' and basclass='500' and keyno<"&keyno&" order by keyno desc" rs2.Open sqltext,cn,1,1 if rs2.eof then response.write "上一篇：这是澳洲新闻分类的第一篇文章" else response.write "上一篇："&rs2("title")&"" end if rs2.Close %>
<% sqltext="select top 1 title,keyno from miscell where state='1' and basclass='500' and keyno>"&keyno&" order by keyno" rs2.Open sqltext,cn,1,1 if rs2.eof then response.write "下一篇：这是澳洲新闻分类的最后一篇" else response.write "下一篇："&rs2("title")&"" end if rs2.Close %>

<% sqltext="select keyno,creadate,title from miscell where basclass='600' and state='1' order by creadate desc" rs2.Open sqltext,cn,1,1 i=1 do while not rs2.EOF and i<=6 %><% i=i+1 rs2.MoveNext loop rs2.Close %>

ABC最新批出

·" target=_blank>[<%=dateValue(rs2("creadate"))%>] <%=subss(trim(rs2("title")),54)%>..<%if (datediff("d",rs2("creadate"),now()))<=3 then%><%end if%>

<% sqltext="select prono,title,querycount,updatetime from product where state='1' and classcode like '1%' order by querycount desc" rs2.Open sqltext,cn,1,1 i=1 do while not rs2.EOF and i<=10 %><% i=i+1 rs2.MoveNext loop rs2.Close %>

移民点击排行

<%=i%> <%=subss(trim(rs2("title")),26)%>