wap_user.asp

现在好了

<!--#include file="Conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/Class_Mobile.asp"-->
<!--#include file="inc/chan_const.asp"-->
<!--#include file="inc/chkinput.asp"-->
<!--#include file="inc/Email_Cls.asp"-->
<!--#include file="inc/md5.asp"-->
<%
Dvbbs.LoadTemplates("login")
DvbbsWap.ShowXMLStar
If Request("t")="1" Then
	Wap_UserLogin
Else
	Wap_UserReg
End If
DvbbsWap.ShowXMLEnd

Sub Wap_UserReg()
	Dim ErrCodes
	Dim TempLateStr
	Dim RegSplitWords,i
	Dim Name,Sex,Email,Mobile,Password

	Name = Dvbbs.CheckStr(Request("name"))
	Sex = Trim(Request("sex"))
	Email = Dvbbs.CheckStr(Trim(Request("email")))
	Password = Dvbbs.CheckStr(Trim(Request("password")))
	Mobile = Dvbbs.CheckStr(Trim(Request("mobile")))

	'传递信息验证
	If Name = "" or StrLength(Name)>Cint(Dvbbs.Forum_Setting(41)) or StrLength(Name)<Cint(Dvbbs.Forum_Setting(40)) Then
		TempLateStr=template.Strings(28)
		TempLateStr=Replace(TempLateStr,"{$RegMaxLength}",Dvbbs.Forum_Setting(41))
		TempLateStr=Replace(TempLateStr,"{$RegLimLength}",Dvbbs.Forum_Setting(40))
		ErrCodes=ErrCodes+TempLateStr
		TempLateStr=""
		DvbbsWap.ShowErr 0,ErrCodes
		Exit Sub
	End If

	If Instr(Name,"=")>0 or Instr(Name,"%")>0 or Instr(Name,chr(32))>0 or Instr(Name,"?")>0 or Instr(Name,"&")>0 or Instr(Name,";")>0 or Instr(Name,",")>0 or Instr(Name,"'")>0 or Instr(Name,",")>0 or Instr(Name,chr(34))>0 or Instr(Name,chr(9))>0 or Instr(Name,"