<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% prono=Request.QueryString("prono") if prono="" then Response.End set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") sql="select * from product where state='1' and prono="&prono rs.Open sql,cn,1,3 if not rs.EOF then title=trim(rs("title")) intro=trim(rs("intro")) querycount=trim(rs("querycount")) content=trim(rs("content")) newsform=trim(rs("newsform")) author=trim(rs("author")) classcode=rs("classcode") traffic=rs("traffic") picflag=rs("picflag") picflag2=rs("picflag2") infocount=rs("infocount") creadate=rs("creadate") updatetime=rs("updatetime") rs("querycount")=rs("querycount")+1 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 end if rs.Close mymenu="line" myurl="line_display.asp?x=1" %> <%=title%>_ABC移民
<% sqltext="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='i1' 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><%=trim(rs2("> <% end if %> <% else if lcase(right(trim(rs2(2)),3))="swf" then %> <% end if end if%> <% rs2.Close %>
<% sqltext="select * from sys_dept order by flag desc,sortnum" rs2.Open sqltext,cn,1,1 i=1 do while not rs2.EOF and i<=6%> <%=trim(rs2("shortname"))%> <%=trim(rs2("phone"))%>  <% if i mod 3 = 0 then response.write"
" i=i+1 rs2.MoveNext loop rs2.Close %>
  您所在的位置:首页 > 澳洲移民 > <%select case classcode case "101104" Response.Write ("技术移民") case "101107" Response.Write ("商业移民") case "101112" Response.Write ("工作签证") case "101113" Response.Write ("配偶移民") case "101118" Response.Write ("商务考察") case "101119" Response.Write ("其它移民") end select%>
<%=title%>
来源:<%=newsform%> 时间:<%=creadate%> 浏览<%=querycount+1%>次 发表评论
    <%=intro%>   更新时间:<%=updatetime%>
<% if infocount>0 then sqltext="select * from product_info where prono="&prono&" order by sortnum" rs2.Open sqltext,cn,1,1 do while not rs2.EOF if rs2("picflag")="1" then select case rs2("picalign") case "1" position="left" case "2" position="right" case else position="center" end select if position="center" then %>
<%if rs2("picflag2")="1" then%> " target=_blank>" border="0" onload="if (this.width > 700) this.width = 700;"> <%else%> " border="0" onload="if (this.width > 700) this.width = 700;"> <%end if%>
<%if rs2("flag")="1" then%>
<%=trim(rs2("title"))%>
<%end if else if rs2("picflag2")="1" then %> " target=_blank>" border="0" align=<%=position%> onload="if (this.width > 700) this.width = 700;"> <% else %> " border="0" align=<%=position%> onload="if (this.width > 700) this.width = 700;"> <%end if end if end if Response.Write(checkstr(trim(rs2("content")),"1")&"
") rs2.MoveNext loop rs2.Close end if if picflag="1" then if picflag2="1" then%>

<%else%>

<%end if end if %> <%=checkstr(content,"1")%>
[责任编辑:<%=author%>] 

<%select case traffic case "0" Response.Write ("本文是ABC原创,转载请注明来源“ABC签证网”,并且连接到本站!") case "1" Response.Write ("本文是ABC原创,未经授权,不得转载,否则追究法律责任!") case "2" Response.Write ("欢迎转载本文,高速传递信息,一起共享成果!") end select%>

<% sqltext="select top 1 title,prono from product where state='1' and classcode like '1%' and prono<"&prono&" order by prono 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,prono from product where state='1' and classcode like '1%' and prono>"&prono&" order by prono" 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)%>