asp身份證判斷代碼

<%
if request("postyes")="1" then
   
leixing = SafeRequest("leixing",2)
userName = SafeRequest("userName",2)
thecom = SafeRequest("thecom",2)
CodeType = SafeRequest("CodeType",2)
Code = SafeRequest("Code",2)
Tel = SafeRequest("Tel",2)
Fox = SafeRequest("Fox",2)
Add = SafeRequest("Add",2)
Email = SafeRequest("Email",2)
PostCode = SafeRequest("PostCode",2)
joinDate = SafeRequest("joinDate",2)
ScomID = SafeRequest("ScomID",2)
instrtxt = SafeRequest("instrtxt",2)
yongtu = SafeRequest("yongtu",2)
SelectA = SafeRequest("SelectA",2)
SelectB = SafeRequest("SelectB",2)
userType = SafeRequest("userType",2)

if userName="" or thecom="" or CodeType="" or Code="" or Tel="" or Add="" or joinDate="" or ScomID="" then
response.Write("<script language='JavaScript'>alert('帶星號的基本資料項目必須填寫！');history.go(-1);</script>")
response.End()
end if

       set rs=server.CreateObject("adodb.recordset")
       sql="select * from UserDic"
       rs.open sql,conn,1,3
    rs.addnew
    rs("leixing")=leixing
    rs("userName")=userName
    rs("thecom")=thecom
    rs("CodeType")=CodeType
    rs("Code")=Code
    rs("Tel")=Tel
    rs("Fox")=Fox
    rs("Add")=Add
    rs("Email")=Email
    rs("PostCode")=PostCode
    rs("joinDate")=joinDate
    rs("ScomID")=ScomID
    rs("instrtxt")=instrtxt
    rs("yongtu")=yongtu
    rs("SelectA")=SelectA
    rs("SelectB")=SelectB
    rs("userType")=userType
    rs("state")=0
    rs.update

response.Write("<script language='JavaScript'>alert('信息提交成功，請等待審核.');window.location='reg.asp?comid="&ScomID&"';</script>")