<% if Request("lx")<>"" then
session("lx")=request("lx")
end if
if Session("lx")="" then
Session("lx")="all"
end if
%>
<% select case Session("lx")
case "A1"
Response.Write "现金 "
case "A2"
Response.Write "支票 "
case "A3"
Response.Write "汇款 "
case "all"
response.write "所有"
End select
%>
<%
if Request.QueryString("searchname")<>null or Request.QueryString("searchname")<>"" then
searchname=Request.QueryString("searchname")
end if
'-----------------------------------------------------------------------------------------
'response.write lx
'response.write searchname
sql="SELECT * FROM feedbackinfo "
if searchname<>"" then
if searchname<>"reset" then
sql=sql & " where title LIKE "
sql=sql & "'%"
sql=sql & searchname
sql=sql & "%'"
sql=sql & " or "
sql=sql & " name LIKE "
sql=sql & "'%"
sql=sql & searchname
sql=sql & "%'"
sql=sql & " or "
sql=sql & " comment LIKE "
sql=sql & "'%"
sql=sql & searchname
sql=sql & "%'"
else
searchname=null
end if
if Session("lx")="all" then
sql = sql & "order by ID DESC"
else
sql = sql & "where leixing=" & Session("lx") &" order by ID DESC"
end if
else
if Session("lx")="all" then
sql = sql & "order by ID DESC"
else
sql = sql & "where leixing='" & session("lx") &"' order by ID DESC"
end if
end if
'Response.Write sql
'----------------------------------------------------------------------------------
%>
<%
dim sql
dim rs
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write " 还 没 有 任 何 相 关 信 息 "
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"view.asp"
showContent
showpage totalput,MaxPerPage,"view.asp"
else
if (currentPage-1)*MaxPerPage
<% if searchname<>null or searchname<>"" then
Response.write("搜索关键字" & searchname & "的结果如下：")
end if
%>
<% do while not rs.eof %>
定 购 合 同 |
编号 |
<%=rs("ID")%> |
订单日期 |
<%=rs("mess_date")%> <%=rs("mess_time")%> |
卡号 |
<%=rs("title")%> |
日期 |
<%
select case rs("leixing")
case "A1"
Response.Write "Select Data of Purchase "
case "A2"
Response.Write "Before Dec 2003 "
case "A3"
Response.Write "Dec 2003 "
case "A4"
Response.Write "Jan 2005 "
case "A5"
Response.Write "Feb 2005 "
case "A6"
Response.Write "Mar 2005 "
case "A7"
Response.Write "Apr 2005 "
case "A8"
Response.Write "May 2005 "
case "A9"
Response.Write "Jun 2005"
case "A10"
Response.Write "Jul 2005 "
case "A11"
Response.Write "Aug 2005 "
case "A12"
Response.Write "Sep 2005 "
case "A13"
Response.Write "Oct 2005"
case "A14"
Response.Write "Nov 2005 "
case "A15"
Response.Write "Dec 2005 "
case "A16"
Response.Write "Jan 2006 "
case "A17"
Response.Write "Feb 2006 "
case "A18"
Response.Write "Mar 2006 "
case "A19"
Response.Write "Apr 2006 "
case "A20"
Response.Write "May 2006 "
case "A21"
Response.Write "Jun 2006 "
case "A22"
Response.Write "Jul 2006"
case "A23"
Response.Write "Aug 2006"
case "A24"
Response.Write "Sep 2006"
case "A25"
Response.Write "Oct 2006"
case "A26"
Response.Write "Nov 2006"
case "A27"
Response.Write "Dec 2006"
End select
%>
|
购买地址 |
<%=rs("3")%> |
发票 |
<%=rs("2")%> |
名字 |
<%=rs("5")%> |
家庭电话 |
<%=rs("d1")%> |
移动电话 |
<%=rs("d2")%> |
传真 |
<%=rs("d3")%> |
E-mail: |
<%=rs("d4")%> |
地址 |
<%=rs("comment")%> |
州 |
<%=rs("4")%> |
国家 |
<%
select case rs("ddd")
case "A1"
Response.Write " Select Country "
case "A2"
Response.Write "Australia "
case "A3"
Response.Write "Brazil "
case "A4"
Response.Write "Brunie "
case "A5"
Response.Write "Canada "
case "A6"
Response.Write "England"
case "A7"
Response.Write "Hong Kong "
case "A8"
Response.Write "France "
case "A9"
Response.Write "India"
case "A10"
Response.Write "Indonesia "
case "A11"
Response.Write "Japan"
case "A12"
Response.Write "Malaysia "
case "A13"
Response.Write "Singapore "
case "A14"
Response.Write "Taiwan "
case "A15"
Response.Write "Thailand"
case "A16"
Response.Write "Turkey"
case "A17"
Response.Write "USA"
End select
%>
|
邮政编码 |
<%=rs("d5")%> |
|
| |
| |
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write ""
end function
%> |