📄 sysuserpara.asp
字号:
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../../../Inc/Cls_Cache.asp" -->
<!--#include file="../../../Inc/Cls_User.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.50
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN：skoolls@hotmail.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn 演示站点：test.cooin.com
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
Dim DBC,Conn,UserConn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(UserDBConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set UserConn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P040800") then Call ReturnError1()
Dim Fs_ConfigCache,Fs_User,StrUserGroup
Set Fs_ConfigCache = New cls_FsCache
Fs_ConfigCache.Name="ConfigCache"
Set Fs_User = new Cls_User
Set RsConfig = server.CreateObject(G_FS_RS)
StrUserGroup = Replace(Request.Form("UserGroup"),"'","''")
If StrUserGroup = "" Then StrUserGroup = " "
RsConfig.open "select * from FS_UserConfig",UserConn,1,3
If Request.Form("operation")="Modify" Then
RsConfig("MemberType")=CInt(Request.Form("MemberType"))
RsConfig("IsEmail")=CInt(Request.Form("IsEmail"))
RsConfig("isChange")=CInt(Request.Form("isChange"))
RsConfig("MaxContent")=CInt(Request.Form("MaxContent"))
RsConfig("UserConfer")=Replace(Request.Form("UserConfer"),"'","''")
RsConfig("IsReg")=CInt(Request.Form("IsReg"))
RsConfig("IsCheck")=CInt(Request.Form("IsCheck"))
RsConfig("IsCorpus")=CInt(Request.Form("IsCorpus"))
RsConfig("IsFavorite")=CInt(Request.Form("IsFavorite"))
RsConfig("IsMessage")=CInt(Request.Form("IsMessage"))
RsConfig("IsEmailCert")=CInt(Request.Form("IsEmailCert"))
RsConfig("RegOption")=Replace(Request.Form("RegOption"),"'","''")
RsConfig("UserGroup")=StrUserGroup
RsConfig("BadName")=Replace(Request.Form("BadName"),"'","''")
RsConfig.update
Response.write "<script>alert('保存成功！');location=location.href;</script>"
response.End
End If
%>
<html>
<title>网站基本参数设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.SysParaButtonStyle {
border-top-width: 1px;
border-right-width: 1px;
border-bottom-width: 1px;
border-left-width: 1px;
border-right-style: solid;
border-bottom-style: solid;
border-left-style: solid;
border-right-color: #999999;
border-bottom-color: #999999;
border-left-color: #FFFFFF;
background-color: #E6E6E6;
}
-->
</style>
</head>
<link href="../../../CSS/FS_css.css" rel="stylesheet">
<script src="../../SysJS/PublicJS.js" language="JavaScript"></script>
<body bgcolor="#FFFFFF" topmargin="2" leftmargin="2" scroll="yes" oncontextmenu="return false;">
<form name="form" method="post" action="" >
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
<td height="26" colspan="5" valign="middle" bgcolor="#EEEEEE">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width=35 align="center" alt="保存" onClick="document.form.submit();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
<td width=2 class="Gray">|</td>
<td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
<td width="905"> <input type="hidden" name="operation" value="Modify"> </tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bordercolor="e6e6e6" bgcolor="#E3E3E3">
<tr bgcolor="#FFFFFF">
<td colspan="5" height="1"></td>
</tr>
<tr valign="middle" bgcolor="#F5F5F5">
<td height="21"> <div align="right">切换会员系统</div></td>
<td width="613" height="21" bgcolor="#F5F5F5"> <input name="MemberType" type="radio" value="0" <%if RsConfig("MemberType")=0 then response.Write("checked")%>>
本系统会员系统
<input type="radio" name="MemberType" value="1" <%if RsConfig("MemberType")=1 then response.Write("checked")%>>
动网论坛会员系统
<input type="radio" name="MemberType" value="2" <%if RsConfig("MemberType")=2 then response.Write("checked")%>>
极限论坛会员系统</td>
<tr valign="middle" bgcolor="#F5F5F5">
<td height="21"><div align="right">是否允许会员注册</div></td>
<td width="613" height="21" bgcolor="#F5F5F5"> <input name="IsReg" type="radio" value="0" <%if RsConfig("IsReg")=0 then response.Write("checked") %>>
否
<input type="radio" name="IsReg" value="1" <%if RsConfig("IsReg")=1 then response.Write("checked") %>>
是<font color=red>（是否允许访问者注册成为会员）</font></td>
<tr valign="middle" bgcolor="#F5F5F5">
<td height="21"><div align="right">新会员是否需要验证</div></td>
<td width="613" height="21" bgcolor="#F5F5F5"> <input name="IsCheck" type="radio" value="0" <%if RsConfig("IsCheck")=0 then response.Write("checked") %>>
否
<input type="radio" name="IsCheck" value="1" <%if RsConfig("IsCheck")=1 then response.Write("checked") %>>
是<font color=red>（如果需要验证则会员注册后是锁定状态，需要管理员审核）</font></td>
<tr valign="middle" bgcolor="#F5F5F5">
<td height="21"><div align="right">是否开放文集</div></td>
<td width="613" height="21" bgcolor="#F5F5F5"> <input name="IsCorpus" type="radio" value="0" <%if RsConfig("IsCorpus")=0 then response.Write("checked") %>>
否
<input type="radio" name="IsCorpus" value="1" <%if RsConfig("IsCorpus")=1 then response.Write("checked") %>>
是<font color=red>（是否允许会员使用文集功能）</font></td>
<tr valign="middle" bgcolor="#F5F5F5">
<td height="21"><div align="right">是否开放收藏夹</div></td>
<td width="613" height="21" bgcolor="#F5F5F5"> <input name="IsFavorite" type="radio" value="0" <%if RsConfig("IsFavorite")=0 then response.Write("checked") %>>
否
<input type="radio" name="IsFavorite" value="1" <%if RsConfig("IsFavorite")=1 then response.Write("checked") %>>
是<font color=red>（是否允许会员使用收藏夹功能）</font></td>
<tr valign="middle" bgcolor="#F5F5F5">
<td height="21"><div align="right">是否开放短信</div></td>
<td width="613" height="21" bgcolor="#F5F5F5"> <input name="IsMessage" type="radio" value="0" <%if RsConfig("IsMessage")=0 then response.Write("checked") %>>
否
<input type="radio" name="IsMessage" value="1" <%if RsConfig("IsMessage")=1 then response.Write("checked") %>>
是<font color=red>（是否允许会员使用站内短信功能）</font></td>
<tr valign="middle" bgcolor="#F5F5F5">
<td height="21"> <div align="right">是否发送电子邮件</div></td>
<td width="613" height="21" bgcolor="#F5F5F5"> <input name="IsEmail" type="radio" value="0" <%if RsConfig("IsEmail")=0 then response.Write("checked") %>>
否
<input type="radio" name="IsEmail" value="1" <%if RsConfig("IsEmail")=1 then response.Write("checked") %>>
是<font color=red>（设置会员注册后是否向会员邮箱发送邮件）</font></td>
<tr valign="middle" bgcolor="#F5F5F5">
<td height="21"> <div align="right">是否电子邮件认证</div></td>
<td width="613" height="21" bgcolor="#F5F5F5"> <input name="IsEmailCert" type="radio" value="0" <%if RsConfig("IsEmailCert")=0 then response.Write("checked") %>>
否
<input type="radio" name="IsEmailCert" value="1" <%if RsConfig("IsEmailCert")=1 then response.Write("checked") %>>
是<font color=red>（接收到邮件，确认认证码后用户才可用）</font></td>
<%if Fs_ConfigCache.FindNeedRecord("20")=1 then%> <tr valign="middle" bgcolor="#F5F5F5">
<td height="21"> <div align="right">允许会员换取积分</div></td>
<td width="613" height="21" bgcolor="#F5F5F5"> <input name="isChange" type="radio" value="0" <%if RsConfig("isChange")=0 then response.Write("checked") %>>
否
<input type="radio" name="isChange" value="1" <%if RsConfig("isChange")=1 then response.Write("checked") %>>
是<font color=red>（设置是否允许会员用登录积分换取购物积分）</font></td><%End if%>
<tr valign="middle" bgcolor="#F5F5F5">
<!--2006-4-27 ////------>
<td height="21"><div align="right">注册会员留言内容最大字符数</div></td>
<td height="21" bgcolor="#F5F5F5"> <input name="MaxContent" type="text" id="MaxContent" value="<%=RsConfig("MaxContent")%>" onblur="value=value.replace(/\D/g,'')">
<font color="#FF0000">（请填写正整数）</font> </td>
<!--=======////------>
<tr valign="middle" bgcolor="#F5F5F5">
<td height="21"><div align="right">注册必填项目</div></td>
<td width="613" height="21" bgcolor="#F5F5F5"><input type="text" name="RegOption" value="<%=RsConfig("RegOption")%>" size="50" readonly>
<select name="" id="" onchange="getRegOption(this);">
<option value="clear" style="color:#FF0000">清除</option>
<option value="昵称">昵称</option>
<option value="密码问题">密码问题</option>
<option value="问题答案">问题答案</option>
<option value="性别">性别</option>
<option value="电子邮件">电子邮件</option>
<option value="主页">主页</option>
<option value="QQ">QQ</option>
<option value="MSN">MSN</option>
<option value="电话">电话</option>
<option value="手机号码">手机号码</option>
<option value="传真">传真</option>
<option value="国家/地区">国家/地区</option>
<option value="省市/州郡">省市/州郡</option>
<option value="城市">城市</option>
<option value="联系地址">联系地址</option>
<option value="邮政编码">邮政编码</option>
<option value="真实姓名">真实姓名</option>
<option value="出生日期">出生日期</option>
<option value="职业">职业</option>
<option value="身份证号码">身份证号码</option>
<option value="公司/单位">公司/单位</option>
<option value="职务">职务</option>
<option value="婚姻状况">婚姻状况</option>
<option value="收入情况">收入情况</option>
<option value="用户头像">用户头像</option>
<option value="头像宽度">头像宽度</option>
<option value="头像高度">头像高度</option>
<option value="签名档">签名档</option>
<option value="隐私设定">隐私设定</option>
</select>
</td>
<tr valign="middle" bgcolor="#F5F5F5">
<td height="21"><div align="right">注册默认属于组</div></td>
<td width="613" height="21" bgcolor="#F5F5F5"><input type="text" name="UserGroup" value="<%=RsConfig("UserGroup")%>">
<select name="" id="" onchange="this.form.UserGroup.value=this.value;">
<option value=" " style="color:#FF0000">清除</option><!--2006-5-8//-->
<%=Fs_User.UserGroups("name",RsConfig("UserGroup"))%>
</select>
</td>
<tr valign="middle" bgcolor="#F5F5F5">
<td height="21">
<div align="right">禁止注册的用户名</div></td>
<td width="613" height="21" bgcolor="#F5F5F5"> <textarea name="BadName" cols="60" rows="3" id="UserConfer"><%=RsConfig("BadName")%></textarea>
<font color="#FF0000"> 名字间用英文输入法下逗号分隔</font></td>
<tr valign="middle" bgcolor="#F5F5F5">
<td height="21">
<div align="right">会员注册协议<font color="#FF0000"><br>
可以使用html语法</font></div></td>
<td width="613" height="21" bgcolor="#F5F5F5"> <textarea name="UserConfer" cols="60" rows="6" id="UserConfer"><%=RsConfig("UserConfer")%></textarea>
<font color="#FF0000"> </font></td>
<iframe width="260" height="165" id="colourPalette" src="selcolor.htm" style="visibility:hidden; position: absolute; left: 0px; top: 0px;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
</table>
</form>
</body>
</html>
<SCRIPT LANGUAGE="JavaScript">
<!--
function document.onreadystatechange()
{}
function getRegOption(obj)
{
if(obj.options[obj.selectedIndex].value=='clear') {obj.form.RegOption.value='用户名,密码';return;}
var tempStr = obj.form.RegOption.value;
if(tempStr.indexOf('用户名')==-1) tempStr = '用户名,'+tempStr;
if(tempStr.indexOf('密码')==-1) tempStr = '密码,'+tempStr;
if(tempStr.indexOf('用户名,密码')==-1) tempStr = '用户名,密码,'+tempStr;
if(tempStr.indexOf(obj.options[obj.selectedIndex].value)==-1)
{
var PassQandA = obj.options[obj.selectedIndex].value;
if (PassQandA=='密码问题' || PassQandA=='问题答案')
{
if(tempStr.indexOf('密码问题')==-1)tempStr += ','+'密码问题';
if(tempStr.indexOf('问题答案')==-1)tempStr += ','+'问题答案';
}
else if (PassQandA=='联系地址' || PassQandA=='邮政编码')
{
if(tempStr.indexOf('联系地址')==-1)tempStr += ','+'联系地址';
if(tempStr.indexOf('邮政编码')==-1)tempStr += ','+'邮政编码';
}
else
tempStr += ',' +PassQandA;
}
obj.form.RegOption.value = tempStr ;
}
//-->
</SCRIPT>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -