📄 top2.asp
字号:
<!--#include file="ConnUser.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="char.inc"-->
<script language=javascript>
function CheckFormUserLogin()
{
if(document.UserLogin.UserName.value=="")
{
alert("请输入用户名！");
document.UserLogin.UserName.focus();
return false;
}
if(document.UserLogin.Passwd.value == "")
{
alert("请输入密码！");
document.UserLogin.Passwd.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 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>
<% '获取当前 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%>
<div id=menuDiv style='Z-INDEX: 2; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #9cc5f8'></div>
<div align="center">
<%if showclub=1 then%>
<TABLE WIDTH=760 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD width="165"> <IMG SRC="images/fast_01.gif" WIDTH=165 HEIGHT=24 ALT=""></TD>
<%if Request.cookies(Forcast_SN)("username")="" 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 class="my" align="right" valign="middle" background="images/fast_02.gif">
<font color=white>用户：</font><input name="UserName" size="8" font face="宋体" style="font-size:9pt;background-color:#8a6e3b;color:#EAEAF4">
<font color=white>密码：</font><input type="password" name="Passwd" size="8" font face="宋体" style="font-size:9pt; background-color:#8a6e3b;color:#EAEAF4">
<font color=white>验码：</font><input type="text" name="verifycode" size="4" font face="宋体" style="font-size:9pt; background-color:#8a6e3b;color:#EAEAF4">
<font color=white><b><span><%=getcode1()%></span></b></font>
<input type="submit" name="Submit" value="登录" style="font-size: 9pt; color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'" title="登录系统">
<%if reg=1 then%>
<input type="button" name="Submit2" value="注册" style="font-size: 9pt; color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'" onClick="javascript:adduser()" title="注册新会员">
<%end if%>
<input type="button" name="Submit2" value="忘密" style="font-size: 9pt; color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'" onClick="javascript:getpwd()" title="忘记密码了？">
</td>
</form>
<%else%>
<td align="right" valign="middle" style="font-size: 9pt;color: #FFFFFF" background="images/fast_02.gif">
欢迎：<b><%=Request.cookies(Forcast_SN)("UserName")%></b>
<a href="Admin_login.asp" class=my>[发文]</a> <a href="Exit.asp" class=my>[退出]</a> <a href="bloguser.asp?user=<%=Request.cookies(Forcast_SN)("UserName")%>" class=my>[MY博客]</a></td>
<%end if%>
<TD width="30" background="images/fast_03.gif"> </TD>
</TR>
</TABLE>
<%end if%>
<TABLE WIDTH=760 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD width="165" background="images/fast_04.gif"><a href="<%=logourl%>">
<%if gd1="1" then%>
<img src="<%=logo%>" width="165" height="86" 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="165" height="86" align="absmiddle">
<param name=movie value='<%=logo%>'>
<param name=quality value=High>
<param name="_cx" value="5662">
<param name="_cy" value="1640">
<param name="FlashVars" value="-1">
<param name="Src" value="<%=logo%>">
<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='<%=logo%>' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width="165" height="86" align="absmiddle"></embed></object><%end if%></a></TD>
<TD width="490" background="images/fast_05.gif">
<div align="center">
<a href="<%=bannerurl%>">
<%if gd2="1" then%>
<img src="<%=banner%>" width="468" height="60" 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="468" height="60" 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="468" height="60" align="absmiddle"></embed></object><%end if%></a>
</div></TD>
<TD width="105" COLSPAN=3 background="images/fast_06.gif">
<div align="center">
<TABLE cellSpacing=0 cellPadding=2 width=90% align=center border=0>
<TBODY>
<TR>
<TD class="my" align=middle><font color="#CCFF66">[</font> <a class="my" href="#" onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://<%=xpurl%>');" >设为首页</a> <font color="#CCFF66">]</font></TD>
</TR>
<TR>
<TD class="my" align=middle><font color="#CCFF66">[</font> <a class="my" href="#" onclick=window.external.AddFavorite(location.href,document.title);>加入收藏</a> <font color="#CCFF66">]</font></TD>
</TR>
<TR>
<TD class="my" align=middle><font color="#CCFF66">[</font> <a class="my" href="mailto:<%=email%>">联系我们</a> <font color="#CCFF66">]</font></TD>
</TR>
</TBODY>
</TABLE>
</div>
</TD>
</TR>
</TABLE>
<table width="760" border="0" cellpadding="0" cellspacing="0" bgcolor="#99CDFF">
</table>
</div>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td width="30%" background="images/top5.gif"> 毛泽东专题网络系统</font>
</font></td>
<form method="post" name="myform" action="Result.asp" target="newwindow">
<td height="22" align="right" background="images/top5.gif">
<%if showsearch=1 then%>
<!--#include file=search.asp-->
<%end if%>
</td>
</form>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td width="30%" bgcolor="#8a6e3b"> <font color="#FFFFFF">
<%Response.Write FormatDateTime(Date(),1) & " 星期"& Mid("日一二三四五六",WeekDay(Date),1) %>
</font> </td>
<td height="22" align="right" bgcolor="#8a6e3b"> <table border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="top">
<%
dim mymenu
mymenu=basemenu
Response.Write mymenu
%>
</td>
</tr>
</table></td>
</tr>
<tr align="right" bgcolor="#8a6e3b">
<td height="22" colspan="2"> <table border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="top">
<td class="top" nowrap>
<%
dim menuid
dim menuname
dim menucontent
dim menuview
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraymenuID(1000),ArraymenuName(1000)
while not rs.EOF
RecordCount=rs.RecordCount
menuid=rs("typeid")
menuname=rs("typename")
menucontent=rs("typecontent")
menuview=rs("typeview")
TdString="<font color='#DDE5F2'>|</font> <a href='type.asp?typeID="& menuid &" 'class=top title='"& menucontent &"' class='top'>"& menuName &"</a>"
Response.Write TdString
ArraymenuID(i)=menuID
ArraymenuName(i)=menuName
i=i+1
rs.MoveNext
wend
rs.close
set rs=nothing
%>|</td>
</td>
</tr>
</table></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -