📄 gfunction.asp
字号:
<%
Dim Db,Str
Set Db = new DataBase '数据库对象
Set Str = new StringObject '字符串对象
'列出联盟店分类
Sub ListUnionClass()
' On Error Resume Next
dim sSql
sSql = "Select * From tblUnionClass Order By UnionClassID"
Db.GetRecordSet(sSql)
Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>")
Db.gRs.MoveFirst
While not Db.gRs.EOF
Response.Write("<tr>")
Response.Write("<td class=p9>")
Response.Write("<font color=3A75C9> ")
Response.Write("<a href=/html/consume/list.asp?ClassID="+ Db.gRs("UnionClassID") +"&Page=1>")
Response.Write(""+ Db.gRs("UnionClassName") +"</a><br></font></td>")
Response.Write("</tr>")
Db.gRs.MoveNext
Wend
Response.Write("</table>")
End Sub
'列出最新联盟店
Sub ListNewUnion(iTop)
' On Error Resume Next
dim sSql
sSql="Select top "+ Cstr(iTop) +" UnionID,UnionName From tblUnionInfo Order By JoinDate DESC"
Db.GetRecordSet(sSql)
Response.Write("<table width=100% border=0 cellspacing=2 cellpadding=0>")
Db.gRs.MoveFirst
Do While not Db.gRs.EOF
Response.Write("<tr align=left>")
Response.Write("<td><font color=333333> □ <a href=shopping/html/consume/cust.asp?UnionID="&Db.gRs("UnionID")&">"&Db.gRs("UnionName")&"</a></font></td>")
Response.Write("</tr>")
Db.gRs.MoveNext
Loop
Response.Write("</table>")
End Sub
'列出商品分类(分级分类) (sParentClassID = "0" 为一级分类)
Sub ListProductClass(sParentClassID)
' On Error Resume Next
dim sSql,iClass
iClass = 0
iClass = cInt(len(sParentClassID) + 2)
if sParentClassID = "0" then
sSql = "Select * From tblProductClass Where Len(ProductClassID) = 2 Order By ProductClassID"
else
sSql = "Select * From tblProductClass Where Len(ProductClassID) = "& iClass &" and left(ProductClassID,"& iClass - 2 &") = '"& sParentClassID &"' Order By ProductClassID"
end if
Db.GetRecordSet(sSql)
Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>")
Db.gRs.MoveFirst
While not Db.gRs.EOF
Response.Write("<tr>")
Response.Write("<td class=p9>")
Response.Write("<font color=3A75C9> ")
Response.Write("<a href=/html/shop/list.asp?ClassID="+ Db.gRs("ProductClassID") +"&Page=1>")
Response.Write(""+ Db.gRs("ProductClassName") +"</a><br></font></td>")
Response.Write("</tr>")
Db.gRs.MoveNext
Wend
Response.Write("</table>")
End Sub
'列出柜台分类
Sub ListCounterClass()
' On Error Resume Next
dim sSql
sSql = "Select * From tblCounterClass Order By CounterClassID"
Db.GetRecordSet(sSql)
Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>")
Db.gRs.MoveFirst
While not Db.gRs.EOF
Response.Write("<tr>")
Response.Write("<td class=p9>")
Response.Write("<font color=3A75C9> ")
Response.Write("<a href=/html/shop/list.asp?ClassID="+ Db.gRs("CounterClassID") +"&Page=1>")
Response.Write(""+ Db.gRs("CounterClassName") +"</a><br></font></td>")
Response.Write("</tr>")
Db.gRs.MoveNext
Wend
Response.Write("</table>")
End Sub
'列出最新推荐商品//随机 iTop:数量 iIsCommend:推荐级别
Function ListNewCommendProduct(iTop,iIsCommend)
' On Error Resume Next
dim sSql
sSql="Select Top "+ Cstr(iTop) +" ProductID,ProductName,ProductPhoto From tblProductInfo Where IsCommend = '"+ Cstr(iIsCommend) +"' Order By RegDate DESC"
Db.GetRecordSet(sSql)
Response.Write("<table width=100% border=0 cellspacing=5 cellpadding=0>")
Response.Write("<tr align=center>")
Db.gRs.MoveFirst
Do While Not Db.gRs.EOF
Response.Write("<td>")
Response.Write("<table width=100% border=0 cellpadding=1 cellspacing=0 bgcolor=#CCCCCC>")
Response.Write("<tr>")
Response.Write("<td>")
Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>")
Response.Write("<tr>")
Response.Write("<td height=80 align=center><img src="+ Db.gRs("ProductPhoto") +" width=75 height=75></td>")
Response.Write("</tr>")
Response.Write("</table>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
Response.Write("</td>")
Db.gRs.MoveNext
Loop
Response.Write("</tr>")
Response.Write("<tr align=center>")
Db.gRs.MoveFirst
Do While Not Db.gRs.EOF
Response.Write("<td>")
Response.Write("<a href=/html/Shop/ProductInfo.asp?ProductID="+ Cstr(Db.gRs("ProductID")) +">"+ Db.gRs("ProductName") +"</a></td>")
Db.gRs.MoveNext
Loop
Response.Write("</tr>")
Response.Write("</table>")
End Function
'列出符合查询条件商品
Sub ListSearchProduct(sProductName,iPage)
' On Error Resume Next
dim sSql
sSql = ""
sSql = "select * from tblProductInfo where ProductName like '%" + sProductName + "%'"
Db.GetRecordSet(sSql)
If Db.gRs.EOF Then
Response.Write("<p></p><p align=center class=px14>没有您查询的商品！</p>")
Else
Db.gRs.PageSize = 10
Db.gRs.CacheSize = Db.gRs.PageSize
Db.gRs.AbsolutePage = iPage
Response.Write("<table width=97% border=0 cellpadding=0 cellspacing=0>")
For i = 0 to Db.gRs.PageSize - 1
If Db.gRs.EOF Then
i = i
Exit For
End If
If i Mod 2 = 1 Then
Response.Write("<tr bgcolor=efefef>")
Else
Response.Write("<tr>")
End If
Response.Write("<td height=24 align=middle>")
Response.Write(" ")
Response.Write("<a href=/html/shop/ProductInfo.asp?ProductID="+ Cstr(Db.gRs("ProductID")) +">")
Response.Write(""+ Db.gRs("ProductName") +"")
Response.Write("</a>")
Response.Write("</td>")
Response.Write("<td width=80 align=middle>")
Response.Write(" ")
Response.Write(Server.HTMLEncode(Db.gRs("Price")))
Response.Write("</td>")
Response.Write("<td width=70 align=middle>")
Response.Write(" ")
Response.Write(Server.HTMLEncode(Db.gRs("Quantity")))
Response.Write("</td>")
Response.Write("<td width=90 align=middle>")
Response.Write(" ")
Response.Write(Server.HTMLEncode(FormatDateTime(Db.gRs("EndDate"),1)))
Response.Write("</td>")
Response.Write("<td width=80 align=middle>")
Response.Write("<a href=/html/shop/ProductInfo.asp?ProductID="+ cStr(Db.gRs("ProductID")) +">")
Response.Write("查看")
Response.Write("</td>")
Response.Write("</tr>")
Db.gRs.MoveNext
Next
Response.Write("</table>")
Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0>")
Response.Write("<tr>")
Response.Write("<td align=right>")
Response.Write(" ")
Response.Write Db.ExportPageInfo(Db.gRs,iPage,i,"ProductSearch.asp?ProductName="+ sProductName +"&")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
End If
End Sub
'列出某一类商品
Sub ListOneClassProduct(sProductClass,iPage)
' On Error Resume Next
dim sSql
sSql = ""
sSql = "select * from tblProductInfo where ProductClass = '" + sProductClass + "'"
Db.GetRecordSet(sSql)
If Db.gRs.EOF Then
Response.Write("<p></p><p align=center class=px14>没有您查询的商品！</p>")
Else
Db.gRs.PageSize = 10
Db.gRs.CacheSize = Db.gRs.PageSize
Db.gRs.AbsolutePage = iPage
Response.Write("<table width=97% border=0 cellpadding=0 cellspacing=0>")
For i = 0 to Db.gRs.PageSize - 1
If Db.gRs.EOF Then
i = i
Exit For
End If
If i Mod 2 = 1 Then
Response.Write("<tr bgcolor=efefef>")
Else
Response.Write("<tr>")
End If
Response.Write("<td height=24 align=middle>")
Response.Write(" ")
Response.Write("<a href=/html/shop/ProductInfo.asp?ProductID="+ Cstr(Db.gRs("ProductID")) +">")
Response.Write(""+ Db.gRs("ProductName") +"")
Response.Write("</a>")
Response.Write("</td>")
Response.Write("<td width=80 align=middle>")
Response.Write(" ")
Response.Write(Server.HTMLEncode(Db.gRs("Price")))
Response.Write("</td>")
Response.Write("<td width=70 align=middle>")
Response.Write(" ")
Response.Write(Server.HTMLEncode(Db.gRs("Quantity")))
Response.Write("</td>")
Response.Write("<td width=90 align=middle>")
Response.Write(" ")
Response.Write(Server.HTMLEncode(FormatDateTime(Db.gRs("EndDate"),1)))
Response.Write("</td>")
Response.Write("<td width=80 align=middle>")
Response.Write("<a href=/html/shop/ProductInfo.asp?ProductID="+ cStr(Db.gRs("ProductID")) +">")
Response.Write("查看")
Response.Write("</td>")
Response.Write("</tr>")
Db.gRs.MoveNext
Next
Response.Write("</table>")
Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0>")
Response.Write("<tr>")
Response.Write("<td align=right>")
Response.Write(" ")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -