asp程序一个asp注册实例

set rs=server.CreateObject("adodb.recordset")
dim sql_chick
sql_chick="select * from Tabcustomer where Email='" & request.Form("Email_name") & "' and f0=0"
rs.open sql_chick,conn,1,3
if not rs.eof or not rs.bof then


response.end
rs=nothing

else
set rs=server.CreateObject("adodb.recordset")
'dim sql_chick
sql_chick="select * from Tabcustojmer where Email='" & request.Form("Email_name") & "' and f0=1"
rs.open sql_chick,conn,1,3
if not rs.eof or not rs.bof then
'New add customer

rs.update
rs("Email")=Replace(request.Form("Email_name"),"'","''")
rs("Pwd")=md5(request.Form("pwd"))
rs("Fname")=request.Form("F_name")
rs("Lname")=request.Form("L_name")
rs("StreetAddress")=request.Form("street_address")
rs("CompanyName")=request.Form("company_name")
rs("Postcode")=request.Form("post_code")
rs("City")=request.Form("city_name")
rs("Continent")=request.Form("Continent_name")
rs("CountryID")=request.Form("country_name")
rs("Tele")=request.Form("Telephone_num")
rs("Fax")=request.Form("Fax_num")
rs("f0")=0

rs("Question")=replace(request.Form("Question"),"'","")
rs("Answer")=request.Form("Answer")
rs("IPaddress")=Request.ServerVariables("REMOTE_ADDR")

rs.update

response.end
rs=nothing
else

rs.addnew
rs("Email")=Replace(request.Form("Email_name"),"'","''")
rs("Pwd")=md5(request.Form("pwd"))
rs("Fname")=request.Form("F_name")
rs("Lname")=request.Form("L_name")
rs("StreetAddress")=request.Form("street_address")
rs("CompanyName")=request.Form("company_name")
rs("Postcode")=request.Form("post_code")
rs("City")=request.Form("city_name")
rs("Continent")=request.Form("Continent_name")
rs("CountryID")=request.Form("country_name")
rs("Tele")=request.Form("Telephone_num")
rs("Fax")=request.Form("Fax_num")
rs("Question")=replace(request.Form("Question"),"'","")
rs("Answer")=request.Form("Answer")
rs("Regtime")=now
rs("IPaddress")=Request.ServerVariables("REMOTE_ADDR")
rs.update

set rs=nothing
end if


end if
end if
%>