📄 aa_const.asp

📁 强大的后台管理功能,给用户自由制定页面,新闻、产品多级分类。管理员后台站点关闭,后台管理员仍然可以登陆。页面是否允许使用右键和复制功能。自定义IE状态栏、版权等显示信息。开通会员注册和产品
💻 ASP
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
		          "<TD HEIGHT=30 CLASS=Table8>帖子内容限制字数：</TD>"&_
		          "<TD CLASS=Table8><INPUT NAME=Bbs_6 TYPE=text VALUE='" & Web_Const(82) & "' id=Bbs_6 size=10 onkeypress='event.returnValue=IsDigit();'></TD>"&_
		          "</TR>"&_
		          "<TR ALIGN=center>"&_
		          "<TD HEIGHT=35 colspan=2 CLASS=Table6>评论设置</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8><a NAME=7></A>在线评论：</TD>"&_
		          "<TD CLASS=Table8><INPUT CLASS='radio_all' TYPE=radio NAME=Cret_0 VALUE='1'"
		          IF Web_Const(86)=1 THEN
strIfa = strIfa & " checked "
		          End IF
strIfa = strIfa & "> 打开　<INPUT TYPE=radio CLASS='radio_all' NAME=Cret_0 VALUE='0'"
		 IF Web_Const(86)=0 THEN
strIfa = strIfa & " checked "
		          End IF
strIfa = strIfa & ">关闭</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>是否允许发表评论：</TD>"&_
		          "<TD CLASS=Table8><INPUT CLASS='radio_all' TYPE=radio NAME=Cret_1 VALUE='1'"
		          IF Web_Const(87)=1 THEN
strIfa = strIfa & " checked "
		          End IF
strIfa = strIfa & "> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Cret_1 VALUE='0'"
		 IF Web_Const(87)=0 THEN
strIfa = strIfa & " checked "
		          End IF
strIfa = strIfa & ">禁止</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>评论是否需要审核：</TD>"&_
		          "<TD CLASS=Table8><INPUT CLASS='radio_all' TYPE=radio NAME=Cret_2 VALUE='0'"
		          IF Web_Const(88)=0 THEN
strIfa = strIfa & " checked "
		          End IF
strIfa = strIfa & "> 需要　<INPUT TYPE=radio CLASS='radio_all' NAME=Cret_2 VALUE='1'"
		 IF Web_Const(88)=1 THEN
strIfa = strIfa & " checked "
		          End IF
strIfa = strIfa & ">不需要　　在用户组管理中可单独设置每个用户组</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>评论过滤：</TD>"&_
		          "<TD CLASS=Table8><INPUT NAME=Cret_3 TYPE=text VALUE='" & Web_Const(89) & "' id=Cret_3 size=35>　　禁止评论中含有这些字符，可输入多项，用“,”隔开</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>评论限制字数：</TD>"&_
		          "<TD CLASS=Table8><INPUT NAME=Cret_4 TYPE=text VALUE='" & Web_Const(90) & "' id=Cret_4 size=15 onkeypress='event.returnValue=IsDigit();'></TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=90 CLASS=Table8>限制IP评论：</TD>"&_
		          "<TD CLASS=Table8><TEXTAREA NAME=Cret_5 cols=44 rows=5 id=Cret_5>" & Web_Cret5 & "</TEXTAREA>　禁止这些IP地址发表评论，每个IP地址之间换行</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>评论是否支持HTML：</TD>"&_
		          "<TD CLASS=Table8><INPUT CLASS='radio_all' TYPE=radio NAME=Cret_6 VALUE='1'"
		          IF Web_Const(92)=1 THEN
strIfa = strIfa & " checked "
		          End IF
strIfa = strIfa & "> 支持　<INPUT TYPE=radio CLASS='radio_all' NAME=Cret_6 VALUE='0'"
		 IF Web_Const(92)=0 THEN
strIfa = strIfa & " checked "
		          End IF
strIfa = strIfa & ">禁止</TD>"&_
		          "</TR>"&_
		          "<TR ALIGN=center>"&_
		          "<TD HEIGHT=35 colspan=2 CLASS=Table6><a NAME=8></A>统计设置</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>统计系统：</TD>"&_
		          "<TD CLASS=Table8><INPUT CLASS='radio_all' TYPE=radio NAME=Count_0 VALUE='1'"
		          IF Web_Const(56)=1 THEN
strIfa = strIfa & " checked "
		          End IF
strIfa = strIfa & "> 打开　<INPUT TYPE=radio CLASS='radio_all' NAME=Count_0 VALUE='0'"
		 IF Web_Const(56)=0 THEN
strIfa = strIfa & " checked "
		          End IF
strIfa = strIfa & ">关闭</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>开始统计时间：</TD>"&_
		          "<TD CLASS=Table8><INPUT NAME=Count_3 TYPE=text VALUE='" & Web_Const(59) & "' id=Count_3 size=35>　　格式为：年-月-日 时:分:秒</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>相同IP重复统计时间：</TD>"&_
		          "<TD CLASS=Table8><INPUT NAME=Count_1 TYPE=text VALUE='" & Web_Const(57) & "' id=Count_1 size=10 onkeypress='event.returnValue=IsDigit();'>　　单位为小时，建议设置为24小时</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>在线人数有效时间：</TD>"&_
		          "<TD CLASS=Table8><INPUT NAME=Count_4 TYPE=text VALUE='" & Web_Const(60) & "' id=Count_4 size=10 onkeypress='event.returnValue=IsDigit();'>　　单位为分钟，建议设置为15分钟</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>来访者信息统计数：</TD>"&_
		          "<TD CLASS=Table8><INPUT NAME=Count_2 TYPE=text VALUE='" & Web_Const(58) & "' id=Count_2 size=10 onkeypress='event.returnValue=IsDigit();'>　　太多会加重数据库的负担，建议限制在50000条以内</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>所有IP：</TD>"&_
		          "<TD CLASS=Table8><INPUT NAME=Count_Ip TYPE=text VALUE='" & Web_Const(93) & "' id=Count_Ip size=10 onkeypress='event.returnValue=IsDigit();'>　　开始统计之日起，所有IP点击数</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>所有PV：</TD>"&_
		          "<TD CLASS=Table8><INPUT NAME=Count_All TYPE=text VALUE='" & Web_Const(94) & "' id=Count_All size=10 onkeypress='event.returnValue=IsDigit();'>　　开始统计之日起，页面刷新次数</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>今日IP：</TD>"&_
		          "<TD CLASS=Table8><INPUT NAME=Count_DayIp TYPE=text VALUE='" & Web_Const(95) & "' id=Count_DayIp size=10 onkeypress='event.returnValue=IsDigit();'>　　今天的IP点击数</TD>"&_
		          "</TR>"&_
		          "<TR>"&_
		          "<TD HEIGHT=30 CLASS=Table8>今日PV：</TD>"&_
		          "<TD CLASS=Table8><INPUT NAME=Count_DayAll TYPE=text VALUE='" & Web_Const(96) & "' id=Count_DayAll size=10 onkeypress='event.returnValue=IsDigit();'>　　今天的页面刷新次数</TD>"&_
		          "</TR>"&_
		          "<TR ALIGN=center>"&_
		          "<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT CLASS='submit_all' NAME=ok TYPE=submit id=ok VALUE=提交资料> "&_
		          "<INPUT NAME=cl TYPE=reset CLASS='submit_all' id=cl VALUE=重新输入></TD>"&_
		          "</TR>"&_
		          "</form>"&_
		          "</TABLE>"
Call Page_aTable(0,0)
Case "ConstEdit"
IF Request.form("Const_10")="" THEN
Errorst="请输入管理登陆有效时间！"
founderr=True
ElseIF not isnumeric(Request.form("Const_10")) THEN
Errorst="错语的参数（管理登陆有效时间请输入数字）！"
founderr=True
ElseIF int(Request.form("Const_10"))<5 THEN
Errorst="管理登陆有效时间不能小于5！"
founderr=True
ElseIF Request.form("Const_0")="" THEN
Errorst="请输入网站（单位）名称！"
founderr=True
ElseIF Request.form("Const_1")="" THEN
Errorst="请输入网站地址！"
founderr=True
ElseIF Request.form("Reg_4")="" THEN
Errorst="相同IP重复注册时间不能为空！"
founderr=True
ElseIF not isnumeric(Request.form("Reg_4")) THEN
Errorst="错语的参数（相同IP重复注册时间请输入数字）！"
founderr=True
ElseIF Request.form("Login_5")="" THEN
Errorst="每天允许取回密码的次数不能为空！"
founderr=True
ElseIF not isnumeric(Request.form("Login_5")) THEN
Errorst="错语的参数（每天允许取回密码的次数请输入数字）！"
founderr=True
ElseIF Request.form("Products_2")="" THEN
Errorst="购物车有效时间不能为空！"
founderr=True
ElseIF not isnumeric(Request.form("Products_2")) THEN
Errorst="错语的参数（购物车有效时间请输入数字）！"
founderr=True
ElseIF Request.form("Products_3")="" THEN
Errorst="订单有效期限不能为空！"
founderr=True
ElseIF not isnumeric(Request.form("Products_3")) THEN
Errorst="错语的参数（订单有效期限请输入数字）！"
founderr=True
ElseIF Request.form("Guest_1")="" THEN
Errorst="留言内容限制字数不能为空！"
founderr=True
ElseIF not isnumeric(Request.form("Guest_1")) THEN
Errorst="错语的参数（留言内容限制字数请输入数字）！"
founderr=True
ElseIF Request.form("Bbs_5")="" THEN
Errorst="发帖间隔时间不能为空！"
founderr=True
ElseIF not isnumeric(Request.form("Bbs_5")) THEN
Errorst="错语的参数（发帖间隔时间请输入数字）！"
founderr=True
ElseIF Request.form("Bbs_6")="" THEN
Errorst="帖子内容限制字数不能为空！"
founderr=True
ElseIF not isnumeric(Request.form("Bbs_6")) THEN
Errorst="错语的参数（帖子内容限制字数请输入数字）！"
founderr=True
ElseIF Request.form("Count_1")="" THEN
Errorst="相同IP重复统计时间不能为空！"
founderr=True
ElseIF not isnumeric(Request.form("Count_1")) THEN
Errorst="错语的参数（相同IP重复统计时间请输入数字）！"
founderr=True
ElseIF Request.form("Count_4")="" THEN
Errorst="在线人数有效时间不能为空！"
founderr=True
ElseIF not isnumeric(Request.form("Count_4")) THEN
Errorst="错语的参数（在线人数有效时间请输入数字）！"
founderr=True
ElseIF Request.form("Count_2")="" THEN
Errorst="来访信息记录数不能为空！"
founderr=True
ElseIF not isnumeric(Request.form("Count_2")) THEN
Errorst="错语的参数（来访信息记录数请输入数字）！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
        Web_Const8=nohtml(Request.form("Const_8"))
        Web_Guest3=Replace(Request.form("Guest_3"),CHR(10),",")
        Web_Bbs3=Replace(Request.form("Bbs_3"),CHR(10),",")
        Web_Cret5=Replace(Request.form("Cret_5"),CHR(10),",")
        Set Rs=server.Createobject("Adodb.Recordset")
            Sql="Select * From Tx_Const"
            Rs.open Sql,Conn,1,3
			    Rs("Web_Const")=Request.form("Const_0") & "||" & Request.form("Const_1") & "||" & Request.form("Const_2") & "||" & Request.form("Const_3") & "||" & Request.form("Const_4") & "||" & Request.form("Const_5") & "||" & Request.form("Const_6") & "||" & Request.form("Const_7") & "||" & Web_Const8 & "||" & Request.form("Const_9") & "||" & Request.form("Const_10") & "||" & Request.form("Const_11") & "||" & Request.form("Const_12") & "||" & Request.form("Const_13") & "||" & Request.form("Const_14") & "||" & Request.form("Const_15") & "||" & Request.form("Const_16") & "||" & Request.form("Const_17") & "||" & Web_Const(18)
			   
			    Rs("Web_Ltd")=Request.form("Ltd_0") & "||" & Request.form("Ltd_1") & "||" & Request.form("Ltd_2") & "||" & Request.form("Ltd_3") & "||" & Request.form("Ltd_4") & "||" & Request.form("Ltd_5") & "||" & Request.form("Ltd_6") & "||" & Web_Const(26)
				
			    Rs("Web_Guest")=Request.form("Guest_0") & "||" & Request.form("Guest_1") & "||" & Request.form("Guest_2") & "||" & Web_Guest3 & "||" & Request.form("Guest_4") & "||" & Request.form("Guest_5") & "||" & Request.form("Guest_6") & "||" & Request.form("Guest_7")
			    Rs("Web_Reg")=Request.form("Reg_0") & "||" & Request.form("Reg_1") & "||" & Request.form("Reg_2") & "||" & Request.form("Reg_3") & "||" & Request.form("Reg_4") & "||" & Request.form("Reg_5") & "||" & Request.form("Reg_6") & "||" & Request.form("Reg_7") & "||" & Request.form("Reg_8")
			    Rs("Web_Login")=Request.form("Login_0") & "||" & Request.form("Login_1") & "||" & Request.form("Login_2") & "||" & Request.form("Login_3") & "||" & Request.form("Login_4") & "||" & Request.form("Login_5")
			    Rs("Web_Products")=Request.form("Products_0") & "||" & Request.form("Products_1") & "||" & Request.form("Products_2") & "||" & Request.form("Products_3")
			    Rs("Web_Bbs")=Request.form("Bbs_0") & "||" & Request.form("Bbs_1") & "||" & Request.form("Bbs_2") & "||" & Web_Bbs3 & "||" & Request.form("Bbs_4") & "||" & Request.form("Bbs_5") & "||" & Request.form("Bbs_6")
			    Rs("Web_Cret")=Request.form("Cret_0") & "||" & Request.form("Cret_1") & "||" & Request.form("Cret_2") & "||" & Request.form("Cret_3") & "||" & Request.form("Cret_4") & "||" & Web_Cret5 & "||" & Request.form("Cret_6")
			    Rs("Web_Count")=Request.form("Count_0") & "||" & Request.form("Count_1") & "||" & Request.form("Count_2") & "||" & Request.form("Count_3") & "||" & Request.form("Count_4")
			Rs.UpDate
		Rs.Close
		Set Rs=Nothing
		ToHistory=VisitorsForm
    	saveok="修改成功！"
    	Call Form_Saveok()
    End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -