-
- 加为好友
- 发送私信
- 在线聊天
|
| 发表于：2008-04-17 11:11:22 楼主 |
<!----滚动开始------>
<div>
<marquee scrollamount=1 scrollDelay=5 height='88' behavior="alternate" onMouseOver=this.stop() onMouseOut=this.start()>
<%dim action
action=request.QueryString("action")
select case action
case "ShowDetail"
call ShowDetail()
case else
call Main()
end select
%>
<% sub Main() %>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableborder1">
<%
intPageSize=5
strPageUrl="?Uid="&request("Uid")&""
SQLSelect="select I_SJID,C_ClassName,I_Hits,C_SJName,C_Img,C_Area,DT_AddDate,L_Check from TB_SJProducts"
SQLWhere=" where I_MemberID="&Uid&""
SQLOrder=" order by I_SJID desc"
SQLTable=trim(mid(SQLSelect,(instr(SQLSelect,"from")+4)))
SQL1="select count(*) from TB_SJProducts"&SQLWhere
intRecordCount=conn.execute(SQL1)(0)
call PageCute(intRecordCount,intPageSize)
SQL=SQLSelect&SQLWhere&SQLOrder
set rs=conn.execute(SQL)
if not rs.eof then
rs.move (CurrentPage-1)*intPageSize
for i=1 to intPageSize
%>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr> <td width="150"> <!----滚动开始------>
<!----图片调用------> <TABLE height=120 cellSpacing=0 cellPadding=0 width=130 border=0>
<TR>
<TD> <IMG height=2 src="imagg/img/cc01.jpg" width=3> </TD>
<TD background=imagg/img/cc02.jpg height=2> </TD>
<TD> <IMG height=2 src="imagg/img/cc03.jpg" width=7> </TD>
</TR>
<TR>
<TD width=1 background=imagg/img/cc04.jpg> </TD>
<TD width="100%" height="115" align="center" valign="bottom" class="htext">
<a href="?action=ShowDetail&Id= <%= rs("I_SJID") %>&Uid= <%= Uid %>">
<%if rs("C_Img") <>"" then response.write " <img src=../../UploadImgs/"&rs("C_Img")&" width=120 height=100 class='borderwhite' alt="&rs("C_SJName")&">" else response.write " <img src=../../UploadImgs/No_Pic.gif width=120 height=100 class='borderwhite'>" %>
</a> <br> <a href="?action=ShowDetail&Id= <%= rs("I_SJID") %>&Uid= <%= Uid %>"> <%= left_title(rs("C_SJName"),30) %> </a> </TD>
<TD width=7 background=imagg/img/cc05.jpg> </TD>
</TR>
<TR>
<TD> <IMG height=8 src="imagg/img/cc06.jpg" width=3> </TD>
<TD background=imagg/img/cc07.jpg height=8> </TD>
<TD> <IMG height=8 src="imagg/img/cc08.jpg" width=7> </TD>
</TR>
</TABLE> <!----图片调用结束------>
<%
rs.movenext
if rs.eof then exit for
next
else
response.write " <tr bgcolor='#FFFFFF'> <td colspan=2 align=center> <font color='#FF0000'>暂无记录 </font> </td> </tr>"
end if
%>
<%
rs.close
set rs=nothing
end sub %>
</marquee> </div> <!----滚动结束------> |
|
|
|
20
修改
删除
举报
引用
回复
| |
