<!--#include file="conn/hl_conn.asp" -->
<!--#include file="inc/hl_manage.inc" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>恒浪V4.0用户注册设置</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 13px;
}
-->
</style></head>

<body>

<%
Dim Action
Action=Replace(Trim(Request("Action")),"'","")
Select Case Action
  Case "RegSet"
  Call SaveRegSet()
 
  Case else
  Call Main()
End Select

Sub Main()
Set Rs=server.CreateObject("Adodb.recordset")
    Sql="Select * From hl_RegSet where id=1"
	Rs.open Sql,conn,1,3
%>
<table width="80%" border="1"  align="center" cellpadding="2" cellspacing="0" bordercolor="#A0D3FE" bgcolor="#EEF9FD" class="STYLE12" style="BORDER-COLLAPSE: collapse">
  <form id="Admin_RegSet" name="Admin_RegSet" method="post" action="Admin_RegSet.asp"><tr>
    <td width="11%" align="center">序号</td>
    <td width="36%" align="center">选项</td>
    <td width="53%" align="center">操作</td>
  </tr>
  <tr>
    <td align="center">1</td>
    <td>登录是否使用验证码</td>
    <td>
      <label>
        <input name="LoginCheckCode" type="radio" value=1 <%IF Rs("LoginCheckCode")=1 Then%>checked="checked"<%End IF%> />
        </label>
      是
      <input type="radio" name="LoginCheckCode" value=0 <%IF Rs("LoginCheckCode")=0 Then%>checked="checked"<%End IF%>/>
      否    </td>
  </tr>
  <tr>
    <td align="center">2</td>
    <td>注册是否使用验证码</td>
    <td><input name="RegCheckCode" type="radio" value=1 <%IF Rs("RegCheckCode")=1 Then%> checked="checked" <%End IF%>/>
      是
        <input type="radio" name="RegCheckCode" value=0 <%IF Rs("RegCheckCode")=0 Then%> checked="checked" <%End IF%>/>
      否</td>
  </tr>
  <tr>
    <td align="center">3</td>
    <td>是否关闭网站注册</td>
    <td><input name="RegClose" type="radio" value=1 <%IF Rs("RegClose")=1 Then%> checked="checked" <%End IF%>/>
      是
        <input name="RegClose" type="radio" value=0 <%IF Rs("RegClose")=0 Then%> checked="checked" <%End IF%>/>
      否</td>
  </tr>
  <tr>
    <td align="center">4</td>
    <td>注册页面跳转</td>
    <td><input type="radio" name="RegCome" value=1 onClick="RegUrl.style.display='none'" <%IF Rs("RegCome")=1 Then%> checked="checked" <%End IF%>/>
      会员中心
        <input type="radio" name="RegCome" value=2 onClick="RegUrl.style.display='none'" <%IF Rs("RegCome")=2 Then%> checked="checked" <%End IF%>/>
        主站
        <input name="RegCome" type="radio" onClick="RegUrl.style.display='none'" value=3 <%IF Rs("RegCome")=3 Then%> checked="checked" <%End IF%>/>
        系统默认(返回注册前页面)
        <input type="radio" name="RegCome" value=4 onClick="RegUrl.style.display=''" <%IF Rs("RegCome")=4 Then%> checked="checked" <%End IF%>/>
        自定义
		<div id="RegUrl" <%IF Rs("RegCome")=4 Then%>style="display='';"<%Else%> style="display:none;"<%End If%>>
		自定义URL：<input type="text" name="RegComeUrl" value="<%=Rs("RegComeUrl")%>" size="30"/>
		</div>		</td>
  </tr>
  <tr>
    <td align="center">&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td colspan="3" align="center"><label>
	<input type="hidden" name="Action" value="RegSet" />
      <input type="submit" name="Submit" value="提交" />
      <input type="button" name="Submit2" value="返回上一页" onclick="javascript:history.go(-1)"/>
    </label></td>
    </tr>
  </form>
</table>
<%End Sub

Sub SaveRegSet()
Set Rs=server.CreateObject("Adodb.recordset")
    Sql="Select * From hl_RegSet where id=1"
	Rs.open Sql,conn,1,3
	Rs("LoginCheckCode")=Request("LoginCheckCode")
	Rs("RegCheckCode")=Request("RegCheckCode")
	Rs("RegClose")=Request("RegClose")
	Rs("RegCome")=Request("RegCome")
	Rs("RegComeUrl")=Request("RegComeUrl")
	Rs.update
	Rs.close
	Set Rs=nothing
	Response.Redirect "Admin_RegSet.asp"
End Sub
%>
</body>
</html>
