add_mess.asp

来自「很好的聊天室,具有很好的聊天功能,good」· ASP 代码 · 共 19 行

<%
	' Add_Mess.asp
	name = Replace(Session("name"),"’", "’’")                 
	img = Session("sex") & Request("selImg")
	font_color = Request("selColor")
	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 & _
		"’,’"  & memo & "’)"
	cnObj.Execute sqlcmd
	Response.Redirect "show_mess.asp"
 %>