📄 ashowrecord.asp

📁 online sales system of texttile mill was a project within which there was great opportunity for Lear
💻 ASP
字号:
<!-- #include file="conn.asp" -->

<html>
<head>
	
</head>

<body bgcolor="">
<center><FONT face=Georgia color=#cc0033 size=2><b>Welcome Administrator</font></center><br>

<%
if session("admin") = "" then
'manager not logged in
response.redirect "administrator.asp"
end if
%>
<%
dim rDay, rMonth, rYear, rDate, Da, rCity

rDay = request.form("day")
rMonth = request.form("month")
rYear = request.form("year")
rCity = request.form("city")

Da = rMonth&"/"&rDay&"/"&rYear

if rDay <> "0" then
response.write "<center><B><br><FONT face=tahoma size=2>Orders of day </b>" & Da
else
response.write "<center><B><br><FONT face=tahoma size=2>Orders of </b>"
select case rMonth
	case "1"
		response.write "January"
	case "2"
		response.write "February"
	case "3"
		response.write "March"
	case "4"
		response.write "April"
	case "5"
		response.write "May"
	case "6"
		response.write "June"
	case "7"
		response.write "July"
	case "8"
		response.write "August"
	case "9"
		response.write "September"
	case "10"
		response.write "October"
	case "11"
		response.write "November"
	case "12"
		response.write "December"
end select
end if

response.write "</center>"
Set oRs = Server.CreateObject("ADODB.RecordSet")
if rDay = "0" then

SQL = "select * from Orders where orderDate =#"& CDate(Da) & "#"
else
SQL = "select * from Orders where orderDate=#"& CDate(Da) & "#"
end if
Set oRs = objcon.execute(SQL)
if oRs.EOF then
	response.write "<center><br><FONT face=tahoma size=2><b>No records exist for this month in this city</Font></b></center>"
else
response.write "<center>"
response.write "<br><br><table Border=2 align=center bordercolor=#0000cc width=750>" &_
				"<tr><th><FONT face=tahoma size=2>Customer Name</Font></th><th><FONT face=tahoma size=2>Customer ID</Font></th><th><FONT face=tahoma size=2>Customer Phone</Font></th><th><FONT face=tahoma size=2>Customer Address</Font></th><th><FONT face=tahoma size=2>Product Name</Font></th><th><FONT face=tahoma size=2>Product Quantity</Font></th><th><FONT face=tahoma size=2>Crdit Card No</Font></th></tr>"
Set myrs = Server.CreateObject("ADODB.RecordSet")
Set oRs2 = Server.CreateObject("ADODB.RecordSet")

do while not oRs.EOF 
customer_id = oRs("BuyerId")
myrs.open "select * from Buyers where Buyerid=" & customer_id,objcon
	oRs2.open "select name from products where productid=" & oRs.Fields("productid"),objcon,2,3
	response.write "<tr><td><FONT face=tahoma size=2>" & Myrs.Fields("FirstName") & "</Font></td><td><FONT face=tahoma size=2>" & Myrs.Fields("UserNAme") & "</Font></td><td><FONT face=tahoma size=2>" & Myrs.Fields("phoneNumber") & "</Font></td><td><FONT face=tahoma size=2>" & MyRs.Fields("address") & "</Font></td><td><FONT face=tahoma size=2>" & oRs2.Fields("name") & "</Font></td><td><FONT face=tahoma size=2>" & oRs.Fields("quantity") & "</Font></td><td><FONT face=tahoma size=2>" & myrs.Fields("creditCardNumber") & "</Font></td> <td>"
Ors.moveNext
oRs2.close
Myrs.close
loop 

response.write "</table></center>"
end if
%>

</b><center><br><Font face=Tahoma size=1><a href=admin_options.asp>Go to options page</a></Font></center>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -