setup.asp

视频点播系统

                  <td width="150" height="25" align="right" bgcolor="#F7F7F7">用户每天最多发送短信：</td>
                  <td width="150" height="25" bgcolor="#F7F7F7"><input name="max_send" type="text" class="input1" id="max_send" value="<%=rs("max_send")%>" size="4">
                    条</td>
                  <td rowspan="3" align="center" bgcolor="#F7F7F7"><table width="220" border="0" cellspacing="0" cellpadding="5">
                      <tr>
                        <td bgcolor="#F7F7F7">限制用户每天最多允许发送至管理员的短信数量，设为0则关闭站内短信，设为空，则不限制发送数量。自动清理短信的天数设为0或为空时，系统不自动清理该属性的短信，只能填写数字。</td>
                      </tr>
                  </table></td>
                </tr>
                <tr>
                  <td rowspan="2" align="right" bgcolor="#F7F7F7">自动清理超过：</td>
                  <td height="25" align="left" bgcolor="#F7F7F7"><input name="del_readtrue" type="text" class="input1" id="del_readtrue" value="<%=rs("del_readtrue")%>" size="4">
                    天的已读短信</td>
                </tr>
                <tr>
                  <td height="25" align="left" bgcolor="#F7F7F7"><input name="del_readfalse" type="text" class="input1" id="del_readfalse" value="<%=rs("del_readfalse")%>" size="4">
                    天的未读短信</td>
                </tr>
            </table></td>
          </tr>
      </table></td>
    </tr>
</table>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top"><table width="550" border="0" cellpadding="0" cellspacing="1" bgcolor="#E7E7E7">
        <tr>
          <td bgcolor="#FFFFFF"><table width="550" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="150" height="60" align="right" bgcolor="#F7F7F7">允许用户报告影片错误：</td>
                <td width="150" bgcolor="#F7F7F7"><input type="radio" name="notify_err" value="true" <%if rs("notify_err")=true then%>checked<%end if%>>
                  允许　
                  <input type="radio" name="notify_err" value="false" <%if rs("notify_err")=false then%>checked<%end if%>>
                  不允许</td>
                <td align="center" bgcolor="#F7F7F7"><table width="220" border="0" cellspacing="0" cellpadding="5">
                    <tr>
                      <td bgcolor="#F7F7F7">当用户发现影片有错误时，是否允许用户报告错误</td>
                    </tr>
                </table></td>
              </tr>
          </table></td>
        </tr>
    </table></td>
  </tr>
</table>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td valign="top"><table width="550" border="0" cellpadding="0" cellspacing="1" bgcolor="#E7E7E7">
          <tr>
            <td bgcolor="#FFFFFF"><table width="550" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="150" height="60" align="right" bgcolor="#F7F7F7">每个用户最多收藏影片：</td>
                  <td width="150" bgcolor="#F7F7F7"><input name="max_favorite" type="text" class="input1" id="max_favorite" value="<%=rs("max_favorite")%>" size="4">
                    部</td>
                  <td align="center" bgcolor="#F7F7F7"><table width="220" border="0" cellspacing="0" cellpadding="5">
                      <tr>
                        <td bgcolor="#F7F7F7">限制每个用户最多允许收藏的影片数量，只能填写数字。设为0则关闭影片收藏功能，留空则不限制。</td>
                      </tr>
                  </table></td>
                </tr>
            </table></td>
          </tr>
      </table></td>
    </tr>
</table>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td valign="top"><table width="550" border="0" cellpadding="0" cellspacing="1" bgcolor="#E7E7E7">
          <tr>
            <td bgcolor="#FFFFFF"><table width="550" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="150" height="60" align="right" bgcolor="#F7F7F7">自动删除冗余图片文件：</td>
                  <td width="150" bgcolor="#F7F7F7"><input name="del_filmpic" type="radio" value="true" <% if rs("del_filmpic")=true then%>checked<%end if%>>
                    开启　
                      <input type="radio" name="del_filmpic" value="false" <% if rs("del_filmpic")<>true then%>checked<%end if%>>
                    关闭</td>
                  <td align="center" bgcolor="#F7F7F7"><table width="220" border="0" cellspacing="0" cellpadding="5">
                      <tr>
                        <td bgcolor="#F7F7F7">开启本功能后，在影片管理中删除影片时，系统将自动删除filmpic目录中相应的图片文件。</td>
                      </tr>
                  </table></td>
                </tr>
            </table></td>
          </tr>
      </table></td>
    </tr>
</table>
<table width="550" height="50" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center"><input name="Submit" type="submit" class="button1" value="保 存 修 改">
      <input name="now_ps1" type="hidden" id="now_ps1" value="<%=now_ps1%>">
      <input name="now_ps2" type="hidden" id="now_ps2" value="<%=now_ps2%>">
      <input name="now_pb" type="hidden" id="now_pb" value="<%=now_pb%>"></td>
  </tr>
</table>
<table width="550" height="50" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub
%>
<%
sub save_setup
if request.form("now_ps1")="" or request.form("now_ps2")="" or request.form("now_pb")="" then
response.write"<script>alert('关键参数值无法获取');history.back();</Script>"
response.end
end if
if myobj.ChkNum(request.form("now_ps1"))=false or myobj.ChkNum(request.form("now_ps2"))=false or myobj.ChkNum(request.form("now_pb"))=false then
response.write"<script>alert('关键参数值错误');history.back();</Script>"
response.end
end if

if request.Form("manage_username")="" or myobj.ChkLen(request.Form("manage_username"))<3 or myobj.ChkLen(request.Form("manage_username"))>12 or myobj.ChkID(request.Form("manage_username"))=false then
response.write"<script>alert('管理账号格式错误');history.back();</Script>"
response.end
end if
if request.Form("manage_password")<>"" then
	if request.Form("remanage_password")="" or request.Form("remanage_password")<>request.Form("manage_password") or myobj.ChkLen(request.Form("manage_password"))<6 or myobj.ChkLen(request.Form("manage_password"))>24 then
	response.write"<script>alert('管理密码格式错误或管理密码确认输入错误');history.back();</Script>"
	response.end
	end if
end if
if request.Form("website_name")="" or myobj.ChkLen(request.Form("website_name"))>50 then
response.write"<script>alert('网站名称格式错误');history.back();</Script>"
response.end
end if
if myobj.ChkNum(request.Form("max_ps1"))=false then
response.write"<script>alert('允许个人计点用户数量的格式错误');history.back();</Script>"
response.end
end if
if request.form("max_ps1")<>"" then
	if cint(request.form("max_ps1"))<cint(request.form("now_ps1")) then
	response.write"<script>alert('允许个人计点用户数量不能低于现有的用户数量');history.back();</Script>"
	response.end
	end if
end if
if myobj.ChkNum(request.Form("max_ps2"))=false then
response.write"<script>alert('允许个人包月用户数量的格式错误');history.back();</Script>"
response.end
end if
if request.form("max_ps2")<>"" then
	if cint(request.form("max_ps2"))<cint(request.form("now_ps2")) then
	response.write"<script>alert('允许个人包月用户数量不能低于现有的用户数量');history.back();</Script>"
	response.end
	end if
end if
if myobj.ChkNum(request.Form("max_pb"))=false then
response.write"<script>alert('允许注册网吧包月用户数量的格式错误');history.back();</Script>"
response.end
end if
if request.form("max_pb")<>"" then
	if cint(request.form("max_pb"))<cint(request.form("now_pb")) then
	response.write"<script>alert('允许网吧包月用户数量不能低于现有的用户数量');history.back();</Script>"
	response.end
	end if
end if

if request.form("pb_vip")="" then
	response.write"<script>alert('请选择是否允许网吧用户申请VIP用户');history.back();</Script>"
	response.end
end if
if myobj.chkbool(request.form("pb_vip"))=false then
	response.write"<script>alert('是否允许网吧用户申请VIP用户的值类型错误');history.back();</Script>"
	response.end
end if

if request.form("reg_point")<>"" then
	if myobj.ChkNum(request.form("reg_point"))=false then
	response.write"<script>alert('新注册账号赠送的点数只能填写整数');history.back();</Script>"
	response.end
	end if
end if
if request.form("reg_hr")<>"" then
	if myobj.ChkNum(request.form("reg_hr"))=false then
	response.write"<script>alert('新注册账号赠送的小时只能填写整数');history.back();</Script>"
	response.end
	end if
end if
if request.form("cmd_point")<>"" then
	if myobj.ChkNum(request.form("cmd_point"))=false then
	response.write"<script>alert('推荐注册人奖励点数只能填写整数');history.back();</Script>"
	response.end
	end if
end if
if request.form("cmd_hr")<>"" then
	if myobj.ChkNum(request.form("cmd_hr"))=false then
	response.write"<script>alert('推荐注册人奖励小时只能填写整数');history.back();</Script>"
	response.end
	end if
end if
if myobj.ChkNum(request.Form("max_send"))=false then
response.write"<script>alert('用户每天最多允许发送站内短信数量的格式错误');history.back();</Script>"
response.end
end if
if myobj.ChkNum(request.Form("del_readtrue"))=false then
response.write"<script>alert('自动清理已读短信的天数的格式错误');history.back();</Script>"
response.end
end if
if myobj.ChkNum(request.Form("del_readfalse"))=false then
response.write"<script>alert('自动清理未读短信的天数的格式错误');history.back();</Script>"
response.end
end if
if myobj.ChkNum(request.Form("max_favorite"))=false then
response.write"<script>alert('每个用户最多允许收藏影片的数量的格式错误');history.back();</Script>"
response.end
end if
if request.form("notify_err")="" then
	response.write"<script>alert('请选择是否允许用户报告影片错误');history.back();</Script>"
	response.end
end if
if myobj.chkbool(request.form("notify_err"))=false then
	response.write"<script>alert('允许用户报告影片错误的值类型错误');history.back();</Script>"
	response.end
end if
if request.Form("timeout")="" then
response.write"<script>alert('请填写用户登陆超时时间');history.back();</Script>"
response.end
end if
if myobj.ChkNum(request.Form("timeout"))=false then
response.write"<script>alert('用户登陆超时时间的格式错误');history.back();</Script>"
response.end
end if
if cint(request.form("timeout"))<60 then
response.write"<script>alert('用户登陆超时时间不能少于60分钟');history.back();</Script>"
response.end
end if

if myobj.chkbool(request.Form("del_filmpic"))=false then
response.write"<script>alert('自动删除冗余图片的值类型错误');history.back();</Script>"
response.end
end if

set rs=server.createobject("adodb.recordset")
rs.open "select * from setup where id=1",conn,1,3
rs("manage_username")=request.Form("manage_username")
if request.Form("manage_password")<>"" then
	rs("manage_password")=md5(request.Form("manage_password"))
end if
rs("website_name")=request.Form("website_name")
if request.Form("max_ps1")="" then
rs("max_ps1")=null
else
rs("max_ps1")=request.Form("max_ps1")
end if
if request.Form("max_ps2")="" then
rs("max_ps2")=null
else
rs("max_ps2")=request.Form("max_ps2")
end if
if request.Form("max_pb")="" then
rs("max_pb")=null
else
rs("max_pb")=request.Form("max_pb")
end if
rs("pb_vip")=request.form("pb_vip")
if request.form("reg_point")="" then
rs("reg_point")=null
else
rs("reg_point")=request.form("reg_point")
end if
if request.form("reg_hr")="" then
rs("reg_hr")=null
else
rs("reg_hr")=request.form("reg_hr")
end if
if request.form("cmd_point")="" then
rs("cmd_point")=null
else
rs("cmd_point")=request.form("cmd_point")
end if
if request.form("cmd_hr")="" then
rs("cmd_hr")=null
else
rs("cmd_hr")=request.form("cmd_hr")
end if
if request.Form("max_send")="" then
rs("max_send")=null
else
rs("max_send")=request.Form("max_send")
end if
if request.Form("del_readtrue")="" then
rs("del_readtrue")=null
else
rs("del_readtrue")=request.Form("del_readtrue")
end if
if request.Form("del_readfalse")="" then
rs("del_readfalse")=null
else
rs("del_readfalse")=request.Form("del_readfalse")
end if
if request.Form("max_favorite")="" then
rs("max_favorite")=null
else
rs("max_favorite")=request.Form("max_favorite")
end if
rs("notify_err")=request.form("notify_err")
rs("timeout")=request.form("timeout")
rs("del_filmpic")=cbool(request.Form("del_filmpic"))
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"<script>alert('系统设置保存成功');location.href = '"&filename&"';</Script>"
response.end
end sub
%>
</body>
</html>