我将限时抢购的内容转移到了手机页面上,可是点购买后都是进入到PC端链接上去了。已经查找到文件 limitbuy.asp 下面这段控制着的,但我不知道怎么才能改成3G的链接
strtips=" href="""& url &"""" 这个就是调用的链接
SqlStr = "SELECT top " & Num & " I.ID,I.Title,I.Fname,i.photourl,I.Tid,I.Price,I.Price_member,i.unit,I.IsLimitbuy,I.LimitBuyPrice,I.LimitBuyAmount,I.Unit,L.LimitBuyBeginTime,L.LimitBuyEndTime,L.TaskType,I.AddDate FROM KS_Product I Inner Join KS_ShopLimitBuy L ON I.LimitBuyTaskID=L.id Where L.Status=1"
If Id<>0 Then SqlStr=SqlStr & " and L.id=" & ID Else SqlStr=SqlStr & " order by l.id desc"
RS.Open SqlStr, conn, 1, 1
If Not RS.bof Then
' str="<ul>"
do while not RS.Eof
url=KS.GetItemURL(5,RS("Tid"),rs("ID"),RS("Fname"),RS("AddDate"))
photourl=rs("photourl")
if ks.isnul(photourl) then photourl=KS.GetDomain & "images/nopic.gif"
limitbuyBegintime=rs("limitbuyBegintime")
limitbuyendtime=rs("limitbuyendtime")
TaskType=rs("TaskType")
dim sysl:sysl=rs("limitbuyamount")
dim strtips
if sysl<=0 then
strtips=" href=""#""alert('抢购结束!');return false"" style=""cursor:pointer"""
else
strtips=" href="""& url &""""
end if
str=str & "<ul><img class=""pho""this.src='" & KS.GetDomain & "images/nopic.gif';"" src=""" & PhotoUrl & """ /><img class=""qiang"" src=""" & KS.GetDomain & "images/icon_qiang.png""><br/><p><a target=""_blank""" & strtips & " class=""limitbuytitle"" title=""" & rs("title") & """>" & rs("title") & "</a></p><p class=""mery"">¥" & FormatNumber(rs("LimitBuyPrice"),2,-1) & "</p><p>原价:<s>" & FormatNumber(rs("price"),2,-1) & "</s></p><div class=""qianggou""><a target=""_blank""" & strtips & ">立即抢购</a></div></ul>"