📄 index.asp
字号:
<!--#include file="connect.asp" -->
<!--#include file="include\nosqlin.asp" -->
<!--#include file="include\functions.asp" -->
<html>
<head>
<BASE onmouseover=window.status="<%=Unit%>个人主页空间——您理想的网上家园！";return true>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title><%=Unit%>>><%=softname%></title>
<style type="text/css">
<!--
a:link {
color: #333333;text-decoration:none
}
a:visited {
color: #666666;text-decoration:none
}
a:active {
color: #999999;text-decoration:none
}
A:hover {
color: #FF0000;text-decoration:underline
}
-->
</style>
<script Language="JavaScript">
function click() {
if (event.button==2 | event.button==3) {
alert('对不起，请不要使用鼠标右键！')
}
}
document.onmousedown=click
</script>
<SCRIPT LANGUAGE = JAVAScript>
function OpenWEB(ID)
{
window.open("open.asp?ID="+ID)
}
</Script>
</head>
<BODY bgcolor="#E1EBF4" style="font-size: 9pt">
<!--#include file="head.asp" -->
<!--#include file="NavBar.Asp" -->
<div align="center">
<center>
<table border="0" width="750" style="font-size: 9pt; border: 1 solid #000000" cellspacing="0" cellpadding="4" height="334" bgcolor="#F7F1FE">
<tr>
<td width=443 align="center" bgcolor="#A8D5CF" style="border-bottom: 1 solid #808080">
<script language=JavaScript>
document.write("欢迎访问[苏州科技学院个人主页]站点");
</script>
</td>
</center>
<td width=289 align="left" bgcolor="#A8D5CF" id="count" style="border-bottom: 1 solid #808080">
<p align="center"> </p>
</td>
</tr>
<tr><td colspan="2" style="border-bottom: 1 solid #C0C0C0" bgcolor="#FBDDD7" height="16">
<%
server.execute "initialization.asp"
strSQL= "select * from affiche order by id desc"
set rs = objCnn.Execute(strSQL)
i=1
do while not rs.eof
info=info& i&". "&rs("title")&rs("contents")&"<font color=#808080>["&rs("adddate")&"]</font> "
rs.movenext
i=i+1
loop
%>
<script language="JavaScript1.2">
//设置marquee的宽度 (in pixels)
var marqueewidth=740
//设置marquee的高度 (in pixels, 该参数只适用于NS)
var marqueeheight=14
//设置marquee滚动的速度(数值大速度快)
var speed=3
//设置marquee显示内容，使用标准的HTML语法。
var marqueecontents='<%=info%>'
if (document.all)
document.write('<marquee onmouseover=this.stop() onmouseout=this.start() scrollAmount='+speed+' style="width:'+marqueewidth+'">'+marqueecontents+'</marquee>')
function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers){
setTimeout("window.onresize=regenerate",200)
intializemarquee()
}
}
function intializemarquee(){
document.cmarquee01.document.cmarquee02.document.write('<nobr>'+marqueecontents+'</nobr>')
document.cmarquee01.document.cmarquee02.document.close()
thelength=document.cmarquee01.document.cmarquee02.document.width
scrollit()
}
function scrollit(){
if (document.cmarquee01.document.cmarquee02.left>=thelength*(-1)){
document.cmarquee01.document.cmarquee02.left-=speed
setTimeout("scrollit()",20)
}
else{
document.cmarquee01.document.cmarquee02.left=marqueewidth
scrollit()
}
}
window.onload=regenerate2
</script>
<ilayer width=&{marqueewidth}; height=&{marqueeheight}; name="cmarquee01">
<layer name="cmarquee02"></layer>
</ilayer></td></tr>
<center>
<tr>
<td width="738" align="center" height="123" valign="top" colspan="2">
<div align="center">
<%
strSQL= "select top 10 * from information where admin > 1 and check order by MCount desc,AccessCount desc,id "
set rs = objCnn.Execute(strSQL)
%>
</center>
<table border="0" width="723" style="font-size: 9pt; border-top: 1 solid #808080; border-bottom: 1 solid #808080" bordercolorlight="#808080" bordercolordark="#C0C0C0" cellspacing="0">
<tr>
<td width="721" height="20" style="border-bottom: 1 solid #C0C0C0" align="center" colspan="6">
<p align="left"><b>==== 热门站点 ====</b></td>
</tr>
<center>
<center>
<tr>
<td width="36" height="20" align="center">序号</td>
<td width="240" height="20" style="border-left: 1 solid #C0C0C0; border-right: 1 solid #C0C0C0" align="center">网站名称</td>
<td width="200" height="20" align="center">图片链接</td>
<td width="97" height="20" style="border-left: 1 solid #C0C0C0; border-right: 1 solid #C0C0C0" align="center">作者(呢称)</td>
<td width="68" height="20" align="center">建站时间</td>
<td width="60" height="20" style="border-left: 1 solid #C0C0C0" align="center">月访问量<br>
总访问量</td>
</tr>
<%i=0%>
<%do while not rs.eof%>
<%i=i+1%>
<%ss=Replace_Html(rs("wwwfunction"))%>
<tr>
<td width="36" height="20" style="border-top: 1 solid #C0C0C0" align="center" rowspan="2"><%=i%></td>
<td width="240" height="20" style="border-left: 1 solid #C0C0C0; border-right: 1 solid #C0C0C0; border-top: 1 solid #C0C0C0" rowspan="2"> <a href='JAVAScript:OpenWEB(<%=rs("ID")%>)' title='<%=ss%>'><%=Replace_Html(rs("wwwname"))%></a></td>
<td width="200" height="20" style="border-top: 1 solid #C0C0C0" rowspan="2"><a href='JAVAScript:OpenWEB(<%=rs("ID")%>)' title='<%=ss%>'><%if rs("pic")<>"" then%><img border="0" src="uppic\<%=rs("pic")%>" width="200" height="30"><%else%><img border="0" src="images\def.gif" width="200" height="30"><%end if%></a></td>
<td width="97" height="20" style="border-left: 1 solid #C0C0C0; border-right: 1 solid #C0C0C0; border-top: 1 solid #C0C0C0" rowspan="2">
<p align="center">
<%if rs("wname")<>"" then%>
<%=Replace_Html(rs("wname"))%>
<%else%>
<%="不详"%>
<%end if%></p>
</td>
<td width="68" height="20" style="border-top: 1 solid #C0C0C0" align="center" rowspan="2"><%=rs("CreateDate")%></td>
<td width="60" height="16" style="border-left: 1 solid #C0C0C0; border-top: 1 solid #C0C0C0" align="center"><%=rs("MCount")%></td>
</tr>
<tr>
<td width="60" height="16" style="border-left: 1 solid #C0C0C0; border-top: 1 solid #C0C0C0" align="center"><%=rs("AccessCount")%></td>
</tr>
<%rs.movenext%>
<%loop%>
</table>
</center>
</div>
</center>
</td>
</tr>
<tr>
<td width="738" align="center" height="122" valign="top" colspan="2">
<div align="center">
<%
strSQL= "select top 10 * from information where admin > 1 and check = True order by id desc"
set rs = objCnn.Execute(strSQL)
%>
<table border="0" width="723" style="font-size: 9pt; border-top: 1 solid #808080; border-bottom: 1 solid #808080" bordercolorlight="#808080" bordercolordark="#C0C0C0" cellspacing="0">
<tr>
<td width="721" height="20" style="border-bottom: 1 solid #C0C0C0" align="center" colspan="6">
<p align="left"><b>==== 最新站点 ====</b></td>
</tr>
<center>
<center>
<tr>
<td width="36" height="20" align="center">序号</td>
<td width="240" height="20" style="border-left: 1 solid #C0C0C0; border-right: 1 solid #C0C0C0" align="center">网站名称</td>
<td width="200" height="20" align="center">图片链接</td>
<td width="97" height="20" style="border-left: 1 solid #C0C0C0; border-right: 1 solid #C0C0C0" align="center">作者(呢称)</td>
<td width="68" height="20" align="center">建站时间</td>
<td width="60" height="20" style="border-left: 1 solid #C0C0C0" align="center">月访问量<br>
总访问量</td>
</tr>
<%i=0%>
<%do while not rs.eof%>
<%i=i+1%>
<%ss=rs("wwwfunction")%>
<tr>
<td width="36" height="20" style="border-top: 1 solid #C0C0C0" align="center" rowspan="2"><%=i%></td>
<td width="240" height="20" style="border-left: 1 solid #C0C0C0; border-right: 1 solid #C0C0C0; border-top: 1 solid #C0C0C0" rowspan="2"> <a href='JAVAScript:OpenWEB(<%=rs("ID")%>)' title='<%=ss%>'><%=Replace_Html(rs("wwwname"))%></a></td>
<td width="200" height="20" style="border-top: 1 solid #C0C0C0" rowspan="2"><a href='JAVAScript:OpenWEB(<%=rs("ID")%>)' title='<%=ss%>'><%if rs("pic")<>"" then%><img border="0" src="uppic\<%=rs("pic")%>" width="200" height="30"><%else%><img border="0" src="images\def.gif" width="200" height="30"><%end if%></a></td>
<td width="97" height="20" style="border-left: 1 solid #C0C0C0; border-right: 1 solid #C0C0C0; border-top: 1 solid #C0C0C0" rowspan="2">
<p align="center">
<%if rs("wname")<>"" then%>
<%=rs("wname")%>
<%else%>
<%="不详"%>
<%end if%></p>
</td>
<td width="68" height="20" style="border-top: 1 solid #C0C0C0" align="center" rowspan="2"><%=rs("CreateDate")%></td>
<td width="60" height="16" style="border-left: 1 solid #C0C0C0; border-top: 1 solid #C0C0C0" align="center"><%=rs("MCount")%></td>
</tr>
<tr>
<td width="60" height="16" style="border-left: 1 solid #C0C0C0; border-top: 1 solid #C0C0C0" align="center"><%=rs("AccessCount")%></td>
</tr>
<%rs.movenext%>
<%loop%>
</table>
</center>
</div>
</center>
</td>
</tr>
<tr>
<td width="738" align="center" height="70" valign="top" colspan="2">
<div align="center">
<%
strSQL= "select * from information where admin > 1 and check order by AccessCount desc"
set rs = objCnn.Execute(strSQL)
'count=rs.recordcount
%>
<table border="0" width="723" style="font-size: 9pt; border-top: 1 solid #808080; border-bottom: 1 solid #808080" bordercolorlight="#808080" bordercolordark="#C0C0C0" cellspacing="0" cellpadding="2">
<tr>
<td width="721" height="20" align="center" colspan="6">
<p align="left"><b>==== 全部站点 ====</b></td>
</tr>
<center>
<center>
<%i=1%>
<%count=0%>
<%AccessCount=0%>
<%do while not rs.eof%>
<%ss="｜"&rs("wwwname")&"．"&rs("wname") & "｜"&vbcrlf&" "&rs("wwwfunction")%>
<%AccessCount=AccessCount+rs("AccessCount")%>
<%if i=1 then%><tr><%end if%>
<td height="20" style="border-top: 1 solid #C0C0C0" align="center"><a href="JAVAScript:OpenWEB(<%=rs("ID")%>)" title='<%=ss%>'><%if rs("pic")<>"" then%><img border="0" src="uppic\<%=rs("pic")%>" width="177" height="26"><%else%><img border="0" src="images\def.gif" width="177" height="26"><%end if%></a></td>
<%rs.movenext%>
<%i=i+1%>
<%if i > 4 or rs.eof then%>
<%if rs.eof then%>
<%do while i<=4 %>
<td style="border-top: 1 solid #C0C0C0"> </td>
<%i=i+1%>
<%loop%>
<%end if%>
</tr>
<%end if%>
<%if i>4 then i=1%>
<%count=count+1%>
<%loop%>
</table>
</center>
</div>
</td>
</tr>
</table>
</div>
<!--#include file="food.asp" -->
</body>
</html>
<Script language=JavaScript>
<%="window.count.innerHTML='当前共有注册站点 <font color=""red"">"& count & "</font> 个 总访问量 <font color=""red"">"& AccessCount & "</font> 次';"%>
</Script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -