flashsave.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 51 行

<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<!--#include file="char.inc"-->
<%
action=Request("Action")
FlashId=Request.Form("FlashId")

set rs=Server.createobject("adodb.recordset")
select case (action)
		case "add"  call add()
		case "edit" call edit()
		case "del"  call del()
end select


sub add()
sql="select * from Flash"
rs.open sql,conn,1,3
rs.AddNew
rs("classID")=request.form("FlashClass")
rs("SpecialId")=Request.form("FlashSpecial")
rs("FlashName")=Request.form("FlashName")
rs("src")=server.htmlencode(Trim(Request("content")))
rs("Author")=Request.form("FlashAuthor")
rs.update
rs.close
response.redirect"Flashlist.asp?specialID="&request.form("FlashSpecial")
end sub 

sub edit()
sql="select * from Flash where FlashId="&Request("FlashId")
rs.open sql,conn,1,3
if not rs.EOF then
rs("FlashName")=Request.form("FlashName")
rs("src")=server.htmlencode(Trim(Request("content")))
rs("author")=Request.form("Flashauthor")
rs.update
rs.close
end if
response.redirect"Flashedit.asp?FlashID="&request("Flashid")
end sub


sub del()
sql="delete * from Flash where FlashId="&Request("FlashId")
conn.execute sql
response.redirect"flashspeciallist.asp"
%>
<%
end sub
%>