huifu.asp

梦想世界虚拟社区

<%
if session ("name1") = "" or session ("name1") = "你不是一个注册用户" then
response.write ("你还未登录")
response.end
end if
zhuti = request ("t1")
neirong = request ("t2")
Set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("..\base\dumm.mdb")
Cnn.Open StrCnn
sz = "'" & session ("name1") &_
         "', '"& zhuti &_
         "', '"& neirong &_
		 "', '"& session ("num1") &_
         "', '"& now() & "'"
		 rs.open "insert into 回复(回复人,回复主题,回复内容,标识,时间) values("&sz&")",cnn 
%>
<%set re = Server.CreateObject("ADODB.recordset")
set rs1 = Server.CreateObject("ADODB.recordset")
set rs2 = Server.CreateObject("ADODB.recordset")
rs1.open "select 发表人 from 发表 where id = "& session ("num1") &"",cnn
if not rs1.eof then
set name2 = rs1("发表人")
name3 = name2
end if
rs2.open "update 发表 set 回复 = 回复 + 1,时间 = now() where id = "& session ("num1") &"",cnn

rs1.close
cnn.close
response.redirect "main.asp"
%>