📄 media.asp
字号:
<!--#include virtual="include/dataenvi.asp"-->
<%
dim id,states,ObjDBH,ObjRs,StrSQL,IntID
id=request.QueryString("id")
states=request.QueryString("State")
Set ObjDBH = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDBH
Set ObjRS = Server.CreateObject("Adodb.Recordset")
StrSQL = "Select * From t_Hrms_Employees_UsersRemark"
ObjRS.Open StrSQL,ObjDBH,1,3
ObjRS.AddNew
ObjRS("BasicId")=id
ObjRS("SaveTime")= Now()
ObjRS.Update
IntID = ObjRS("ID")
ObjRS.Close
Set ObjRS = Nothing
ObjDBH.Close
Set ObjDBH = Nothing
if states="Y" then
response.Redirect("../UsersRemark/Edit.asp?ID="&IntID)
else
response.Redirect("List.asp")
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -