flashspecialsave.asp

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

<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<!-- #include file="../Inc/Head.asp" -->
<!--#include file="char.inc"-->
<%
action=request("action")

	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()
if trim(Request("SpecialClass"))="" then
  errmsg="<li>请选择所属类别"
  call error()
else
  ClassID=Request.form("SpecialClass")
end if
SpecialName=htmlencode(trim(Request.Form("SpecialName")))
SpecialPic=Request.Form("SpecialPic")
sql="select * from FlashSpecial where SpecialName='"&SpecialName&"'" 
rs.open sql,conn,1,3
if not rs.eof then
	errmsg="<li>[<b>"&SpecialName&"</b>]专辑已经存在于数据库中"
	call error()
	response.end
else
rs.addnew
rs("ClassId")=ClassId
rs("SpecialName")=SpecialName
rs("picsrc")=SpecialPic
rs("adddate")=date()
rs.update
rs.close
response.Redirect"Flashspeciallist.asp"
end if
end sub

sub edit()
if trim(Request("SpecialClass"))="" then
  errmsg="<li>请选择所属类别"
  call error()
else
  ClassID=Request.form("SpecialClass")
end if
SpecialId=Request.Form("SpecialId")
SpecialName=Request.Form("SpecialName")
SpecialPic=Request.Form("SpecialPic")
sql="select * from FlashSpecial where SpecialId="&Request("SpecialId")
rs.open sql,conn,1,3
if not rs.EOF then
rs("classID")=classID
rs("SpecialName")=SpecialName
rs("picsrc")=SpecialPic
rs.update
conn.execute("update Flash set classID="&classID&"  where specialId="&request("specialID"))
rs.close
response.redirect "Flashspecialedit.asp?specialID="&request("specialid")
end if
end sub

sub del()
sql="delete * from FlashSpecial where SpecialId="&Request("SpecialId")
conn.execute sql
sql2="delete * from Flash where SpecialId="&Request("SpecialId")
conn.execute sql2
%>
<script>window.opener.parent.location.reload();window.close()</script>
<%
end sub
set rs=nothing
conn.close
set conn=nothing
%> 
<!-- #include file="../Inc/Foot.asp" -->