<%EnSohoChinaButton9="a"%>
<%
If isEmpty(Request.querystring("DjjIntPcnt")) or Request.querystring("DjjIntPcnt")="" Then DjjIntPcnt=1 Else DjjIntPcnt=Cint(Request.querystring("DjjIntPcnt"))
If isEmpty(Request.querystring("iClassID")) or Request.querystring("iClassID")="" Then iClassID=0 Else iClassID=Cint(Request.querystring("iClassID"))
Set objRs=Server.CreateObject("Adodb.RecordSet")
%>
<%
If iClassID=11 Then iAdID=120 Else iAdID=350
set Rs=server.CreateObject("adodb.recordset")
Rs.open"select * from tblAd where iAdID="&iAdID&"",conn,1
fileName=Rs("vAdPhoto")
goURL=trim(Rs("vAdUrl"))
fileExt=Right(fileName,3)
if fileExt="swf" then
%>
<%else%>
<%if goURL<>"" then%>
<%else%>
<%end if%>
<%end if%>
<%
if iClassID=0 then
'sql="select * from tblInfo where iPass=1 and lang=2 and iClassID in(11,12) order by iTop desc,rResort asc,updateTime desc"
sql="select * from tblInfo where iPass=1 and lang=2 and iClassID in(11,12) order by iTop desc,updateTime ,desciInfoid desc"
else
sql="select * from tblInfo where iPass=1 and lang=2 and iClassId="&iClassID&" order by iTop desc,updateTime desc,iInfoid desc"
end if
objRs.Open sql,conn,1,1
If objRs.Eof or objRs.Bof Then
Response.Write("")
Else
objRs.Pagesize =5
Total=objRs.PageCount '计算可显示页面的总数
objRs.AbsolutePage=DjjIntPcnt
For I=1 to objRs.pagesize
If objRs.EOF Then
Exit For
End If
%>
<%else%>
