動(dòng)易的商城會(huì)員價(jià)格是開放的，如何使商品的會(huì)員價(jià)格必須登陸才能夠看到？
動(dòng)易商城在內(nèi)容頁(yè)顯示當(dāng)前訪問(wèn)者的價(jià)格標(biāo)簽是{$Price_Your} ，如果想在商城首頁(yè)及欄目頁(yè)顯示商品的當(dāng)前訪問(wèn)者的價(jià)格，這個(gè)標(biāo)簽沒法解決這個(gè)問(wèn)題，那么我們就另辟新徑來(lái)實(shí)現(xiàn)這個(gè)功能：
1、添加一個(gè)自定義標(biāo)簽
{$MY_price} 標(biāo)簽的定義：
提示內(nèi)容：在欄目頁(yè)或商城首頁(yè)相關(guān)地方顯示前訪問(wèn)者的價(jià)格
標(biāo)簽內(nèi)容：
<script language='javascript' src='/cn/shop/GetPrice.asp?ProductID={$ProductID}'></script>
優(yōu)先級(jí)：1
注意，將cn換成你安裝動(dòng)易的目錄
2、修改GetPrice.asp文件
將
Dim ProductID
ProductID = PE_CLng(Trim(request("ProductID")))
If ProductID > 0 Then
Response.Write "document.write('" & FormatNumber(GetPrice(), 2, vbTrue, vbFalse, vbTrue) & "');"
End If
改為
Dim ProductID
ProductID = PE_CLng(Trim(request("ProductID")))
If ProductID > 0 and not isNumeric(GetPrice()) Then
'Response.Write "document.write('" & FormatNumber(GetPrice(), 2, vbTrue, vbFalse, vbTrue) & "');"
Response.Write "document.write('" &GetPrice() & "');"
else
Response.Write "document.write('" & FormatNumber(GetPrice(), 2, vbTrue, vbFalse, vbTrue) & "元');"
End If
將
Case 0, 1 '未登錄
Select Case rs("ProductType")
Case 1, 2, 4, 5
dblTruePrice = rs("Price")
改為
Case 0, 1 '未登錄
Select Case rs("ProductType")
Case 1, 2, 4, 5
'dblTruePrice = rs("Price")
dblTruePrice = "請(qǐng)登陸"
3、將{$MY_price} 標(biāo)簽加入到首頁(yè)、及欄目頁(yè)的模板的相關(guān)地方。
圖片展示：
會(huì)員登錄后的顯示
此主題相關(guān)圖片如下：
