 |
|
|
Welcome 下記の展示会場へお越しください。会場では最新刊を無料でプレゼントさせていただきます。
|
|
|
台湾自動車部品ガイド (Japanese Special) eBook
(2010 Edition)
|
|
|
|
|
<%
tag = ""
Dim cn,connstr
connstr = "Provider=Microsoft.Jet.Oledb.4.0;data source="&Server.MapPath("db/ttg.mdb")
set cn = Server.CreateObject("adodb.connection")
cn.open connstr
Randomize
upperbound = 20
lowerbound = 1
x = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
dim Orderby
Orderby = "id_pic"
for i = 0 to x
Orderby = "Rnd("& Orderby &")"
next
sql1 = "SELECT top 7 * FROM mis_ttg_prd_rnd ORDER BY "&Orderby
Set rs = cn.Execute(sql1)
'tag = "yespic" '直接取出
if not rs.eof then
tag = "yespic"
j = 1
REDIM pichome(50)
REDIM pichomek(50)
REDIM pichomen(50)
do until rs.eof
if len(trim(rs("filepath"))) > 0 then
filenames = "vip/pic/" & rs("ctm_id") & "/s/" & rs("filepath")
filename = "vip/pic/" & rs("ctm_id") & "/" & rs("filepath")
else
filename = "vip/pic/nopicture.gif"
end if
prd_url = "vip/prd_list_detail.asp?id_pic="&rs("id_pic")
tname = rs("prd_ename")
pichome(j) = " | ![]() | "
pichomek(j) = "" & left(rs("prd_ename"),20) &" | "
j = j + 1
rs.movenext
loop
end if
rs.close:set rs = Nothing
cn.close:set cn = Nothing
%>
<% if date() >= #2010/1/11# then %>
<% if tag = "yespic" then %>
| |
<% FOR m = 1 TO j-1 %>
<%= pichome(m) %>
<% NEXT %>
<% FOR m = 1 TO j-1 %>
<%= pichomek(m) %>
<% NEXT %>
|
|
<% else %>
| |
Proudly announcing!
This area will be effective in <%=date()+14%> |
|
|
<% end if %>
<% else %>
| |
Proudly announcing!
This area will be effective in Aug. 5, 2009 |
|
|
<% end if %>
|
