甲状腺t3t4检查费用:谁能将我的这个代码转换一下啊?感激不尽

来源：百度文库 编辑：高考问答 时间：2024/05/09 19:15:36
<table width=246 height=80 border=0 cellpadding=0 cellspacing=2>
<tr>
<td width=80 height=80 rowspan=4><a href=shop/%22&rs(%22filename%22)&%22.htm target=blank><img class=border3 border=0 src="&rs("spic")&" width=80 height=80></a></td>
<td colspan="2">
<div align=left><a href=shop/"&rs("filename")&".htm target=blank><font class=word1>"&rs("sp_name")&"</font></a></div>
</td>
</tr>
<tr>
<td colspan="2">
<div align=left>市场价:<s>"&rs("marprice")&"</s>元</div>
</td>
</tr>
<tr>
<td colspan="2">
<div align=left>会员价:"&rs("memprice")&"元</div>
</td>
</tr>
<tr>
<td colspan="2">
<div align=left>VIP价:"&rs("vipprice")&"元</div>
</td>
</tr>
<tr>
<td width=80 height=2> </td>
<td height="2">
<div align="center"><a
href="shop/%22&rs(%22filename%22)&%22.htm"><img
height=18 alt=详细信息 src="1.files/htmshop-xx.gif"
width=50 border=0></a></div>
</td>
<td height="2">
<div align="center"><a
href="shop/%22&rs(%22filename%22)&%22.htm"><img
height=18 alt=立即购买 src="1.files/htmshop-gm.gif"
width=50 border=0></a></div>
</td>
</tr>
</table>

谁能帮我把上面这段代码转换成象下面这种格式啊!

sql="select top 4 * from goods order by id desc"
rs.open sql,conn,1,1
if rs.eof then
new1="暂时没有最新商品"
else
new1="<table width=90% border=0 align=center cellpadding=0 cellspacing=0><tr>"
i=0
do while not rs.eof
i=i+1
new2=new2&"<td><table width=246 height=80 border=0 cellpadding=0 cellspacing=0><tr><td width=80 height=80 rowspan=4><a href=shop/"&rs("filename")&".htm target=blank><img class=border3 border=0 src="&rs("spic")&" width=80 height=80></a></td><td><div align=left><a href=shop/"&rs("filename")&".htm target=blank><font class=word1>"&rs("sp_name")&"</font></a></div></td></tr><tr><td><div align=left>市场价:<s>"&rs("marprice")&"</s>元</div></td></tr><tr><td><div align=left>会员价:"&rs("memprice")&"元</div></td></tr><tr><td><div align=left>VIP价:"&rs("vipprice")&"元</div></td></tr></table></td>"
if i mod 2=0 then
new2=new2&"</tr><tr><td height=15></td></tr>"
end if
rs.movenext
loop
new2=new2&"</table>"
end if
rs.close
new3=""&new1&""&new2&""
mb1=replace(mb1,"[new]",new3)

完整的代码：
窗体上放置两个按钮和两个列表框。把下面的代码拷贝到代码中，就可以执行了。
Dim a(6, 6) As Integer
Dim b(6, 6) As Integer
Dim i, j As Integer
Dim t As String

Private Sub Command1_Click() '产生第一个矩阵按钮，用于生成第一个矩阵，并显示在list1中
For i = 0 To 5
t = "" '用于list1添加项目,循环初始化
For j = 0 To 5
a(i, j) = Int(Rnd * 11) '产生0-10的整数
t = t + Str(a(i, j)) '由于整数转换成字符串，前面会有一个空格，所以这里就不需要再添加空格了
Next j
List1.AddItem t 'list1中每一个项目，就是矩阵a的一行
Next i
End Sub

Private Sub Command2_Click() '转置按钮，转换矩阵并显示在list2中
For i = 0 To 5
For j = 0 To 5
b(j, i) = a(i, j) '转换矩阵
Next j
Next i
'显示矩阵
For i = 0 To 5
t = "" '用于list2添加项目,循环初始化
For j = 0 To 5
t = t + Str(b(i, j)) '由于整数转换成字符串，前面会有一个空格，所以这里就不需要再添加空格了
Next j
List2.AddItem t 'list2中每一个项目，就是矩阵b的一行
Next i
End Sub

同上

谁能将我的这个代码转换一下啊?感激不尽 谁能帮我翻译一下这个EMAIL，感激不尽 有人可以帮我分析一下这个网页的代码? 谁能帮我解析一下这个QQ空间的代码？ 帮我看一下这个FLASH代码的意思！ 我应该怎么改一下这个代码 请翻译一下这个句子在下感激不尽啊 谁能教我这个魔术 感激不尽 帮忙翻译一下，我感激不尽 帮我分析一下感激不尽