<% 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='280'>
<% '如果有超大圖則顯示按鈕 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 %>

<% if rsprod("strdemo")=2 then %> <% else %> <% 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("Sother"),80) & ".........."%>
簡      介： <%=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%>
              <%=rsprod("ProdId")%>    <%=rsprod("ProdName")%>         <單講次播放>
              
<%=MemoSpec%>
">           <%=rsink("ProdId")%>   <%=rsink("ProdName")%>   全 <%=rsink("Snumber")%> 集   <<%=rsink("School")%>>
<% end if %> <% end if %>