📄 index.asp
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="refresh.asp"-->
<!--#include file="conn.asp" -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>心情驿站</title>
<%
dim NumVisits '实现计数器功能
NumVisits=0
Application.Lock '应用了application ,对象被锁定
Application("NumVisits")=Application("NumVisits")+1
Application.Unlock '解锁
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body background="image/back.gif">
<table width="780" height="539" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="100"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="780" height="100">
<param name="movie" value="image/heat_top.swf" />
<param name="quality" value="high" />
<embed src="image/heat_top.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="780" height="100"></embed>
</object></td>
</tr>
<tr>
<td height="45"><img src="image/sectop.png" width="720" height="30" border="0" usemap="#Map">
<map name="Map">
<area shape="rect" coords="0,0,74,29" href="index.asp">
<area shape="rect" coords="79,2,153,27" href="xinqing.asp" target="_blank">
<area shape="rect" coords="162,-1,235,28" href="xinqing1.asp" target="_blank">
<area shape="rect" coords="243,0,320,27" href="xinqing2.asp" target="_blank">
<area shape="rect" coords="322,0,399,27" href="xinqing3.asp" target="_blank">
<area shape="rect" coords="405,-3,480,28" href="xinqing4.asp" target="_blank">
<area shape="rect" coords="484,2,562,27" href="bbs.asp" target="_blank" />
<area shape="rect" coords="566,0,640,29" href="liuyan.asp" target="_blank" />
<area shape="rect" coords="645,2,720,30" href="my.asp" target="_blank" />
</map> </td>
</tr>
<tr valign="top">
<td height="334"><table width="780" height="329" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td width="202" height="329" valign="top"><table width="195" height="223" border="1" align="center" bordercolor="#5C599D">
<tr height="20">
<td width="185" align="center" bgcolor="#5C599D"><strong><font color="#FFFFFF">小站芳语</font></strong></td>
</tr>
<tr>
<td align="center"><marquee direction="up" height="75" loop="-1" scrollAmount="1">
<font size="3">
<p align="center">您好<br />
在您比较忙的闲暇<br />
谢谢您还来光顾我的小站<br />
在这里有您要得到的快乐<br />
您的快乐是我的一种幸福</p>
</font>
</marquee></td>
</tr>
<tr height="20">
<td bgcolor="#5C599D" align="center"><strong><font color="#FFFFFF">站点统计</font></strong></td>
</tr>
<tr height="25">
<td>您是第<%=NumVisits %>位访客</td>
</tr>
</table></td>
<td width="10"> </td>
<td width="571" height="329" valign="top">
<table width="570" height="225" align="right" >
<tr>
<td width="562" height="25" align="center" bgcolor="#5C599D"><strong><font color="#FFFFFF">站内新闻</font></strong></td>
</tr>
<tr>
<td height="186">
<table width="85%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td width="547">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
key=request("key")
sql="select * from news where type='相关资料' and ((title like '%"&key&"%') or (content like '%"&key&"%')) order by newsid desc"
set rs=createobject("adodb.recordset")
rs.Open sql,conn,3,2
if rs.BOF then
%>
<%
else
page=CLng(request("txtpage"))
rs.PageSize=3
if page<1 then page=1
if page>rs.PageCount then page=rs.PageCount
rs.AbsolutePage=page
%>
<form Action="news_searchresult.asp" Method="GET" align="right" name="form1">
<tr height="25" class="l200">
<td background="image/back.gif">
<div align="left"> 总页数:<%=rs.PageCount%>  当前页:<font color=#FF0000><%=page%></font>/<%=rs.PageCount%>页  
<%
if page<>1 then
response.write "<a href=news_searchresult.asp?txtpage=1 class=link2>首页</a>  "
response.write "<a href=news_searchresult.asp?txtpage="&(page-1)&" class=link2>上一页</a>  "
end if
if page<>rs.PageCount then
response.write "<a href=news_searchresult.asp?txtpage="&(page+1)&" class=link2>下一页</a>  "
response.write "<a href=news_searchresult.asp?txtpage="&rs.PageCount&" class=link2>尾页</a>"
end if
%>
</div></td>
</tr>
</form>
<tr>
<td valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
for ipage=1 to rs.PageSize
newsTitle=replace(rs("title")," ","")
if len(newsTitle)>30 then
newsTitle=left(newsTitle,29)&"..."
end if
newsRq=split(replace(rs("date"),"/","-"),"-")
newsYear=newsRq(0)
newsMonth=newsRq(1)
newsDay=newsRq(2)
if len(newsMonth)<2 then
newsMonth="0"&newsMonth
end if
if len(newsDay)<2 then
newsDay="0"&newsDay
end if
newsRq=newsYear&"-"&newsMonth&"-"&newsDay
%>
<tr onMouseOver="this.style.background="#f0f0f0"" onMouseOut="this.style.background="#ffffff"">
<td width="12" height="20" valign="middle" background="image/back.gif"><font color="#006600">·</font></td>
<td height="20" valign="middle" class="link2" background="image/back.gif"><a href="#" onMouseDown="MM_openBrWindow('newscontent.asp?newsid=<%=rs("newsid")%>','','scrollbars=yes,width=720,height=500')" class="link2"><%=newsTitle%>
</a></td>
<td width="75" height="20" valign="middle" class="link2" background="image/back.gif"><%=newsRq%></td>
</tr>
<%
rs.movenext
if rs.eof then
Exit for
end if
next
%>
</table></td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
</table></td>
</tr>
</table>
</td>
</tr>
</table> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="60">
<table width="780" border="0" bgcolor="#5C599D" height="56">
<tr><td width="780"><marquee direction="right"><font size="-1" color="#FFFFFF">欢迎光临本站</font>
</marquee></td></tr>
<tr>
<td align="center" width="680"><font size="-1" color="#FFFFFF">联系站长： </font></td>
<td align="center" width="60"><font size="-1"><a href="guanli.asp">小站管理</a></font></td>
</tr>
<tr><td height="14" align="center"><font size="-1" color="#FFFFFF">站长QQ</font></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -