media.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 27 行

<!--#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
%>