<%
'乘风多用户计数器 Sql版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<SCRIPT>
function ashow_1(){
document.getElementById("a_1").style.display = "";
}
function ashow_2(){
document.getElementById("a_1").style.display = "none";
}

function bshow_1(){
document.getElementById("b_1").style.display = "";
document.getElementById("b_2").style.display = "";
}
function bshow_2(){
document.getElementById("b_1").style.display = "none";
document.getElementById("b_2").style.display = "none";
}


function dshow_1(){
document.getElementById("d_1").style.display = "none";
document.getElementById("d_2").style.display = "";
document.getElementById("d_3").style.display = "none";
}
function dshow_2(){
document.getElementById("d_1").style.display = "";
document.getElementById("d_2").style.display = "";
document.getElementById("d_3").style.display = "";
}



function SelectColorcmdt(what,backit){
			var dEL = document.all(what);
			var sEL = document.all(backit);
			var url = "images/selcolor.htm?color="+encodeURIComponent(dEL.value);
			var arr = showModalDialog(url,window,"dialogWidth:280px;dialogHeight:250px;help:no;scroll:no;status:no");
			if (arr) {
				dEL.value=arr;
				sEL.style.backgroundColor=arr;
				dEL.style.backgroundColor=arr;
			}
}

    function getMousePostion()
    {
        var obj = document.getElementById('postionX');
        if(obj != null)
        {
            obj.value = event.offsetX;
            
        }
        
        obj = document.getElementById('postionY');
        if(obj != null)
        {
            obj.value = event.offsetY-5;
        }
    }

</SCRIPT>

  <%

 If RsSet("UserAddSub")=-1 Then
  show="ashow_1();"
 Else
  show="ashow_2();"
 End If

 If RsSet("UserUseDayState")=-1 Then
  show=show&"bshow_1();"
 ElseIf RsSet("UserUseDayState")=0 Then
  show=show&"bshow_2();"
 End If

 If RsSet("emailsendtype")=1 Then
  show=show&"dshow_1();"
 ElseIf RsSet("emailsendtype")=2 Then
  show=show&"dshow_2();"
 End If
 
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_Admin"
Rs.Open Sql,Conn,1,1%>


  
  <form name="form2" method="post" action="AdminUser.aspx?action=sysmodifysave">
<table class="tb_1"><tr class="tr_1"> 
      <td colspan="2">系统设置</td>
    </tr>
    <tr>
      <td>系统随机安全字符：</td>
      <td><input name="SysCode" type="text" id="SysCode" value="<%=Rs("SysCode")%>" size="30">(填写任意8位以上大小写字母，数字或下划线字符)<br />
	  <a href="javascript:" onclick="document.getElementById('SysCode').value=Math.random().toString().replace('0.','');">点击这里取随机值</a>
	  <%If Rs("SysCode")="12345678" Then Response.write "<font color='#ff0000'>(系统随机安全字符为简单的""12345678""字符，建议你更改成复杂字符！)</font>"%></td>
    </tr>
    <tr> 
      <td>统计系统名称：</td>
      <td><input name="SysTitle" type="text" id="SysTitle" value="<%=Rs("SysTitle")%>" size="30"></td>
    </tr>
    <tr> 
      <td>统计简称：</td>
      <td><input name="TjTextName" type="text" id="mc" value="<%=Rs("TjTextName")%>" size="30">
	  (8个字以内)</td>
    </tr>
    <tr> 
      <td>自定义网店统计上系统文字：</td>
      <td><input name="ImgSelfSysText" type="text" id="mc" value="<%=Rs("ImgSelfSysText")%>" size="30">
	  <br />(默认为: "统计：{sysdomain}",其中{sysdomain}为系统使用的域名标签，此设置项可留空)</td>
    </tr>
	<tr>
	  <td>自定义网店统计系统文字出现在哪类用户上：</td>
	  <td>
<input type="radio" name="ImgSelfSysTextUserType" value="1"<%If Rs("ImgSelfSysTextUserType")=1 Then Response.write " checked"%>>
所有用户都出现
<input type="radio" name="ImgSelfSysTextUserType" value="2"<%If Rs("ImgSelfSysTextUserType")=2 Then Response.write " checked"%>>
所有用户都不出现
<input type="radio" name="ImgSelfSysTextUserType" value="3"<%If Rs("ImgSelfSysTextUserType")=3 Then Response.write " checked"%>>
仅免费用户出现，付费用户不出现

(默认:仅免费用户出现)</td>
    </tr>
	
	    <tr> 
      <td>自定义网店统计上系统文字颜色：</td>
      <td>
		
<input name="ImgSelfSysTextColor" type=text id="ImgSelfSysTextColor" value="<%=rs("ImgSelfSysTextColor")%>" size=7  >
<img border=0 src="images/rect.gif" width=18 style="cursor:hand;background-color:<%=rs("ImgSelfSysTextColor")%>;" id=As_ImgSelfSysTextColor onclick="SelectColorcmdt('ImgSelfSysTextColor','As_ImgSelfSysTextColor')">(格式如：#000000)</td>
    </tr>
	
	
	    <tr>
	      <td>网店统计在哪里能打开：</td>
	      <td>
<input type="radio" name="ImgOpenType" value="1"<%If Rs("ImgOpenType")=1 Then Response.write " checked"%>>
所有地方都可以打开
<input type="radio" name="ImgOpenType" value="2"<%If Rs("ImgOpenType")=2 Then Response.write " checked"%>>
直接不能打开但投放在所有网页里都可以打开
(默认：都可以打开）
</td>
    </tr>
	

	
    <tr> 
      <td>统计非关键表最大保留记录数：</td>
      <td><input name="StoreRsTotal" type="text" id="StoreRsTotal" value="<%=Rs("StoreRsTotal")%>" size="30">
        (默认：30000，越小速度越快，但保留的记录越少)</td>
    </tr>

    <tr class="tr_1"> 
      <td colspan="2">自动清理和自动备份数据库</td>
    </tr>

    <tr> 
      <td>自动清理设置最大保留外数据的方式：</td>
      <td><input name="DataDelType" type="text" id="DataDelType" value="<%=Rs("DataDelType")%>" size="30">
<br />
(
默认为-1，注：-1为自动，每天在设置是时分秒时间清理，0为禁止自动清理，正数为间隔最后时间多少分钟清理
<%If Rs("DataDelType")>0 And Rs("DataDelType")<1440 Then Response.write "<br><font color='#FF0000'>设置的间隔时间不要过短，建议在1440分钟或以上"%>
)</td>
    </tr>


    <tr> 
      <td>自动清理设置最大保留外数据最后的执行时间：</td>
      <td><input name="DataDelLastTime" type="text" id="DataDelLastTime" value="<%=Rs("DataDelLastTime")%>" size="30">
        <br />(<a href="javascript:" onclick="document.getElementById('DataDelLastTime').value='<%=year(now)&"-"&month(now)&"-"&day(now)&" 3:00:00"%>';">设置</a>，最好设置在在流量小的时段，比如凌晨3点整)		</td>
    </tr>

    <tr> 
      <td>自动清理日志的方式：</td>
      <td><input name="DbLogDelType" type="text" id="DbLogDelType" value="<%=Rs("DbLogDelType")%>" size="30">
<br />
(
默认为-1，注：-1为自动，每天在设置是时分秒时间清理，0为禁止自动清理，正数为间隔最后时间多少分钟清理
<%If Rs("DbLogDelType")>0 And Rs("DbLogDelType")<1440 Then Response.write "<br><font color='#FF0000'>设置的间隔时间不要过短，建议在1440分钟或以上"%>
)</td>
    </tr>
	
	<tr> 
      <td>自动清理日志最后的执行时间：</td>
      <td><input name="DbLogDelLastTime" type="text" id="DbLogDelLastTime" value="<%=Rs("DbLogDelLastTime")%>" size="30">
<br />
(<a href="javascript:" onclick="document.getElementById('DbLogDelLastTime').value='<%=year(now)&"-"&month(now)&"-"&day(now)&" 3:05:00"%>';">设置</a>，最好设置在在流量小的时段，比如凌晨3点05分)		</td>
    </tr>

    <tr> 
      <td>自动备份数据库的方式：</td>
      <td><input name="DbBackupType" type="text" id="DbBackupType" value="<%=Rs("DbBackupType")%>" size="30">
<br />
(
默认为-3，注：负数为自动备份,负数的数字代表保留最近几天的备份,最大10天，0为禁止自动备份，正数为间隔最后时间多少分钟备份
<%If Rs("DbBackupType")>0 And Rs("DbBackupType")<1440 Then Response.write "<br><font color='#FF0000'>设置的间隔时间不要过短，建议在1440分钟或以上"%>
)</td>
    </tr>
	
	<tr> 
      <td>自动备份最后的执行时间：</td>
      <td><input name="DbBackupLastTime" type="text" id="DbBackupLastTime" value="<%=Rs("DbBackupLastTime")%>" size="30">
<br />(<a href="javascript:" onclick="document.getElementById('DbBackupLastTime').value='<%=year(now)&"-"&month(now)&"-"&day(now)&" 3:10:00"%>';">设置</a>，最好设置在在流量小的时段，比如凌晨3点10分)</td>
    </tr>
	
	<tr class="tr_1"> 
      <td colspan="2">用户区</td>
    </tr>
    <tr> 
      <td>是否允许用户注册：</td>
      <td><input type="radio" name="RegState" value="-1"<%If Rs("RegState")=-1 Then Response.write " checked"%>>
        是 
        <input type="radio" name="RegState" value="0"<%If Rs("RegState")=0 Then Response.write " checked"%>>
        否 (默认：是)</td>
    </tr>
    <tr> 
      <td>注册后需要管理员审核：</td>
      <td><input type="radio" name="RegAdminCheck" value="-1"<%If Rs("RegAdminCheck")=-1 Then Response.write " checked"%>>
        是 
        <input type="radio" name="RegAdminCheck" value="0"<%If Rs("RegAdminCheck")=0 Then Response.write " checked"%>>
        否 (默认：否)</td>
    </tr>
    <tr> 
      <td>普通用户是否有权限开通子账号权限：</td>
      <td><input type="radio" name="UserAddSub" value="-1"<%If Rs("UserAddSub")=-1 Then Response.write " checked"%> onclick="ashow_1()">
        有 
        <input type="radio" name="UserAddSub" value="0"<%If Rs("UserAddSub")=0 Then Response.write " checked"%> onclick="ashow_2()">
        没有 (默认：有)</td>
    </tr>
    <tr id="a_1"> 
      <td>普通用户最多可以开通多少个子账号：</td>
      <td><input name="UserAddSubNum" type="text" value="<%=Rs("UserAddSubNum")%>" size="30">
        个　(默认：10个)</td>
    </tr>
    <tr> 
      <td>普通用户是否有使用期限限制：</td>
      <td><input type="radio" name="UserUseDayState" value="-1"<%If Rs("UserUseDayState")=-1 Then Response.write " checked"%> onclick="bshow_1()">
        有 
        <input type="radio" name="UserUseDayState" value="0"<%If Rs("UserUseDayState")=0 Then Response.write " checked"%> onclick="bshow_2()">
        没有 (默认：没有)</td>
    </tr>
    <tr id="b_1"> 
      <td>普通用户注册后可以使用多久：</td>
      <td><input name="UserUseDay" type="text" value="<%=Rs("UserUseDay")%>" size="30">
        天　(默认：365天)</td>
    </tr>
    <tr id="b_2"> 
      <td>普通用户每次可以手工延期多少天：</td>
      <td><input name="UserDelayDay" type="text" value="<%=Rs("UserDelayDay")%>" size="30">
        天　(默认：7天，如果为0则禁止手工延期的功能)</td>
    </tr>
    <tr> 
      <td>普通用户注册后是否可以上传自己的图片：</td>
      <td><input type="radio" name="UserUpload" value="-1"<%If Rs("UserUpload")=-1 Then Response.write " checked"%>>
        能 
        <input type="radio" name="UserUpload" value="0"<%If Rs("UserUpload")=0 Then Response.write " checked"%>>
        不能 (默认：能)</td>
    </tr>
    <tr> 
      <td>普通用户注册后是否可以修改网店统计上的自定义文字：</td>
      <td><input type="radio" name="SelfTextState" value="-1"<%If Rs("SelfTextState")=-1 Then Response.write " checked"%>>
        能 
        <input type="radio" name="SelfTextState" value="0"<%If Rs("SelfTextState")=0 Then Response.write " checked"%>>
        不能 (默认：能)</td>
    </tr>
	<tr> 
      <td>VIP用户默认可以开通多少个子账号：</td>
      <td><input name="VipUserAddSubNum" type="text" value="<%=Rs("VipUserAddSubNum")%>" size="30">
        个　(默认：20个)</td>
    </tr>
	<tr> 
      <td>VIP用户每天的价格：</td>
      <td><input name="VipDot" type="text" value="<%=GetTurnCent(Rs("VipDot"))%>" size="30">
        元/天　(默认：0.1，精确到小点到五位)</td>
    </tr>
	<tr class="tr_1"> 
      <td colspan="2">统计开关</td>
    </tr>
    <tr> 
      <td>是否记录来源页面,IP信息：</td>
      <td><input type="radio" name="LyTj" value="-1" <%If Rs("LyTj")=-1 Then%>checked<%End If%>>
        是 　　 
        <input name="LyTj" type="radio" value="0" <%If Rs("LyTj")=0 Then%>checked<%End If%>>
        否</td>
    </tr>
    <tr> 
      <td>是否记录在线人数：</td>
      <td><input type="radio" name="OnlineTj" value="-1" <%if rs("OnlineTj")=-1 then%>checked<%end if%>>
        是 　　 
        <input name="OnlineTj" type="radio" value="0" <%if rs("OnlineTj")=0 then%>checked<%end if%>>
        否</td>
    </tr>
    <tr> 
      <td>是否记录网站页面浏览次数：</td>
      <td><input type="radio" name="WebTj" value="-1" <%if rs("WebTj")=-1 then%>checked<%end if%>>
        是 　　 
        <input name="WebTj" type="radio" value="0" <%if rs("WebTj")=0 then%>checked<%end if%>>
        否</td>
    </tr>
    <tr> 
      <td>是否开启地区统计：</td>
      <td><input type="radio" name="AreaTj" value="-1" <%if rs("AreaTj")=-1 then%>checked<%end if%>>
        是 　　 
        <input name="AreaTj" type="radio" value="0" <%if rs("AreaTj")=0 then%>checked<%end if%>>
        否</td>
    </tr>
    <tr> 
      <td>是否开启IP头统计：</td>
      <td><input type="radio" name="IpHeadTj" value="-1" <%if rs("IpHeadTj")=-1 then%>checked<%end if%>>
        是 　　 
        <input name="IpHeadTj" type="radio" value="0" <%if rs("IpHeadTj")=0 then%>checked<%end if%>>
        否</td>
    </tr>
    <tr> 
      <td>是否开启搜索关键字统计：</td>
      <td><input type="radio" name="SearchKeywordTj" value="-1" <%if rs("SearchKeywordTj")=-1 then%>checked<%end if%>>
        是 　　 
        <input name="SearchKeywordTj" type="radio" value="0" <%if rs("SearchKeywordTj")=0 then%>checked<%end if%>>
        否</td>
    </tr>
	<tr class="tr_1"> 
      <td colspan="2">网店统计图片缓存时间</td>
    </tr>
    <tr> 
      <td>JPG图片缓存时间：</td>
      <td><input name="JpgShowSpaceTime" type="text" id="stylenum" value="<%=rs("JpgShowSpaceTime")%>" size="30">
        分钟(默认为0，不缓存即时显示统计数据)</td>
    </tr>
    <tr> 
      <td>GIF图片缓存时间：</td>
      <td><input name="GifShowSpaceTime" type="text" id="stylenum" value="<%=rs("GifShowSpaceTime")%>" size="30">
        分钟(默认为0，不缓存即时显示统计数据)</td>
    </tr>
	<tr class="tr_1"> 
      <td colspan="2">其它</td>
    </tr>
    <tr> 
      <td>统计图片样式数量：</td>
      <td> <input name="StyleTotal" type="text" id="stylenum" value="<%=rs("StyleTotal")%>" size="30">
        个</td>
    </tr>

    <tr> 
      <td>显示IP地址的IP地域：</td>
      <td class="td_1"><input type="radio" name="IpArea" value="-1"<%if rs("IpArea")=-1 then Response.write " checked"%>>
        是 
        <input type="radio" name="IpArea" value="0"<%if rs("IpArea")=0 then Response.write " checked"%>>
        否</td>
    </tr>
    <tr> 
      <td>排行榜是否开启：</td>
      <td><input type="radio" name="TopList" value="-1"<%if rs("TopList")=-1 then%> checked<%end if%>>
        是 
        <input type="radio" name="TopList" value="0"<%if rs("TopList")=0 then%> checked<%end if%>>
        否</td>
    </tr>
    <tr class="tr_1"> 
      <td colspan="2">皮肤颜色</td>
    </tr>
	<tr>
      <td>系统皮肤：</td>
      <td><input type="radio" name="skintype" value="1"<%if rs("skintype")=1 then Response.write " checked"%> onclick="document.getElementById('skincolor').value='#025DA6|#BFDEF8|#333333|#02418a|#FF0000';">
        蓝色样式 
        <input type="radio" name="skintype" value="2"<%if rs("skintype")=2 then Response.write " checked"%>  onclick="document.getElementById('skincolor').value='#6DC818|#BFF190|#339900|#336600|#FF0000';">
        绿色样式
        <input type="radio" name="skintype" value="3" <%if rs("skintype")=3 then Response.write " checked"%>  onclick="document.getElementById('skincolor').value='#E82626|#FAD8D8|#FF3333|#FF0033|#000000';">
        红色样式
        <input type="radio" name="skintype" value="4"<%if rs("skintype")=4 then Response.write " checked"%>  onclick="document.getElementById('skincolor').value='#7A7A7A|#CDC7C7|#4D4D4D|#333333|#FF0000';">
        黑白样式
        <input type="radio" name="skintype" value="5"<%if rs("skintype")=5 then Response.write " checked"%>  onclick="document.getElementById('skincolor').value='#FF8100|#F9C48E|#CA6B0A|#333333|#FF0000';">
        桔黄样式
		        <input type="radio" name="skintype" value="6"<%if rs("skintype")=6 then Response.write " checked"%>  onclick="document.getElementById('skincolor').value='#C00068|#C870A0|#8E2D62|#333333|#FF0000';">
        暗粉样式</td>
    </tr>
    <tr id="a_1"> 
      <td>自定义皮肤颜色：</td>
      <td><input name="skincolor" type="text" id="skincolor" value="<%=rs("SkinColor")%>" size="70">
        <br />0表格边框颜色|1表格行的标题背景颜色|2字体颜色|3链接颜色|4点过的链接颜色</td>
    </tr>
    <tr class="tr_1"> 
      <td colspan="2">邮件服务器</td>
    </tr>
	<tr> 
      <td>发送邮件组件：</td>
      <td><input type="radio" name="emailsendtype" value="1"<%if rs("emailsendtype")=1 then%> checked<%end if%> onclick="dshow_1()">
        CDONTS组件 
        <%
on error resume next
set TestObj=server.CreateObject ("CDONTS.NewMail")
If -2147221005 <> Err then
 Response.write "(空间支持)"
Else
  Response.write "(空间不支持)"
End If
%> <input type="radio" name="emailsendtype" value="2"<%if rs("emailsendtype")=2 then%> checked<%end if%> onclick="dshow_2()">
        JMAIL组件 
        <%
on error resume next
set TestObj=server.CreateObject ("JMail.SmtpMail")
If -2147221005 <> Err then
 Response.write "(空间支持JMail组件)"
Else
  Response.write "(空间不支持JMail组件)"
End If
%></td>
    </tr>
    <tr id="d_1"> 
      <td>服务器地址：</td>
      <td><input name="SmtpAddress" type="text" value="<%=rs("SmtpAddress")%>" size="30">
        (如stmp.a.com)</td>
    </tr>
    <tr id="d_2"> 
      <td>发送邮件帐号名称：</td>
      <td><input name="SmtpUser" type="text" value="<%=rs("SmtpUser")%>" size="30">
        (如a@a.com)</td>
    </tr>
    <tr id="d_3"> 
      <td>发送邮件帐号的密码：</td>
      <td><input name="SmtpPassword" type="password" value="<%=rs("SmtpPassword")%>" size="30"> 
        <br>
        如：你有一个邮件b@a.com，密码为c，发信服务器地址设置为：<br>
        smtp.a.com发送邮件帐号名称设置为b@a.com，发送邮件帐号的密<br>
        码设置为c，其它邮件类似</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>  <td>  
          <input type="submit" name="Submit32" value="修改">
          　　 
          <input type="reset" name="Submit5232" value="取消">
      </td>
    </tr>
</table></form>


  <form name="form2" method="post" action="AdminUser.aspx?Action=emailtest"> 
<table class="tb_1"><tr class="tr_1">
    <td colspan="2">邮件发送测试</td>
  </tr>
  <tr> 
      <td colspan="2">上面设置好的话可以在下面输入你的接受邮件地址测试是否能接收到邮件</td>
    </tr>
    <tr>
      <td colspan="2">你的邮件：
        <input type="text" name="Email">
        <input type="submit" name="submit2" value="测试"></td>
    </tr>
</table></form>

<table class="tb_1">
<tr class="tr_1">
  <td>Asp.net探针</td>
</tr>
<tr> 
    <td>注意：<br>
      程序必须在支持Asp.net的空间上运行，请打开下面的Asp.net探针测试你的空间是否支持Asp.net<br>必须保证探针运行后能显示正常信息程序才能正常使用</td>
  </tr>
  <tr> 
    <td><a href="AspxCheck.aspx" target="_blank">点击打开探针测试</a></td>
  </tr>
</table>
