📄 default.asp
字号:
<!--#include file="articleconn.asp"-->
<html>
<head>
<title>湖南东安网--东安原创文学网（小说|诗歌|散文|杂文|语丝|推荐|文集）</title>
<meta name="description" content="湖南东安网，让东按走向世界，让世界了解东安，让东安人了解东安，让东安人自豪东安，52da.com，东安，东安信息港，东安概况，东安特产，东安旅游，舜皇山,开发区，东安网友交流中心，东安文学，东安地图，东安招商，莲塘，东安黄页，同学录，商务，娱乐，音乐，电影，百姓,生活,房产,二手,求职,交友,游戏">
<meta name="keywords" content="湖南东安网--东安原创文学，小说，诗歌，散文，杂文，语丝，推荐，文集）">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style TYPE="text/css">
<!--
A:link{text-decoration:none}
A:visited{text-decoration:none}
A:hover {color: #ff00ff;text-decoration:underline}
-->
</style>
<style type="text/css">
<!--
body {font-size:9pt}
td {font-size:9pt}
-->
</style>
</head>
<body bgcolor="#666666" text="#000000" leftmargin="0" topmargin="0" background="images/home_00.gif" link="#000000" vlink="#000000">
<!--#include file="main.htm"-->
<table width="762" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td bgcolor="#CCCCCC" align="center" class="aq" colspan="2" height="20">
<font color="#000000">东安写手轻轻的来了</font>
</td>
<td width="590" bgcolor="#FFFFFF" rowspan="19" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#cccccc" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="aq" align="center" height="20" >
<script language="JavaScript">
<!--
var mess1="";
var mess2= ""
document.write("<center><font color='#000000'>")
day = new Date( )
hr = day.getHours( )
if (( hr >= 0 ) && (hr <= 4 ))
mess1= "朋友,晚上好!欢迎来到写手之家，有你的一份支持，我们才会进步．"
if (( hr >= 4 ) && (hr < 7))
mess1=" 朋友,清晨好).. 还没有吃饭吧,别饿了肚子来上网."
if (( hr >= 7 ) && (hr < 12))
mess1=" 朋友,上午好!今天有什么灵感吗?抒发一下感情吧.:P"
if (( hr >= 12) && (hr <= 17))
mess1= "朋友,下午好!敲几下键盘,打上N个你好,是否在聊天、灌水?~~"
if ((hr >= 17) && (hr <= 23))mess1= "朋友,晚上好!坐在电脑前，泡一杯茶，聆听一下美妙的音乐。"
document.write("<blink>")
document.write(mess1)
document.write("</blink>")
document.write(mess2)
document.write("</b></i></font></center>")
//--->
</script>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="95">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="242" height="95"><img src="images/bg2.gif" width="250" height="95"></td>
<%set rs=server.createobject("adodb.recordset")
sql ="select * from article where hits>=30 order by dateandtime desc"
rs.open sql,conn,1,1%>
<td width="337" height="102" class="p1"><a href="openarticle.asp?id=<%=rs("newsid")%>" target="_blank"> <%=RmHtml(left(rs("content"),100))%> ……</A><%set rs=nothing%></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<form method=POST action="search.asp"><tr>
<td class="p1" align="center" bgcolor="#CCCCCC">文章搜索：<font color="#FFFFFF">
<select size="1" name="sss" style="font-family: 宋体; font-size: 9pt; background-color: #FFFFFF; color: #000064; border: 1 solid #000000">
<option value="按文章标题">按文章标题</option>
<option value="按文章作者">按文章作者</option>
<option value="全文检索" selected>按文章内容</option>
</select>
<input type="text" onFocus="this.value=''" name="ttt" size="20" style="font-family: 宋体; font-size: 9pt; background-color: #FFFFFF; color: #000064; border: 1 solid #000000" value="输入关键字">
<input type="submit" value="搜 索" name="B3" style="font-family: 宋体; font-size: 9pt; color: #000064; background-color: #FFFFFF; border: 1 solid #000000">
</font> </td>
</tr></form>
<tr>
<td height="28" background="images/home_03.gif"></td>
</tr>
</table>
<table width="100%" border="0" class="p1" height="127" cellpadding="0" cellspacing="0">
<tr>
<td width="110" align="center"><img src="images/1-1.gif" width="100" height="125"></td>
<td width="200" class="p1" valign="top">
<script language="javascript" src="news.asp?typeid=17&n=6"></script>
</td>
<TD width="7" background="../images/bgdot.gif"></TD>
<td class="p1" valign="top" width="180">
<script language="javascript" src="news.asp?typeid=19&n=6"></script>
</td>
<td width="110" align="center"><img src="images/1-2.gif" width="100" height="125"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr >
<td height=8 valign="top" background="../images/bgdot.gif"></td>
</tr>
</table>
<table width="100%" border="0" height="127" cellpadding="0" cellspacing="0">
<tr>
<td width="109" align="center" valign="middle"><img src="images/3-3.gif" width="100" height="125"></td>
<td width="200" class="p1" valign="top">
<script language="javascript" src="news.asp?typeid=18&n=6"></script>
</td>
<TD width="7" background="../images/bgdot.gif"></TD>
<td class="p1" valign="top" width="180">
<script language="javascript" src="news.asp?typeid=20&n=6"></script>
</td>
<td width="110" align="center"><img src="images/4-4.gif" width="100" height="125"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="p1" align="center" height="28" background="images/home_03.gif"><font color="#FFFFFF"><b>个
人 文 集</b></font></td>
</tr>
</table>
<table width="100%" border="0" height="75" cellpadding="0" cellspacing="0">
<tr>
<td > </td>
<td width="450" class="p1" background="images/ind_68.gif" valign="middle"><TABLE cellSpacing=0 cellPadding=1 width=345 class="p1" border=0>
<TBODY>
<TR>
<TD height=21><%set rst=server.createobject("adodb.recordset")
rst.open "select top 40 * from admin where amount>=20 order by amount desc ",conn,1%><% i=1
do while not rst.eof%><a href=wj.asp?userName=<%=rst("Username")%> target=_blank><font color="#000000"><%if rst("other")<>"" then%>
<%=rst("other")%>
<%else%>
<%=rst("Username")%>的文集<%end if%></font></a>
<%i=i+1
if i=40 then exit do
rst.movenext
loop
rst.close
set rst=nothing
%></TD>
</TR>
<TR>
<TD vAlign=bottom height=16>
<DIV align=right>>><A
href="grwj.asp"
target=_blank><font color="#000000">更多文集</font></A></DIV>
</TD></TR></TBODY></TABLE></td>
<td width="37"><img src="images/ind_69.gif" width="37" height="129"></td>
</tr>
</table>
</td>
</tr>
<tr>
<FORM name=form1 action=chklogin.asp method=post>
<td bgcolor="#FFFFFF" colspan="2" height="100">
<table width="156" border="0" cellspacing="0" cellpadding="0" align="center" class="p1">
<tr align="center">
<td width="43">写 手:</td>
<td width="117" height="30">
<input type="text" name="UserName" size="14" class="q">
</td>
</tr>
<tr align="center">
<td width="43">密 码:</td>
<td width="117" height="30">
<input type="password" name="Passwd" size="14" class="q">
</td>
</tr>
<tr align="center">
<td colspan="2" height="30">
<input type="submit" name="Submit" value="进入">
<input type="reset" name="Submit2" value="取消">
</td>
</tr>
</table>
</td>
</form>
</tr>
<tr>
<td class="p1" bgcolor="#cccccc" width="84" align="center" height="20">□ <a href="reg.asp"><font color="#000000">用户注册</font></a></td>
<td bgcolor="#cccccc" width="85" class="p1" align="center" height="20">□ <a href="mailto:styling@21cn.com"><font color="#000000">版主信箱</font></a></td>
</tr>
<tr>
<td height="28" class="aq" align="center" colspan="2" background="images/home_03.gif">
<a href="../new/admin_new/default.asp" target="_blank"><font color="#FFFFFF">写手公告</font></a>
</td>
</tr>
<tr>
<td height="110" bgcolor="#FFFFFF" colspan="2">
<p align="center">
<iframe src="New/New.htm" frameborder=0 width="100%" scrolling=no height="100%"></iframe>
</td>
</tr>
<tr>
<td class="aq" align="center" colspan="2" height="28" background="images/home_03.gif">
<font color="#FFFFFF">推荐作品</font>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="2">
<table width="170" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="110">
<script src="tjnews.asp?n=10"></script>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2" class="aq" align="center" height="28" background="images/home_03.gif">
<font color="#FFFFFF">写手排名</font>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="2" class="p1" valign="top">
<table border="0" cellpadding="0" cellspacing="1" width="100%" height="25" class="p1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="20%" height="11" align="center">名次</td>
<td width="60%" height="18">
<p align="center">姓名
</td>
<td width="20%" height="11" align="center">文章</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="Select top 10 * from admin order by amount desc"
rs.open sql,conn,0,1
%>
<% i=1
do while not rs.eof%>
<tr bgcolor="#FFFFFF">
<td width="20%" height="18">
<p align="center"><%=i%>
</td>
<td width="60%" height="18">
<p align="center"><a href=userinfo.asp?username=<%=rs("Username")%> target=_blank><%=rs("Username")%></a>
</td>
<td width="20%" height="18">
<p align="center"><%=rs("amount")%>
</td>
</tr>
<% i=i+1
if i=11 then exit do
rs.movenext
loop
conn.close
set conn=nothing
rs.close
set rs=nothing
%>
</table>
</td>
</tr>
</table>
<!--#include file="mai.htm"-->
</body>
</html>
<%
Function RmHtml(fString)
fString = Replace(fString, CHR(13), " ")
fString = Replace(fString, CHR(10) & CHR(10), " ")
fString = Replace(fString, CHR(10), " ")
fString = Replace(fString, "<br>", " ")
fString = Replace(fString, "<BR>", " ")
fString = Replace(fString, "<Br>", " ")
fString = Replace(fString, "<bR>", " ")
fString = Replace(fString, "<p>", " ")
fString = Replace(fString, "<P>", " ")
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = replace(fString, " ", "")
fString = replace(fString, " ", "")
fString = replace(fString, "&nbs", "")
fString = replace(fString, "&nb", "")
fString = replace(fString, "&n", "")
fString = replace(fString, "&", "")
RmHtml=fString
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -