,host text,full_url text,referer text,method text,regexMatch text,ruleDesc text,webPagePhysicalPath text,desc text,type_str text)P++Ytablesqlite_sequencesqlite_sequenceCREATE TABLE sqlite_sequence(name,seq)‚6!!„7tablekernel_logkernel_logCREATE TABLE kernel_log (id integer primary key autoincrement,machine_id text,time datetime not null,version integer,type integer not null,res_type text,uid text,user text,subject text,object text,RequestRights text,GrantedRights text,AccessResult text,desc text,type_str text)ÉT$% li>")
else
TplStr=Replace(TplStr,"{OFmCoMob}","")
end if
if MKRs("OFmEmail")=true then
TplStr=Replace(TplStr,"{OFmEmail}","
")
else
TplStr=Replace(TplStr,"{OFmEmail}","")
end if
if MKRs("OFmway")=true then
TplStr=Replace(TplStr,"{OFmway}","
")
else
TplStr=Replace(TplStr,"{OFmway}","")
end if
if MKRs("OFmCoZip")=true then
TplStr=Replace(TplStr,"{OFmZip}","
")
else
TplStr=Replace(TplStr,"{OFmZip}","")
end if
if MKRs("OFmCoFax")=true then
TplStr=Replace(TplStr,"{OFmFax}","
")
else
TplStr=Replace(TplStr,"{OFmFax}","")
end if
if MKRs("OFmDIYA")=true then
TplStr=Replace(TplStr,"{OFmDIYA}","
")
else
TplStr=Replace(TplStr,"{OFmDIYA}","")
end if
if MKRs("OFmDIYB")=true then
TplStr=Replace(TplStr,"{OFmDIYB}","
")
else
TplStr=Replace(TplStr,"{OFmDIYB}","")
end if
if MKRs("OFmDIYC")=true then
TplStr=Replace(TplStr,"{OFmDIYC}","
")
else
TplStr=Replace(TplStr,"{OFmDIYC}","")
end if
if MKRs("OFmDIYD")=true then
TplStr=Replace(TplStr,"{OFmDIYD}","
")
else
TplStr=Replace(TplStr,"{OFmDIYD}","")
end if
if MKRs("OFmDIYE")=true then
TplStr=Replace(TplStr,"{OFmDIYE}","
")
else
TplStr=Replace(TplStr,"{OFmDIYE}","")
end if
Lidsql="select * from [Class] where id="&DLid
set Lidrs=server.CreateObject("adodb.recordset")
Lidrs.open Lidsql,conn,1,1
TplStr=replace(TplStr,"{LMClassName}",Lidrs("ClassName"))
Lidrs.close
set Lidrs=nothing
Sql="select * from [Info] where id="&PId
set Rs=Server.CreateObject("adodb.recordset")
Rs.Open Sql,Conn,1,1
TplStr=replace(TplStr,"{ProductsID}",Pid&"")
TplStr=replace(TplStr,"{ProductsName}",Rs("InfoName"))
QuantityUnitStr="" & vbcrlf
TplStr=replace(TplStr,"{QuantityUnit}",QuantityUnitStr&"")
QuantityUnitStr=""
TplStr= ShaTuocms.ProcessCustomTags(TplStr)&""
conn.close
set conn=nothing
Set ShaTuocms=Nothing
if html="yes" then
Call WriteToTextFile("goods.html",TplStr,"utf-8")
Response.write "生æˆè®¢è´å•é¡µå®Œæ¯•,请ç¨åŽ...... 开始生æˆç•™è¨€å•é¡µ......"
Response.write ""
else
Response.write TplStr
end if
Response.End
%>