<% tmpname=Request. The Form (" xm ") tmppad=Request. The Form (" mm1 ") tmpsex=Request. The Form (" sex ") tmpem=Request. The Form (" email ") TMPSC=Request. The Form (" school ") tmplove="" to the Request For I=1. The Form (" txthobby"). The Count Response. The Write Request. The Form (" txthobby ") (I) & amp;" , "Nexta=len (tmplove) tmplove=left (tmplove, a 1) set cn=server createobject (" adodb. Connection") strconn="driver={Microsoft access driver (*. MDB)}; DBQ="& amp; Server mappath (" base. MDB) cn. Open strconn set rs=server createobject (" adodb. You ") selstr="select * from userdate where email='" & amp; Tmpem & amp; "'" rs. Open selstr, cn if not (eof) rs. Then the response. Write "& lt; Script language=JavaScript>" & "Alert (' this email has been occupied, please select email again! ');" & "The history. The back ();" & "</script>" Rs. The close set rs=nothing cn. Close the set cn=nothing else set cn=server createobject (" adodb. Connection ") strconn="driver={Microsoft access driver (*. MDB)}; DBQ="& amp; Server. The mappath (" base. MDB) cn. Open strconn strin="insert into userdate (email, name, sex, school, mima, pad, love)" strin=strin&" Values (' "& amp; Tmpem&" ', '" & amp; Tmpname&" ', '" & amp; Tmpsex&" ', '" & amp; Tmpsc&" ', '" & amp; Tmplove&" ', "& amp; Tmppad&" ) "cn. The execute strin response. Write" & lt; Script language=JavaScript>" & "Alert (' registered success! ');" & "The history. The back ();" & "</script>" End the if % & gt;
Which a great god help me to look at the