reply_add.asp

来自「自己做的毕业设计」· ASP 代码 · 共 36 行

<!--#include file="pass.asp "-->
<!--#include file="conn.asp "-->
<!--#include file="Char_Filter.asp "-->
<LINK href="image/css.css" type=text/css rel=stylesheet>
<%
user_id=session("user_id")
Content=changechr(Request("Content"))
topic_id=request("id")
if  Content="" Then 
%>
<table><tr><TD>
您有相关内容没有填写！</td></tr></table>
<%
Response.End
End If
sj = Date()
	  sj = sj & " " & Hour(Time()) & ":" & Minute(Time())
	  set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from guest_reply"
rs.open sql,conn,1,3
rs.addnew
rs("user_id")=user_id
rs("Content")=Content
rs("time")=sj
rs("topic_id")=topic_id
rs.update
rs.close
set rs=nothing
id=Cint(Topic_id)
set rs2=Server.CreateObject("ADODB.Recordset")
sql="select * from guest_topic Where id="&id
rs2.open sql,conn,1,3
rs2("replynum")=rs2("replynum")+1
rs2.update
response.redirect "ckly.asp"
%>