📄 add_mess.asp
字号:
<%
' 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"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -