订单页面源代码.doc

《订单页面源代码.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、                                   
    <%Dim Action,Action1Action=Request("Action")Sele

2、ct Case Action Case "Reg"   Call Reg() Case "SaveReg"  Call SaveReg() Case "Login"  Call Login() Case "ChkLogin"  Call ChkLogin()   Case "AddOrder"  Call AddOrder() Case "SaveOrder"  Call SaveOrder() Case "Success"  Call Success()  Case "ModyOrder"  Call ModyO

3、rder() Case "SaveMody"  Call SaveMody()  Case "DelOrder"  Call DelOrder() Case "LoginOut"  Call LoginOut() Case "ShowOrder"  Call ShowOrder()   Case Else  Call Main()End Select'++++++++++++++++++++++++++++主函数开始Sub Main()%>        <%  '++++++++++++++++++++++主函数

4、开始%>                           所有订单如下：       <%sql=

5、"select top 8 OrderComName,OrderClass,OrderId From [Order] order by Orderid desc"Set rs= Server.CreateObject("ADODB.Recordset")rs.open sql,conn,1,1if rs.eof and rs.bof then   response.write " 对不起，没有找到任何订单

6、hile not rs.eof%>                     &Action=ShowOrder"><%=rs("OrderComName")&"-----"&rs("OrderClass")%>         <%Rs.movenext   loop   rs.close   set rs=nothin

7、g   end If   %>