其他小程序

开发平台：

VBScript

eventdel.asp：源码内容

							<!--#include file=dbconn.asp-->
<% 
dim eventid,eventtype,beginmon,city,companyid
eventtype=trim(request("eventtype"))
beginmon=trim(request("beginmon"))
city=trim(request("city"))
companyid=trim(request("companyname"))
page=trim(request("page"))
eventid=trim(request.querystring("eventid"))
sql="delete from companyevent where eventid="&eventid
conn.execute(sql)
response.redirect "eventadm.asp?eventtype="+eventtype+"&beginmon="+beginmon+"&city="+city+"&companyname="+companyid+"&page="+page
%>

						