⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_peizhi.asp

📁 WEB后台:/Admin_Login.asp WAP后台:/Admin_WapLogin.asp 用户名：admin 密码:admin 在conn.asp文件修改数据库
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->

<%
If Session(SiteSN&"_Admin_Login")<>AdminName&"_"&AdminPass Then
   Response.redirect "Admin_Login.asp"
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" 
    "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>修改网站配置_<%=WebName & ChannelName%></title>
<link href="style.css" rel="stylesheet" type="text/css">
<Script Language="javascript">
<!--
function SetLogoArea(Value)
{   document.all.LinkArea.style.display=Value;}

function QSetLogoArea(Value)
{   document.all.QLinkArea.style.display=Value;}

function MSetLogoArea(Value)
{   document.all.MLinkArea.style.display=Value;}
//-->

</Script>
</head>
<body>
<div class="main_title1">
<a href="admin_manage.asp">管理首页</a> | <a href="admin_manage.asp?action=ListSite">管理网站信息</a> | <a href="admin_manage.asp?action=ShowLog">查看点击记录</a> | <a href="admin_type.asp">管理网站分类</a> | <a href="admin_manage.asp?action=BatchDelform">批量删除数据</a> | <a href="admin_login.asp?action=exit">退出管理</a>
</div><div class="mainbar">
<form action="Admin_Save.asp" method="POST">
       <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000">
                     
          <tr class="tr2"> 
          <td align="center">站点状态：</td>
            <td><select name="WapWhuangtai" size="1">
              <option value="1"<%if WapWhuangtai="1" then Response.Write " selected"%>>正常开放</option>
              <option value="2"<%if WapWhuangtai="2" then Response.Write " selected"%>>手机开放</option>
              <option value="3"<%if WapWhuangtai="3" then Response.Write " selected"%>>关闭维护</option>
            </select></td>
          <td align="center">首页风格：</td>
            <td colspan="3"><select name="WapFengge" size="1">
               <option value="1"<%if WapFengge="1" then Response.Write " selected"%>>1.最新点入+网站固链+网站分类</option>
               <option value="2"<%if WapFengge="2" then Response.Write " selected"%>>2.最新点入+网站固链+网站分类</option>
               <option value="3"<%if WapFengge="3" then Response.Write " selected"%>>3.网站分类(动态)+网站固链</option>
               <option value="4"<%if WapFengge="4" then Response.Write " selected"%>>4.最新点入+酷站推荐(分类)+更多分类</option>
               <option value="5"<%if WapFengge="5" then Response.Write " selected"%>>5.最新点入+网站分类(固链)</option>
              </select> </td>
         </tr>

                     


          
          
          <tr class="tr2"> 
            <td align="center">网站名称：</td>
            <td><input name="WapName" type="text" value="<%=WapName%>" size="20" maxlength="12"></td>
            <td align="center">频道名称：</td>
            <td><input name="ChannelName" type="text" value="<%=ChannelName%>" size="20" maxlength="30"></td>
                        <td align="center">频道简称：</td>
            <td><input name="JianchengName" type="text" value="<%=JianchengName%>" size="20" maxlength="30"></td>
         </tr>
<%
	'**************************************************
	'函数名：GetAutoDoMain()
	'作  用：取得当前服务器IP 如：http://127.0.0.1
	'参  数：无
	'**************************************************
	Function GetAutoDomain()
		Dim TempPath
		If Request.ServerVariables("SERVER_PORT") = "80" Then
			GetAutoDomain = Request.ServerVariables("SERVER_NAME")
		Else
			GetAutoDomain = Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT")
		End If
		 If Instr(UCASE(GetAutoDomain),"/W3SVC")<>0 Then
			   GetAutoDomain=Left(GetAutoDomain,Instr(GetAutoDomain,"/W3SVC"))
		 End If
		 GetAutoDomain = "http://" & GetAutoDomain
	End Function
%>
 
          <tr class="tr2"> 
            <td align="center">网站地址：</td>
            <td colspan="5"><input name="WapUrl" type="text" value="<%=GetAutoDomain%>" size="30" maxlength="255">
            * (请使用http://标识),后面不要带"/"符号</td>
         </tr>
         
         <%
			InstallDir=Trim(request.ServerVariables("SCRIPT_NAME"))
			InstallDir= Replace(LCase(InstallDir),LCase("admin_peizhi.asp"),"")
		 %>
          <tr class="tr2"> 
            <td align="center">安装目录：</td>
            <td colspan="5"> <input name="WapMulu" type="text" value="<%=InstallDir%>" size="15" maxlength="20">
            * (系统安装的虚拟目录),前和后带"/"符号(如:/wap/)</td>
          </tr>

          <tr class="tr2"> 
            <td align="center">网站说明：</td>
            <td colspan="5"><input name="WapAlt" type="text" value="<%=WapAlt%>" size="80" maxlength="255"></td>
         </tr>
         
                   <tr class="tr2"> 
            <td align="center">网站Logo：</td>
            <td colspan="5"><input name="WapLogoUrl" type="text" value="<%=WapLogoUrl%>" size="30" maxlength="255">
            * 不能超过100个字符</td>
         </tr>
         
         
          <tr class="tr2"> 
            <td align="center">用户名称：</td>
            <td><input name="AdminName" type="text" value="<%=AdminName%>" size="20" maxlength="30"></td>
            <td align="center">管理密码：</td>
            <td><input name="AdminPass" type="text" value="<%=AdminPass%>" size="20" maxlength="50"></td>
            <td align="center">邮箱地址：</td>
            <td><input name="WapEmail" type="text" value="<%=WapEmail%>" size="20" maxlength="100"></td>
         </tr>
         
         <tr class="tr2"> 
            <td align="center">授权号码：</td>
            <td colspan="5"><input name="Wapsn" type="text" value="<%=Wapsn%>" size="50" maxlength="500">*官方授权的唯一系列号</td>
         </tr>
         
      
          <tr class="tr2"> 
            <td align="center">显示要求：</td>
            <td colspan="5"><input name="inpc" type="text" value="<%=inpc%>" size="8" maxlength="20"> 
            * 平均每天点入多少次以上的网站才显示链接</td>
         </tr>
          
          
             
          

           <tr class="tr2"> 
            <td align="center">计数配置：</td>
           <td colspan="5"><input name="HitsTime" type="text" value="<%=HitsTime%>" size="8" maxlength="20">     
             * 同一IP隔多少时间后点击才继续计数，单位分钟</td>
         </tr>
       
                      <tr class="tr2"> 
            <td align="center">删除配置：</td>
            <td colspan="5">
           自动删除<input name="WapFromDelete" type="text" value="<%=WapFromDelete%>" size="4" maxlength="4">
           天前的点击记录(“0“为手动删除) </td>
                 </tr>  
                 
                 <tr class="tr2"> 
            <td align="center">站点限制：</td>
            <td colspan="5">
            <input name="WapInpc" type="radio" value="1"<%if WapInpc=1 then Response.Write " checked"%>>
           不用点入将动态排行第一
            <input name="WapInpc" type="radio" value="0"<%if WapInpc=0 then Response.Write " checked"%>>
             点入后并达到"显示要求"将动态排行第一</td>
                 </tr>   
          

                 
     <tr class="tr2"> 
            <td align="center">点出配置：</td>
            <td colspan="5">
            <input name="PeizhiDianchu" type="radio" value="1"<%if PeizhiDianchu=1 then Response.Write " checked"%>>
           需要用户使用手机点出加入统计
            <input name="PeizhiDianchu" type="radio" value="0"<%if PeizhiDianchu=0 then Response.Write " checked"%>>
             任何用户点出加入统计</td>
                 </tr>  
       
            <tr class="tr2"> 
            <td align="center">点入配置：</td>
            <td colspan="5">
           <input name="WapJinru" type="text" value="<%=WapJinru%>" size="50" maxlength="500">
           *手机进入转跳地址(请使用http://开头)</td>
            </tr>  
             
            <tr class="tr2"> 
            <td align="center">点入配置：</td>
            <td colspan="5">
           <input name="PeizhiDianru" type="text" value="<%=PeizhiDianru%>" size="50" maxlength="500">
           *非手机进入转跳地址(请使用http://开头)</td>
            </tr>  
            
             <tr class="tr2"> 
            <td align="center">点入配置：</td>
12

⌨️ 快捷键说明

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