strlib.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

<!--#include file="User_sys.asp" -->
<!--#include file="Cls_user.asp" -->
<%
Dim Conn,User_Conn,strShowErr
Dim GetUserParaObj,UserSql,RegisterNotice,RegisterTF,LoginLockNum,p_LoginStyle,p_LenPassworMin,p_LenPassworMax,p_isValidate,p_isPassCard,p_isYellowCheck
Dim p_VerCodeStyle,p_AllowChineseName,p_LenUserName,p_NumLenMax,p_NumLenMin,p_strisPromptTF,p_strisPromptnNum,p_isSendMail,p_LimitUserName,p_PointChange
Dim p_isCheckCorp,p_RegisterCheck,p_MoneyName,p_RegPointmoney,p_NumGetPoint,p_NumGetMoney,p_NumReturnUrl,p_UserNumberRule,p_LoginPointmoneyarr_1,p_LoginPointmoneyarr_2
Dim strLenUserNameArr,strRegPointmoneyArr,p_isPromptarr,p_LenPasswordarr,p_OnlyMemberLogin,p_LenLoginTimearr,p_LoginGetIntegral,p_LoginGetMoney,p_LoginPointmoneyarr
Dim GetConfigObj ,Sql,p_Soft_Version,s_savepath,s_savepath_1,p_RssFeed,p_UpfileType,p_UpfileSize,p_FilesSpace,p_LimitClass
Dim strCard_month_1,strCard_day_1,strCard_hour_1,strCard_minute_1,strTodaydate,strTodaydate_1,DefaultGroupID
Dim getRsGroup,GroupNumber,GroupPoint,GroupDate,GroupMoney,UpfileNum,UpfileSize,LimitInfoNum,GroupDebateNum
MF_Default_Conn
MF_User_Conn
'User_GetParm
DefaultGroupID = 0 
s_savepath = Replace("/" & G_VIRTUAL_ROOT_DIR &"/"&G_USER_DIR,"//","/")
s_savepath_1 = Replace("/" & G_VIRTUAL_ROOT_DIR&"/","//","/")
%>