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 %>