loadtemplate.asp

苹果风格的论坛 asp编写

<%
if application("loadtemplate") = "" or request("mode") <> "" then
	Set rs = Conn.Execute("select * from sf_template")
	do until rs.eof
		application("sf_t_" & rs("title")) = rs("template")
		rs.movenext
	loop
	application("loadtemplate") = "yes"
end if


Class xbtemplate
	Private strtemplate
	Private  Sub Class_Initialize
		strtemplate = ""
	End Sub
	Public Function load(str)
		strtemplate = application("sf_t_" & str)
		strtemplate = Replace(strtemplate, "{styledir}", "style")
		load = strtemplate
	End Function
	Public Function tag(strtag, str)
		strtemplate = Replace(strtemplate, "{" & strtag & "}", str)
	End Function
	Public Function getstr()
		getstr = strtemplate
	End Function
	Public Sub print()
		response.write strtemplate
	End Sub 
End Class
%>