<% dim ks ks=rsprod("Slink") sqlink="select * from ProdMain where Online=true and Slink='"& ks &"' order by AddDate desc" set rsink=Server.CreateObject("ADODB.RecordSet") rsink.open sqlink,conn,1,1 %> <% for i = 1 To 40 %> <% rsink.MoveNext if rsink.eof then exit for end if next set rsink=nothing %> <% '獲取商品點擊次數 n=rsprod("ClickTimes") if n< CKtimes then n=CKtimes n=n+1 '增加商品查看次數 conn.execute "UPDATE ProdMain SET ClickTimes ="&n&" WHERE ProdId ='"&id&"'" set rsprod=nothing %>
目前位置：首頁 > 【國家級精品課程】 > <%=Larcd%> > <%=Midcd%>

.jpg width='280' height='230'>
<% '如果有超大圖則顯示按鈕 if rsprod("FileOther")="1" then Set fileother=Server.CreateObject("ADODB.Recordset") prodid="select * from FileOther where ProdId='"&id&"'" fileother.Open prodid,conn,1,1 if fileother.bof and fileother.eof then response.write " " else response.write "" end if set fileother=nothing end if %>

<% else %>

高清版 <% end if %>

<% if rsprod("PriceOrigin")=0 then %> <% else %> <% end if %> <%end if%>
課程名稱:     <%=rsprod("ProdName")%>
課程編號： <%=rsprod("ProdId")%> 系列: 國家級精品課程
授課學校： <%=rsprod("School")%>

集數:

全 <%=rsprod("Snumber")%> 集

授課語言： <%=rsprod("Lang")%>

視頻:

 <% if rsprod("Copyright")=1 then %>

HD 版 

簡      介： <%=left(rsprod("ProdDisc"),80) & ".........."%>
<%=shichang%>： <%=rsprod("PriceOrigin")%> 元
學習價： <%if rsprod("quantity")=0 then response.write "備貨中..." elseif rsprod("PriceList")=0 then %> 請諮詢客服 <%else%> <%=rsprod("PriceList")%> 元 購 買： ','add','scrollbars=yes,resizable=no,width=650,height=450')"><%if rsprod("Quantity")>0 then %> <%else%> <%end if%>
  課 程 簡 介
   -3.jpg width='740' height='380'>
<%=MemoSpec%>
              <%=rsprod("ProdId")%>    <%=rsprod("ProdName")%>         <單講次播放>
              
">           <%=rsink("ProdId")%>   <%=rsink("ProdName")%>   全 <%=rsink("Snumber")%> 集   <<%=rsink("School")%>>
<% end if %> <% end if %>