party_add_discuss.asp

广东交友源程序

<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%


if Request("discuss_content")<>"" then
	
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "party_discuss",conn1,3,2
	rs.addnew
	rs("id")=Request("id")
	rs("initiate_people")=Request("initiate_people")
	rs("user_name")=session("Current_user")
	
	'discuss_content=replace(Request("discuss_content"),chr(10),"<br>",1,-1,1)
	
	rs("discuss_content")=replace(Request("discuss_content"),chr(13),"<br>",1,-1,1)
	rs("time")=now()
	rs.update
	
end if
Response.Redirect "party_2.asp?id="&Request("id")


%>