<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% flag=Request.QueryString("flag") 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 mymenu="house" myurl="house_display.asp?x=1" if Request.ServerVariables("REQUEST_METHOD")="POST" then '检查是否选择了部门,并查找部门的邮箱地址 sql="select top 1 code, email from sys_dept order by flag desc, sortnum asc" rs.Open sql,cn,0,1,1 if not rs.EOF then code=trim(rs("code")) sys_email=trim(rs("email")) else Response.Redirect "house.asp" end if rs.Close title2 = fixedReplaceStr(Request.Form("title"), 60) sysemail = fixedReplaceStr(Request.Form("sysemail"), 50) email = fixedReplaceStr(Request.Form("email"), 50) myname = fixedReplaceStr(Request.Form("myname"), 10) corpname = fixedReplaceStr(Request.Form("corpname"), 60) phone = fixedReplaceStr(Request.Form("phone"), 20) fax = fixedReplaceStr(Request.Form("fax"), 20) content2 = fixedReplaceStr(Request.Form("content"), "") rs.Open "contact",cn,3,3 rs.AddNew rs("title")=title2 rs("sysemail")=sysemail rs("email")=email rs("myname")=myname rs("corpname")=corpname rs("phone")=phone rs("fax")=fax rs("content")=content2 rs("creadate")=now() rs("flag")="0" rs("code")=deptcode rs.Update rs.Close Response.Redirect "house_display.asp?keyno="&keyno&"&flag=1" end if %> <%=title%>_澳洲房产_ABC签证网
<% sqltext="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='h1' 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 "301" Response.Write ("物业指南") case "302" Response.Write ("悉尼房源") case "303" Response.Write ("墨尔本房源") case "304" Response.Write ("悉尼豪宅天地") case "305" Response.Write ("悉尼大区介绍") case "306" 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%>] 


<% if flag = "0" then Response.Write "
留言失败!

" elseif flag = "1" then Response.Write "
留言成功!

" end if %>


<% sqltext="select top 1 title,keyno from miscell where state='1' and basclass='300' 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='300' 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,updatetime,picflag,title from miscell where classcode='301' and state='1' order by creadate 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 %>
ABC物业指南              更多
·" target=_blank><%if rs2("picflag")="1" then%><%=subss(trim(rs2("title")),24)%>(图)<%else%><%=subss(trim(rs2("title")),28)%><%end if%>
澳洲热点房源             更多
<% sqltext="select * from miscell where classcode >= '302' and classcode <= '309' and state='1' order by querycount desc" rs2.Open sqltext,cn,1,1 i=1 do while not rs2.EOF and i<=10%> <% if i mod 2 = 0 then response.write"" i=i+1 rs2.MoveNext loop rs2.Close %>
<% if rs2("picflag")="1" then %> <%end if%>
<%=subss(trim(rs2("title")),20)%>