pmstart.asp

ASP+SQL Server动态网站开发从基础到实践教程

<!--#include file="config.asp" -->
<%
varUserID = session.Contents("UserID")
varUser2ID = request("sltUser2ID")
varMessage = request("txtMessage")
varMessage = "<b><font color=red>" & session.contents("Username") & ":</font></b> " & varMessage

call openDB

'将私聊双方的信息保存到数据库表pm中
rs.Open "PM", conn, 2, 2
	
rs.AddNew
rs("UserID") = varUserID  '保存自己名称
rs("User2ID") = varUser2ID  '保存对方名称
rs("Message") = varMessage '保存发送给对方的信息 
rs("New") = 1
rs.Update

rs.movelast
varStartID = rs("PMID")

call closeDB
response.redirect "pmwindow.asp?sltUser2ID=" & varUser2ID & "&txtStartID=" & varStartID
%>