 |
<%Const PAGESIZE=4
page = request("page")
if page = "" or IsNull(page) or (not IsNumeric(page)) then page = 1
page = Cint(page)
Set Rs=Server.CreateObject("adodb.recordset")
Sql="SELECT top 4 News_Title,News_Images,News_ID FROM [Ap_News] WHERE News_Class=3 And News_Pass=0 And News_Del=0 ORDER BY News_ID DESC"
Rs.open Sql,con,1,1
If Rs.Eof OR Rs.BOF Then
Response.Write "资料整理中"
Response.End()
Else
recordcount = RS.RecordCount
RS.PageSize = PAGESIZE
pagecount = RS.PageCount
If page < 1 Then
page = 1
ElseIf page > pagecount Then
page = pagecount
end if
If recordcount > 0 Then RS.AbsolutePage = page
n=0
Do While Not Rs.EOF And i <= PAGESIZE-1
n=n+1%>
|
<%if n mod 4=0 and n<>4 then response.write" | "
rs.movenext
i = i + 1
loop
rs.close
end if%>
 |
<%'Set Rs=Server.CreateObject("adodb.recordset")
Sql="SELECT top 1 News_ID,News_Content FROM [Ap_News] WHERE News_Class=4 And News_Pass=0 And News_Del=0 ORDER BY News_ID DESC"
Rs.open Sql,con,1,1
Do While Not Rs.EOF%>
" target="_blank" class="blue"><%=Getlen(Rs("News_Content"))%>
<%Rs.MoveNext
Loop
Rs.Close
'Set Rs = Nothing%> |
|
|
 |
<%'Set Rs=Server.CreateObject("adodb.recordset")
Sql="SELECT top 1 News_ID,News_Content FROM [Ap_News] WHERE News_Class=5 And News_Pass=0 And News_Del=0 ORDER BY News_ID DESC"
Rs.open Sql,con,1,1
Do While Not Rs.EOF%>
" target="_blank" class="blue"><%=Rs("News_Content")%>
<%Rs.MoveNext
Loop
Rs.Close
'Set Rs = Nothing%> |
|
|
| 鸿业大酒店是集商住、餐饮、康乐为一体的涉外三星级酒店。酒店座落于西安市文化区主干道含光北路137号，邻近古城含光门及环城公园，距火车站15分钟车程，距飞机场50分钟车程，交通便利、闹中取静、位置优越。 |
|
|
|
|
|
|
|
|
