setup.asp

在线点播系统

response.end
end if
if myobj.ChkNum(request.Form("max_online"))=false 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("max_pc_count")<>"" then
	if myobj.ChkNum(request.form("max_pc_count"))=false then
		response.write"<script>alert('允许网吧用户注册客户机(并发上限)的数量只能填写整数');history.back();</Script>"
		response.end
	end if
	if cint(request.form("max_pc_count"))<1 then
		response.write"<script>alert('允许网吧用户注册客户机(并发上限)的数量不能少于1台');history.back();</Script>"
		response.end
	end if
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 request.Form("play_timeout")="" then
response.write"<script>alert('请填写用户播放进程超时时间');history.back();</Script>"
response.end
end if
if myobj.ChkNum(request.Form("play_timeout"))=false then
response.write"<script>alert('用户播放进程超时时间的格式错误');history.back();</Script>"
response.end
end if
if cint(request.form("play_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_online")="" then
rs("max_online")=null
else
rs("max_online")=request.Form("max_online")
end if
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("max_pc_count")<>"" then
rs("max_pc_count")=request.form("max_pc_count")
else
rs("max_pc_count")=null
end if
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("play_timeout")=request.form("play_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>