chuli.asp

梦想世界虚拟社区

<%
if session ("name1") = "" or session ("name1") = "你不是一个注册用户" then
response.write ("你还未登录")
response.end
end if
zhuti = request ("t1")%>
<% neirong = CStr(Replace(Request.Form("t2"),"'","")) %>
<% neirong = CStr(Replace(neirong,"<","< ")) %>
<% neirong = CStr(Replace(neirong,">"," >")) %>
<% MESSAGE = CStr(Replace(neirong,str,"<br>")) %>
<% neirong = CStr(Replace(neirong,vbCr,"<br>")) %>
<%
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
rs.open "select 金钱 from 资料 where 昵称 = '"&session ("name1")&"'",cnn
		  if rs("金钱") < 30 then 
            response.write ("你的金钱不够30C，请攒够前后再来查找")
           
			response.end 
			end if 
			 rs.close
sz = "'" & session ("name1") &_
         "', '"& zhuti &_
         "', '"& neirong &_
         "', '"& now() & "'"
		 rs.open "insert into 发表(发表人,文章主题,文章内容,时间) values("&sz&")",cnn 
%>
<%set re = Server.CreateObject("ADODB.recordset")
re.open "update 资料 set 金钱 = 金钱 - 30 where 昵称 = '" &session ("name1")&"'",cnn
cnn.close
response.redirect "main.asp"
%>