📄 newcommessage.asp
字号:
<%
Function NewComMessage(ObjDB)
Dim ObjRS,StrSQL
StrSQL = "Select * from t_OA_Work_ComMessage where ID =1"
Set ObjRS = Server.CreateObject ("ADODB.RecordSet")
ObjRS.Open StrSQL,ObjDB,1,3
ObjRS.AddNew
ObjRS("AccountID") = Request.Form ("AccoutID")
ObjRS("Title") = Request.Form ("Title")
ObjRS("Body") = Request.Form ("Body")
ObjRS("IsAttach") = Request.Form ("IsAttach")
ObjRS("MsgType") = Request.Form ("MsgType")
ObjRS("MsgLevel") = Request.Form ("MsgLevel")
ObjRS("IsHTML") = Request.Form ("IsHTML")
ObjRS.Update
NewComMessage = ObjRS("ID")
ObjRS.Close
Set ObjRS = Nothing
' Response.Write NewComMessage
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -