📄 top3.asp
字号:
<!--#include file="ConnUser.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="char.inc"-->
<LINK href=news.css rel=stylesheet>
<script src="count/mystat.asp?siteid=1"></script>
<script language=javascript>
function CheckFormUserLogin()
{
if(document.UserLogin.name.value=="")
{
alert("请输入用户名！");
document.UserLogin.name.focus();
return false;
}
if(document.UserLogin.password.value == "")
{
alert("请输入密码！");
document.UserLogin.password.focus();
return false;
}
if(document.UserLogin.verifycode.value == "")
{
alert("请输入验证码！");
document.UserLogin.verifycode.focus();
return false;
}
}
</script>
<SCRIPT language="JavaScript" type="text/javascript">
// Begin morelink
function morelink(morelink)
{
url = 'MoreLink.asp?linktype=1';
window.open(url,morelink);
}
// End morelink-->
// Begin linkreg
function linkreg(linkreg)
{
url = 'LinkReg.asp';
window.open(url,linkreg);
}
// End linkreg-->
// Begin vote
function vote(vote)
{
url = 'Vote.asp?stype=view';
window.open(url,vote);
}
// End vote-->
// Begin vote
function vote1(vote1)
{
url = 'Vote1.asp?stype=view';
window.open(url,vote1);
}
// End vote-->
// Begin adduser
function adduser(adduser)
{
url = 'AddUser.asp';
window.open(url,adduser);
}
// End adduser-->
// Begin getpwd
function getpwd(getpwd)
{
url = 'GetPwd.asp';
window.open(url,getpwd);
}
// End getpwd-->
</script>
<script>
<!--
function FullScreenOpen(targeturl){
newwin=window.open("","","scrollbars")
if (document.all){
newwin.moveTo(0,0)
newwin.resizeTo(screen.width,screen.height)
}
newwin.location=targeturl
}
//-->
</script>
<SCRIPT LANGUAGE=javascript>
<!--
function gook() {
f1.pwhidden.value = encode(f1.pwshow.value, parseInt(f1.picnum.value));
f1.submit();
}
function encode(datastr, bassnum) {
var tempstr;
var tchar;
var newdata = "";
for (var i = 0; i < datastr.length; i++)
{
tchar = 65535 + bassnum - datastr.charCodeAt(i);
tchar = tchar.toString();
while(tchar.length < 5)
{
tchar = "0" + tchar;
}
newdata = newdata + tchar;
}
return newdata;
}
//-->
</SCRIPT>
<%if TransShow="on" then%>
<META content=revealTrans(Transition=23,Duration=1.0) http-equiv=Page-Enter>
<META content=revealTrans(Transition=23,Duration=1.0) http-equiv=Page-Exit>
<SCRIPT language=JavaScript>
<!--
//页面随机切换效果
function transDemo(n) {
if (document.all && navigator.userAgent.indexOf("Mac")==-1) {
t=document.all.transmeta;
t.style.width=document.body.clientWidth;
t.style.height=document.body.offsetHeight;
t.style.top=document.body.scrollTop;
t.style.backgroundColor="#003333";
t.style.visibility="visible";
t.filters[0].transition=n;
setTimeout("transShow()"); // separated to force screen paint
} else {
alert("You can view transitions only on Windows IE 4.0 and later.");
}
}
function transShow() {
t.filters[0].Apply();
t.style.visibility="hidden";
t.filters[0].Play();
}
//-->
</SCRIPT>
<%end if%>
<% '获取当前 URL
dim ViewUrl
if Request.ServerVariables("QUERY_STRING")<>"" then
ViewUrl=Request.ServerVariables("url") &"?"& Request.ServerVariables("QUERY_STRING")&""
else
ViewUrl=Request.ServerVariables("url") &""
end if
response.cookies(Forcast_SN)("ViewUrl")=ViewUrl%>
<style type="text/css">
<!--
.STYLE1 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
<div id=menuDiv style='Z-INDEX: 2; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #9cc5f8'></div>
<%if topbg=1 then %>
<script src="clearevents.js"></script>
<noscript><iframe src=*></iframe></noscript>
<%end if%>
<%if R_BG=1 then %>
<SCRIPT language=JavaScript src="Float.asp"></SCRIPT>
<%end if%>
<div align="center">
<%if showclub=1 then%>
<table width="1002" height="26" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td width="300" height="26" align="left" bgcolor="CC0000"> <a href="index.asp" target="_self"><img src="IMAGES/index.gif" alt="返回首页" border="0" /></a></td>
<td width="573" height="26" align="center" bgcolor="CC0000">
<table width="573" height="26" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%if ShowWebLogin="1" then%>
<!------登录开始------------------->
<%if Request.cookies(Forcast_SN)("name")="" then%>
<%
Function getcode1()
Dim test
On Error Resume Next
Set test=Server.CreateObject("Adodb.Stream")
Set test=Nothing
If Err Then
Dim zNum
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("verifycode") = zNum
getcode1= Session("verifycode")
Else
getcode1= "<img src=""getcode.asp"">"
End If
End Function
%>
<form method="POST" action="ChkLogin.asp" name="UserLogin" onSubmit="return CheckFormUserLogin();">
<td align="center" ><span align="right" valign="middle" style="font-size: 9pt;color: #000000">
<img src="IMAGES/yhm.gif" width="40" height="12" align="absmiddle" />
<input name="name" size="8" font face="宋体" style="font-size:9pt" class="TOPKUANG">
<img src="IMAGES/MM.gif" width="28" height="12" align="absmiddle" />
<input type="password" name="password" size="8" font face="宋体" style="font-size:9pt" class="TOPKUANG">
<span class="STYLE1">验证码</span><strong><font color=white>:</font></strong>
<input type="text" name="verifycode" size="8" font face="宋体" style="font-size:9pt" class="TOPKUANG">
<font color=white><b><span><%=getcode1()%></span></b></font>
<input type="submit" name="Submit" value="登录" style="font-size: 9pt; color: #ffffff; background-color: #990000; solid #f4f2ee" onMouseOver ="this.style.backgroundColor='#FC0303'" onMouseOut ="this.style.backgroundColor='#990000'" title="登录系统">
<%if reg=1 then%>
<input type="button" name="Submit2" value="注册" style="font-size: 9pt; color: #ffffff; background-color: #990000; solid #f4f2ee" onMouseOver ="this.style.backgroundColor='#FC0303'" onMouseOut ="this.style.backgroundColor='#990000'" onClick="javascript:adduser()" title="注册新成员">
<%end if%>
<input type="button" name="Submit2" value="忘密" style="font-size: 9pt; color: #ffffff; background-color: #990000; solid #f4f2ee" onMouseOver ="this.style.backgroundColor='#FC0303'" onMouseOut ="this.style.backgroundColor='#990000'" onClick="javascript:getpwd()" title="忘记密码了？"> </td>
</form>
<%else%>
<td align="left" valign="middle" style="font-size: 9pt;color: #FFFFFF" >
欢迎：<b><%=Request.cookies(Forcast_SN)("name")%></b>
<%if db_Birthday_Select="FeiTium" then '性别字段是原字段%>
<%=Request.cookies(Forcast_SN)("sex")%>
<%else
if db_Birthday_Select="Text" then '性别字段是BBS的文本型阿拉伯数字
if Request.cookies(Forcast_SN)("sex")=1 then%>
男
<%else
if Request.cookies(Forcast_SN)("sex")=0 then%>
女
<%else%>
保密
<%end if
end if
end if
end if%>
您的权限：<%if Request.cookies(Forcast_SN)("KEY")="super" and Request.cookies(Forcast_SN)("purview")="99999" then%><font color="#FFCC00">超级管理员</font><%end if%>
<%if Request.cookies(Forcast_SN)("KEY")="super" and Request.cookies(Forcast_SN)("purview")<>"99999" then%><font color="#FFCC00">系统管理员</font><%end if%>
<%if Request.cookies(Forcast_SN)("KEY")="check" then%><font color="#FFCC00">文章审核员</font><%end if%>
<%if Request.cookies(Forcast_SN)("KEY")="selfreg" then%><font color="#FFCC00">注册用户</font><%end if%>
<%if Request.cookies(Forcast_SN)("KEY")="smallmaster" then%><font color="#FFCC00">小类管理员</font><%end if%>
<%if Request.cookies(Forcast_SN)("KEY")="bigmaster" then%><font color="#FFCC00">大类管理员</font><%end if%>
<%if Request.cookies(Forcast_SN)("KEY")="typemaster" then%><font color="#FFCC00">总栏管理员</font><%end if%>
您的等级：<%if Request.cookies(Forcast_SN)("KEY")<>"selfreg" then%><font color="#FFCC00">内部成员</font><%end if%>
<%if Request.cookies(Forcast_SN)("KEY")="selfreg" and Request.cookies(Forcast_SN)("reglevel")="1" then%><font color="red">普通</font><%end if%>
<%if Request.cookies(Forcast_SN)("KEY")="selfreg" and Request.cookies(Forcast_SN)("reglevel")="2" then%><font color="red">高级</font><%end if%>
<%if Request.cookies(Forcast_SN)("KEY")="selfreg" and Request.cookies(Forcast_SN)("reglevel")="3" then%><font color="red">特级</font><%end if%>
<a href="Admin_login.asp" class=my>[发文]</a> <a href="Exit.asp" class=my>[退出]</a> <a href="bloguser.asp?user=<%=Request.cookies(Forcast_SN)("name")%>" class=my>[日志]</a></td>
<%end if%>
<!--------登录结束------------------>
<%end if%>
</tr>
</table></td>
<td width="29" height="26" align="left" bgcolor="CC0000"> </td>
<td width="336" height="26" align="center" bgcolor="#cc0000" >
<table width="308" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="26" align="center"><a href="#"><img src="Images/WmCms_04.gif" width="66" height="26" border="0"></a></td>
<td height="26" align="center"><a href="#"><img src="Images/WmCms_06.gif" width="69" height="26" border="0"></a></td>
<td height="26" align="center"><a href="#"><img src="Images/WmCms_08.gif" width="68" height="26" border="0"></a></td>
<td height="26" align="center"><a href="#"><img src="Images/WmCms_10.gif" width="72" height="26" border="0"></a></td>
</tr>
</table></td>
</tr>
</table>
<%end if%>
<!----banner开始------------------->
<table width="1002" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" style="border-left: 0px solid #f0e0ca; border-top: 1px solid #d7d9db; border-bottom: 1px solid #ffffff; border-right: 0px solid #f0e0ca " >
<TR>
<TD width="1002" >
<div align="center">
<a href="<%=bannerurl%>">
<%if gd2="1" then%>
<img src="<%=banner%>" width="1002" height="165" border="0" align="absmiddle">
<%else%>
<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="1002" height="165" align="absmiddle">
<param name=movie value='<%=banner%>'>
<param name=quality value=High>
<param name="_cx" value="13785">
<param name="_cy" value="1588">
<param name="FlashVars" value="-1">
<param name="Src" value="<%=banner%>">
<param name="WMode" value="Window">
<param name="Play" value="-1">
<param name="Loop" value="-1">
<param name="SAlign" value>
<param name="Menu" value="-1">
<param name="Base" value>
<param name="Scale" value="ShowAll">
<param name="DeviceFont" value="0">
<param name="EmbedMovie" value="0">
<param name="BGColor" value>
<param name="SWRemote" value>
<param name="wmode" value="transparent">
<embed src='<%=banner%>' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width="1002" height="165" align="absmiddle"></embed></object><%end if%></a> </div></TD>
</TR>
</TABLE>
<!-----banner结束------------------>
<!-----菜单开始------------------>
<table width="1002" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td width="88" height="29" align="center" valign="bottom" background="images/WmCms_14.gif"><a href="index.asp"><img src="Images/WmCms_17.gif" width="86" height="27" border="0"></a></td>
<td width="764" height="29" colspan="-3" align="left" valign="bottom" background="images/WmCms_14.gif">
<%
dim mymenu
mymenu=basemenu
Response.Write mymenu
%>
</td>
<td width="150" align="center" valign="middle" background="images/WmCms_14.gif"><%Response.Write FormatDateTime(Date(),1) & " 星期"& Mid("日一二三四五六",WeekDay(Date),1) %></td>
</tr>
<tr>
<td height="33" colspan="3" background="images/WmCms_30.gif" class="top1">
<!--#include file="Menu-hide.asp"--> </td>
</tr>
</tbody>
</table></td>
</tr>
</table>
<!-----菜单结束------------------------>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -