footer.asp

来自「生活者姿态整站程序 生活者姿态整站程序 生活者姿态整站程序」· ASP 代码 · 共 20 行

<%
sub endline()
	if stats<>"" then
		if session("userid")<>"" then
		conn.execute("update online set stats='"&replace(stats,"'","")&"' where id="&cstr(session("userid")))
		end if
		if membername<>"" then
		conn.execute("update online set stats='"&replace(stats,"'","")&"' where username='"&membername&"'")
		end if
	end if
	CloseDatabase
	endtime=timer()
response.write "<p><TABLE cellSpacing=0 cellPadding=0 width="""&TableWidth&""" border=0 align=center><tr><td>"&_
	"<p align=center><font color="&BodyFontColor&">"&index_ad_f&"</td></tr><tr valign=center><td align=center>"&Copyright&Version&"<br>"
if cint(Runtime)=1 then
response.write "页面执行时间："&FormatNumber((endtime-startime)*1000,3)&"毫秒"
end if
response.write "</font></td></tr></table> </body> </html>"
end sub
%>