- 精华
- 阅读权限
- 120
- 好友
- 相册
- 分享
- 听众
- 收听
- 注册时间
- 2008-12-31
- 在线时间
- 小时
- 最后登录
- 1970-1-1
|
发表于 2023-9-22 16:20:03
|
显示全部楼层
报错,看看这个是啥错误
if Not GetUserParaObj.eof then
if GetUserParaObj("RegisterTF")=0 then
RegisterTF=false
Else
RegisterTF=true
End if
DefaultGroupID = GetUserParaObj("DefaultGroupID")
if not isnull(DefaultGroupID) then DefaultGroupID = clng(DefaultGroupID)
RegisterNotice = GetUserParaObj("RegisterNotice")
p_UserNumberRule = GetUserParaObj("UserNumberRule")
LoginLockNum = cint(GetUserParaObj("LoginLockNum"))
p_LoginStyle = GetUserParaObj("Login_Style")
p_AllowChineseName = GetUserParaObj("AllowChineseName")
p_LenUserName = GetUserParaObj("LenUserName")
strLenUserNameArr=split(p_LenUserName,",")
p_NumLenMin = strLenUserNameArr(0)
p_NumLenMax = strLenUserNameArr(1)
p_isCheckCorp = cint(GetUserParaObj("isCheckCorp"))
p_RegisterCheck = cint(GetUserParaObj("RegisterCheck"))
p_MoneyName = GetUserParaObj("MoneyName")
p_RegPointmoney = GetUserParaObj("RegPointmoney")
strRegPointmoneyArr=split(p_RegPointmoney,",")
p_NumGetPoint = trim(strRegPointmoneyArr(0))
p_NumGetMoney = trim(strRegPointmoneyArr(1))
p_NumReturnUrl = Cint(GetUserParaObj("ReturnUrl"))
p_LenPasswordarr = split(GetUserParaObj("LenPassword"),",")
p_LenPassworMin = cint(trim(p_LenPasswordarr(0)))
p_LenPassworMax = cint(trim(p_LenPasswordarr(1)))
p_isSendMail = cint(GetUserParaObj("isSendMail"))
p_isValidate = cint(GetUserParaObj("isValidate"))
p_OnlyMemberLogin = cint(GetUserParaObj("OnlyMemberLogin"))
p_LenLoginTimearr = split(GetUserParaObj("LenLoginTime"),",")
p_LoginGetIntegral = Clng(p_LenLoginTimearr(0))
p_LoginGetMoney = Cint(p_LenLoginTimearr(1))
p_LoginPointmoneyarr = split(GetUserParaObj("LoginPointmoney"),",")
p_LoginPointmoneyarr_1 = Clng(p_LoginPointmoneyarr(0))
p_LoginPointmoneyarr_2 = Cint(p_LoginPointmoneyarr(1))
p_LimitUserName = GetUserParaObj("LimitUserName")
p_isPassCard = GetUserParaObj("isPassCard")
p_PointChange = GetUserParaObj("PointChange")
p_isYellowCheck = GetUserParaObj("isYellowCheck")
p_UpfileType= GetUserParaObj("UpfileType")
p_UpfileSize= GetUserParaObj("UpfileSize")
p_FilesSpace= GetUserParaObj("FilesSpace")
p_LimitClass=split(GetUserParaObj("LimitClass"),",")(1)
GetUserParaObj.close:set GetUserParaObj = nothing
Else
strShowErr = "<li>参数错误</li><li>找不到会员系统配置</li>"
Response.Redirect Replace("/"&G_VIRTUAL_ROOT_DIR &"/"&G_USER_DIR,"//","/")& "/lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl="
Response.end
End if
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
x
|