订单页面源代码.doc

!--#include爁ile=Inc/Const.asp--牋牋牋table爓idth=485爃eight=400燽order=0燾ellpadding=0燾ellspacing=0牋牋牋牋tr爓idt牋牋牋牋牋td爓idth=12nbsp;/td燽orde牋牋牋牋牋td爓idth=459爒align=topbrr=0燾e牋牋牋牋%Dim燗ction,Action1Action=Request(Action)Select燙ase燗ctionct燙ase?Reg?燗ct牋Call燫eg()ct燙ase?SaveRegon牋Call燬aveReg()n燙ase?Login()牋Call燣ogin())燙ase?ChkLoginn牋Call燙hkLogin()牋cti燙ase?AddOrder牋牋Call燗ddOrder()c燙ase?SaveOrderc牋Call燬aveOrder()ct燙ase?Success()牋Call燬uccess()?)c燙ase?ModyOrderc牋Call燤odyOrder()ct燙ase?SaveMody)牋Call燬aveMody()?ct燙ase?DelOrder?牋Call燚elOrder()c燙ase?LoginOut牋Call燣oginOut()c燙ase?ShowOrderc牋Call燬howOrder()牋tio燙ase燛lseOr牋Call燤ain()erEnd燬elect)++++++++++++++++++++++++++++主函数开始Sub燤ain()+%牋牋牋ain牋%牋++++++++++++++++++++++++主函数开始%?table?width=400?border=1?align=center?cellpadding=5?cellspacing=0?bordercolor=f5f5f5?style=border-collapse:collapse牋牋牋牋牋牋牋tr燾lass=table_row_1align=c牋牋牋牋牋牋td爃eight=30font燾olor=FF6633ter?cel所有订单如下：/font/td???/tr????%sql=select?top?8?OrderComName,OrderClass,OrderId燜rom燵Order]爋rder燽y燨rderid燿esclor=fSet爎s=燬erver.CreateObject(ADODB.Recordset)ssrs.open爏ql,conn,1,1bif爎s.eof燼nd爎s.bof爐henect(???response.write?p?align=centerfont?color=red?对不起，没有找到任何订单/font/pelse牋do爓hile爊ot爎s.eof%p?al牋牋?tr燾lass=table_row_1n=c牋牋牋牋牋牋牋牋td爃eight=30a爃ref=Order.asp?OrderId=%=Rs(OrderId)%Action=ShowOrder%=rs(OrderComName)rs(OrderClass)%/a/td牋牋牋/trtd爃牋?%Rs.movenextht牋爈oopmo牋爎s.closene牋爏et爎s=nothinght=牋爀nd營fnot牋?營f牋牋?/tableing牋pnbsp;/ph牋table爓idth=400燽order=0燼lign=center燾ellpadding=0燾ellspacing=0=ShowO牋牋牋牋牋牋牋tr=400燽牋牋牋牋牋牋牋牋td爓idth=20%?=0燼lign=牋牋牋牋牋牋牋牋牋form爊ame=Main1爉ethod=post燼ction=?ng=0燾ellsp牋牋牋牋牋牋牋牋牋牋div燼lign=centerod=post燼c牋牋牋牋牋牋牋牋牋牋牋input爐ype=submit爊ame=Main1爒alue=ng=0燾ellsp管理我的订单?class=button??????????????????????input?type=hidden?name=Action?value=Login牋牋牋牋牋牋牋牋牋牋/div?????inpu牋牋牋牋牋牋牋牋牋/form/tdinput?ty牋牋牋牋牋牋牋牋tdform爊ame=Main2爉ethod=post燼ction=?n?value=L牋牋牋牋牋牋牋牋牋牋div燼lign=centerethod=post??????????