index.asp

来自「博客模块：Blog是继Email、BBS、ICQ后的第四种网络交流方式」· ASP 代码 · 共 30 行

<!--#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()
%>