📄 admin_set_user.asp
字号:
<!--#include file = admin_chk.asp -->
<%
If Not ChkAdmin("UserSetting") Then
Call ArtErr("","")
End If
%>
<!--#include file = Include/NIncHeads.asp -->
<%
action=trim(request("action"))
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
</head>
<%
Call Heads_Site()
'sqlchecke="select user from admin"
'set rsche=server.CreateObject("adodb.recordset")
'rsche.open sqlchecke,conn,1,1
'if not rsche.eof then
'do while not rsche.eof
' admin_user="|"&rsche("user")
'admin_user1=admin_user1&admin_user
'rsche.movenext
'loop
'rsche.close
'end if
Set Rs=server.CreateObject("adodb.recordset")
Dim Rs,UserSetting,lrySH
Rs.OPen "Select UserSetting,lrySH from Config",Conn,1,3
IF action = "Save" Then
dim i,SysSetting
For I=0 To 9
SysSetting=SysSetting& Replace(request.Form("UserSetting" & I &""),"^@$@^","") & "^@$@^"
Next
UserSetting=Split(SysSetting,"^@$@^")
IF Ubound(Split(SysSetting,"^@$@^"))<>10 then
Call ArtErr("<li>数据获取错误.请不要外部提交!</li>","1")
End If
Rs("UserSetting")=SysSetting
rs("lrySH")=request.Form("lrySH")
Rs.Update
Rs.Close
Set Rs = Nothing
Call ArtErr("<li>您已修改成功网站基本设置！</li>","2")
Else
UserSetting=Split(Rs("UserSetting"),"^@$@^")
lrySH= rs("lrySH")
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<form method="POST" action="?action=Save" >
<tr>
<td align="center" class="bg_tr" height="25" colspan="2"><b>会员信息设置</b></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>录入员审核</u></b><br>
<span class="redtext">分类管理员的文章是否需要管理员审核</span></td>
<td height="25"><input <% IF lrySH = "0" Then Response.Write "Checked" %> type="radio" id="lrySH1" name="lrySH" value="0"><label for="lrySH1"><font color="green">打开审核 </font></label>
<input <% IF lrySH = "1" Then Response.Write "Checked" %> id="lrySH2" type="radio" name="lrySH" value="1"><label for="lrySH2"><font color="red">关闭审核 </font></label></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=29% align=left><b><u>会员系统状态：</u></b><br>
<span >会员系统状态,不需要时可以关闭</span></td>
<td width="71%" height="25"><input <% IF UserSetting(0) = "0" Then Response.Write "Checked" %> type="radio" id="Userclose1" name="UserSetting0" value="0"><label for="Userclose1"><font color="green">正常 </font></label>
<input <% IF UserSetting(0) = "1" Then Response.Write "Checked" %> id="Userclose2" type="radio" name="UserSetting0" value="1"><label for="Userclose2"><font color="red">关闭 </font></label></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>会员注册</u></b><br>
<span class="redtext">是否开通会员注册功能</span></td>
<td height="25"><input <% IF UserSetting(1) = "0" Then Response.Write "Checked" %> type="radio" id="UserReg1" name="UserSetting1" value="0"><label for="UserReg1"><font color="green">正常 </font></label>
<input <% IF UserSetting(1) = "1" Then Response.Write "Checked" %> id="UserReg2" type="radio" name="UserSetting1" value="1"><label for="UserReg2"><font color="red">关闭 </font></label></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=29% align=left><b><u>会员注册时是否启用验证码功能：</u></b><br>
<span >会员注册时是否启用验证码功能,不需要时可以关闭</span></td>
<td height="25"><input <% IF UserSetting(2) = "0" Then Response.Write "Checked" %> type="radio" id="RegCode1" name="UserSetting2" value="0"><label for="RegCode1">是 </label>
<input <% IF UserSetting(2) = "1" Then Response.Write "Checked" %> id="RegCode2" type="radio" name="UserSetting2" value="1"><label for="RegCode2">否 </label></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=29% align=left><b><u>会员注册时是否需要填写详细资料：</u></b><br>
<span >若选择是，则会员注册时需要填写诸如真实姓名、地址、电话等。</span></td>
<td height="25"><input <% IF UserSetting(7) = "0" Then Response.Write "Checked" %> type="radio" id="Details1" name="UserSetting7" value="0"><label for="Details1">是 </label>
<input <% IF UserSetting(7) = "1" Then Response.Write "Checked" %> id="Details2" type="radio" name="UserSetting7" value="1"><label for="Details2">否 </label></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=29% align=left><b><u>一个IP只能注册一个会员：</u></b><br>
<span >若选择是，那么一个IP地址只能注册一次</span></td>
<td height="25"><input <% IF UserSetting(8) = "0" Then Response.Write "Checked" %> type="radio" id="CheckIP1" name="UserSetting8" value="0"><label for="CheckIP1">是 </label>
<input <% IF UserSetting(8) = "1" Then Response.Write "Checked" %> id="CheckIP2" type="radio" name="UserSetting8" value="1"><label for="CheckIP2">否 </label></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=29% align=left><b><u>每个Email是否允许注册多次：</u></b><br>
<span >若选择是，则利用同一个Email可以注册多个会员。</span></td>
<td height="25"><input <% IF UserSetting(9) = "0" Then Response.Write "Checked" %> type="radio" id="ChkEmail1" name="UserSetting9" value="0"><label for="ChkEmail1">是 </label>
<input <% IF UserSetting(9) = "1" Then Response.Write "Checked" %> id="ChkEmail2" type="radio" name="UserSetting9" value="1"><label for="ChkEmail2">否 </label></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=29% align=left><b><u>禁止注册的用户名：</u></b><br>
<span >用户名将被禁止注册，每个用户名请用“|”符号分隔</span></td>
<td height="25"><textarea name="UserSetting4" cols="50" rows="3" ><%=UserSetting(4)%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=29% align=left><b><u>会员登录时是否启用验证码功能：</u></b><br>
<span >会员登录时是否启用验证码功能,不需要时可以关闭</span></td>
<td height="25"><input <%IF UserSetting(3) = "0" Then Response.Write "Checked" %> type="radio" id="LoginCode1" name="UserSetting3" value="0"><label for="LoginCode1">是 </label>
<input <% IF UserSetting(3) = "1" Then Response.Write "Checked" %> id="LoginCode2" type="radio" name="UserSetting3" value="1"><label for="LoginCode2">否 </label></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=29% align=left><b><u>会员登录奖励积分设置：</u></b><br>
<span >会员每登录一次奖励积分，<span class="red">（为0时不加）</span></span></td>
<td height="25">登录奖励
<input name="UserSetting5" type="text" size="5" value=<%=UserSetting(5)%>> 分积分 </td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=29% align=left><b><u>会员的经验积分与资金的兑换比率：</u></b></td>
<td height="25"><input name="UserSetting6" type="text" size="5" value=<%=UserSetting(6)%>>点积分可兑换 <font color=red>1</font> 元资金</td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tableBorder">
<input type="submit" value=" 提 交 " name="B3"> <input type="reset" value=" 重 置 " name="B4"></td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
End if
%>
<%
Call AdminPageEnd()
call CloseConn() %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -