📄 index.asp
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<%
Dim Conn,User_Conn,UserSysParaRs
Dim AllowReg,AllowChinese,NeedAudit,Corp_NeedAudit,Login_Filed,OnlyMemberLogin,ID_Rule,IDRule_Array,ID_Elem,ID_Postfix,Needword,UserName_Length,UserName_Length_Max,UserName_Length_Max_Min,UserName_Length_Array,Forbid_UserName,Pwd_Length,Pwd_Length_Max,Pwd_Length_Min,Pwd_Length_Array,Pwd_Contain_Word,ResigterNeedFull,isSendMail,Email_Aduit,Reg_Help
Dim CheckCodeStyle,LoginSytle,ReturnUrl,ErrorPwdTimes,ShowNumberPerPage,UpfileType,UpfileSize,MessageSize,RssFeed,LimitClass,LimitClass_Array,MemberFile,CertDir,LimitReviewChar
Dim MoneyName,MoneyUnit,RegPointmoney,RegPointmoney_Array,LoginPointmoney,LoginPointmoney_Array,PointChange,PointChange_TF,PointChange_Array,isPrompt,isPrompt_TF,isPrompt_Array,LenLoginTime
MF_Default_Conn
MF_User_Conn
MF_Session_TF
Set UserSysParaRs=server.CreateObject(G_FS_RS)
UserSysParaRs.open "select RegisterTF,AllowChineseName,RegisterCheck,isCheckCorp,OnlyMemberLogin,UserNumberRule,LenUserName,LimitUserName,LenPassword,isSendMail,isValidate,RegisterNotice,VerCodeStyle, Login_Style,ReturnUrl,LoginLockNum,MemberList,UpfileType,UpfileSize,MessageSize,RssFeed,limitClass,MemberFile,CertDir,LimitReviewChar,MoneyName,RegPointmoney,LoginPointmoney,PointChange,isPrompt,LenLoginTime From FS_ME_SysPara",User_Conn,1,1
'*****************************************************************
if not UserSysParaRs.eof then
'baseParam
AllowReg=UserSysParaRs("RegisterTF")
AllowChinese=UserSysParaRs("AllowChineseName")
NeedAudit=UserSysParaRs("RegisterCheck")
Corp_NeedAudit=UserSysParaRs("isCheckCorp")
OnlyMemberLogin=UserSysParaRs("OnlyMemberLogin")
ID_Rule=UserSysParaRs("UserNumberRule")
UserName_Length=UserSysParaRs("LenUserName")
Forbid_UserName=UserSysParaRs("LimitUserName")
Pwd_Length=UserSysParaRs("LenPassword")
isSendMail=UserSysParaRs("isSendMail")
Email_Aduit=UserSysParaRs("isValidate")
Reg_Help=UserSysParaRs("RegisterNotice")
'OtherParam
CheckCodeStyle=UserSysParaRs("VerCodeStyle")
LoginSytle=UserSysParaRs("Login_Style")
ReturnUrl=UserSysParaRs("ReturnUrl")
ErrorPwdTimes=UserSysParaRs("LoginLockNum")
ShowNumberPerPage=UserSysParaRs("MemberList")
UpfileType=UserSysParaRs("UpfileType")
UpfileSize=UserSysParaRs("UpfileSize")
MessageSize=UserSysParaRs("MessageSize")
RssFeed=UserSysParaRs("RssFeed")
LimitClass=UserSysParaRs("limitClass")
MemberFile=UserSysParaRs("MemberFile")
CertDir=UserSysParaRs("CertDir")
LimitReviewChar=UserSysParaRs("LimitReviewChar")
'About Money
MoneyName=UserSysParaRs("MoneyName")
RegPointmoney=UserSysParaRs("RegPointmoney")
LoginPointmoney=UserSysParaRs("LoginPointmoney")
PointChange=UserSysParaRs("PointChange")
isPrompt=UserSysParaRs("isPrompt")
LenLoginTime=UserSysParaRs("LenLoginTime")
End if
'******************************************************************
if len(UserName_Length)>0 then
UserName_Length_Array=split(UserName_Length,",")
End if
if (Pwd_Length)>0 then
Pwd_Length_Array=split(Pwd_Length,",")
End if
if len(ID_Rule)>0 then
IDRule_Array=split(ID_Rule,",")
End if
if Ubound(IDRule_Array)>=1 then
ID_Elem=IDRule_Array(1)
end if
if Ubound(IDRule_Array)>=2 then
ID_Postfix=IDRule_Array(2)
end if
if len(LimitClass)>0 then
LimitClass_Array=split(LimitClass,",")
End if
if len(RegPointmoney)>0 then
RegPointmoney_Array=split(RegPointmoney,",")
end if
if len(LoginPointmoney)>0 then
LoginPointmoney_Array=split(LoginPointmoney,",")
end if
if len(PointChange)>0 then
PointChange_Array=split(PointChange,",")
end if
if ubound(PointChange_Array)>=0 then
PointChange_TF=PointChange_Array(0)
end if
if len(isPrompt)>0 then
isPrompt_Array=split(isPrompt,",")
end if
if Ubound(isPrompt_Array)>=0 then
isPrompt_TF=isPrompt_Array(0)
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>FoosunCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</HEAD>
<script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
<script>
var selected="Lab_Base";
var flag=true;//是否可以提交表单
function showParamPanel(param)
{
switch(param)
{
case 1:
document.getElementById("Layer1").style.display="block";
document.getElementById("Layer2").style.display="none";
document.getElementById("Layer3").style.display="none";
document.getElementById("Lab_Base").className ="";
if(selected!="Lab_Base")
document.getElementById(selected).className ="xingmu";
selected="Lab_Base";
break;
case 2:
document.getElementById("Layer1").style.display="none";
document.getElementById("Layer2").style.display="block";
document.getElementById("Layer3").style.display="none";
document.getElementById("Lab_Other").className="";
if(selected!="Lab_Other")
document.getElementById(selected).className ="xingmu";
selected="Lab_Other";
break;
case 3:
document.getElementById("Layer1").style.display="none";
document.getElementById("Layer2").style.display="none";
document.getElementById("Layer3").style.display="block";
document.getElementById("Lab_Money").className="";
if(selected!="Lab_Money")
document.getElementById(selected).className ="xingmu";
selected="Lab_Money";
break;
}
}
function ReplaceDot(Obj)
{
var oldValue=Obj.value;
while(oldValue.indexOf("，")!=-1)
{
Obj.value=oldValue.replace("，",",");
oldValue=Obj.value;
}
}
function CheckContentLen(Obj,FS_Alert,Len)
{
if(Obj.value.length>Len)
{
document.getElementById("FS_Alert").innerHTML="<font color='F43631'>长度请不要超过"+Len+"</font>";
flag=false;
}
}
function isChinese(Obj,FS_Alert)
{
var Number = "0123456789.,abcdefghijklmnopqrstuvwxyz-\/ABCDEFGHIJKLMNOPQRSTUVWXYZ`~!@#$%^&*()_";
for (i = 0; i < Obj.value.length;i++)
{
var c = Obj.value.charAt(i);
if (Number.indexOf(c) == -1)
{
document.getElementById(FS_Alert).innerHTML="<font color='F43631'>请不要使用中文字符</font>";
Obj.focus()
flag=false;
return;
}
}
document.getElementById(FS_Alert).innerHTML="";
flag=true
}
function MySubmit(Obj)
{
if(flag)
document.getElementById(Obj).submit();
}
</script>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes oncontextmenu="return false;">
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tr class="hback">
<td width="140" align="right" class="xingmu" colspan="3"><div align="left">会员系统参数设置</div></td>
</tr>
<tr class="hback">
<td width="33%" id="Lab_Base"><div align="center"><a href="#" onClick="showParamPanel(1)">基本参数设置</a></div></td>
<td width="33%" height="19" class="xingmu" id="Lab_Other"> <div align="center"><a href="#" onClick="showParamPanel(2)">其他参数设置</a></div></td>
<td width="33%" height="19" class="xingmu" id="Lab_Money"> <div align="center"><a href="#" onClick="showParamPanel(3)">积分金币设置</a></div></td>
</tr>
<tr class="hback">
<td align="right" colspan="3">
<div id="Layer1" style="position:relative; z-index:1; left: 0px; top: 0px;">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form action="ParamAction.asp?Act=BaseParam" method="post" name="BaseParam" id="BaseParam">
<tr class="hback">
<td align="right">允许注册：</td>
<td> <input type="radio" name="AllowReg" value="1" <%if AllowReg=1 then Response.Write("checked") end if%>>
是 <input type="radio" name="AllowReg" value="0" <%if AllowReg=0 then Response.Write("checked") end if %>>
否 </td>
</tr>
<tr class="hback">
<td align="right"> 允许中文名称注册：</td>
<td width="596"> <input type="radio" name="AllowChinese" value="1" <% if AllowChinese=1 then Response.Write("checked") end if%>>
是 <input type="radio" name="AllowChinese" value="0" <% if AllowChinese=0 then Response.Write("checked") end if%>>
否 </td>
</tr>
<tr class="hback">
<td align="right"> 个人注册需要审核：</td>
<td><input type="radio" name="NeedAudit" value="1" <% if NeedAudit=1 then Response.Write("checked") end if%> >
是 <input type="radio" name="NeedAudit" value="0" <% if NeedAudit=0 then Response.Write("checked") end if%>>
否</td>
</tr>
<tr class="hback">
<td align="right">企业注册需要审核：</td>
<td><input type="radio" name="Corp_NeedAudit" value="1" <% if Corp_NeedAudit=1 then Response.Write("checked") end if%>>
是 <input type="radio" name="Corp_NeedAudit" value="0" <% if Corp_NeedAudit=0 then Response.Write("checked") end if%>>
否</td>
</tr>
<tr class="hback">
<td align="right">只允许一个人登录：</td>
<td><input type="radio" name="OnlyMemberLogin" value="1" <% if OnlyMemberLogin=1 then Response.Write("checked")%>/>
是 <input type="radio" name="OnlyMemberLogin" value="0" <% if OnlyMemberLogin=0 then Response.Write("checked")%>>
否</td>
</tr>
<tr class="hback">
<td align="right">用户编号规则_前缀：</td>
<td> <input name="ID_Prefix" type="text" id="ID_Prefix2" size="50" value="<% if Ubound(IDRule_Array)>0 then Response.Write(IDRule_Array(0))%>"/>
</td>
</tr>
<tr class="hback">
<td align="right">用户编号规则_组成元素：</td>
<td> <input name="ID_Elem" type="checkbox" id="ID_Elem2" value="y" <%if instr(ID_Elem,"y")>0 then Response.Write("checked") end if%>/>
年
<input name="ID_Elem" type="checkbox" id="ID_Elem2" value="m" <%if instr(ID_Elem,"m")>0 then Response.Write("checked") end if%>/>
月
<input name="ID_Elem" type="checkbox" id="ID_Elem2" value="d" <%if instr(ID_Elem,"d")>0 then Response.Write("checked") end if%>/>
日
<input name="ID_Elem" type="checkbox" id="ID_Elem2" value="h" <%if instr(ID_Elem,"h")>0 then Response.Write("checked") end if%>/>
时
<input name="ID_Elem" type="checkbox" id="ID_Elem2" value="i" <%if instr(ID_Elem,"i")>0 then Response.Write("checked") end if%>/>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -