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 






%>