read.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp" -->
<%
Dim rs
Set rs = conn.execute("SELECT username,email,qq,homepage,face,subject,message,writetime FROM [message] where id = "&Request("id"))
Response.Write "&postback=true"
Response.Write "&username="&server.URLEncode(rs(0))
Response.Write "&email="&server.URLEncode(RTrim(LTrim(rs(1))))
Response.Write "&qq="&server.URLEncode(RTrim(LTrim(rs(2))))
Response.Write "&homepage="&server.URLEncode(RTrim(LTrim(rs(3))))
Response.Write "&face="&server.URLEncode(rs(4))
Response.Write "&subject="&server.URLEncode(rs(5))
Response.Write "&body="&server.URLEncode(rs(6))
Response.Write "&writetime="&server.URLEncode(rs(7))
Set rs = nothing
call closeDB()
%>