replytopic.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

TopID=request.form("TopID")
ID=request.form("ID")
TopicID=request.form("TopicID")
Titles=request.form("titles")
Titles=rep(Titles)
Bodys=request.form("bodys")
Bodys=Server.HTMLEncode(Bodys)
Bodys=rep(Bodys)
Times=Now()
Sql="select * from Reply"
set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open Sql,conn,2,3
Rs.addnew
Rs("Title")=Titles
Rs("Body")=Bodys
Rs("UserName")=session("Username")
Rs("TopicID")=TopicID
Rs("retime")=Times
Rs.update
Rs.close
'conn.execute("insert into Reply(Title,body,username,topicID,retime) values('"&Titles&"','"&Bodys&"','"&session("UserName")&"',"&TopicID&",'"&Times&"')")
conn.execute("update topic set ReUser='"&session("username")&"',Rebody='"&Titles&"',ReTime='"&Times&"',reply=reply+1 where ID="&TopicID&"")
	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")+1
	rs.update
	rs.close
response.redirect("forum.asp?TopID="&TopID&"&ID="&ID)
%>