www.gusucode.com > 新锐领秀网络相册 1.1 > admin/admin_func.asp
<% Sub gPhotoDelete(id) Dim sql,rs sql = "Select ThumbPhotoPath,PhotoPath From gPhotos Where ID=" & id If Not IsObject(conn) Then ConnectionDatabase Set rs=conn.Execute(sql) gDeleteFile(Server.MapPath("../photos/" & rs(0))) gDeleteFile(Server.MapPath("../photos/" & rs(1))) rs.close():Set rs = Nothing sql = "Delete From gPhotos Where ID=" & id conn.Execute sql End Sub Sub gPhotoTypeSelect(id) '类别,构建Select列表,供查找时用 Dim sql,rs,i i = 0 sql="select ID,Title from gTypes" If Not IsObject(conn) Then ConnectionDatabase set rs=conn.Execute(sql) Do While Not rs.EOF If rs(0)<>cint(id) Then Response.write("<option value=""" & rs(0) & """>" & rs(1) & "</option>") Else Response.write("<option value=""" & rs(0) & """ selected>" & rs(1) & "</option>") End If rs.movenext Loop rs.close Set rs=Nothing End Sub '==================================================================================================== '==================================================================================================== Sub CheckAdmin If False = Session("admin_logined") Then Response.Redirect "admin_login.asp" Response.End() End If End Sub %>