<%'QQ:1093686970
Function htmlwrite(html)
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
Set dshtml = Server.CreateObject("ADODB.Recordset")
	Sql="Select * from FreeHost.FreeHost_HtmlStyle where nowuse='True'"
		dshtml.Open Sql,conn,1,1
if not dshtml.Eof Then
response.write dshtml(html)
Else
response.write "请先在后台设置模板<a href=/adm/>点此登录后台</a>"
end if
End Function
%>