www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_vipfuwusave.asp

    <!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<%CheckAdmin%>
<%
title=request.form("title")
Content=request.form("Content")
founerr=false
act=request("act")
set rs=server.createobject("adodb.recordset")
	select case act
	case "add"
		call add()
	case "edit"
		call edit()
	case "del"
		call del()
	case else
	rs.close
	conn.close
	set conn=nothing
	response.write "操作错误"
	Response.End
end select
%>
<%
sub del()
sql="delete from vipfuwu where ID="&request("ID")
rs.open sql,conn,1,3
conn.close
set conn=nothing
response.redirect "admin_vipMana.asp"
end sub
sub add()
	sql="select * from vipfuwu"
		rs.open sql,conn,1,3
		rs.addnew
		rs("title")=title
		rs("Content")=Content
		rs("adddate")=NOW()
		rs.update
		rs.close
		set rs=nothing
		conn.close
		set conn=nothing
		Response.Redirect "admin_vipMana.asp"
end sub
sub edit()
	sql="select * from vipfuwu where ID="&request("ID")
		rs.open sql,conn,1,3
		rs("title")=title
		rs("Content")=Content
		rs("adddate")=NOW()
		rs.update
		rs.close
		set rs=nothing
		conn.close
		set conn=nothing
		Response.Redirect "admin_vipMana.asp"
end sub
%>