<% ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Acquisition_admin/Acquisition.mdb") Set Acquisition_conn = Server.CreateObject("ADODB.Connection") Acquisition_conn.Open connstr Function Acquisition_RS(ByVal F_sql,ByVal F_LockT) Dim F_rs Set F_rs=Server.CreateObject("ADODB.RecordSet") F_rs.open F_sql,Acquisition_conn,1,F_LockT Set Acquisition_RS = F_rs End Function id=Request("id") if id="" then id=1 Set rs=Acquisition_RS("select * from news where id="&id,2) rs("number")=rs("number")+1 rs("Access_time")=Date() rs.update title=rs("title") content=rs("content_Symbol") Set fenlei_rs=Acquisition_RS("select * from fenlei where id="&rs("fenlei"),1) %> " />

<% Set fenlei_rs=Acquisition_RS("select * from fenlei",1) do while not fenlei_rs.eof response.Write ""&fenlei_rs("title")&"新闻  " fenlei_rs.movenext loop response.Write "西安婚纱摄影  " response.Write "西安写真摄影  " response.Write "西安摄影工作室  " %>

<% Set rs=Acquisition_RS("select top 20 * from news where content_Symbol<>'' order by Access_time asc",1) i=10 do while not rs.eof and i>0 response.Write ""&rs("title")&" " rs.movenext i=i-1 loop %>	<%=title%>
	<%=content%>