'取模版
dim rs_2,sql_2,okfile
set rs_2 = server.CreateObject ("Adodb.recordset")
sql_2="select * from demo where ifuse=1 and demoid="&request("demoid")
rs_2.open sql_2,conn,1,1
okfile=rs_2("demohtml")
rs_2.close



okfile = replace(okfile,"navpro",navpro)


'取整体,头,尾模版
set rs_8 = server.CreateObject ("Adodb.recordset")
sql_8="select * from demo where ifuse=1 and demoid=27"
rs_8.open sql_8,conn,1,1
tophtml=rs_8("demohtml")
tophtml = replace(tophtml,"../images","images")
tophtml = replace(tophtml,"../research.asp","research.asp")
tophtml = replace(tophtml,"../class","class")
tophtml = replace(tophtml,"../keyword","keyword")


rs_8.close
okfile = replace(okfile,"$top$",tophtml)


set rs_8 = server.CreateObject ("Adodb.recordset")
sql_8="select * from demo where ifuse=1 and demoid=28"
rs_8.open sql_8,conn,1,1
endhtml=rs_8("demohtml")
endhtml = replace(endhtml,"../images","images")
endhtml = replace(endhtml,"../btoc","btoc")
rs_8.close

okfile = replace(okfile,"$end$",endhtml)

'取模版结束