长沙外国语学校网上报名系统

<% set rs3=server.createobject("Adodb.Recordset") sql3="Select * from site" rs3.open sql3,conn,1,3 if rs3("e1")="0" then Response.Write "" Response.End() else e1=rs3("e1") n1=rs3("n1") rs3.Close end if if Request.QueryString("Action")="add" then dim c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,c11,c12,c13,c14,c15,c16,c17,c18,c19,c20,c21,c22,c23,c24,c25,c26,c27,c28,c29,c30,c31,c32,c33,c34,c35,c36,c37,c38,c39,zh c1= Trim(Request.Form("c1")) c2= Trim(Request.Form("c2")) c3= Trim(Request.Form("c3")) c4= Trim(Request.Form("c4")) c5= Trim(Request.Form("c5")) c6= Trim(Request.Form("c6")) c7= Trim(Request.Form("c7")) c8= Trim(Request.Form("c8")) c9= Trim(Request.Form("c9")) c10= Trim(Request.Form("c10")) c11= Trim(Request.Form("c11")) c12= Trim(Request.Form("c12")) c13= Trim(Request.Form("c13")) c14= Trim(Request.Form("c14")) c15= Trim(Request.Form("c15")) c16= Trim(Request.Form("c16")) c17= Trim(Request.Form("c17")) c18= Trim(Request.Form("c18")) c19= Trim(Request.Form("c19")) c20= Trim(Request.Form("c20")) c21= Trim(Request.Form("c21")) c22= Trim(Request.Form("c22")) c23= Trim(Request.Form("c23")) c24= Trim(Request.Form("c24")) c25= Trim(Request.Form("c25")) c26= Trim(Request.Form("c26")) c27= Trim(Request.Form("c27")) c28= Trim(Request.Form("c28")) c29= Trim(Request.Form("c29")) c30= Trim(Request.Form("c30")) c31= Trim(Request.Form("c31")) c32= Trim(Request.Form("c32")) c33= Trim(Request.Form("c33")) c34= Trim(Request.Form("c34")) c35= Trim(Request.Form("c35")) c36= Trim(Request.Form("c36")) c37= Trim(Request.Form("c37")) zh= Trim(Request.Form("zh")) c38= 1 c39= now() if c1="" then Response.Write "" Response.End() else set rs2=server.createobject("Adodb.Recordset") SQL2="Select * from cww where c39='"&c1&"'" rs2.open SQL2,conn,1,1 if not rs2.eof then rs2.Close Set rs2=Nothing Response.Write "" Response.End() else rs2.Close Set rs2=Nothing end if end if SQL="Select * from cww" set rs=server.createobject("Adodb.Recordset") rs.open SQL,conn,1,3 rs.AddNew rs("c1")=c1 rs("c2")=c2 rs("c3")=c3 rs("c4")=c4 rs("c5")=c5 rs("c6")=c6 rs("c7")=c7 rs("c8")=c8 rs("c9")=c9 rs("c10")=c10 rs("c11")=c11 rs("c12")=c12 rs("c13")=c13 rs("c14")=c14 rs("c15")=c15 rs("c16")=c16 rs("c17")=c17 rs("c18")=c18 rs("c19")=c19 rs("c20")=c20 rs("c21")=c21 rs("c22")=c22 rs("c23")=c23 rs("c24")=c24 rs("c25")=c25 rs("c26")=c26 rs("c27")=c27 rs("c28")=c28 rs("c29")=c29 rs("c30")=c30 rs("c31")=c31 rs("c32")=c32 rs("c33")=c33 rs("c34")=c34 rs("c35")=c35 rs("c36")=c36 rs("c37")=c37 rs("c38")=c38 rs("c39")=c39 rs("zh")=zh rs.Update rs.Close Set rs=Nothing Response.Write "" Response.End() end if %> 长沙外国语学校网上报名系统

长沙外国语学校 | 长外信箱 | 设为首页 | 收藏网站
　

2011年01月10日星期1