📄 1.asp
字号:
<font color=red class=font1><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%>/</font>
<%else%>
<font color='#999999' class=font1><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%>/</font>
<%end if%>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
</table>
</div>
</td>
<td width="50%">
<div align="center">
<table border=0 cellpadding=2 cellspacing=0 width="100%">
<tbody>
<tr>
<td rowspan=2 valign=center width=7><font
color=#660000></font></td>
</tr>
<tr>
<td colspan=2 valign=top>
<table width="100%" border="0">
<tr>
<td>
<div align="center">
<table cellspacing=0 cellpadding=0 width="100%" bgcolor=#9ea4af
border=0>
<tbody>
<tr>
<td width="30%" colspan=4><img height=1 src="" width=1></td>
<td width="70%" bgcolor=#ffffff><img height=1 src=""
width=1></td>
</tr>
<tr>
<td width=1 height="19"><img height=1 src="" width=1></td>
<td width="9%" bgcolor=#ffffff height="19"><img src="IMAGES/dom.gif"></td>
<td align=middle width=%21 height="19"><font color="#FFFFFF">网站服务</font> </td>
<td width=1 height="19"><img height=1 src="" width=1></td>
<td width="70%" bgcolor=#ffffff height="19">
<div align="right"><a href="Index.asp?classid=4">更多文章</a></div>
</td>
</tr>
<tr>
<td width="100%" colspan=5 height="2"><img height=1 src=""
width=1></td>
</tr>
</tbody>
</table>
</div>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
sql="select top 5 "
sql=sql&"article.writer,article.articleid,article.title,article.dateandtime,article.hits,article.daifa,article.classid,article.Nclassid,ANclass.Nclass "
sql=sql&" from article,ANclass where article.Nclassid=ANclass.Nclassid and article.classid=4 and daifa=1 "
sql=sql&" order by article.articleid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<%else%>
<%do while not rs.eof%>
<tr>
<td class="td1"> <a href="list.asp?id=<%=rs("articleid")%>"><%=rs("title")%></a>
<%if rs("dateandtime")=date() then%>
<font color=red class=font1><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%>/</font>
<%else%>
<font color='#999999' class=font1><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%>/</font>
<%end if%>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
</table>
</td>
</tr>
</tbody>
</table>
</div>
</td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td width="50%" valign=top>
<div align="center">
<table width="100%" border="0">
<tr>
<td>
<div align="center">
<table cellspacing=0 cellpadding=0 width="100%" bgcolor=#9ea4af
border=0>
<tbody>
<tr>
<td width="30%" colspan=4><img height=1 src="" width=1></td>
<td width="70%" bgcolor=#ffffff><img height=1 src=""
width=1></td>
</tr>
<tr>
<td width=1 height="19"><img height=1 src="" width=1></td>
<td width="9%" bgcolor=#ffffff height="19"><img src="IMAGES/dom.gif"></td>
<td align=middle width=%21 height="19"><font color="#FFFFFF">文学园地 </font> </td>
<td width=1 height="19"><img height=1 src="" width=1></td>
<td width="70%" bgcolor=#ffffff height="19">
<div align="right"><a href="Index.asp?classid=5">更多文章</a></div>
</td>
</tr>
<tr>
<td width="100%" colspan=5 height="2"><img height=1 src=""
width=1></td>
</tr>
</tbody>
</table>
</div>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
sql="select top 5 "
sql=sql&"article.writer,article.articleid,article.title,article.dateandtime,article.hits,article.daifa,article.classid,article.Nclassid,ANclass.Nclass "
sql=sql&" from article,ANclass where article.Nclassid=ANclass.Nclassid and article.classid=5 and daifa=1 "
sql=sql&" order by article.articleid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<%else%>
<%do while not rs.eof%>
<tr>
<td class="td1"> <a href="list.asp?id=<%=rs("articleid")%>"><%=rs("title")%></a>
<%if rs("dateandtime")=date() then%>
<font color=red class=font1><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%>/</font>
<%else%>
<font color='#999999' class=font1><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%>/</font>
<%end if%>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
</table>
</div>
</td>
<td width="50%">
<div align="center">
<table border=0 cellpadding=2 cellspacing=0 width="100%">
<tbody>
<tr>
<td rowspan=2 valign=center width=7><font
color=#660000></font></td>
</tr>
<tr>
<td colspan=2 valign=top>
<table width="100%" border="0">
<tr>
<td>
<div align="center">
<table cellspacing=0 cellpadding=0 width="100%" bgcolor=#9ea4af
border=0>
<tbody>
<tr>
<td width="30%" colspan=4><img height=1 src="" width=1></td>
<td width="70%" bgcolor=#ffffff><img height=1 src=""
width=1></td>
</tr>
<tr>
<td width=1 height="19"><img height=1 src="" width=1></td>
<td width="9%" bgcolor=#ffffff height="19"><img src="IMAGES/dom.gif"></td>
<td align=middle width=%21 height="19"><font color="#FFFFFF">重大事记</font> </td>
<td width=1 height="19"><img height=1 src="" width=1></td>
<td width="70%" bgcolor=#ffffff height="19">
<div align="right"><a href="Index.asp?classid=6">更多文章</a></div>
</td>
</tr>
<tr>
<td width="100%" colspan=5 height="2"><img height=1 src=""
width=1></td>
</tr>
</tbody>
</table>
</div>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
sql="select top 5 "
sql=sql&"article.writer,article.articleid,article.title,article.dateandtime,article.hits,article.daifa,article.classid,article.Nclassid,ANclass.Nclass "
sql=sql&" from article,ANclass where article.Nclassid=ANclass.Nclassid and article.classid=6 and daifa=1 "
sql=sql&" order by article.articleid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<%else%>
<%do while not rs.eof%>
<tr>
<td class="td1"> <a href="list.asp?id=<%=rs("articleid")%>"><%=rs("title")%></a>
<%if rs("dateandtime")=date() then%>
<font color=red class=font1><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%>/</font>
<%else%>
<font color='#999999' class=font1><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%>/</font>
<%end if%>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
</table>
</td>
</tr>
</tbody>
</table>
</div>
</td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
</TD>
<TD width=1></TD>
<TD align=middle width=130 >
<table border=0 cellpadding=0 cellspacing=0>
</table>
<!--#include file="LOGIN-1.ASP"--></TD>
<TD height=422 width=1></TD>
</TR>
</TABLE>
<table align=center border=0 cellpadding=0 cellspacing=0 width=100%>
</table>
<table align=center border=0 cellpadding=0 cellspacing=0 width=100%>
</table>
<!--#include file="ie586top-2.asp"-->
</BODY></HTML>
<%
Function UploadDate(DateVals)
dim NewYear, NewMonth, NewDay
If len(Year(DateVals))<=2 then
NewYear = "20" & Year(DateVals)
Else
NewYear = Year(DateVals)
End if
If len(Month(DateVals))<=1 then
NewMonth = "0" & Month(DateVals)
Else
NewMonth = Month(DateVals)
End if
If len(Day(DateVals))<=1 then
NewDay = "0" & Day(DateVals)
Else
NewDay = Day(DateVals)
End If
UploadDate = NewYear & "-" & NewMonth & "-" & NewDay
End Function
Function Strlength(String,Maxlen)
StrLen = Len(String)
Vals = ""
Length = 0
For iStr = 1 To StrLen
Str1 = Mid(String, iStr, 1)
Str = asc(Str1)
If Str < 0 Then
Length = Length + 2
Else
Length = Length + 1
End If
If Str = 10 Or Str = 13 Then
Length = 0
End If
Vals = Vals & Str1
If (Length >= MaxLen) And (Mid(String, iStr + 1, 1) <> Chr(13)) Then
Vals = Vals
Exit For
End If
Next
Strlength = Vals
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -