todaynews.asp

庐江二中

<!--#include file="conn.asp" -->
<!--#include file="const.asp"-->
<!--#include file="function.asp" -->
<%
dim n,javastr
javastr=""
javastr=javastr+"<table width=98% border=0 align=center cellspacing=0 cellpadding=0 bgcolor="&CenterBColor&" height=100>"
if showboard=1 then	javastr=javastr+InTable("middle1")
    javastr=javastr+"<tr><td bgcolor="&DaoDu_color&" height=25 background="&DaoDu_img&"><table width=100% ><tr><td valign=bottom class=MainTitle width=100% >&nbsp;<img src=images/cat.gif>&nbsp;最新导读　"&now()&"</td></tr></table></td></tr>"
	javastr=javastr+InTable("middle1")
	javastr=javastr+"<tr>"
    javastr=javastr+"<td bgcolor="""&CenterCColor&""" background="""&CenterCImg&""" align=left valign=top>"
	javastr=javastr+"<table width=100% border=0 align=center cellspacing=1 cellpadding=0>"
    javastr=javastr+"<tr>"
javastr=javastr+"<td>"
javastr=javastr+"<table width=98% border=0 cellspacing=0 cellpadding=0 align=center>"
sql="select top 10 "& NoContent &" from News where checked=1 order by updatetime DESC"
rs.Open sql,conn,1,1
if not rs.eof then
n=0
while not rs.EOF
n=n+1
dim rs1,titlelen
set rs1=server.CreateObject("ADODB.RecordSet")
sql="select * from BigClass where bigclassname='"&rs("BigClassName")&"'"
rs1.Open sql,conn,1,1
if n mod 2=1  then javastr=javastr+ "<tr>"
javastr=javastr+ "<td width=50% Class=MainContentS>[<a class=LeftMenu href=""BigClass.asp?BigClassName="&rs1("BigClassName")&"&BigClassType="&rs1("BigClassType")&""">"&rs("BigClassName")&"</a>] "
titlelen=30-wordlen(rs1("BigClassName"))
javastr=javastr+ ShowTitle("MainContentS",titlelen)
javastr=javastr+ "</td>"
if n mod 2=0  then javastr=javastr+ "</tr>"
rs1.close				
rs.MoveNext
wend
'else
'javastr=javastr+ "<tr><td><center><b>尚　无　内　容</b></center></td></tr>"
end if
rs.close
set rs1=nothing
set rs=nothing
conn.close
set conn=nothing
javastr=javastr+ "</table></table></td></tr></table><BR>"
response.write ("document.write('"&javastr&"')")
response.end

function wordlen(strChinese)
dim lenTotal,strWord
lenTotal = 0
for i=1 to Len(strChinese)
strWord = mid(strChinese, i, 1)
if asc(strWord) < 0 or asc(strWord) > 127 then
lenTotal = lenTotal + 2
else
lenTotal = lenTotal + 1
end if
next
wordlen=lenTotal
end function
%>
<!--导读结束-->