datamanage.asp

一个网络相册

<!--#include file="conn1.asp"-->
<!--#include file="iXs_Ip.asp"-->
<%
dim address
set Rs=server.createobject("adodb.recordset")
sql="select * from list order by lastimebk Desc"
rs.open sql,conn,1,3 
do while not rs.eof
address=look_ip(rs("IP"))
rs("address")=address
rs.update
rs.movenext
loop
	if err.number <> 0 then
	    response.write "数据库操作出错:" + err.description
	else %>
        <script language=vbscript>
			msgbox "操作成功!"
		</script>
<%end if%>