saveflash.asp

这是一个最常用的flash程序

<!--#include File="Conn.asp" -->
<!--#include file="Checkpost.asp"-->
<%
If Session("AdminName")="" and Session("adminpass")="" Then
Response.Redirect "Error.asp?id=005"
response.end
end if
%>
<%
if request("action")="add" then
if request("classid")<>"" and request("flashname")<>"" and request("flashurl")<>"" then
Sql="Select * From class where ID="&Request("classID")
Set Rs=Server.Createobject("Adodb.Recordset")
Rs.open Sql,Conn,1,1
nclass=rs("classid")
classname=rs("name")
Rs.Close
Set Rs=nothing
flashname=trim(request("flashname"))
classid=trim(request("classid"))
flashurl=trim(request("flashurl"))
pic=trim(request("pic"))
if pic="" then
pic="../images/nophoto.gif"
end if
size=trim(request("size"))
hot=trim(request("hot"))
tj=trim(request("tj"))
zz=trim(request("zz"))
user=trim(request("user"))
geshou=trim(request("geshou"))
body=trim(request("body"))
body=replace(body,chr(13),"<br>")
sj=trim(request("sj"))
set rs=server.CreateObject("ADODB.RecordSet")
Sql="Select * From flash Where flashname='"&flashname&"'"
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Rs.AddNew
End If
  rs("flashname")=flashname
  rs("classid")=classid
  rs("flashurl")=flashurl
  rs("nclass")=nclass
  rs("classname")=classname
  rs("pic")=pic
  rs("size")=size
  rs("hot")=hot
  rs("tj")=tj
  rs("zz")=zz
  rs("user")=user
  rs("geshou")=geshou
  rs("body")=body
  rs("sj")=sj
  rs.update
  rs.close
Set Rs = Nothing
Conn.Close
Set Conn=nothing
response.write "OK添加成功,正在返回<meta http-equiv=""refresh"" content=""1;URL=addflash.asp"">" 
response.end
else
response.write "你好像少了什么没写吧<a href=addflash.asp>返回</a>"
response.end
end if
response.end
end if
%>
<%
if request("action")="edit" then
if request("id")="" then
response.write "参数不正确<a href=editflash.asp?id="&request("id")&">返回</a>"
response.end
end if
if request("classid")<>"" and request("flashname")<>"" and request("flashurl")<>"" then
Sql="Select * From class where ID="&Request("classID")
Set Rs=Server.Createobject("Adodb.Recordset")
Rs.open Sql,Conn,1,1
nclass=rs("classid")
classname=rs("name")
Rs.Close
Set Rs=nothing
flashname=trim(request("flashname"))
classid=trim(request("classid"))
flashurl=trim(request("flashurl"))
pic=trim(request("pic"))
if pic="" then
pic="../images/nophoto.gif"
end if
size=trim(request("size"))
hot=trim(request("hot"))
tj=trim(request("tj"))
zz=trim(request("zz"))
user=trim(request("user"))
geshou=trim(request("geshou"))
body=trim(request("body"))
body=replace(body,chr(13),"<br>")
sj=trim(request("sj"))
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash Where ID="&Request("ID")
Rs.open Sql,Conn,1,3
  rs("flashname")=flashname
  rs("classid")=classid
  rs("flashurl")=flashurl
  rs("nclass")=nclass
  rs("classname")=classname
  rs("pic")=pic
  rs("size")=size
  rs("hot")=hot
  rs("tj")=tj
  rs("zz")=zz
  rs("user")=user
  rs("geshou")=geshou
  rs("body")=body
  rs("sj")=sj
  rs.update
  rs.close
Set Rs = Nothing
Conn.Close
Set Conn=nothing
response.write "OK修改成功,正在返回<meta http-equiv=""refresh"" content=""1;URL=flash.asp"">" 
response.end
else
response.write "你好像少了什么没写吧<a href=editflash.asp?id="&request("id")&">返回</a>"
response.end
end if
response.end
end if
%>
<%
if request("del")<>"" then
Conn.Execute"Delete From flash Where ID="&Request("del")
response.redirect "flash.asp"
response.end
else
response.write"无此FLASH"
End if
%>