回 帖 发 新 帖 刷新版面

主题:高手进来看看,动态转成静态HTML的,但我不懂,请高手来解释一下谢谢

这段代码是动态转成静态的ASP转成HTML的,但我不是很明白这里到底是什么意思,好些地方不懂,请高手指教,谢谢

'取模版
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)

'取模版结束

回复列表 (共1个回复)

沙发

超简单的一个标签替换...

参数都没有,有什么看不懂的?
具体哪里不懂?

我来回复

您尚未登录,请登录后再回复。点此登录或注册