book_end.asp

超酷的Flash片头动画

<!--#include file="conn.inc"-->
<% kok=request("pop") 
sql_s="select * from book  where trim(df)<>'删除' order by code desc" 
Set RS = Conn.Execute(SQL_s)  
session("pwdd")=ucase(cpassword) 
aiks=0 
do while not rs.eof 
   aiks=aiks+1 
   rs.movenext 
loop 
rs.movefirst %>
<%Response.Write "&aisk="&aiks&"&" %>
<% 
rs.move buch          
do while not rs.eof           
mm=mm+1
	 %>
<%Response.Write "&"&mm&"xh="&mm&"&"&mm&"phone="&rs("phone")& "&"&mm&"name="& rs("name")&"&"&mm&"dat="&rs("cdate")&"&"&mm&"tim="&rs("ctime")&"&"&mm&"ip="&rs("ipdz")&"&"&mm&"ly="&rs("bz")&"&"&mm&"df="&rs("df")&"&"&mm&"tx="&rs("tx")&"&"&mm&"em="&rs("em")&"&"&mm&"qq="&rs("qq")&"&"&mm&"code="&rs("code")&"&"%>
<%rs.movenext        
loop%>
<%Response.Write "&landing=1&"%>