Other windows programs

Development Platform:
VBScript

dealeventedit.asp：Code Content
							<!--#include file=dbconn.asp-->
<!--#include file="articlechar.inc"-->
<%
dim  companyid,eventname,eventtype,eventintr,beginyear,beginmon,beginday
dim  endyear,endmon,endday,eventtime,eventcity,eventaddress,contact,tel
dim  fax,email,svr1,svr2,svr3,svr4,svr5,veventtime,join
eventid=trim(request.form("eventid"))
eventname=trim(request.form("eventname"))
eventtype=trim(request.form("eventtype"))
eventintr=trim(request.form("eventintr"))
beginyear=trim(request.form("beginyear"))
beginmon=trim(request.form("beginmon"))
beginday=trim(request.form("beginday"))
endyear=trim(request.form("endyear"))
endmon=trim(request.form("endmon"))
endday=trim(request.form("endday"))
eventcity=trim(request.form("eventcity"))
eventaddress=trim(request.form("eventaddress"))
contact=trim(request.form("contact"))
tel=trim(request.form("tel"))
fax=trim(request.form("fax"))
email=trim(request.form("email"))
svr1=trim(request.form("svr1"))
svr2=trim(request.form("svr2"))
svr3=trim(request.form("svr3"))
svr4=trim(request.form("svr4"))
svr5=trim(request.form("svr5"))
veventtype=trim(request.form("veventtype"))
vbeginmon=trim(request.form("vbeginmon"))
vcity=trim(request.form("vcity"))
vcompanyid=trim(request.form("vcompanyname"))
join=trim(request.form("join"))
page=trim(request("page"))
position=trim(request("ctrposition"))
period=trim(request.form("period"))
property=trim(request.form("property"))
unit1=trim(request.form("unit1"))
unit2=trim(request.form("unit2"))
companyaddress=trim(request.form("companyaddress"))
postcode=trim(request.form("postcode"))
link1=trim(request.form("link1"))
link2=trim(request.form("link2"))
eventintr=htmlencode2(eventintr)
eventname=replace(eventname,"'","''")
eventintr=replace(eventintr,"'","''")
beginyear=replace(beginyear,"'","''")
beginmon=replace(beginmon,"'","''")
beginday=replace(beginday,"'","''")
endyear=replace(endyear,"'","''")
endmon=replace(endmon,"'","''")
endday=replace(endday,"'","''")
eventaddress=replace(eventaddress,"'","''")
contact=replace(contact,"'","''")
tel=replace(tel,"'","''")
fax=replace(fax,"'","''")
email=replace(email,"'","''")
period=replace(period,"'","''")
property=replace(property,"'","''")
unit1=replace(unit1,"'","''")
unit2=replace(unit2,"'","''")
companyaddress=replace(companyaddress,"'","''")
postcode=replace(postcode,"'","''")
link1=replace(link1,"'","''")
link2=replace(link2,"'","''")
eventtime=beginyear+"-"+beginmon+"-"+beginday
endtime=endyear+"-"+endmon+"-"+endday
if svr1="" then
  svr1=0
end if  
if svr2="" then
  svr2=0
end if 
if svr3="" then
  svr3=0
end if 
if svr4="" then
  svr4=0
end if 
if svr5="" then
  svr5=0
end if 
if position="" then
 position="0"
end if 
sql="update companyevent set eventname='"&eventname&"',eventtype="&eventtype&",eventintr='"&eventintr&"',beginyear="&beginyear&",beginmon="&beginmon&",beginday="&beginday&",endyear="&endyear&",endmon="&endmon&",endday="&endday&","
sql=sql+"eventtime=convert(datetime,'"&eventtime&"'),eventcity='"&eventcity&"',eventaddress='"&eventaddress&"',contact='"&contact&"',tel='"&tel&"',fax='"&fax&"',email='"&email&"',svr1="&svr1&",svr2="&svr2&",svr3="&svr3&",svr4="&svr4&",svr5="&svr5&",blnjoin="&join&",endtime=convert(datetime,'"&endtime&"'),ctrposition="&position             
sql=sql+",period='"&period&"',property='"&property&"',unit1='"&unit1&"',unit2='"&unit2&"',companyaddress='"&companyaddress&"',postcode='"&postcode&"',link1='"&link1&"',link2='"&link2
sql=sql+"' where eventid="&eventid      
'response.write sql
conn.execute(sql)
conn.close
set conn=nothing
response.redirect "eventadm.asp?eventtype="+veventtype+"&beginmon="+vbeginmon+"&city="+vcity+"&companyname="+vcompanyid+"&page="+page
%>

						