<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% if request("t")<>"" then lb=request("t") end if %> <% strSQL = "SELECT TOP 1 us FROM about_us_info" SET rs = Conn.Execute(strSQL) If rs.BOF AND rs.EOF Then AboutUs = "" Else AboutUs = rs("us") End If Call rsClose() %> <% strSQL = "SELECT TOP 1 us1 FROM about_us_info" SET rs = Conn.Execute(strSQL) If rs.BOF AND rs.EOF Then AboutUs1 = "" Else AboutUs1 = rs("us1") End If Call rsClose() %> <% strSQL = "SELECT TOP 1 us2 FROM about_us_info" SET rs = Conn.Execute(strSQL) If rs.BOF AND rs.EOF Then AboutUs2 = "" Else AboutUs2 = rs("us2") End If Call rsClose() %> <% id = Trim(Request.QueryString("id")) If isNumeric(id) = False Then Response.Redirect("index.asp") Response.End() End If strSQL = "SELECT TOP 1 * FROM Music_Info WHERE [ID] = " & id SET rs = Conn.Execute(strSQL) If rs.BOF AND rs.EOF Then Response.Redirect("index.asp") Response.End() Else Title = rs("News_Title") Come = rs("News_Come") Counti = Int(rs("News_Count")) + 1 MemoInfo = rs("News_Memo") AddTime = rs("AddTime") End If Call rsClose() strSQL = "UPDATE Music_Info SET News_Count = News_Count + 1 WHERE [ID] = " & id Conn.Execute(strSQL) %> <%= AboutUs %>
首页 > 联系我们 > <%= Title %>
<%= MemoInfo %>
友情链接 更多>>
<% strSQL = "SELECT * FROM LINK_LIST where P_TYPE=1 order by id" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %>
  • " target="_blank" title="<%=rs("P_Name")%>">" alt="<%=rs("P_Name")%>" />
  • <% rs.MoveNext Loop End If Call rsClose() %>
    移民项目 | 加拿大移民 / 英国移民 / 美国移民 / 香港定居 / 澳洲移民 / 新加坡移民 / 菲律宾移民 | 移民动态 | 海外生活 | 安家服务 | 云南分公司
    关于我们 | 联系我们 | 在线评估 | 人才招聘
    深圳市亚美加因私出入境服务有限公司 版权所有 Copyright © 1996-2014 amega.ca All rights reserved.
    地址:深圳市罗湖区南湖路3009号国贸商厦19A 518001
    电话: 86(0755) 82233844 传真:86(0755) 82222544
    粤ICP备12091534号