你把代码贴出来大家看下嘛!

sub amd()

 dim rs
 dim sql
 
 Tmid=request("themaid")
 Sph=request("lang")
 Anrede=request.form("anrede")    
 NName=request.form("nachname")
 VName=request.form("vorname")
 Firma=request.form("Firma")
 Strasse=request.form("strasse")
 PLZ=request.form("plz")
 Ort=request.form("ort")
 Abt=request.form("abt")
 Telf=request.form("tel")
 Faxx=request.form("fax")
 Email=request.form("email")
 URLL=request.form("urll")

 dim ip,intervel
 ip=request.ServerVariables("HTTP_X_FORWARDED_FOR")
 if ip="" then
     ip=request.ServerVariables("REMOTE_ADDR")
 end if
 
 set rs=server.createobject("adodb.recordset")
 sql="select * from Firma where Firma='" + Firma + "' and PLZ='" + PLZ + "'"
 rs.open sql,conn,1,3
 
 if not rs.eof then
      rs.close
     set rs=nothing
    conn.close
    set conn=nothing
    call MsgBox("Eine Firma ist schon eingetragen!","Back")
 else
     rs.addnew
     rs("Anrede")=Anrede    
    rs("NName")=NName
    rs("VName")=VName
    rs("Firma")=Firma
    rs("Strasse")=Strasse
    rs("PLZ")=PLZ
    rs("Ort")=Ort
    rs("Abt")=Abt
    rs("Telf")=Telf
    rs("Faxx")=Faxx
    rs("Email")=Email
    rs("URL")=URLL
    rs("IPADD")=ip
    rs("Dtum")=now()
     rs.update
     temp=rs.bookmark
    rs.bookmark=temp    
    Firmaid=rs("id")    
    rs.close
     set rs=nothing
     conn.close
     set conn=nothing
    session("Firmaid")=Firmaid
    session("anrede")=Anrede
    session("Nachname")=NName
    session("Vorname")=VName
    
 end if
 
end sub

你检查一下在检验表单的时候有没有加上onsubmit();如果加上了，你将它去掉再试试

奇怪的是，所有的程序在我的本地机器上调试一点问题没有，上传了之后就出现这种怪问题，而且在国外的服务器上和国内的服务器上出现的问题还不一样。这个注册程序我已经在很多网站上用过，运行都很正常，唯独这次。