<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="adovbs.inc"-->
<!--#include file="cod_ado.inc"-->
<%
if (isempty(session("bbsname")) or len(session("bbsname"))=0) then
response.write"ÄúµÄ¹ÜÀíÔ±²Ù×÷³¬Ê±£¬ÇëÖØеǽ£¡"
response.end
end if
dim objcnn2,rs2
strdsn=application("cvec")
strsql="select * from bbs where bbs_name='"&session("bbsname")&"'"
cod_adoopen objcnn2,rs2,strdsn,strsql
dim objcnn1,rs1
strdsn=application("cvec")
strsql="select * from bbs"
cod_adoopen objcnn1,rs1,strdsn,strsql
main=Request.form("main")
main=server.htmlencode(main)
datetime=date()&" "&time()
rs1.movefirst
for intrecord=1 to rs1.recordcount
if rs1.eof then
exit for
end if
set conn=server.CreateObject("adodb.connection")
application("cvec")="dsn=cvec;uid=sa;pwd=password"
conn.open application("cvec")
sql="insert into bbsmessage(bbsmessage_toreal,bbsmessage_main,bbsmessage_real,bbsmessage_date) values('"&rs1("bbs_real")&"','"&main&"','"&rs2("bbs_real")&"','"&datetime&"')"
Set rss=Server.CreateObject("ADODB.recordset")
rss.Open sql,conn
rs1.movenext
next
response.redirect "mastermain4.asp"
%>
