<!--#include file="conn.asp"-->
<!--#include file="inc/function.asp"-->
<%
'快问知道
Dim AskD,inHtml
Set AskD = Server.CreateObject("KwAsk.FunAsk")
	opendb
	set AskD.myConn =conn
	AskD.myPredb =predb
	AskD.Getsetting()
	siteinfo=AskD.siteinfo
	setting=AskD.setting
	AskD.GetTemplate("T-announces.html")
	  dim rs,id
	  id=clng(Request.QueryString("id"))
	  IF id=0 Then Response.Redirect("Announce.asp")
	  set rs=conn.execute("select * from "&predb&"Announce where id="&id)
	  
    inHtml=RexHtml(AskD.tempbody)
    inHtml=RexHtml_IF(inHtml)
    Response.Write(inHtml)
	set AskD.myConn =Nothing
    closedb
Set AskD = Nothing
%>