admin_product.asp
来自「本程序系统完全实现了医院网站程序的全部功能的前台和后台程序」· ASP 代码 · 共 1,083 行 · 第 1/5 页
ASP
1,083 行
Case 11
Querysql = Querysql & " and P.Stocks<=0"
Case 12
Querysql = Querysql & " and P.OnTop=" & PE_True
Case 13
Querysql = Querysql & " and P.IsHot=" & PE_True
Case 14
Querysql = Querysql & " and P.IsElite=" & PE_True
Case 15
Querysql = Querysql & " and P.EnableWholesale=" & PE_True
End Select
If ClassID <> 0 Then
If Child > 0 Then
Querysql = Querysql & " and P.ClassID in (" & arrChildID & ")"
Else
Querysql = Querysql & " and P.ClassID=" & ClassID
End If
End If
If SpecialID > 0 Then
Querysql = Querysql & " and I.SpecialID=" & SpecialID
End If
If ManageType = "MyProduct" Then
Querysql = Querysql & " and P.Inputer='" & UserName & "' "
End If
If Keyword <> "" Then
Select Case strField
Case "ProductName"
Querysql = Querysql & " and P.ProductName like '%" & Keyword & "%' "
Case "ProductIntro"
Querysql = Querysql & " and P.ProductIntro like '%" & Keyword & "%' "
Case "ProductExplain"
Querysql = Querysql & " and P.ProductExplain like '%" & Keyword & "%' "
Case "ProducerName"
Querysql = Querysql & " and P.ProducerName like '%" & Keyword & "%' "
Case "TrademarkName"
Querysql = Querysql & " and P.TrademarkName like '%" & Keyword & "%' "
Case Else
Querysql = Querysql & " and P.ProductName like '%" & Keyword & "%' "
End Select
End If
If ManageType = "Special" Then
totalPut = PE_CLng(Conn.Execute("select Count(*) from PE_InfoS I inner join PE_Product P on I.ItemID=P.ProductID " & Querysql)(0))
Else
totalPut = PE_CLng(Conn.Execute("select Count(*) from PE_Product P " & Querysql)(0))
End If
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
If ManageType = "Special" Then
Querysql = Querysql & " and I.InfoID < (select min(InfoID) from (select top " & ((CurrentPage - 1) * MaxPerPage) & " I.InfoID from PE_InfoS I inner join PE_Product P on I.ItemID=P.ProductID " & Querysql & " order by I.InfoID desc) as QueryProduct)"
Else
Querysql = Querysql & " and P.ProductID < (select min(ProductID) from (select top " & ((CurrentPage - 1) * MaxPerPage) & " P.ProductID from PE_Product P " & Querysql & " order by P.ProductID desc) as QueryProduct)"
End If
End If
If ManageType = "Special" Then
sql = sql & Querysql & " order by I.InfoID desc"
Else
sql = sql & Querysql & " order by P.ProductID desc"
End If
Set rsProductList = Server.CreateObject("ADODB.Recordset")
rsProductList.Open sql, Conn, 1, 1
If rsProductList.BOF And rsProductList.EOF Then
totalPut = 0
Response.Write "<tr class='tdbg'><td colspan='20' align='center'><br>"
If ClassID > 0 Then
Response.Write "此栏目及其子栏目中没有任何"
Else
Response.Write "没有任何"
End If
If EnableSale = "True" Then
Response.Write "<font color=green>销售中</font>的" & ChannelShortName & "！"
ElseIf EnableSale = "False" Then
Response.Write "<font color=blue>待销售</font>的" & ChannelShortName & "！"
Else
Response.Write ChannelShortName & "！"
End If
Response.Write "<br><br></td></tr>"
Else
Dim ProductNum, ProductPath
ProductNum = 0
Do While Not rsProductList.EOF
Response.Write " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
If ManageType = "Special" Then
Response.Write " <td width='30' align='center'><input name='InfoID' type='checkbox' onclick='CheckItem(this)' id='InfoID' value='" & rsProductList("InfoID") & "'></td>"
Response.Write " <td width='25' align='center'>" & rsProductList("InfoID") & "</td>"
Response.Write " <td width='120' align='center'>"
If rsProductList("SpecialID") > 0 Then
Response.Write "<a href='" & FileName & "&SpecialID=" & rsProductList("SpecialID") & "'>" & rsProductList("SpecialName") & "</a>"
Else
Response.Write " "
End If
Response.Write "</td>"
ElseIf ManageType = "Price" Then
Response.Write " <td width='25' align='center'><input name='ProductID' type='hidden' value='" & rsProductList("ProductID") & "'>" & rsProductList("ProductID") & "</td>"
Else
Response.Write " <td width='30' align='center'><input name='ProductID' type='checkbox' onclick='CheckItem(this)' id='ProductID' value='" & rsProductList("ProductID") & "'></td>"
Response.Write " <td width='25' align='center'>" & rsProductList("ProductID") & "</td>"
End If
Response.Write " <td>"
If ManageType <> "Special" Then
If rsProductList("ClassID") <> ClassID And ClassID <> -1 Then
Response.Write "<a href='" & FileName & "&ClassID=" & rsProductList("ClassID") & "'>["
If rsProductList("ClassName") <> "" Then
Response.Write rsProductList("ClassName")
Else
Response.Write "<font color='gray'>不属于任何栏目</font>"
End If
Response.Write "]</a> "
End If
End If
Response.Write "<a href='Admin_Product.asp?ChannelID=" & ChannelID & "&Action=Show&ProductID=" & rsProductList("ProductID") & "'"
Response.Write " title='" & ChannelShortName & "名称：" & rsProductList("ProductName") & vbCrLf
Response.Write ChannelShortName & "类别：" & arrProductKind(rsProductList("ProductKind")) & ChannelShortName & vbCrLf
Response.Write ChannelShortName & "型号：" & rsProductList("ProductModel") & vbCrLf
Response.Write ChannelShortName & "规格：" & rsProductList("ProductStandard") & vbCrLf
Response.Write "关 键 字：" & Mid(rsProductList("Keyword"), 2, Len(rsProductList("Keyword")) - 2) & vbCrLf
Response.Write "上市时间：" & rsProductList("UpdateTime") & vbCrLf
Response.Write "推荐等级："
If rsProductList("Stars") = 0 Then
Response.Write "无"
Else
Response.Write String(rsProductList("Stars"), "★")
End If
Response.Write "'>"
Select Case rsProductList("ProductKind")
Case 1
Response.Write "<font color='#000000'>"
Case 2
Response.Write "<font color='green'>"
Case 3
Response.Write "<font color='blue'>"
End Select
Response.Write rsProductList("ProductName") & "</font></a>"
Response.Write "</td>"
Response.Write " <td width='40' align='center'>"
Select Case rsProductList("ProductType")
Case 1
Response.Write "<font color='#000000'>正常</font>"
Case 2
Response.Write "<font color='green'>涨价</font> "
Case 5
Response.Write "<font color='red'>降价</font> "
Case 3
Response.Write "<font color='#FFCC00'>特价</font>"
If rsProductList("Begindate") > Date Then Response.Write "<br><font color='red'>未开始</font>"
If rsProductList("EndDate") < Date Then Response.Write "<br><font color='red'>已过期</font>"
Case 4
Response.Write "<font color='blue'>礼品</font> "
End Select
Response.Write " </td>"
If ManageType = "Price" Then
Response.Write " <td width='40' align='center' ><input type='text' name='Unit" & rsProductList("ProductID") & "' size='6' value='" & rsProductList("Unit") & "' style='text-align:center'></td>"
Response.Write " <td width='40' align='center' ><input type='text' name='Stocks" & rsProductList("ProductID") & "' size='6' value='" & rsProductList("Stocks") & "' style='text-align:center'></td>"
Response.Write " <td width='60' align='center' ><input type='text' name='Price_Market" & rsProductList("ProductID") & "' size='8' value='" & FormatNumber(rsProductList("Price_Market"), 2, vbTrue, vbFalse, vbFalse) & "' style='text-align:right'></td>"
Response.Write " <td width='60' align='center' ><input type='text' name='Price_Original" & rsProductList("ProductID") & "' size='8' value='" & FormatNumber(rsProductList("Price_Original"), 2, vbTrue, vbFalse, vbFalse) & "' style='text-align:right'></td>"
Response.Write " <td width='60' align='center' ><input type='text' name='Price" & rsProductList("ProductID") & "' size='8' value='" & FormatNumber(rsProductList("Price"), 2, vbTrue, vbFalse, vbFalse) & "' style='text-align:right'></td>"
Response.Write " <td width='60' align='center' ><input type='text' name='Price_Member" & rsProductList("ProductID") & "' size='8' value='" & FormatNumber(rsProductList("Price_Member"), 2, vbTrue, vbFalse, vbFalse) & "' style='text-align:right'></td>"
Response.Write " <td width='60' align='center' ><input type='text' name='Price_Agent" & rsProductList("ProductID") & "' size='8' value='" & FormatNumber(rsProductList("Price_Agent"), 2, vbTrue, vbFalse, vbFalse) & "' style='text-align:right'></td>"
Else
Response.Write " <td width='40' align='center'>" & rsProductList("Unit") & "</td>"
Response.Write " <td width='40' align='center'>" & rsProductList("Stocks") & "</td>"
Response.Write " <td width='110' align='left'><a href='#' title='当前零售价：" & Price2Str(rsProductList("Price")) & vbCrLf
Response.Write "原始零售价：" & Price2Str(rsProductList("Price_Original")) & vbCrLf
Response.Write "市场参考价：" & Price2Str(rsProductList("Price_Market")) & vbCrLf
Response.Write "会员价：" & Price2Str(rsProductList("Price_Member")) & vbCrLf
Response.Write "代理价：" & Price2Str(rsProductList("Price_Agent"))
Response.Write "'>原价："
If rsProductList("Price") = rsProductList("Price_Original") Then
Response.Write Price2Str(rsProductList("Price_Original"))
Else
Response.Write "<font color='red'><STRIKE>" & Price2Str(rsProductList("Price_Original")) & "</STRIKE></font>"
End If
Response.Write "<br>现价：" & Price2Str(rsProductList("Price"))
Response.Write "</a></td>"
Response.Write " <td width='60' align='center'>" & rsProductList("Hits") & "/" & rsProductList("BuyTimes") & "</td>"
Response.Write " <td width='80' align='center'>"
If rsProductList("OnTop") = True Then
Response.Write "<font color=blue>顶</font> "
Else
Response.Write " "
End If
If rsProductList("IsHot") = True Then
Response.Write "<font color=red>热</font> "
Else
Response.Write " "
End If
If rsProductList("IsElite") = True Then
Response.Write "<font color=green>荐</font> "
Else
Response.Write " "
End If
If Trim(rsProductList("ProductThumb")) <> "" Then
Response.Write "<font color=blue>图</font>"
Else
Response.Write " "
End If
If rsProductList("VoteID") > 0 Then
Response.Write "<a href='" & InstallDir & "Vote.asp?ID=" & rsProductList("VoteID") & "&Action=Show' target='_blank'>调</a>"
Else
Response.Write " "
End If
Response.Write " </td>"
Response.Write " <td width='40' align='center'>"
If rsProductList("EnableSale") = True Then
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?