UC知道如何让这段代码实现“按比例缩放数据库中的最新一张图片”！！！
来源：百度知道 编辑：UC知道 时间：2024/09/20 07:28:14
<!--#include file="conn.asp"-->
<%
strsql="select * from imgurl ORDER BY ID DESC"
set rs=server.createobject("ADODB.recordset")
rs.open strsql,conn,1,1
do until rs.eof
whatid=rs("id")
%>
<center><MARQUEE scrollAmount=1 scrollDelay=1 direction=up width=200 height=150>
<DIV align=center><img src="showimg.asp?id=<%=whatid%>" width=300 border=0></DIV>
<%
rs.movenext
loop%>
请高手指教！感激不尽！
<%
strsql="select * from imgurl ORDER BY ID DESC"
set rs=server.createobject("ADODB.recordset")
rs.open strsql,conn,1,1
do until rs.eof
whatid=rs("id")
%>
<center><MARQUEE scrollAmount=1 scrollDelay=1 direction=up width=200 height=150>
<DIV align=center><img src="showimg.asp?id=<%=whatid%>" width=300 border=0></DIV>
<%
rs.movenext
loop%>
请高手指教！感激不尽！
'Form1.frm
VERSION 5.00
Object = "#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5010
ClientLeft = 60
ClientTop = 345
ClientWidth = 7800
LinkTopic = "Form1"
ScaleHeight = 334
ScaleMode = 3 'Pixel
ScaleWidth = 520
StartUpPosition = 3 '窗口缺省
Begin MSComDlg.CommonDialog CommonDialog1
Left = 4635
Top = 3120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame Frame1
Caption = "Frame1"
Height = 3000
Left = 4500
TabIndex = 2
Top = 30
Width = 3180
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
ForeColor = &H80000008&
Height = 2625
Left = 120
ScaleHeight = 173
ScaleMode = 3 'Pixel
ScaleWidth = 194
TabIndex = 3
Top = 255
Width = 2940
Begin VB.Image