bulletin.asp

wap源码要的速度下wap源码要的速度下

<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin")
  
  if admin="" then
  Response.Redirect "login.asp"
  Response.End
  End if
Set conn=Server.CreateObject("ADODB.connection")
conn.Open Provider&DBPath
set rs=Server.CreateObject("ADODB.Recordset")
  sql="select * from admin where admin='"&admin&"'"
  rs.open sql,conn
 Response.write "<card id='card1' title='公告删除'>"
 Response.write "<p align='left'>"
 if not rs.eof then
 Set ad= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From vice Order By time"
ad.Open sql,conn,1,2
if Not rs.EOF Then
rs.MoveFirst
While Not ad.EOF
j=j+1
	Response.Write ""&j&"."&ad("title")&"<br/>"&ad("vice")&"[<a href='ddelete.asp?id=" &ad("id")&"&amp;admin="&admin&"'>删除</a>]<br/>"
ad.MoveNext
Wend
Response.write "<a href='admin.asp?admin=" & admin & "'>返回管理页</a>"
End if
 else
 Response.write "非法入侵!"
End if
set rs=nothing
set ad=nothing
conn.close
set conn=nothing
%>
</p></card></wml>