update.asp

来自「俄罗斯方块源码 俄罗斯方块源码 俄罗斯方块源码」· ASP 代码 · 共 16 行

<!--#include file="conn.asp"-->
<%
dim sql2,flashname,rs2
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from flash"
rs2.open sql2,conn,1,2
do while not rs2.eof 
flashname=rs2("id")
rs2("url")="swf/"&flashname&".swf"
response.write flashname&".swf<br>"
rs2.movenext
rs2.update
loop

%>