source.asp

视频源代码 视频源代码

<%response.expires=0%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/vip.asp"-->
<%
if not adminlevel=1 then
  call msgbox("管理员级别够！",1)
end if

op=strFilter(request("op"),3)
if op="" then call msgbox("操作出错！请确定操作行为！",1)
if not (op="add" or op="del") then call msgbox("操作出错！请确定操作行为！",1)

sourceid=strFilter(request.form("sourceid"),20)
sourcetext=strFilter(request.form("sourcetext"),20)
sourcevalue=strFilter(request.form("sourcevalue"),500)
if sourceid><"" and not isnumeric(sourceid) then
  call msgbox("请重新确定删除对象！",1)
end if
dim value2
if op="add" then
	'sql="insert into source(text,value) values('"&sourcetext&"','"&sourcevalue&"')"
  'rs.open sql,conn,1,3

rs.open "insert into source(text,value2) values('"&sourcetext&"',"&sourcevalue&")",conn,1,3


		
  call msgbox("来源 "&sourcetext&" 添加成功！","../base")
else
  if sourceid><"" and isnumeric(sourceid) then
    rs.open "delete from source where id="&sourceid,conn,1,3
  end if
  call msgbox("来源 "&sourcetext&" 成功删除！","../base")
end if


'Set rs=nothing
Set conn=nothing
response.redirect "default.asp"
response.end
%>