urldel.asp

单班同学录 一个非常漂亮的同学录 哦

<%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!--#include file="session.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="CHAR.asp" -->
<%
UrlID=request.QueryString("id")
If UrlID="" or IsNumeric(UrlID)=False Then
	response.Redirect("error.asp")
end if
strsql="select urluser from url where urlid="&UrlID
set rs=conn.execute(strsql)
if rs("urluser")=session("username") or session("usergroup")=3 then
	strsql="delete from url where UrlID="&UrlID
	conn.execute(strsql)
else
	response.Redirect("error.asp")
end if
rs.close
set rs=nothing
CloseDatabase
response.Redirect("urlview.asp")
%>