<% set conn=server.CreateObject ("adodb.connection") conn.CursorLocation =3 conn.Open application("ConnectionSTR") if session("account")="" then select case request("action") case "logint" account=checksql(request("account")) pwd=checksql(request("pwd")) sqlstr="select account from member where mem_pwd='"& pwd &"' and [account]='"& account &"' " & vbcrlf set tmpRs=conn.Execute (sqlstr) if tmpRs.eof then alertgolast("找不到會員資料") else session("account")=account end if tmpRs.close set tmpRs=nothing case "Am" end select else account=session("account") end if aName=checksql(request("aName")) %> <%=application("companyName")%>
 
訂單查詢

<%if session("account")="" and aName="" then%>
會員帳號:
密碼:
 

非會員姓名:
<%else%> <% if aName<>"" then sqlstr= " SELECT ORDER_SER" & VBCRLF sqlstr=sqlstr & " ,MEMBER.MEM_NAME" & VBCRLF 'sqlstr=sqlstr & " ,[ORDER].TONAME" & VBCRLF sqlstr=sqlstr & " ,ORDER_STATUS" & VBCRLF sqlstr=sqlstr & " ,TOTALS" & VBCRLF sqlstr=sqlstr & " ,getmoney" & VBCRLF sqlstr=sqlstr & " ,[order].CREDATE" & VBCRLF sqlstr=sqlstr & " FROM [Order]" & VBCRLF sqlstr=sqlstr & " left JOIN MEMBER ON [ORDER].account=MEMBER.account" & VBCRLF sqlstr=sqlstr & "WHERE Order.toname='"& aName &"'" else sqlstr= " SELECT ORDER_SER" & VBCRLF sqlstr=sqlstr & " ,MEMBER.MEM_NAME" & VBCRLF 'sqlstr=sqlstr & " ,[ORDER].TONAME" & VBCRLF sqlstr=sqlstr & " ,ORDER_STATUS" & VBCRLF sqlstr=sqlstr & " ,TOTALS" & VBCRLF sqlstr=sqlstr & " ,getmoney" & VBCRLF sqlstr=sqlstr & " ,[order].CREDATE" & VBCRLF sqlstr=sqlstr & " FROM [Order]" & VBCRLF sqlstr=sqlstr & " left JOIN MEMBER ON [ORDER].account=MEMBER.account" & VBCRLF sqlstr=sqlstr & "WHERE Order.account='"& account &"'" end if sqlstr=sqlstr & " ORDER BY [ORDER].ORDER_SER desc" SET RS=CONN.Execute (SQLSTR) with rs if .EOF then Response.Write "" Response.Write "" Response.Write "" & VBCRLF else do while not rs.eof Response.Write "" Response.Write "" Response.Write "" 'Response.Write "" SELECT CASE CSTR(.Fields ("ORDER_STATUS")) case "0" Response.Write "" CASE "1" Response.Write "" CASE "F" Response.Write "" CASE "S" Response.Write "" END SELECT Response.Write "" Response.Write "" Response.Write "" Response.Write "" & VBCRLF .MoveNext loop end if end with %>
【訂單列表】
訂單編號 訂購人 訂單狀態 總金額 實收金額  
找不到資料
"& .Fields ("ORDER_SER") &""& .Fields ("MEM_NAME") &""& .Fields ("TONAME") &"新訂單處理中訂單無效訂單全部出貨訂單"& .Fields ("TOTALS") &""& .Fields ("getmoney") &"
<%end if%>

Copyrightc© Two Sex Girls CD
建議瀏覽解析度 800X600

<% conn.Close set conn=nothing session("LinkStr")="/member/order.asp?" %>