各位大侠,,帮帮忙,,,谢谢

[ygx151]

请问如何使下面的程序实现URL的改变???



Sub article_bar_top(tit,body)

dim tmp,sqla,sid_num,nsid,nsname,a_end,s_id
sql="select s_id from jk_sort where c_id="&cid&" order by s_order"
set rs=joekoe_cms.exec(sql,1)
nsid=rs("s_id")

tmp=CMS_Skin_Mod.GetDB("left")

tmp=Replace(tmp,"{$tit}",tit)

tmp=Replace(tmp,"{$url}","?action=more&c_id="&cid&"&s_id="&nsid)

tmp=Replace(tmp,"{$body}",body)
tmp=Replace(tmp,"{$ukong}",CMS_Skin.skukong)
Response.Write (Vbcrlf&tmp)
rs.close
end Sub

本人屡改不得法,,望各位大侠帮帮小弟,,谢谢