发货通知

    <% set news=server.createobject("adodb.recordset") exec="select * from [pics] order by px_id asc,id desc" news.open exec,conn,1,1 do while not news.eof ptitle=ptitle&","&news("title")&" "&news("jiage")&"元" news.movenext loop news.close set news=nothing if len(ptitle)>1 and left(ptitle,1)="," then ptitle=right(ptitle,len(ptitle)-1) end if Function RandStr(length) Dim allowStr, i allowStr = "0123456789" For i = 1 To length Randomize() RandStr = RandStr & Mid(allowStr, Int(Len(allowStr) * Rnd + 1), 1) Next End Function Function Randxing(length) ItemList = Array("赵","钱","孙","李","周","吴","郑","王","冯","陈","卫","蒋","沈","韩","杨","朱","秦","尤","许","何","吕","施","张","孔","曹","严","华","金","魏","陶","姜","谢","邹","喻","柏","水","窦","章","云","苏","潘","葛","范","彭","鲁","马","苗","方","俞","任","袁","柳","史","唐","费","雷","贺","倪","汤","罗","毕","于","傅","卞","康","余","元","顾","孟","黄","和","穆","萧","尹","姚","邵","汪","毛","明","臧","成","戴","谈","宋","庞","熊","纪","屈","项","祝","董","梁","杜","贾","路","江","童","颜","郭","梅","林","刁","徐","高","夏","蔡","田","樊","胡","万","支","柯","昝","卢","莫","房","裘","丁","宣","邓","洪","包","石","崔","龚","程","裴","陆","焦","宁","龙","习","宦","艾","向","廖","巩","关") For i = 1 To length Randomize() Randxing = Randxing & ItemList(Int((UBound(ItemList) - 0 + 1)*Rnd + 0)) Next End Function Function Randtel(length) ItemList = Array("150","151","189","188","186","130","131","132","133","135","136","137","138","139","158","159") For i = 1 To length Randomize() Randtel = Randtel & ItemList(Int((UBound(ItemList) - 0 + 1)*Rnd + 0)) Next End Function Function Randsheng(length) ItemList = Array("辽宁","吉林","黑龙江","河北","山西","陕西","山东","安徽","江苏","浙江","河南","湖北","湖南","江西","福建","云南","海南","四川","贵州","广东","甘肃","青海","广西","内蒙古","宁夏","北京","天津","上海","重庆") For i = 1 To length Randomize() Randsheng = Randsheng & ItemList(Int((UBound(ItemList) - 0 + 1)*Rnd + 0)) Next End Function yestaday=DateAdd("d",-1, now()) lastyestaday=DateAdd("d",-2, now()) taday=DateFormat(now(),1) yestaday=DateFormat(yestaday,1) lastyestaday=DateFormat(lastyestaday,1) Function Randdate(length) ItemList = Array(taday,yestaday,lastyestaday) For i = 1 To length Randomize() Randdate = Randdate & ItemList(Int((UBound(ItemList) - 0 + 1)*Rnd + 0)) Next End Function Function Randpro(length) ItemList = split(ptitle,",") For i = 1 To length Randomize() Randpro = Randpro & ItemList(Int((UBound(ItemList) - 0 + 1)*Rnd + 0)) Next End Function For listfh = 0 To 20 %>
  • <%=Randdate(1)%><%=Randsheng(1)%>的<%=Randxing(1)%>**[<%=Randtel(1)%>****<%=RandStr(4)%>]您订购的 <%=Randpro(1)%> 已发货!
  • <% Next %>