=====
"
if not rs.EOF then
do while not rs.EOF
Response.Write "
("sex"))&"
rs.MoveNext
loop
else
Response.Write "
end if
Response.Write ""
if rs.State=1 then rs.Close
set rs=nothing
conn.Close
set conn=nothing
set req=nothing
end if
%>
2008年11月25日星期二
一个基于web的QQ程序 2（xml+asp）
用于处理xmlhttp请求的asp程序，看看时不是很简单啊！？？
=====
"
if not rs.EOF then
do while not rs.EOF
Response.Write ""&trim(rs("id"))&" "&trim(rs("uid"))&" "&trim(rs
("sex"))&" "
rs.MoveNext
loop
else
Response.Write "k
end if
Response.Write ""
if rs.State=1 then rs.Close
set rs=nothing
conn.Close
set conn=nothing
set req=nothing
end if
%>
=====
"
if not rs.EOF then
do while not rs.EOF
Response.Write "
("sex"))&"
rs.MoveNext
loop
else
Response.Write "
end if
Response.Write ""
if rs.State=1 then rs.Close
set rs=nothing
conn.Close
set conn=nothing
set req=nothing
end if
%>
订阅：
博文评论 (Atom)
没有评论:
发表评论