list.asp

Flash+XML+ASP作品展示源码程序

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp" -->
<%
Dim listcount
Dim rs
Set rs = conn.execute("select count(*) from [message] where projectsID="&Request.form("id"))
listcount = rs(0)
Set rs = nothing
Set rs = conn.execute("select id,username,subject,writetime from [message] where projectsID = "&Request.form("id")&" order by id desc")
if Not(rs.eof and rs.bof) then
Response.Write "&postback=true"
for i=1 to listcount
response.Write "&id"&i&"="&Server.URLEncode(rs(0))
response.Write "&username"&i&"="&Server.URLEncode(rs(1))
response.Write "&subject"&i&"="&Server.URLEncode(rs(2)) 
response.Write "&writetime"&i&"="&Server.URLEncode(rs(3))
rs.Movenext
Next
Set rs=nothing
call closeDB()
Response.write "&listcount="&listcount
else
Response.Write "&postback=false"
Response.End()
end if
%>