|
If rs("Transport")="s" Then Transport = "卖家" Else Transport = "买家" End IF If rs("Transport")="b" Then TransportPostType = "<br>运费 平邮:"&rs("Postage_mail")&"元(RMB) 快递:"&rs("Postage_express")&"元(RMB)" End IF End IF
ip=rs("ip") if ip="" or isnull(ip) or instr(1,ip,".")=0 then ip="未知" else dim ipx ipx=Split(ip,".") ip=ipx(0)&"."&ipx(1)&"."&ipx(2)&".*" end if 292行: rs.update Title=rs.GetRows(-1) rs.close set rs=nothing '读取用户信息 i=UBound(Split(RePostUser,","))+1 set rs=conn.execute("select top "&i&" UserName,NickName,Sex,IDImage,IDiograph,Grade,Credit,Integral,Experience,MoneyNum,PostNum,RegTime,Admin,IDImagex,IDImagey from LxTel_User where UserName IN ("&RePostUser&")") DataNum=DataNum+1
|