|
|
|
<%sql="select top 8 id,c_name from Hotelb order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if rs.eof then
response.write "暂时还没有任何信息!"
Else
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close%> |
|
|
|
|
<%sql="select top 8 id,x_name from xianlu order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if rs.eof then
response.write "暂时还没有任何信息!"
Else
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close%> |
|
|
|
|
|
|
|
|
最新签证信息 |
<%set rs=server.createobject("adodb.recordset")
rs.open "select top 20 * From daoyou",conn,1,1
if err.number<>0 then
response.write "数据库中无数据!"
end if
do while not rs.eof
%>
| <%=rs("D_name")%><%=rs("lianxi")%> |
<%=rs("nianling")%> |
<%=trim(rs("tel"))%> |
<%=rs("add")%> |
<%=rs("info")%> |
|
<%
rs.movenext
loop
rs.close
set rs=nothing
%> |
|