write.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp" -->
<%
Dim username,email,qq,homepage,subject,message,writetime,face,projectsID,rs
username=Request.form("username")
email=Request.form("email")
qq=Request.form("qq")
homepage=Request.form("homepage")
face=Request.form("faceID")
subject=Request.form("subject")
message=Request.form("body")
writetime=now()
projectsID=Request.form("projectsID")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = conn
rs.source = "select * from message"
rs.CursorType = 1
rs.LockType = 2
rs.open()
rs.addnew
rs(1)=username
rs(2)=email
rs(3)=qq
rs(4)=homepage
rs(5)=face
rs(6)=subject
rs(7)=message
rs(8)=writetime
rs(9)=projectsID
rs.update
rs.close
call closeDB()
Response.Write("&PostBack=true")
%>