fbzt.asp

一般的,简单的的的的的的的的饿的饿恶毒 一般的,简单的的的的的的的的饿的饿恶毒 一般的,简单的的 的的 饿的饿恶毒

<!--#include file="conn.asp"-->
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''检测是否已经登陆'''''''''''''''
if session ("Username")="游客" or session("Rank")=0 then'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
response.write("<Script language='javascript'>alert('你还没有登陆！不能进行这项操作！请返回首页登陆！');location.href=('index.asp');</Script>")
end if'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function rep(sss)
sss=replace(sss,chr(10),"[LYL_BR]")
	names=replace(sss,"	","&nbsp;&nbsp;&nbsp;")
 rep=names
end function
Color=request.form("Color")
TopID=request.form("TopID")
ID=request.form("ID")
Titles=request.form("title")
Titles=rep(Titles)
Bodys=request.form("bodys")
Bodys=Server.HTMLEncode(Bodys)
Bodys=rep(Bodys)
Times=Now()
Sql="select * from Topic"
set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open Sql,conn,2,3
Rs.addnew
Rs("Title")=Titles
Rs("Body")="[COLOR]"&Color&"[/COLOR]"&Bodys&"[//COLOR]"
Rs("UserName")=session("Username")
Rs("forumID")=ID
Rs("entertime")=Times
rs("ReTime")=Times
Rs.update
Rs.close

sql="select * from forum where ID="&ID&""
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,3
	rs.update
	rs("topictitle")=Titles
	rs("username")=session("username")
	rs("entertime")=Times
	rs.update
	rs.close
	sql="select * from users where username='"&session("username")&"'"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,3
	rs.update
	rs("Money")=rs("Money")+5
	rs("TCount")=rs("TCount")+1
	rs.update
	rs.close
response.redirect("forum.asp?TopID="&TopID&"&ID="&ID&"")
%>