📄 1.asp
字号:
<%@ Language=VBScript%>
<!--#include file=include/conn.asp -->
<!--#include file=include/function.asp -->
<!--#include file=include/config.asp -->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="沸腾工作室http://feitium.yeah.net">
<title><%=jjgn%></title>
<LINK href=news.css rel=stylesheet>
<script language="JavaScript">
<!--
if (self != top) top.location.href = window.location.href
//-->
</script>
<script language=JavaScript>
<!--
//
var version = "other"
browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);
if (browserName == "Netscape" && browserVer >= 3) version = "n3";
else if (browserName == "Netscape" && browserVer < 3) version = "n2";
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4";
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";
function marquee1()
{
if (version == "e4")
{
document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 100px; HEIGHT:60px; TEXT-ALIGN: left; TOP: 0px' id='news' scrollamount='1' scrolldelay='10' behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
}
}
function marquee2()
{
if (version == "e4")
{
document.write("</marquee>")
}
}
//-->
</script>
<script language=JavaScript>
<!--
//
var version = "other"
browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);
if (browserName == "Netscape" && browserVer >= 3) version = "n3";
else if (browserName == "Netscape" && browserVer < 3) version = "n2";
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4";
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";
function marquee5()
{
if (version == "e4")
{
document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 100px; HEIGHT:100px; TEXT-ALIGN: left; TOP: 0px' id='news' scrollamount='1' scrolldelay='10' behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
}
}
function marquee6()
{
if (version == "e4")
{
document.write("</marquee>")
}
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<script language="JavaScript1.2">
function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=20
}
</script><SCRIPT language="JavaScript" type="text/javascript">
// Begin morelink
function morelink(morelink)
{
url = 'morelink.asp?linktype=0';
window.open(url,morelink);
}
// End morelink-->
// Begin linkreg
function linkreg(linkreg)
{
url = 'admin/linkreg.asp';
window.open(url,linkreg,"width=350,height=400,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no");
}
// End linkreg-->
// Begin vote
function vote(vote)
{
url = 'admin/vote.asp?stype=view';
window.open(url,vote,"width=350,height=250,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no");
}
// End vote-->
// Begin adduser
function adduser(adduser)
{
url = 'admin/adduser.asp';
window.open(url,adduser,"width=400,height=460,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no");
}
// End adduser-->
// Begin getpwd
function getpwd(getpwd)
{
url = 'admin/getpwd.asp';
window.open(url,getpwd,"width=350,height=330,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no");
}
// End getpwd-->
</script>
<script LANGUAGE="javascript">
<!--
function checkdata()
{
if (document.user.UserName.value=="")
{
alert("对不起，请输入您的用户名！")
document.user.UserName.focus()
return false
}
else if (document.user.Passwd.value=="")
{
alert("对不起，请输入您的密码！")
document.user.Passwd.focus()
return false
}
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
//-->
</script>
</head>
<%if R_BG=1 then %>
<script language="JavaScript1.1" src="float.asp"></script>
<%else%>
<%end if%>
<body topmargin="0" marginheight="0">
<!--#include file=include/top.asp -->
<%
dim typeid
dim typename
dim typecontent
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraytypeID(10000),ArraytypeName(10000)
rs.close
set rs=nothing
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type where typeview=1 order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraytyID(10000),ArraytyName(10000),Arraytyview(10000)
if not rs.EOF then
rseof=1
while not rs.EOF
RecordCount=rs.RecordCount
tyID=rs("typeID")
tyName=trim(rs("typeName"))
tycontent=rs("typecontent")
tyview=trim(rs("typeview"))
ArraytyID(i)=tyID
ArraytyName(i)=tyName
Arraytyview(i)=tyview
i=i+1
rs.MoveNext
wend
rs.close
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="180" valign="top" background="IMAGES/menu-d.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3" valign="top" bgcolor="#FFFFFF"> <div align="center"><img src="IMAGES/kb.gif" width="9" height="2"></div></td>
</tr>
<tr>
<td valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0" id="AutoNumber2" style="border-collapse: collapse">
<%if showclub=1 then%>
<tr bordercolor="#999999">
<td height="25" align="center" valign="middle" bordercolor="#999999" background="IMAGES/menu-d-user.gif"><font color="#000000">用户登陆</font></td>
</tr>
<%if Request.cookies("username")="" then%>
<tr>
<form method="POST" action="CHKLOGIN.ASP" name="user" OnSubmit="return checkdata()">
<td align="center" background="IMAGES/menu-d.gif"><br>
用户名：
<input name="UserName" size="14" font face="宋体" style="font-size: 9pt">
<br>
密 码：
<input type="password" name="Passwd" size="14" font face="宋体" style="font-size: 9pt">
<br>
验证码：
<%dim num1,rndnum
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
%>
<input type="text" name="verifycode" size="8" font face="宋体" style="font-size: 9pt">
<b><span style="background-color: #CDCCCC"><font color=#000000><%=session("verifycode")%></font></span></b>
<p>
<input type="submit" name="Submit" value="登录" style="font-size: 9pt;cursor:hand" title="登录系统">
<%if reg=1 then%>
<input type="button" name="Submit2" value="注册" style="font-size: 9pt;cursor:hand" onclick="javascript:adduser()" title="注册新会员">
<%end if%>
<input type="button" name="Submit2" value="忘密" style="font-size: 9pt;cursor:hand" onclick="javascript:getpwd()" title="忘记密码了？">
<br>
<br>
</p></td>
</form>
<%else%>
<tr>
<td align="center" background="IMAGES/menu-d.gif"><br> <font color=red><%=Request.cookies("fullname")%></font><br>
<br>
欢迎您<br> <br>
<a href="admin/index.asp" class=class>发文</a> <a href="exit.asp" class=class>退出</a><br>
<br> </td>
</tr>
<%end if%>
<%end if%>
</table></td>
</tr>
<tr bordercolor="#999999">
<%if topfont=1 then%>
<td height="25" align="center" bordercolor="#999999" background="IMAGES/menu-d-bbs.gif" bgcolor="#FFFFFF">论坛入口</td>
</tr>
<tr bordercolor="#999999">
<td align="center" bordercolor="#999999" background="IMAGES/menu-d.gif">
<form action=http://www.wsjx.zjwu.net/joy/ft-bbs/login.asp?action=chk method=POST>
<table width="100%" border="0" cellpadding="3" cellspacing="0" id="AutoNumber1" style="border-collapse: collapse">
<tr>
<td width="100%" align="center"><br>
用户名称：
<input maxlength=20 name=username size=8> </td>
</tr>
<tr>
<td width="100%" align="center">用户密码：
<input maxlength=20 name=password size=8 type=password> </td>
</tr>
<tr>
<td width="100%" align="center"> <input type=submit name=submit value="登 陆" >
<p><a href="http://www.wsjx.zjwu.net/joy/ft-bbs" target="_blank">[进入]</a>
<a href="http://www.wsjx.zjwu.net/joy/ft-bbs/reg.asp" target="_blank";;;>[用户注册]</a>
<a href="http://www.wsjx.zjwu.net/joy/ft-bbs/lostpass.asp" target="_blank">[忘密]</a><br>
</td>
</tr>
</table>
</form></td>
</tr>
<tr bordercolor="#999999">
<td height="25" align="center" valign="middle" bordercolor="#999999" background="IMAGES/menu-d-new.gif" bgcolor="#FFFFFF">论坛最新</td>
</tr>
<tr bordercolor="#999999">
<td align="left" bordercolor="#999999" background="IMAGES/menu-d.gif">
<div align="center"><br>
<table width="94%" border="0" cellspacing="0" cellpadding="0">
<tr>
<script src=http://www.wsjx.zjwu.net/joy/ft-bbs/newtopic.asp?boardid=all&tlen=8&n=10&sdate=1&orders=2&info=5&action=1></script>
</tr>
</table>
<br>
</div></td>
</tr><% end if%>
<tr bordercolor="#999999">
<td height="25" align="center" bordercolor="#999999" background="IMAGES/menu-d-hot.gif"><FONT color=#000000>本月热门</FONT></td>
</tr>
<tr bordercolor="#999999">
<td height="36" align="center" valign=top bordercolor="#999999" background="IMAGES/menu-d.gif">
<br> <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="93%" id="AutoNumber5">
<%
dim ii
ii = 0
if uselevel=1 then
if Request.cookies("key")="" then
rs.Source="select top " & top_txt & " * from News where year(updatetime)=year(now()) and month(updatetime)=month(now()) and checkked=1 order by click DESC" '选择本月
end if
if Request.cookies("key")="selfreg" then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -