index.asp

个人博客

<!--#include file="conn.asp"-->
<!--#include file="inc/bloginfo.asp"-->
<!--#include file="inc/syscode.asp"-->
<!--#include file="inc/function.asp"-->
<%
dim show
if Application(cachename&"index_update")=false and application(cachename&"index")<>"" then
	show=application(cachename&"index")
else
	dim rstmp
	set rstmp=conn.execute("select skinmain from sysskin where isdefault='true'")
	show=rstmp(0)
	set rstmp=nothing
	call indexshow()
	Application.Lock
	application(cachename&"index")=show
	Application(cachename&"index_update")=false
	Application.unLock
	if Application(cachename&"siterefu")<>"" then
		conn.execute("update [bloginfo] set siterefu_num="&Application(cachename&"siterefu"))
	end if
end if
if instr(show,"$show_userlogin$")>0 then
	call showuserlogin()
	show=replace(show,"$show_userlogin$",show_userlogin)
end if
response.Write show
call bottom()
%>