<%@ LANGUAGE=VBScript codepage ="936" %> <% Response.Expires=0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "Pragma","No-Cache" Response.AddHeader "Cache-Control","Private" Response.CacheControl = "No-Cache" if session("TWT_ARR_ArgALL")="" then response.end TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=") nickname=TWT_ArrArg(0) grade=TWT_ArrArg(2) myid=TWT_ArrArg(1) if grade<9 then Response.Redirect "../error.asp?id=439" response.buffer=true Response.Expires=0 Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr sql="select * from news Order By Id desc" rs.open sql,conn,3,3 %> <% if not rs.eof then rs.movelast %><% do while not rs.bof %> <% rs.moveprevious loop %> <% end if%>

衙门公告

">修改 &action=delete">删除 <%=rs("topic")%> - <%=rs("text")%> (20<%=rs("time")%>)

　　　　　　

返 回