<% dim webtitle webtitle="汉风网——HSK、游学、商贸汉语专业培训网站" %>
<%= webtitle %>
在线报名
<% dim subit, action subit=request("subit") select case subit case "selectit" action=request.Form("action") select case action'form.action hsk报名表 case "hsk" %>
<% case "hanyu" %>
<% case else'form.action汉语报名表 response.Redirect("baoming.asp") end select case "hsk"'subit处理hsk报名表 '获取表单 kecheng=request.Form("kecheng") if kecheng="other" then kecheng=request.Form("kecheng_") banbie=request.Form("banbie") if banbie="other" then banbie=request.Form("banbie_") xingmingch=request.Form("xingmingch") xingming=request.Form("xingming") guoji=request.Form("guoji") if guoji="other" or request.Form("guoji_")<>empty then guoji=request.Form("guoji_") xingbie=request.Form("xingbie") chusheng=request.Form("chusheng") zhaopian=request.Form("zhaopian") zhiye=request.Form("zhiye") dianhua=request.Form("dianhua") shouji=request.Form("shouji") youxiang=request.Form("youxiang") dizhi=request.Form("dizhi") youbian=request.Form("youbian") muyu=request.Form("muyu") chuxue=request.Form("chuxue") chuxuedi=request.Form("chuxuedi") canjia=request.Form("canjia") kaoshijian=request.Form("kaoshijian") kaoshidi=request.Form("kaoshidi") hskjibie=request.Form("hskjibie") hsktingli=request.Form("hsktingli") hskyufa=request.Form("hskyufa") yuedu=request.Form("yuedu") tiankong=request.Form("tiankong") mudi=request.Form("mudi") dailing=request.Form("dailing") ems=request.Form("ems") jiaofeifangshi=request.Form("jiaofeifangshi") jiaofei=request.Form("jiaofei") beizhu=request.Form("beizhu") '生成数据 set rs=server.CreateObject("adodb.recordset") sql="select * from member" rs.open sql, conn, 3, 3 rs.addnew rs("kecheng")=kecheng rs("banbie")=banbie rs("xingmingch")=xingmingch rs("xingming")=xingming rs("guoji")=guoji rs("xingbie")=xingbie rs("chusheng")=chusheng rs("zhaopian")=zhaopian rs("zhiye")=zhiye rs("dianhua")=dianhua rs("shouji")=shouji rs("youxiang")=youxiang rs("dizhi")=dizhi rs("youbian")=youbian rs("muyu")=muyu rs("chuxue")=chuxue rs("chuxuedi")=chuxuedi if canjia=1 then rs("canjia")=true else rs("canjia")=false end if rs("kaoshijian")=kaoshijian rs("kaoshidi")=kaoshidi rs("hskjibie")=hskjibie rs("hsktingli")=hsktingli rs("hskyufa")=hskyufa rs("yuedu")=yuedu rs("tiankong")=tiankong rs("mudi")=mudi if daiban=1 then rs("daiban")=true else rs("daiban")=false end if if dailing=1 then rs("dailing")=true else rs("dailing")=false end if if ems=1 then rs("ems")=true else rs("ems")=false end if rs("jiaofeifangshi")=jiaofeifangshi if jiaofei=1 then rs("jiaofei")=true else rs("jiaofei")=false end if rs("beizhu")=beizhu rs.update response.Write("恭喜！报名完成。") %> <% case "hanyu"'subit处理汉语报名表 '获取表单 dim xingming, xiangpian, xingbie, chusheng, minzu, zhengjian, zhengjianm, shenfen, jiaoshixingzhi, zuihouxueli dim zhuanye, danwei, dianhua, shouji, dizhi, youbian, youxiang, shifoudaiban, baoming, shifouchengji, shifouchengjis dim jiaofeifangshi, shifou, beizhu xingming=request.Form("xingming") xiangpian=request.Form("xiangpian") xingbie=request.Form("xingbie") minzu=request.Form("minzu") if minzu="other" then minzu=request.Form("minzu_") chusheng=request.Form("chusheng") zhengjian=request.Form("zhengjian") zhengjianm=request.Form("zhegnjianm") shenfen=request.Form("shenfen") jiaoshixingzhi=request.Form("jiaoshixingzhi") zuihouxueli=request.Form("zuihouxueli") zhuanye=request.Form("zhuanye") danwei=request.Form("danwei") shouji=request.Form("shouji") dizhi=request.Form("dizhi") youbian=request.Form("youbian") youxiang=request.Form("youxiang") shifoudaiban=request.Form("shifoudaiban") baoming=request.Form("baoming") shifouchengji=request.Form("shifouchengji") shifouchengjis=request.Form("shifouchengjis") jiaofeifangshi=request.Form("jiaofeifangshi") shifou=request.Form("shifou") beizhu=request.Form("beizhu") '生成数据 set rs=server.CreateObject("adodb.recordset") sql="select * from member1" rs.open sql, conn, 3, 3 rs.addnew rs("xingming")=xingming rs("xiangpian")=xiangpian rs("xingbie")=xingbie rs("chusheng")=chusheng rs("minzu")=minzu rs("zhengjian")=zhengjian rs("zhengjianm")=zhengjianm rs("shenfen")=shenfen rs("jiaoshixingzhi")=jiaoshixingzhi rs("zuihouxueli")=zuihouxueli rs("zhuanye")=zhuanye rs("danwei")=danwei rs("dianhua")=dianhua rs("shouji")=shouji rs("dizhi")=dizhi rs("youbian")=youbian rs("youxiang")=youxiang if shifoudanban=1 then rs("shifoudaiban")=true else rs("shifoudaiban")=false end if rs("baoming")=baoming if shifouchengji=1 then rs("shifouchengji")=true else rs("shifouchengji")=false end if if shifouchengjis=1 then rs("shifouchengjis")=true else rs("shifouchengjis")=false end if rs("jiaofeifangshi")=jiaofeifangshi if shifou=1 then rs("shifou")=true else rs("shifou")=false end if rs("beizhu")=beizhu rs.update response.Write("恭喜！报名完成。") %> <% case else %>
<% end select %>
