| Shenzhen Office |
|
 |
 Shenzhen
Qinhui Logistics Co. Ltd. (QH Logistics) was founded in July, 2004
and then... |
|
|
- About Us
<%dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from secord_newsclass where bigclassname='About Us'"
rs.open sql,conn,1,1
do while not rs.eof%>- "><%=rs("smallclassname")%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
- Structure
<%'dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from secord_newsclass where bigclassname='Structure'"
rs.open sql,conn,1,1
do while not rs.eof%>- "><%=rs("smallclassname")%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
- Our Service
<%'dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from secord_newsclass where bigclassname='Our Service'"
rs.open sql,conn,1,1
do while not rs.eof%>- "><%=rs("smallclassname")%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
- Strategy
<%'dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from secord_newsclass where bigclassname='Strategy'"
rs.open sql,conn,1,1
do while not rs.eof%>- "><%=rs("smallclassname")%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
- Partners
<%'dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from secord_newsclass where bigclassname='Partners'"
rs.open sql,conn,1,1
do while not rs.eof%>- "><%=rs("smallclassname")%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
- Recruitment
<%'dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from secord_newsclass where bigclassname='Recruitment'"
rs.open sql,conn,1,1
do while not rs.eof%>- "><%=rs("smallclassname")%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
- Contact Us
<%'dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from secord_newsclass where bigclassname='Contact Us'"
rs.open sql,conn,1,1
do while not rs.eof%>- "><%=rs("smallclassname")%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
|
|
|
 newslist |
|
|
|
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from conews where bigclassname='news center' order by id desc"
rs.open sql,conn,1,1
%><%
if rs.eof then
response.write"sorry!no find news!"
else
rs.PageSize = 10
'读取参数page，表示当前的页码，使用CLng将其转换为长整型
Page = CLng(Request("Page"))
'处理不合法的页码
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
'设置当前页码为Page
rs.AbsolutePage = Page
'循环显示当前页的记录
For i = 1 to rs.PageSize
'如果到达记录集结尾，则跳出循环
if rs.EOF then Exit For
%>
<%rs.movenext
next%><%Call ShowPage( rs, Page,request("smallclassname"))
end if
rs.close
set rs=nothing
'end if%>
|
|
| |
|
| |
| |
|
|
