?? admin_peizhi.asp
字號:
?<%@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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -