if rs.eof or rs.bof then
rs.addnew
rs("username")=username
rs("password")=password
rs("name")=trim(request("name"))
rs("email")=email
rs("idcard")=trim(request("idcard"))
rs("dianhua")=trim(request("dianhua"))
rs("qq")=trim(request("qq"))
rs("dizhi")=trim(request("dizhi"))
rs("zcdata")=now()
rs("a")=z_a
rs("b")=z_b
rs("c")=z_c
rs("d")=z_d
rs("jf")=jf_1
rs("hb")=z_hb
rs.update
end if
else
dim com,comabout,fax,rs1,sql1,class2,name
username=trim(request("comusername"))
password=request("compassword")
password=Request.form("compassword")
password1=Request.form("compassword1")
com=trim(request("com"))
email=trim(request("comemail"))
set rs1=server.createobject("adodb.recordset")
sql1="select * from [com] where username='"&username&"'or email='"&email&"'"
rs1.open sql1,conn,1,3
if not rs1.eof or not rs1.bof then
 if trim(rs1("username"))=username then
 response.write "<script language=JavaScript>" & chr(13) & "alert('您输入的用户名已经注册过,请重新注册2');" & "history.back()" & "</script>"
 response.end
 end if
 if trim(rs1("email"))=email then
 response.write "<script language=JavaScript>" & chr(13) & "alert('您输入的E-mail已经注册过,请重新注册2');" & "history.back()" & "</script>"
 response.end
 end if
end if

错得太离谱 多看看教程吧