此段asp注册代码只支持ie6，其他浏览器不支持，怎么解决？
本帖最后由 xingfu1868 于 2013-04-22 00:03:44 编辑
此段asp注册代码只支持ie6，其他浏览器不支持，怎么解决？
<!--#includefile="inc/conn.asp"-->
<!--#includefile="inc/lib.asp"-->
<!--#includefile="inc/md5.asp"-->
<%

%>
<%
PrivateFunctiongetIP()
DimstrIPAddr
IfRequest.ServerVariables("HTTP_X_FORWARDED_FOR")=""ORInStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),"unknown")>0Then
strIPAddr=Request.ServerVariables("REMOTE_ADDR")
ElseIfInStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")>0Then
strIPAddr=Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),1,InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")-1)
ElseIfInStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),";")>0Then
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")
EndIf
getIP=Trim(Mid(strIPAddr,1,30))
EndFunction
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)

IfCheckCode=EmptyOrTrim(Session("MuGetCode"))<>CheckCodeThen
msg("您填写的验证码与系统产生的不一致，请重新输入")
endif

ifnum="0"thenmsg("对不起,证件号码必须为数字")

if(ChkInvaildWord(UserName)orChkInvaildWord(email)orChkInvaildWord(oldpass)orChkInvaildWord(moldpass)orChkInvaildWord(quest)orChkInvaildWord(ans)orChkInvaildWord(num)orChkInvaildWord(qq)orChkInvaildWord(ServerCode))then
msg("请不要输入非法字符")
endif

ifoldpass<>moldpassthen
msg("两次密码不相同")
endif

md5pass=md5(oldpass,32)
'---------------------------
Setrs=Server.CreateObject("ADODB.Recordset")
rs.Open"Select*from[TB_User]whereUserID='"&UserName&"'",conn
ifNotrs.Eofthen
rs.close

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

rs.close

rs.Open"Select*from[TB_User]whereUserID='"&UserName&"'",conn
JID=rs("ID")
ifrs.eofthen
'ifNotrs.Eofthen
response.write"<script>alert('你点数不足');history.back(-1)</script>"