ashowrecord.asp

来自「online sales system of texttile mill was」· ASP 代码 · 共 93 行

ASP
93 行
字号 
<!-- #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>

ashowrecord.asp - 源码说明

本页面展示了「online sales system of texttile mill was a project within which there was great opportunity for Lear」中的 ashowrecord.asp 源码文件，采用 ASP 编程语言编写，共 93 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与opportunity相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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