% dim id,lmid,lbid lmid=Trim(request("lmid")) if lmid="" then response.Write("错误提示,请先选择栏目!") response.End() end if set rs0=conn.execute("select lmmc from T_LM where id="&lmid) lmmc=rs0("lmmc") set rs0=nothing id=Trim(request("id")) if id <> "" then set rs=conn.execute("select lbid,fbdw,bt,nr,about,fbrq,plsx,PicUrl,lbmc,Url1,lx,ll,zc,dw from V_xx where id="&id) lbid=rs("lbid") lbmc=rs("lbmc") fbdw=rs("fbdw") bt=rs("bt") fbrq=rs("fbrq") plsx=rs("plsx") PicUrl=rs("PicUrl") Url1=rs("Url1") lx=rs("lx") ll=rs("ll") zc=rs("zc") dw=rs("dw") set rs=nothing else fbdw=Session("bmmc") fbrq=cstr(date)&" "&cstr(time) lbid=Trim(request("lbid")) end if %>