转换product的方法
消息...
<%
dim ks:set ks=new publiccls
dim rsc,n
n=0
'set rsc=server.CreateObject("adodb.recordset")
'rsc.open "select channeltable from ks_channel where basictype=1 order by channelid",conn,1,1
'rsc.open "select channeltable from ks_channel order by channelid",conn,1,1
'do while not rsc.eof
response.write "正在转换表
Ks_product的内容字段!
"
dim rs:set rs=server.CreateObject("adodb.recordset")
rs.open "select prointro,title from Ks_product where prointro<>''",conn,1,3
do while not rs.eof
n=n+1
if n mod 10 =0 then
response.write ""
end if
rs(0)=KS.Htmlcode(rs(0))
rs.update
rs.movenext
response.flush
loop
rs.close
' rsc.movenext
'loop
'rsc.close
'set rsc=nothing
closeconn
response.write ""
response.write "恭喜,所有内容转换完毕!"
%>