<%@ 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 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")) querycount=trim(rs("querycount")) 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") 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="Notice_display.asp?temp=1" mymenu="#" %> <%=title%>_澳大利亚ABC环球集团
   ABC首页 > 成功案例 > <%select case classcode case "601" Response.Write ("商业移民案例") case "602" Response.Write ("技术移民案例") case "603" Response.Write ("留学案例") case "604" Response.Write ("457签证案例") case "605" Response.Write ("上诉案例") case "607" Response.Write ("其它移民案例") end select%>
<%=title%>
来源:<%=newsform%> 编辑:<%=author%> 发布时间:<%=creadate%> 浏览<%=querycount%>次
<% 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")%>
<% sqltext="select top 1 title,keyno from miscell where basclass='600' 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 basclass='600' 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 %>