%@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()
%>
<%
Key = Trim(Request.QueryString("k"))
If Key = "" Then
Key = ""
Else
Key = " News_id = " & Key
End If
TableName = "nf_Info"
FieldName = " * "
SearchWhere = Key
OrderFieldName = "id"
OnlyFieldName = "id"
OrderType = 1
PageSizeNum = 30
Page = Trim(Request.QueryString("page"))
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Call ShowTotalPage()
rsTotal = Session("rsTotal")
TotalPages = Session("TotalPages")
CurrentPage = Session("CurrentPage")
Session("rsTotal") = ""
Session("TotalPages") = ""
Session("CurrentPage") = ""
PageSQL = GetPageSQL(TableName,FieldName,SearchWhere,OrderFieldName,OnlyFieldName,OrderType,PageSizeNum,CurrentPage)
''''''''''''''''''''''''''
%>
<%= AboutUs %>
移民动态
<%
strSQL = "SELECT * FROM news_id ORDER BY id"
SET rs = Conn.Execute(strSQL)
If Not (rs.BOF AND rs.EOF) Then
Do While Not rs.EOF
%>
&t=<%= rs("idname") %>"><%= rs("idName") %>
<%
rs.MoveNext
Loop
End If
Call rsClose()
%>
<%
strSQL = "SELECT * FROM Products2_info WHERE P_index=0 ORDER BY P_Model"
SET rs = Conn.Execute(strSQL)
If Not (rs.BOF AND rs.EOF) Then
Do While Not rs.EOF
%>
<%strSQL = "SELECT * FROM LINK_LIST where P_TYPE=0 order by id"
SET rs = Conn.Execute(strSQL)
If Not (rs.BOF AND rs.EOF) Then
Do While Not rs.EOF
%>
"><%=rs("P_Name")%> |
<%
rs.MoveNext
Loop
End If
Call rsClose()
%>