<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Session("aConnectionString")
sql="select * from 公司 where 显示=1 and 上级='0' order by 公司id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3
i=1
while not rs.eof
if rs("商店名")<>"" then
%>
.asp?id=<%=rs("公司ID")%>">
<%shopname=rs("商店名")
shopname=mid(shopname,1,8)
response.write shopname%>
<%i=i+1
rs.movenext
else
rs.movenext
end if
wend
rs.close
conn.close
%>
<%amount=rs("paymentAmount")+session("select")
nian=cstr(year(date))
if len(nian)<>4 then
nian="20"+nian
end if
yue=cstr(month(date))
if len(yue)<>2 then
yue="0"+yue
end if
riqi=cstr(day(date))
if len(riqi)<>2 then
riqi="0"+riqi
end if
amount=10000000001.0000
amount=mid(amount,2,10)+mid(amount,13,2)
amount="0200003000"+amount
order=100000+2001
amount=amount&order
amount=amount&"????"
amount=amount&"????????????"
amount=amount+"??????"
amount=amount&"??"
amount=amount&"88013102EPGDL5311000001"
amount=amount&"000000000000000000000"
order2=rs("orderid")
amount=0200003000000000000100021001????????????????????????88013102EPGDL53110000010000000000000000000000006
%>
Best View:800*600 为了本系统能够更好的为您服务，请使用IE4.0或以上版本浏览器
版权所有 北方明珠工作室 制作 1999 电话：0411- 3602021 3608888/3705
<%shopname=rs("商店名")
shopname=mid(shopname,1,8)
response.write shopname%>.gif){kind=small}
