save.asp

FLASH吧网站源码 v2.0栏目版： 功能不是很强大

<!--#include file="validate.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
Set rs= Server.CreateObject("ADODB.Recordset")

'管理员登陆帐户资料修改
if request("user")="edit" then
dim user_name,pass_word,validate
user_name=trim(Request.Form("user_name"))
pass_word=md5(Request.Form("pass_word"))
sql="select username,password from xg_manage where ID=1"
rs.open sql,conn,1,3
rs("username")=user_name
rs("password")=pass_word
session("user_name")=user_name
rs.update
rs.close
Response.Write "<script>window.alert('管理员登陆帐户资料修改成功！');history.back(-1);</script>"
end if

'新增服务器
if request("server")="add" then
sql="select url from xg_server"
rs.open sql,conn,1,3
rs.addnew
rs("url")=request.form("url")
rs.update
rs.close
Response.Write "<script>window.alert('服务器新增成功!');history.back(-1);</script>"
end if

'修改服务器
if request("server")="edit" and request("edit")="修改" then
if request("id")<>"1" then
sql="select url from xg_server where id="&clng(request("id"))
rs.open sql,conn,1,3
rs("url")=request.form("url")
rs.update
rs.close
Response.Write "<script>window.alert('服务器修改成功!');history.back(-1);</script>"
else
Response.Write "<script>window.alert('系统保留，请勿修改!');history.back(-1);</script>"
end if
end if

'删除服务器及相关FLASH动画
if request("server")="edit" and request("edit")="删除" then
   conn.execute"delete from xg_file where urla="&clng(request("id"))
if request("id")<>"1" then
   conn.execute"delete from xg_server where id="&clng(request("id"))
   Response.Write "<script>window.alert('服务器及相关FLASH动画删除成功!');history.back(-1);</script>"
else
   Response.Write "<script>window.alert('系统保留，请勿删除，但该组相关FLASH动画已被删除!');history.back(-1);</script>"
end if
end if

'新增动画专辑
if request("editxl")="add" then
sql="select * from xg_special"
rs.open sql,conn,1,3
rs.addnew
rs("name")=request.form("name")
if request.form("tj")="true" then
rs("tj")=true
else
rs("tj")=false
end if
rs("img")=request.form("img")
rs("jj")=request.form("jj")
Function getNum(num)
if num<10 then num="0"&num
getNum=num
End Function
rs("time")=Year(now())&"-"&getNum(Month(now()))&"-"&getNum(Day(now()))&" "&time()
rs.update
rs.close
Response.Write "<script>window.alert('FLASH专辑添加成功!');window.location='editxl3.asp';</script>"
end if

'修改动画专辑
if request("editxl")="edit" then
sql="select * from xg_special where id="&clng(request("id"))
rs.open sql,conn,1,3
rs("name")=request.form("name")
if request.form("tj")="true" then
rs("tj")=true
else
rs("tj")=false
end if
rs("img")=request.form("img")
rs("jj")=request.form("jj")
Function getNum(num)
if num<10 then num="0"&num
getNum=num
End Function
rs("time")=Year(now())&"-"&getNum(Month(now()))&"-"&getNum(Day(now()))&" "&time()
rs.update
rs.close
Response.Write "<script>window.alert('FLASH专辑修改成功!');history.back(-1);</script>"
end if

'删除动画专辑及相关FLASH动画
if request("editxl")="del" then
   conn.execute"delete from xg_file where xlflash="&clng(request("id"))
   conn.execute"delete from xg_special where id="&clng(request("id"))
   Response.Write "<script>window.alert('FLASH专辑及相关FLASH动画删除成功!');history.back(-1);</script>"
end if


'新增FLASH动画
if request("flash")="add" then
if request("xlb")="" or request("xlb")="请选择" then
Response.Write "<script>window.alert('请选择类别!');history.back(-1);</script>"
else
sql="select * from xg_file"
rs.open sql,conn,1,3
rs.addnew
rs("name")=request("name")
rs("lb")=request("lb")
rs("xlb")=request("xlb")
rs("urla")=request("urla")
rs("urlb")=request("urlb")
rs("xlflash")=request("xlflash")
rs("img")=request("img")
rs("tj")=request("tj")
Function getNum(num)
if num<10 then num="0"&num
getNum=num
End Function
rs("time")=Year(now())&"-"&getNum(Month(now()))&"-"&getNum(Day(now()))&" "&time()
rs.update
rs.close
Response.Write "<script>window.alert('FLASH添加成功!');window.location='addflash.asp';</script>"
end if
end if

'修改FLASH动画
if request("flash")="edit" then
if request("xlb")="" then
Response.Write "<script>window.alert('请选择类别!');history.back(-1);</script>"
else
sql="select * from xg_file where id="&clng(request("id"))
rs.open sql,conn,1,3
rs("name")=request("name")
rs("lb")=request("lb")
rs("xlb")=request("xlb")
rs("urla")=request("urla")
rs("urlb")=request("urlb")
rs("xlflash")=request("xlflash")
rs("img")=request("img")
rs("tj")=request("tj")
Function getNum(num)
if num<10 then num="0"&num
getNum=num
End Function
rs("time")=Year(now())&"-"&getNum(Month(now()))&"-"&getNum(Day(now()))&" "&time()
rs.update
rs.close
Response.Write "<script>window.alert('FLASH修改成功!');history.back(-1);</script>"
end if
end if

'删除FLASH动画
if request("flash")="del" then
   conn.execute"delete from xg_file where id="&clng(request("id"))
   Response.Write "<script>window.alert('FLASH动画删除成功!');history.back(-1);</script>"
end if

set rs=nothing
conn.close
set conn=nothing
%>