sysphoto_delall.asp

提供给大家学习交流,图片制作程序.希望大家提出提意见.

<!-- #include file="chk.asp" -->
<!-- #include file="conn.asp" -->
<%if Session("admin2")<>"admin" Then
  Response.Write "您没有权限访问该页！"
  Response.End
  End if%>
<%
set rs=server.createobject("adodb.recordset")
rs.Open "Select * from [sysphoto]",conn,3,3
If rs.bof or rs.eof then 
  Response.write "没有数据！"
Else
While not rs.eof
rs.Delete
rs.Update
rs.MoveNext
Wend
rs.Close
Set rs=nothing
Response.Write "信息删除成功！"
End If
%>