<% id=Request("id") %> <% dim AccessPath,connstr,conn AccessPath="admin/db/#1995.mdb" connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(AccessPath) set conn=Server.CreateObject("ADODB.Connection") conn.open connstr %> <% function keywords(byval str) dim rss set rss=server.createobject("adodb.recordset") rss_sql="SELECT text,link FROM keywords order by id desc" rss.open rss_sql,conn,1,1 while not rss.eof str=replace(str,rss("text"),""&rss("text")&"",1,1,1) rss.movenext wend rss.close set rss=nothing keywords=str response.Write keywords end function %>

	<% dim focus_rs dim focus_sql MaxList=45 if IsNumeric(request("page")) then if not isempty(request("page")) and request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if else currentpage=1 end if set focus_rs=server.createobject("adodb.recordset") focus_sql="select * from article where shenghe=1 and newsid="&id&" order by dateandtime desc" focus_rs.open focus_sql,conn,1,1 MaxPerPage=MaxList totalPut=focus_rs.recordcount if (totalput mod maxperpage)=0 then totalpage=totalput\maxperpage else totalpage=totalput\maxperpage+1 end if if currentpage<1 then currentpage=1 if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if (currentPage-1)*MaxPerPage
	<% if focus_rs.eof then response.Write "" else do while not focus_rs.eof and MaxPerPage>0 response.write "") response.write "") response.write "") response.Write("") response.write "") MaxPerPage=MaxPerPage-1 focus_rs.movenext loop end if focus_rs.close set focus_rs=nothing %> 暫沒有任何信息 " response.Write(focus_rs("title")) response.Write(" " response.Write(focus_rs("dateandtime")) response.Write(" " response.Write(" " cont=focus_rs("content")%> <% Call keywords(cont)%> <%response.Write("