ad_typeoperat.asp

来自「就业信息服务网」· ASP 代码 · 共 47 行

<!-- #Include File=../sys.asp -->
<!-- #Include File=../sys/inc/prompt.inc -->
<%
dim id,successmess
action=trim(request("action"))
id=trim(request("id"))
call conned()

select case action
	case "up"
		sql="update vote set bclass=1, baddtime='"&now()&"'  where id="&id
		conn.execute(sql)
		conn.close
		set conn=nothing
		successmess="上移成功！"
	case "down"
		sql="update vote set bclass=0 where id="&id
		conn.execute(sql)
		conn.close
		set conn=nothing
		successmess="下移成功！"
	case "del"
		sql="delete * from vote  where id="&id
		conn.execute(sql)		
		conn.execute(sql)
		conn.close
		set conn=nothing
		successmess="删除成功！"
	case "add"
		dim subtype
		subtype=trim(request("subtype"))
		sql="insert into vote (bselect,baddtime) values ('"&subtype&"' , Now())"
		conn.Execute(sql)
		Conn.Close
		Set Conn=Nothing
		successmess="添加成功！"
end select
backurl="ad_view.asp"
call success
'==========================================
'程序制做:天方网络.    http://www.webs.net.cn
'天方网落 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.webs.net.cn
'msn:[e-mail]
'请保留以上版权信息，谢谢合作！
'==========================================
%>