eadrot.asp

来自「我的一个oa用asp编写的系统可能对那些学习asp的人员有用。」· ASP 代码 · 共 38 行

<!--#include file="data.asp"-->
<%
if session("Urule")<>"a" then
response.redirect "error.asp?id=admin"
end if
	set rs=server.createobject("adodb.recordset")
	if request("del")<>"" then
		call deladrot()
	else
		call editadrot()
	end if

sub editadrot()
	sql="select * from adrot where id="&request("id")
	rs.open sql,conn,1,3
	rs("type")=request("type")
	rs("alt")=request("alt")
	rs("src")=request("src")
	rs("width")=request("width")
	rs("height")=request("height")
	rs("url")=request("url")
	rs.update
end sub
sub deladrot()
	sql="DELETE * from adrot where id="&request("id")
	rs.open sql,conn,1,3
	rs.update
end sub

	rs.close
	set rs=nothing
	conn.close
	set conn=nothing

	Response.Redirect("adrot.asp")

%>