<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'MyLeft函数的作用是按指定的长度要求截取字符串（通常为新闻标题和商机名称等）。
Function MyLeft(str,n)
If len(str)<=n/2 Then
MyLeft=str
Else
Dim TStr,t,c,i
TStr=""
t=0
for i=1 to len(str)
c=asc(mid(str,i,1))
If c<0 then c=c+65536
If c>255 then
t=t+2
Else
t=t+1
End If
If t>n Then exit for
TStr=TStr&(mid(str,i,1))
next
MyLeft = TStr&"..."
End If
End Function
%>
<%
db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/database/database.asp")
set conn= Server.CreateObject("ADODB.Connection")
conn.Open db
'书院动态
set rs1=server.createobject("adodb.recordset")
sql1="select Top 14 ID,Title,FilePath from News where (Class=6 OR Class=7) And Del=0 And IsChecked=1 And Created=1 order by id desc"
rs1.open sql1,conn,1,1
'先生文存
set rs2=server.createobject("adodb.recordset")
sql2="select Top 14 ID,Title,FilePath from News where (Class=10 OR Class=11 OR Class=12 OR Class=13 OR Class=26) And Del=0 And IsChecked=1 And Created=1 order by id desc"
rs2.open sql2,conn,1,1
'书院活动
set rs3=server.createobject("adodb.recordset")
sql3="select Top 6 ID,Title,FilePath,TopNum,IsTop from News where Class=24 And Del=0 And IsChecked=1 And Created=1 order by id desc"
rs3.open sql3,conn,1,1
'首页先生简介
set rs4=server.createobject("adodb.recordset")
sql4="select Content from News where id=133 And Del=0 And IsChecked=1 And Created=1 order by id desc"
rs4.open sql4,conn,1,1
'图片新闻
set rs6=server.createobject("adodb.recordset")
sql6="select Top 5 ID,SmallImg,FilePath from News where ImgNews=1 And Del=0 And IsChecked=1 And Created=1 order by id desc"
rs6.open sql6,conn,1,1
dim flashfilename,flashfilelink
while not rs6.eof
flashfilename = flashfilename & "|" & rs6("SmallImg")
flashfilelink = flashfilelink & "|" & rs6("FilePath") & "?id=" & rs6("id")
rs6.movenext
wend
if left(flashfilename,1)="|" then
flashfilename = mid(flashfilename,2)
end if
if left(flashfilelink,1)="|" then
flashfilelink = mid(flashfilelink,2)
end if
%>
南华书院－弘扬国学，拒绝偏激；推崇儒术，但不独尊；养和气，养喜神，构建和谐社会
