訂單頁面源代碼

1、所有訂單如下：%sql=selecttop8OrderComName,OrderClass,OrderIdFromOrderorderbyOrderiddescSetrs=Server.CreateObject(ADODB.Recordset)rs.opensql,conn,1,1ifrs.eofandrs.bofthenresponse.write對不起，沒有找到任何訂單elsedowhilenotrs.eof%ahref=Order.asp?OrderId=&Action=ShowOrder用戶注冊用戶名：密碼：16orUserName=AdminorUserName=adminThenE

2、rrorMsg1=trueElseErrorMsg1=FalseEndIfIfPassword=OrLen(Password)=0orLen(Password)16thenErrorMsg2=trueElseErrorMsg2=FalseEndIfIfErrorMsg1=TrueorErrorMsg2=TruethenResponse.Write(用戶名長度必須大于0，小于20)Response.Write(密碼不能為空，長度必須大于6，小于16)Response.Write(【返回】)EndIfIf(ErrorMag1=falseandErrorMsg2=false)ThenSetRsReg

3、=Server.CreateObject(Adodb.Recordset)SqlReg=Select*FromUserWhereUsername=&UserName&RsReg.OpensqlReg,Conn,1,3IfNot(RsReg.EoforRsReg.Bof)ThenResponse.Write(對不起，你的用戶名已經(jīng)被他人使用!)Response.Write(【返回】)Response.End()ElseRsReg.AddNewRsReg(UserName)=UserNameRsReg(Password)=PasswordRsReg.UpdateEndIfRsReg.CloseSe

4、tRsReg=NothingSession(UserName)=UserNameCallSuccess()EndIfEndSub+保存注冊信息完畢+登陸開始SubLogin()%用戶等陸用戶名：密碼：%EndSub+登陸結(jié)束+檢查登陸開始SubChkLogin()UserName=Request.Form(UserName)PassWord=Request.Form(PassWord)SetRsChk=Server.CreateObject(Adodb.RecordSet)SqlChk=SelectUserName,PassWordFromUserWhereUserName=&UserName

5、&AndPassword=&PassWord&RsChk.OpenSqlChk,Conn,1,1IfRsChk.EofOrBofThenResponse.Write(用戶名不存在)Response.Write(用戶名與密碼不一致，擁護密碼錯誤)Response.Write(【返回】)Response.End()ElseSession(UserName)=UserNameCallSuccess()EndIfEndSub+檢查登陸結(jié)束+用戶注冊成功或登陸成功函數(shù)開始SubSuccess()IfSession(UserName)=ThenCallLoginElse%用戶面板：歡送您增加訂單注銷登陸您

6、的訂單如下%sql=selecttop8OrderId,OrderComName,OrderClass,IsCheckFromOrderWhereOrderUserName=&Session(UserName)&orderbyOrderiddescSetrs=Server.CreateObject(ADODB.Recordset)rs.opensql,conn,1,1ifrs.eofandrs.bofthenresponse.write對不起&Session(UserName)&，沒有找到您的任何訂單elsedowhilenotrs.eof%aHref=Order.asp?OrderId=&A

7、ction=ShowOrder%tmpIsChk=Cint(rs(IsCheck)IftmpIsChk=1thenResponse.Write(已審核)ElseIftmpIsChk=0ThenResponse.Write(未審核)EndIf%ahref=Order.asp?Action=ModyOrder&OrderId=修改ahref=Order.asp?Action=DelOrder&OrderId=刪除網(wǎng)站類型：自己定制企業(yè)入門型企業(yè)宣傳型企業(yè)產(chǎn)品展示型企業(yè)電子商務(wù)型企業(yè)門戶公司名稱：網(wǎng)站建設(shè)目的：設(shè)計要求：網(wǎng)站內(nèi)容簡要介紹：網(wǎng)站需要的功能模塊：需要特殊功能的也請在這里寫下功能的描述網(wǎng)站

8、類型：自己定制企業(yè)入門型企業(yè)宣傳型企業(yè)產(chǎn)品展示型企業(yè)電子商務(wù)型企業(yè)門戶公司名稱：inputname=OrderComNametype=textclass=editboxsize=30value=網(wǎng)站建設(shè)目的：設(shè)計要求：網(wǎng)站內(nèi)容簡要介紹：網(wǎng)站需要的功能模塊：需要特殊功能的也請在這里寫下功能的描述inputtype=hiddenname=OrderIdvalue=顯示項目公司名稱添加人工程類型建站目的建站要求工程簡介工程模塊%IfSession(UserName)Then%備注如果你想確認訂單，請記住你訂單的唯一賬單號碼為：帳單號碼的作用：1確認客戶的利益不受到侵犯;2確認訂單的重要依據(jù):我們將根據(jù)你提供的訂單工程內(nèi)容與帳單號碼進行確認，只有在兩者一致的情況下我們才能最后確認。%SetRs=Server.Createobject(Adodb.Recordset)sql=selectOrderID,OrderComNamefromOrderwhereisCheck=0orderbyOrderIddescRs.CursorLocation=3Rs.OpenSql,Conn,1ArticleCount=Rs.RecordCountPageSize=20