此段asp注册代码只支持ie6，其他浏览器不支持，怎么解决？

此段asp注册代码只支持ie6，其他浏览器不支持，怎么解决？



<!--#include file="inc/conn.asp"-->
<!--#include file="inc/lib.asp"-->
<!--#include file="inc/md5.asp"-->
<%

%>
<%
Private Function getIP() 
Dim strIPAddr 
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then 
strIPAddr = Request.ServerVariables("REMOTE_ADDR") 
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then 
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) 
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then 
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) 
Else 
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
End If 
getIP = Trim(Mid(strIPAddr, 1, 30)) 
End Function
regip=getIP()

if(request("action")="save") then
UserName = GetPostField("UserName")
oldpass = GetPostField("oldpass")
moldpass = GetPostField("moldpass")
ans = GetPostField("ans")
quest = GetPostField("quest")
email = GetPostField("email")
num = GetPostField("num")
qq = GetPostField("qq")
CheckCode = GetPostField("Checkcode")

checkzw(UserName)

If CheckCode=Empty Or Trim(Session("MuGetCode"))<>CheckCode Then
msg("您填写的验证码与系统产生的不一致，请重新输入")
end if

if num="0" then msg("对不起,证件号码必须为数字")

if(ChkInvaildWord(UserName) or ChkInvaildWord(email) or ChkInvaildWord(oldpass) or ChkInvaildWord(moldpass) or ChkInvaildWord(quest) or ChkInvaildWord(ans) or ChkInvaildWord(num) or ChkInvaildWord(qq) or ChkInvaildWord(ServerCode)) then
        msg("请不要输入非法字符")
     end if
     
     if oldpass <> moldpass then
msg("两次密码不相同")
     end if
     
     md5pass=md5(oldpass,32)
'---------------------------    
    Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * from [TB_User] where UserID='"&UserName&"'",conn
if Not rs.Eof then
rs.close

msg("该用户名已经被注册")
response.end
else
conn.execute "insert into TB_User (UserID,password,Status) values ('"&UserName&"','"&md5pass&"',1)" 

rs.close

rs.Open "Select * from [TB_User] where UserID='"&UserName&"'",conn
             JID = rs("ID")
if rs.eof then
                 'if Not rs.Eof th