<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% pageno=Request.QueryString("pageno") keyno=Request.QueryString("keyno") classcode=Request.QueryString("classcode") set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") mymenu="intro" myurl="intro.asp?temp=1" %> 澳大利亚ABC环球集团公司介绍-ABC签证网
<% sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='n1' order by sortnum" rs.Open sql,cn,1,1 %> <% if (lcase(right(trim(rs(2)),3))="jpg" or lcase(right(trim(rs(2)),3))="gif") then if trim(rs("website"))<>"" then %> " target=_blank><%=trim(rs("> <% end if %> <% else if lcase(right(trim(rs(2)),3))="swf" then %> <% end if end if%> <% rs.Close %>
<% sql="select keyno,title from miscell where state='1' and classcode='105' order by sortnum asc" rs.Open sql,cn,1,1 do while not rs.EOF if keyno="" then keyno=rs(0) if cstr(keyno)=cstr(rs(0)) then %> <%else%> <% end if rs.MoveNext loop rs.Close %>
<% if keyno<>"" then sql="select * from miscell where state='1' and keyno="&keyno else sql="select * from miscell where state='1' and classcode='105' order by sortnum" end if rs.Open sql,cn,1,3 if not rs.EOF then title=trim(rs("title")) sortnum=rs("sortnum") content=trim(rs("content")) querycount=trim(rs("querycount")) newsform=trim(rs("newsform")) author=trim(rs("author")) 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") rs.Update else Response.End end if rs.Close %>
  您所在的位置:首页 > 关于ABC
来源:<%=newsform%> 编辑:<%=author%> 浏览<%=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" alt="点击查看大图-<%=trim(rs2("title"))%>"> <%else%> " border="0" alt="<%=trim(rs2("title"))%>"> <%end if%>
<%if rs2("flag")="1" then%>
<%end if else if rs2("picflag2")="1" then %> " target=_blank>" border="0" align=<%=picalign2%> alt="点击查看大图-<%=trim(rs2("title"))%>"> <% else %> " border="0" align=<%=picalign2%> alt="<%=trim(rs2("title"))%>"> <%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 Response.Write checkstr(content,"1") end if%>

<%end if%>
<% sqltext="select top 1 keyno,title from investigate where parentno=0 and flag='1' order by sortnum desc" rs.Open sqltext,cn,1,1 if not rs.EOF then parentno=rs(0) title=trim(rs(1)) else parentno=0 title="目前没有暂设置调查表" end if rs.Close %> <%if parentno=0 then%>

<% sqltext="select keyno,title from investigate where parentno="&parentno&" order by sortnum " rs.Open sqltext,cn,1,1 i=1 do while not rs.EOF %>
<% i=i+1 rs.MoveNext loop rs.Close %>