<%tmpname = Request.Form("xm") tmppad= Request.Form("mm1")tmpsex= request.form("sex")tmpem=request.form("email")tmpsc=request.form("school")tmplove=""For I = 1 to Request.Form("txthobby").Count Response.Write Request.Form("txthobby")(I)&","Nexta=len(tmplove)tmplove=left(tmplove,a-1) set cn=server.createobject("adodb.connection") strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("base.mdb") cn.open strconn set rs=server.createobject("adodb.recordset") selstr="select * from userdate where email='" & tmpem & "'" rs.open selstr,cn if not (rs.eof) then response.write "<script language=JavaScript>" & "alert('該郵箱已被占用，請重新選擇郵箱！');" & "history.back();" & "</script>" rs.close set rs=nothing cn.close set cn=nothing else set cn=server.createobject("adodb.connection") strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("base.mdb") cn.open strconn strin= "insert into userdate(email,name,sex,school,mima,pad,love)" strin=strin&"values('"&tmpem&"','"&tmpname&"','"&tmpsex&"','"&tmpsc&"','"&tmplove&"',"&tmppad&")" cn.execute strin response.write "<script language=JavaScript>" & "alert('注冊成功！');" & "history.back();" & "</script>" end if %>
哪位大神幫我看看啊
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/77743.html
標籤：基礎類