<%ClassID=request("ClassID")%> <% '================================================================================================= Dim ID,ClassID ID = Request.QueryString("ID") IF ID <> "" Then Set Rs = Conn.Execute("Select * From news Where ID = "& ID &"") IF Not(Rs.eof and Rs.bof) Then Title = Rs("Title") Content = Rs("Content") DateTime = Rs("DateTime") ClassID = Rs("Class") End IF Rs.Close Set Rs = Nothing End IF Set Rs = Conn.Execute("Select * From newsClass Where NumberID = '"& ClassID &"'") IF Not Rs.Bof Then ClassArr = Rs("Class") Else ClassArr = "" End IF Rs.Close Set Rs = Nothing '============================================================ %> & " /> " />

欧美丰满熟妇xxxxx_日日干综合av_欧美欧美xxxx兔费_99久亚洲精品视频

<%=ClassArr%>

ホーム - <%=ClassArr%>

<% if ClassID="" then sql="select * from news order by DateTime desc" else sql="select * from news where class like '"&ClassID&"%' order by DateTime DESC" end if set rec= Server.CreateObject("adodb.recordset") rec.open sql,conn,1,1 if not rec.eof then rec.pagesize=10 iCount=rec.RecordCount '記錄總數(shù) iPageSize=rec.PageSize maxpage=rec.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rec.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if end if i=1 %> <%while not rec.eof and i<= iPageSize%>

"><%=rec("Title")%>

<%=rec("DateTime")%>

<%i=i+1 rec.movenext wend rec.close set rec=nothing%>

<% call PageControl(iCount,pagecount,page,table_style,font_style) %>