📄 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," "," ")
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)
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -