admin_peizhi.asp

WEB后台:/Admin_Login.asp WAP后台:/Admin_WapLogin.asp 用户名：admin 密码:admin 在conn.asp文件修改数据库

            <td colspan="5">
            <input name="wenming" type="hidden" value="<%=WapWenming%>" >
            <input name="WapWenming" type="text" value="<%=WapWenming%>" size="5" maxlength="20"> 文件名称，扩展名为.asp，如“a.asp”&nbsp;&nbsp;
           <input name="WapUserNamezhi" type="text" value="<%=WapUserNamezhi%>" size="2" maxlength="10">&nbsp;变量(如a.asp?a=**中a) <font color="#CC0000">* 注意修改后旧回链地址无效</font></td>
                 </tr>  
             
                  <tr class="tr2"> 
            <td align="center">申请配置：</td>
            <td colspan="5">
            网站简称<input name="LimitsiteName" type="text" value="<%=LimitsiteName%>" size="2" maxlength="10">个字符
            网站名称<input name="LimitsiteTitle" type="text" value="<%=LimitsiteTitle%>" size="2" maxlength="10">个字符
            网站简介<input name="Limitsiteintro" type="text" value="<%=Limitsiteintro%>" size="2" maxlength="10">个字符
             <font color="#CC0000">* 一个汉字占两下字符</font>           </td>
                 </tr>       
                 
        <tr class="tr2"> 
          <td align="center">站点审核：</td>
            <td><input name="IsVerify" type="radio" value="1"<%if IsVerify=1 then Response.Write " checked"%>> 手动审核
             <input name="IsVerify" type="radio" value="0"<%if IsVerify=0 then Response.Write " checked"%>> 自动审核</td>
            <td colspan="1" align="center">出站方式：</td>
          <td colspan="3"><input name="WapChuzhan" type="radio" value="0"<%if WapChuzhan=0 then Response.Write " checked"%>>
            点击直接跳转
              <input name="WapChuzhan" type="radio" value="1"<%if WapChuzhan=1 then Response.Write " checked"%>> 
              点击进入介绍页跳转</td>
         </tr>
          

          

          
        <tr class="tr2"> 
            <td align="center">统计配置：</td>
            <td colspan="3"><input name="WapOnline" type="radio" value="0"<%if WapOnline=0 then Response.Write " checked"%>>
            不使用网站访问量统计
              <input name="WapOnline" type="radio" value="1"<%if WapOnline=1 then Response.Write " checked"%>> 要使用网站访问量统计</td>
              <td align="center">显示样式：</td>
            <td><select name="WapOnlineYangshi" size="1">
               <option value="0"<%if WapOnlineYangshi="0" then Response.Write " selected"%>>不显示</option>
               <option value="1"<%if WapOnlineYangshi="1" then Response.Write " selected"%>>浏览总量: 63 今日访问:1 </option>
               <option value="2"<%if WapOnlineYangshi="2" then Response.Write " selected"%>>今日访问:1 昨日访问:1</option>
               <option value="3"<%if WapOnlineYangshi="3" then Response.Write " selected"%>>总访问量:2 今日访问:1 </option>
               <option value="4"<%if WapOnlineYangshi="4" then Response.Write " selected"%>>最高日访问:1 发生日期:**</option>
              </select></td>
          </tr>
          
            <tr class="tr2"> 
            <td align="center">作弊配置：</td>
            <td><input name="WapGoto" type="radio" onClick="QSetLogoArea('none')" value="0"<%if WapGoto=0 then Response.Write " checked"%>>
            不使用
              <input name="WapGoto" type="radio" onClick="QSetLogoArea('')" value="1"<%if WapGoto=1 then Response.Write " checked"%>>              要使用</td>
              
                          <td align="center">转跳时间：</td>
                          <td colspan="3"><input name="WapInterval" type="text" value="<%=WapInterval%>" size="4" maxlength="10">
                          毫秒转跳 
           *默认为:20000,如果代理慢加大数值</td>
         </tr>
          

          
          <tr class="tr2" Style="display:none" ID="QLinkArea"> 
            <td align="center">作弊URL：</td>
            <td colspan="5">
            <%for i=0 to 8%>
            <%
			If i=1 Then
			   Goto1Url=WapGoto1Url
			ElseIf i=2 Then
			   Goto1Url=WapGoto2Url
			ElseIf i=3 Then
			   Goto1Url=WapGoto3Url
			ElseIf i=4 Then
			   Goto1Url=WapGoto4Url
			ElseIf i=5 Then
			   Goto1Url=WapGoto5Url
			ElseIf i=6 Then
			   Goto1Url=WapGoto6Url
			ElseIf i=7 Then
			   Goto1Url=WapGoto7Url
			ElseIf i=8 Then
			   Goto1Url=WapGoto8Url
			ElseIf i=9 Then
			   Goto1Url=WapGoto9Url
			End If	
			%>
            
            排名作弊_<%=i+1%>  <input name="WapGoto<%=i+1%>Url" type="text" value="<%=Goto1Url%>" size="80" maxlength="255"><br/>
            <%Next%>
            Wap在线浏览器地址如
            http://win.uucun.com/frame.jsp?url=http://wapcr.cn/<br/>
            就写入http://win.uucun.com/frame.jsp?url=就可以用Wap在线浏览器进行刷站!</td>
         </tr>
          
          
          
          <tr class="tr2"> 
            <td align="center">程序整合：</td>
            <td colspan="5"><input name="WapZhenghe" type="radio" onClick="SetLogoArea('none')" value="0"<%if WapZhenghe=0 then Response.Write " checked"%>>
            不需要整合
              <input name="WapZhenghe" type="radio" onClick="SetLogoArea('')" value="1"<%if WapZhenghe=1 then Response.Write " checked"%>> 需要整合其他首页             </td>
          </tr>
          
          <tr class="tr2" Style="display:none" ID="LinkArea"> 
            <td align="center">显示排序：</td>
            <td>
            <select name="WapPaixu" size="1">
            <option value="GuLian"<%if WapPaixu="GuLian" then Response.Write " selected"%>>推荐站点</option>
              <option value="indate"<%if WapPaixu="indate" then Response.Write " selected"%>>最新点入</option>
              <option value="inp"<%if WapPaixu="inp" then Response.Write " selected"%>>平均点入</option>
              <option value="inc"<%if WapPaixu="inc" then Response.Write " selected"%>>总计点入</option>
              <option value="inj"<%if WapPaixu="inj" then Response.Write " selected"%>>今天点入</option>
              <option value="inru"<%if WapPaixu="inru" then Response.Write " selected"%>>昨天点入</option>
            </select> </td>
            <td align="center">显示个站：</td>
            <td>一行显示<input name="LineNum" type="text" value="<%=LineNum%>" size="2" maxlength="20"> 个站点</td>
            <td align="center">显示行数：</td>
            <td>最多显示 <input name="MaxLine" type="text" value="<%=MaxLine%>" size="2" maxlength="20">行</td>
          </tr>
          
         
           <tr class="tr2"> 
            <td align="center">域名配置：</td>
           <td colspan="5">
           <input name="IsDomainLimit" type="radio" value="1"<%if IsDomainLimit=1 then Response.Write " checked"%>>&nbsp;&nbsp;同一域名限制只能注册一次
            <input name="IsDomainLimit" type="radio" value="0"<%if IsDomainLimit=0 then Response.Write " checked"%>>&nbsp;&nbsp;同一域名不限制只能注册            </td>
          </tr>



          <tr class="tr2"> 
            <td align="center">过滤名称：</td>
            <td colspan="5"> <textarea name="FilterWord" cols="80" rows="4"><%=FilterWord%></textarea>
              <br>* 定义要过滤的网站名称，用"|"隔开，空为不限制。</td>
          </tr>
          <tr class="tr2"> 
            <td align="center">屏蔽域名：</td>
            <td colspan="5"> <textarea name="FilterDomain" cols="80" rows="4"><%=FilterDomain%></textarea>
              <br>* 定义要屏蔽的域名，用"|"隔开，空为不限制。</td>
          </tr>
          <tr class="tr2"> 
            <td align="center">IP域名：</td>
            <td colspan="5"> <textarea name="FilterLimit" cols="80" rows="4"><%=FilterLimit%></textarea>
              <br>* 定义要屏蔽的IP，用"|"隔开，空为不限制。</td>
          </tr>
          <tr class="tr2"> 
            <td align="center">屏蔽模拟器：</td>
            <td colspan="5"> <textarea name="FilterBrowsers" cols="80" rows="4"><%=FilterBrowsers%></textarea>
              <br>* 定义要屏蔽的模拟器UA，用"|"隔开，空为不限制。</td>
          </tr>
          
          <tr class="tr2"> 
            <td align="center">运行模式：</td>
            <td colspan="5">
             <input name="IsDeBug" type="radio" value="1"<%if IsDeBug=1 then Response.Write " checked"%>>输出错误信息，方便调试。
             <input name="IsDeBug" type="radio" value="0"<%if IsDeBug=0 then Response.Write " checked"%>>不输出错误信息。            </td>
          </tr>
     
          <tr class="tr2"> 
            <td align="center">程序整合：</td>
            <td colspan="5"><input name="IsSqlDataBase" type="radio" onClick="MSetLogoArea('')" value="0"<%if IsSqlDataBase=0 then Response.Write " checked"%>>
          MS ACCESS数据库
              <input name="IsSqlDataBase" type="radio" onClick="MSetLogoArea('none')" value="1"<%if IsSqlDataBase=1 then Response.Write " checked"%>> MS SQL2000数据库(请认真修改好"Conn.asp"文件数据库选项)             </td>
          </tr>
          
          <tr class="tr2" Style="display:none" ID="MLinkArea"> 
            <td align="center">数据库名：</td>
            <td colspan="5">
            <input name="Mdb" type="hidden" value="<%=WapLinkMdb%>" >
            <input name="WapLinkMdb" type="text" value="<%=WapLinkMdb%>" size="30" maxlength="30">
            * 改成asp,asa,config扩展名等，如kesion!@#!!.asa 以防止数据库被下载。</td>
          </tr>
          



        <tr class="tr2">
            <td colspan="6" align="center" class="td"> <input type="submit" value=" 确 定 " name="yes"> 
              <input name="reset" type="reset"  
value=" 重 写 "> </td>
          </tr>
        </table>
  </form>
</div>
<!--#include file="under.asp"-->
<%set Wap=nothing%>
</body>
</html>