主题:这段代码是什么意思,帮忙解释一下,谢谢
'取模版
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)
'取模版结束
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)
'取模版结束