| |
| 友情链接： |
|
| 东方七彩原生态艺术文化 |
中华书画家网 |
| 泥客中国 |
<%
Dim obj_rs,i,x
i = 0
x = 0
Set obj_rs = obj_dbconn.Execute("Select * From product Where p_show=true Order By pid Desc")
If Not obj_rs.EOF Then
Do until obj_rs.EOF Or i = 6
If x = 0 Then
%>
<%
End If
%>
| |
|
<%
obj_rs.MoveNext
i = i + 1
x = x + 1
If x = 3 Then
x = 0
%>
| |
|
|
|
|
|
<%
End If
Loop
End If
Set obj_rs = Nothing
%>
|
| |
| |
|
<%
i = 0
x = 0
Set obj_rs = obj_dbconn.Execute("Select * From product Order By pid Desc")
If Not obj_rs.EOF Then
Do until obj_rs.EOF Or i = 6
If x = 0 Then
%>
<%
End If
%>
|
" target="_blank"> |
|
<%
obj_rs.MoveNext
i = i + 1
x = x + 1
If x = 3 Then
x = 0
%>
| |
|
|
|
|
|
<%
End If
Loop
End If
Set obj_rs = Nothing
%>
|
|
|
|
|
|
|
| |
| |
|
 |
用户ID：<% = Session.SessionID %>
登 陆：<% = FormatDateTime(Now,2)%> <% = FormatDateTime(Time,4) %> |
 |
 |
|
 |
| |
 |
|
|
|
|
| |
 |
|
|
|
|
| |
 |
|
|
|
|
| |
