cont.asp

MisCMS源码

<%
public cachename
cachename = "mis8"  '缓存名称

Dim SysName,SysUrl,SysEmail,SysMaster,SysKeyWords,SysDescription,SysIcp,SysOther
dim sysupdate
const sysuptime=1  '更新周期为1天
uptimecachename=cachename & "_uptime"
sysupdate=application(uptimecachename)

syscachename=cachename & "_sys"   '站点信息
if Application(syscachename)="" or isempty(Application(syscachename)) or sysuptime < DateDiff("d", sysupdate, Now) Then
	set sy=conn.execute("select * from sysxx where id=1")
		Application.Lock
		Application(syscachename)="" & sy(0) & "@@@" & sy(1) & "@@@" & sy(2) & "@@@" & sy(3) & "@@@" & sy(4) & "@@@" & sy(5) & "@@@" & sy(6) & "@@@" & sy(7) & ""
		application(uptimecachename) = CStr(now())
		Application.Unlock
	sy.close
	set sy=nothing
end if
NApplication=split(Application(syscachename),"@@@")
UApplication=ubound(NApplication)

SysName=NApplication(0)
SysUrl=NApplication(1)
SysMaster=NApplication(2)
SysEmail=NApplication(3)
SysKeyWords=NApplication(4)
SysDescription=NApplication(5)
SysIcp=NApplication(6)
SysOther=NApplication(7)

'公告
notecachename=cachename & "_note"
if application(notecachename)="" or isempty(application(notecachename)) or sysuptime < DateDiff("d", sysupdate, Now) Then
	set nt=conn.execute("select * from notexx where id=1")
		application.Lock()
		application(notecachename)="<center>" & nt(1) & "</center><marquee height='77' direction='up' scrolldelay='-10' scrollamount='1' >" & nt(2) & "</marquee>"
		application.UnLock()
	nt.close
	set nt=nothing
end if
dim note
note=application(notecachename)

'友情链接
dim link
linkcachename=cachename & "_link"

if application(linkcachename)="" or isempty(application(linkcachename)) or sysuptime < DateDiff("d", sysupdate, Now) Then
	application.Lock()
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select linkname,linkurl,linkinfo from linkxx where lshow=true order by id desc",conn,1,1  
	if not rs.eof then
	while not rs.eof
	
	application(linkcachename)=application(linkcachename) & "<li><a href='" & rs(1) & "' title='" & rs(2) & "' target='_blank'>" & rs(0) & "</a></li>"
	
	rs.movenext                 
	wend
	end if
	application.UnLock()
end if
link=application(linkcachename)
 %>