add_mess.asp

很好的聊天室,具有很好的聊天功能,good

<%
	' Add_Mess.asp
	name = Replace(Session("name"),"’", "’’")                 
	img = Session("sex") & Request("selImg")
	font_color = Request("selColor")
	to_user = Replace(Request("selName"), "’", "’’")
	memo = Server.HTMLEncode(Request("txtmemo"))
	memo = Replace( memo, "’", "’’")
	Set cnObj = Server.CreateObject("ADODB.Connection")
	dbpath = Server.MapPath("DB.mdb") 
	cnObj.ConnectionString = _
		"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
	cnObj.Open 
	sqlcmd = "INSERT INTO CHAT(姓名,图标,字体颜色,说话对象,内容)" & _
		" VALUES(‘" & name & "’,’" & img & "’,’" & font_color & _
		"’,’" & to_user & "’,’" & memo & "’)"
	cnObj.Execute sqlcmd
	Response.Redirect "show_mess.asp"
 %>