quote.asp
来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 284 行
ASP
284 行
<!-- #include file="setup.asp" -->
<%
Menu=Server.HTMLEncode(Trim(Request.QueryString("Menu")))
Call Top
Call table()
Response.Write("<style><!-- TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}--></style><br>")
Select Case Menu
Case "Quote"
validate "Login.asp",2
Tab "查看产品报价：","请选择您要查看的报价类别！"
Response.write "<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style=""border-collapse: collapse""><TR><TD height=25 width=100% >"
Set File=Server.CreateObject("Scripting.FileSystemObject")
If 0 <> Err Then
SortListt
Else
If File.FileExists(Server.MapPath("inc/Sort.asp"))=True Then%>
<!-- #include file="inc/Sort.asp" -->
<%Else
SortListt
End if
End if
Response.write "</TD></TR></TABLE>"
set File=nothing
Case "List"
validate "Login.asp",2
Page=Trim(Request.QueryString("page"))
SortID=Request("SortID")
if IsNumEric(SortID)=False Then Error 2,"参数非法传递！",""
if Page = "" Then Page=1
if IsNumEric(Page)=False Then Error 2,"参数非法传递！",""
sql="Select FunctionInfo From Functions where FunctionID Between 13 and 15"
Set Rs = Conn.Execute(sql)
ProductI=Rs("FunctionInfo")
rs.movenext
ProductII=Rs("FunctionInfo")
rs.movenext
ProductIII=Rs("FunctionInfo")
rs.close
Set Rs = Nothing
Sql="Select ProductID,ProductNum,ProductCnName,ProductI,ProductII,ProductIII From Product_Info Where ProductConceal=False and ProductSort="&SortID&" order by ProductArrange"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open Sql,conn,1
rs.pagesize=50
page=Cint(page)
if Page < 1 Then Page=1
if Page > rs.pagecount then Page=rs.pagecount
num=rs.recordcount
maxpage=rs.pagecount
%>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
<tr><td height="25" background=images/title_sub.gif style="border-right: 0px none; border-top: 0px none">
<b> ■ </b>产品报价单</td>
</tr></table>
<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
<TR>
<TD height=12 width="100%" >
<table width="100%" border="0">
<tr><td><img src="images/2.gif" width="60" height="9">以下是您需要的产品报价</td>
<td><div align="right"><select onChange=MM_jumpMenu('parent.main',this,0)><option selected>其他报价</option><% Sortlist %></select></div></td>
</tr>
</table></TD></TR></TABLE>
<Script>
function MM_jumpMenu(targ,selObj,restore){ //v3.0
if(selObj.options[selObj.selectedIndex].value!=""){
eval(targ+".location='"+"?Menu=<%=Request("menu")%>&SortID="+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
}
</Script>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24" bgColor="#ecf5ff">
<TR height=25>
<TD width=13% align=middle> <p align="center">货号</TD>
<TD align=middle width="27%"><div align="center"> 产品名称</div></TD>
<TD align=middle width="20%"> <div align="center"><%= ProductI %></div></TD>
<TD align=middle width="20%"><div align="center"><%= ProductII %></div></TD>
<TD width="20%" align=middle><div align="center"><%= ProductIII %></div></TD>
</TR>
</TABLE>
<% if Not Rs.Eof Then showonepage rs,Cint(Page)
Rs.Close
Set Rs = Nothing%>
<table width="100%" border="0" cellspacing="4"><tr>
<td><strong>本论坛共有 <font color="#CC3300"> <%= maxpage %> </font>页 [ <% Npage page,maxpage %>]</strong></td>
<form ><td><div align="right">跳转到第 <input type="text" name="pagel" size="2" maxlength=3 value=<%=page%>> 页 <input name="go" type="button" value="GO!" Onclick=javascript:location.href='?Menu=<%= Request("menu") %>&SortID=<%= Request("SortID") %>&page='+form.pagel.value;>
</div></td></form></tr></table>
<%
Case "fortune"%>
<TABLE align=center borderColor=a4b6d7 cellSpacing=0 cellPadding=5 width=100% border=1 style="border-collapse: collapse" background=images/title_sub.gif >
<TBODY><TR>
<TD align="center"><b><font color="#FFFFFF"><a href=usercp.asp><font color=#ffffff title="">控制面板首页</font></a></font></a></TH></font></b>
<Td align="center"><b><font color="#FFFFFF"><a href="UserEdit.asp?Menu=UpPhoto"><font color="#FFFFFF">用户照片上传</font></a></TH> </font>
</b><TD align="center"><b><font color="#FFFFFF"><a href="UserEdit.asp?Menu=Basic"><font color="#FFFFFF">基本资料修改</TH> </font></a> </font>
</b><TD align="center"><b><font color="#FFFFFF"><a href="UserEdit.asp?menu=Community"><font color="#FFFFFF">社区资料修改</TH></font></a></font>
</b><TD align="center"><b><font color="#FFFFFF"><a href="UserEdit.asp?menu=UserPsd"><font color="#FFFFFF">用户密码修改</TH> </font></a></font></b>
<TD align="center"><b><font color="#FFFFFF"><a href="message.asp"><font color="#FFFFFF">用户短信服务</TH> </font></a> </font>
</b><TD align="center"><b><font color="#FFFFFF"><a href="Quote.asp?menu=fortune"><font color="#FFFFFF">查看财富排行</font></a></TH> </font>
</b></TR></TBODY></TABLE><HR width="100%" SIZE=1>
<%Tab "财富排行榜","以下是社区前50位富翁"%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24" bgColor="#ecf5ff">
<TR height=25>
<TD width=11% align=middle> <p align=center>财富排名</TD>
<TD width=11% align=middle><div align="center">用户号</div></TD>
<TD align=middle width=11%> <div align=center>真实姓名</div></TD>
<TD align=middle width=13%> <div align=center>社区昵称</div></TD>
<TD width=9% align=middle> <div align=center>性别</div></TD>
<TD align=middle width=14%><div align=center>用户类型</div></TD>
<TD align=middle width=9%><div align="center">金钱</div></TD>
<TD align=middle width=22%><div align=center>上次登陆时间</div></TD>
</TR>
</TABLE>
<%Sql="Select Top 50 UserGrade,UserSex,UserID,UserName_1,UserMoney,UserName_2,UserLastT From UserInfo Where DelThis=False Order by UserMoney Desc,UserID"
Set Rs = Conn.Execute(Sql)
i=1
Do While Not Rs.Eof
if Rs("UserSex")=False Then
Sex="女"
Else
Sex="男"
End if
Select case rs("UserGrade")
case 0,1
Uleve="普通用户"
case 2
Uleve="VIP会员"
case 3
Uleve="社区管理员"
case 4
Uleve="商城管理员"
case 5
Uleve="总管理员"
case 6
Uleve="商城站长"
End Select%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24">
<TR height=25>
<TD width=11% align=middle> <p align=center>第 <font color="#FF0000"><%= i %> </font>名</TD>
<TD width=11% align=middle><div align="center"><%= Rs("UserID") %></div></TD>
<TD align=middle width=11%> <div align=center><%= Rs("UserName_1") %></div></TD>
<TD align=middle width=13%> <div align=center><%= Rs("UserName_2") %></div></TD>
<TD width=9% align=middle> <div align=center><%= sex %></div></TD>
<TD align=middle width=14%><div align=center><%= Uleve %></div></TD>
<TD align=middle width=9%><div align="center"><font color="#FF3300"><%= Rs("UserMoney") %></font></div></TD>
<TD align=middle width=22%><div align=center><%= Rs("UserLastT") %></div></TD>
</TR>
</TABLE>
<%Rs.Movenext
i=i+1
Loop
Rs.Close
Set Rs = Nothing
Case "distribution"
Tab "产品销售爬行榜","以下是前50种热销产品"%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24" bgColor="#ecf5ff">
<TR height=25>
<TD width=12% align=middle> <p align=center>销售排名</TD>
<TD width=11% align=middle><div align="center">货号</div></TD>
<TD align=middle width=17%> <div align=center>中文名</div></TD>
<TD align=middle width=14%> <div align=center>总销售量</div></TD>
<TD width=10% align=middle> <div align=center>规格</div>
<div align="center"></div></TD>
<TD align=middle width=12%><div align=center>包装</div></TD>
<TD align=middle width=24%><div align="center">加入时间</div></TD>
</TR>
</TABLE>
<%
Sql="Select Top 50 ProductNum,ProductID,ProductCnName,ProductBuy,ProductSf,ProductPacking,ProductAddtime From Product_Info Where DelThis=False and ProductConceal=False Order By ProductBuy Desc,ProductID"
Set Rs = Conn.Execute(Sql)
i=1
Do While Not Rs.Eof%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24">
<TR height=25>
<TD width=12% align=middle> <p align=center>第 <font color="#FF0000"><%= i %> </font>名</TD>
<TD width=11% align=middle> <div align="center"><%= Rs("ProductNum") %></div></TD>
<TD align=middle width=17%> <div align=center title="点击查看<%= Rs("ProductCnName") %>的详细信息"><a href=ShowProDuct.asp?ProID=<%= Rs("ProductID") %>><%= Rs("ProductCnName") %></a></div></TD>
<TD align=middle width=14%> <div align=center><font color="#FF6600"><%= Rs("ProductBuy") %></font></div></TD>
<TD width=10% align=middle> <div align=center><%= Rs("ProductSf") %></div></TD>
<TD align=middle width=12%><div align=center><%= Rs("ProductPacking") %></div></TD>
<TD align=middle width=24%><div align="center"><%= Rs("ProductAddtime") %></div></TD>
</TR>
</TABLE>
<%i=i+1
Rs.Movenext
Loop
Rs.Close
Set Rs = Nothing
Case Else
Error 1,"参数非法传递！\n您的IP已被纪录",""
End Select
htmlend
sub showonepage(rs,page)
rs.absolutepage=page
For ipage=1 to rs.pagesize
rsToGbook rs
rs.MoveNext
if rs.EOF Then Exit For
Next
end sub
sub RsToGbook(rs)%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24" >
<TR height=25>
<TD width=13% align=middle> <p align="center"><%= Rs("ProductNum") %></TD>
<TD align=middle width="27%"><div align="center" title="点击查看<%= Rs("ProductCnName") %>的详细信息"><a target=_blank href=ShowProDuct.asp?ProdID=<%= Rs("ProductID") %>><%= Rs("ProductCnName") %></a></div></TD>
<TD align=middle width="20%"> <div align="center"><%= FormatCurrency(Rs("ProductI")) %></div></TD>
<TD align=middle width="20%"><div align="center"><%= FormatCurrency(Rs("ProductII")) %></div></TD>
<TD width="20%" align=middle><div align="center"><%= FormatCurrency(Rs("ProductIII")) %></div></TD>
</TR>
</TABLE>
<%end sub
Sub Tab(Msg1,Msg2)%>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
<tr><td height="25" background=images/title_sub.gif style="border-right: 0px none; border-top: 0px none">
<b> ■ </b><%= Msg1 %></td>
</tr></table>
<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
<TR>
<TD height=12 width="75%" > <img src="images/2.gif" width="60" height="9"><%= Msg2 %></TD>
</TR></TABLE>
<%End Sub
Sub Npage(page,Allpage)
a=page-5
b=page+5
if page > 6 Then Response.write "<a href=?Menu="&Request("menu")&"&SortID="&Request("SortID")&"&page=1>1</a> ... "
For a=a to b
if a > 0 and a <= Allpage Then
Response.write "<a href=?Menu="&Request("menu")&"&SortID="&Request("SortID")&"&page="&a&">"&a&"</a> "
End if
Next
if Page < Allpage - 5 Then Response.write "... <a href=?Menu="&Request("menu")&"&SortID="&Request("SortID")&"&page="&Allpage&">"&Allpage&"</a> "
End Sub
Sub Sortlist
Set rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.Open "Product_Sort",Conn,1
Do While Not Rs1.Eof
Response.write "<option value="&rs1("SortID")&">"&rs1("SortCnName")&"</option>"
Rs1.Movenext
Loop
Rs1.Close
End Sub
sub SortListt
dim Sonsort,Product
Response.write "<ol>"
sql="select * From Product_Sort where SortDad=0 order by SortNum"
rs.open sql,conn,1
do while not rs.eof
Sonsort=conn.execute("Select count(SortID)from Product_Sort where SortDad="&rs("SortID"))(0)
Product=conn.execute("Select count(ProductID)from Product_Info where ProductSort="&rs("SortID"))(0)
Response.write "<li><a href=?Menu=List&SortId="&rs("SortID")&">"&rs("SortCnName")&"</a> ---- [包含"&Sonsort&"个子类,"&Product&"个产品]</li> "
if rs("SortSon")<>0 then Tsort rs("SortID"),selec
rs.movenext
loop
Response.write "</ol>"
Rs.Close
end sub
sub Tsort(id,selec)
dim Sonsort,Product
Response.write "<ol>"
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql="Select * From Product_Sort where SortDad="&id&" order by SortNum"
rs1.open sql,conn,1
do while not rs1.eof
Sonsort=conn.execute("Select count(SortID)from Product_Sort where SortDad="&rs1("SortID"))(0)
Product=conn.execute("Select count(ProductID)from Product_Info where ProductSort="&rs1("SortID"))(0)
Response.write "<li><a href=?Menu=List&SortId="&rs1("SortID")&">"&rs1("SortCnName")&"</a> ---- [包含"&Sonsort&"个子类,"&Product&"个产品]</li> "
Uid=rs1("SortID")
if rs1("SortSon")<>0 then Tsort Uid,selec
rs1.movenext
loop
Response.write "</ol>"
Rs1.Close
end sub%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?