|
|
<%
Dim order_val, search_type, search_val
'------------------------------------------------
order_val = Trim(Request("order_val"))
search_type = Trim(Request("search_type"))
search_val = Trim(Request("search_val"))
Dim oDBconn
SET oDBconn = GetDBConn()
Dim curPage
curPage = Trim(Request("curPage"))
IF curPage = "" Then
curPage = 1
End IF
Dim post_qry
post_qry = " SELECT * FROM E_Order_Main "
Dim where_qry
IF search_type = "E" Then
where_qry = " WHERE userid = '"& search_val &"' "
Else
where_qry = " WHERE order_cd = '"& search_val &"' "
End IF
Dim orderby_qry
orderby_qry = " Order By idx DESC"
post_qry = post_qry & where_qry
Dim rsPost
Set rsPost = ExecutePage(oDBconn, post_qry, curPage, orderby_qry)
Dim totCount
totCount = ExecuteCount(oDBconn, post_qry)
Dim strParam
strParam = ""
%>
Results:
[ <%=totCount%> ] Found |
¿¹¾à Á¢¼öÀÏ |
¿¹¾à¹øÈ£ |
¿¹¾àÀÚ¸í |
ÃÑ °áÁ¦¾× |
¿¹¾àÁøÇà»óÅ |
°áÁ¦ |
<%
Dim ii, rowNumber, nTotalAmt
ii = 0
If totCount > 0 Then
rowNumber = totCount - ((curPage - 1) * G_PAGE_SIZE)
End IF
%>
<%IF CInt(totCount) = 0 Then 'Àå¹Ù±¸´Ï ¹°Ç° ¾øÀ½%>
You don't have any order information.
|
<%
Else
Do Until rsPost.EOF
ii = ii + 1
%>
<%=rsPost("insert_date")%> |
&curPage=<%=curPage%>&search_val=<%=search_val%>&order_val=<%=order_val%>&search_type=<%=search_type%>"><%=rsPost("order_cd")%>
|
<%=rsPost("Nick_Name")%> |
$ <%=PriceFormat(rsPost("bPay_amount"))%> |
<%IF Trim(rsPost("status")) = 1 Then%>¿¹¾àÁ¢¼ö<%End IF%>
<%IF Trim(rsPost("status")) = 2 Then%>ÇöÀç ¿¹¾à ó¸®Áß<%End IF%>
<%IF Trim(rsPost("status")) = 3 Then%>¿¹¾à¿Ï·á<%End IF%>
<%IF Trim(rsPost("status")) = 4 Then%>¿¹¾àÃë¼Ò<%End IF%>
|
<%IF Trim(rsPost("bPay")) = "N" Then%>°áÁ¦ ´ë±âÁß<%End IF%>
<%IF Trim(rsPost("bPay")) = "Y" Then%>°áÁ¦ ¿Ï·á<%End IF%>
|
<% rsPost.MoveNext
rowNumber = rowNumber - 1
Loop
End If
rsPost.close
set rsPost = Nothing
%>
|
<%Response.Write ShowPageBar(curPage,"","",strParam)%> |
|
|
|
|
|
|