怎么改下面的代码让它显示影片名字

来源:百度知道 编辑:UC知道 时间:2024/05/30 20:52:49
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="62" align="center" valign="middle">
<%
szSQL = "SELECT TOP 10 v_pro_price.Price,v_proginfo.Prog_ID,v_proginfo.ProgName,v_proginfo.PhotoName,v_proginfo.JoinTime "
szSQL = szSQL & "FROM v_proginfo,v_pro_price "
szSQL = szSQL & "WHERE v_proginfo.Prog_ID=v_pro_price.Prog_ID AND v_proginfo.Part_No=1 "
szSQL = szSQL & "ORDER BY v_proginfo.Prog_ID DESC"
rsData.Open szSQL,con,1,3

for iCount = 0 to 9
if rsData.EOF then
szScript = "aLeftRightSlide[" & iCount & "]='<img src="
szScript = szScript & szPath & "images/photo.jpg"
szScript = szScript & " width=115 height=143 border=0></a>'" & Chr(10)
else
szPhotoNam

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="62" align="center" valign="middle">
<%
szSQL = "SELECT TOP 10 v_pro_price.Price,v_proginfo.Prog_ID,v_proginfo.ProgName,v_proginfo.PhotoName,v_proginfo.JoinTime "
szSQL = szSQL & "FROM v_proginfo,v_pro_price "
szSQL = szSQL & "WHERE v_proginfo.Prog_ID=v_pro_price.Prog_ID AND v_proginfo.Part_No=1 "
szSQL = szSQL & "ORDER BY v_proginfo.Prog_ID DESC"
rsData.Open szSQL,con,1,3

for iCount = 0 to 9
if rsData.EOF then
szScript = "aLeftRightSlide[" & iCount & "]='<img src="
szScript = szScript & szPath & "images/photo.jpg"
szScript = szScript & " width=115 height=143 border=0></a>'" & Chr(10)
else
szPhotoN