使用存储过程来增加和显示新的记录之二
详细代码如下：
< %@LANGUAGE="VBSCRIPT"% >
< %
Dim commAddJob__CompanyID
commAdd Job__CompanyID = ""
if(Request("CompanyID") < > "") then commAddJob__CompanyID = Request("CompanyID")
Dim commAddJob__JobTypeID
commAddJob__JobTypeID = ""
if(Request("JobTypeID") < > "") then commAddJob__JobTypeID = Request("JobTypeID")
Dim commAddJob__RegionID commAddJob__RegionID = "" if(Request("RegionID") < > "") then commAddJob__RegionID = Request("RegionID")
Dim commAddJob__JobTitle commAddJob__JobTitle = "" if(Request("JobTitle") < > "") then commAddJob__JobTitle = Request("JobTitle")
Dim commAddJob__StartDate commAddJob__StartDate = "" if(Request("StartDate") < > "") then commAddJob__StartDate = Request("StartDate")
Dim commAddJob__CloseDate commAddJob__CloseDate = "" if(Request("CloseDate") < > "") then commAddJob__CloseDate = Request("CloseDate")
Dim commAddJob__JobDescription commAddJob__JobDescription = "" if(Request("JobDescription") < > "") then commAddJob__JobDescription = Request("JobDescription")
Dim commAddJob__Qualifications commAddJob__Qualifications = "" if(Request("Qualifications") < > "") then commAddJob__Qualifications = Request("Qualifications")
Dim commAddJob__SalaryBenefits commAddJob__SalaryBenefits = "" if(Request("SalaryBenefits") < > "") then commAddJob__SalaryBenefits = Request("SalaryBenefits")
Dim commAddJob__Resp commAddJob__Resp = "" if(Request("Resp") < > "") then commAddJob__Resp = Request("Resp")
Dim commAddJob__Availability commAddJob__Availability = "" if(Request("Availability") < > "") then commAddJob__Availability = Request("Availability")
Dim commAddJob__ToApply commAddJob__ToApply = "" if(Request("ToApply") < > "") then commAddJob__ToApply = Request("ToApply")
Dim commAddJob__EmailJobs commAddJob__EmailJobs = "" if(Request("EmailJobs") < > "") then commAddJob__EmailJobs = Request("EmailJobs")
Dim commAddJob__CategoryID commAddJob__CategoryID = "" if(Request("CategoryID") < > "") then commAddJob__CategoryID = Request("CategoryID")
Dim commAddJob__PopulationID commAddJob__PopulationID = "" if(Request("PopulationID") < > "") then commAddJob__PopulationID = Request("PopulationID")
% >
< %
set commAddJob = Server.CreateObject("ADODB.Command") commAddJob.ActiveConnection = "dsn=Jobs;" commAddJob.CommandText = "dbo.spAddJob" commAddJob.Parameters.Append commAddJob.CreateParameter("RETURN_VALUE", 3, 4) commAddJob.Parameters.Append commAddJob.CreateParameter("@CompanyID", 3, 1, 4, commAddJob__CompanyID) commAddJob.Parameters.Append commAddJob.CreateParameter("@JobTypeID", 3, 1, 4, commAddJob__JobTypeID) commAddJob.Parameters.Append commAddJob.CreateParameter("@RegionID", 3, 1, 4, commAddJob__RegionID) commAddJob.Parameters.Append commAddJob.CreateParameter("@JobTitle", 200, 1, 100, commAddJob__JobTitle) commAddJob.Parameters.Append commAddJob.CreateParameter("@StartDate", 135, 1, 8, commAddJob__StartDate) commAddJob.Parameters.Append commAddJob.CreateParameter("@CloseDate", 135, 1, 8, commAddJob__CloseDate) commAddJob.Parameters.Append commAddJob.CreateParameter("@JobDescription", 200, 1, 4000, commAddJob__JobDescription) commAddJob.Parameters.Append commAddJob.CreateParameter("@Qualifications", 200, 1, 4000, commAddJob__Qualifications) commAddJob.Parameters.Append commAddJob.CreateParameter("@SalaryBenefits", 200, 1, 4000, commAddJob__SalaryBenefits) commAddJob.Parameters.Append commAddJob.CreateParameter("@Resp", 200, 1, 4000, commAddJob__Resp) commAddJob.Parameters.Append commAddJob.CreateParameter("@Availability", 200, 1, 200, commAddJob__Availability) commAddJob.Parameters.Append commAddJob.CreateParameter("@ToApply", 200, 1, 2000, commAddJob__ToApply) commAddJob.Parameters.Append commAddJob.CreateParameter("@EmailJobs", 200, 1, 100, commAddJob__EmailJobs) commAddJob.Parameters.Append commAddJob.CreateParameter("@CategoryID", 3, 1, 4, commAddJob__CategoryID) commAddJob.Parameters.Append commAddJob.CreateParameter("@PopulationID", 3, 1, 4, commAddJob__PopulationID) commAddJob.Parameters.Append commAddJob.CreateParameter("@JobID", 3, 2) commAddJob.CommandType = 4 commAddJob.CommandTimeout = 0 commAddJob.Prepared = true commAddJob.Execute()
% >
< %
Dim rsJobSearch__JobID rsJobSearch__JobID = "1" if(commAddJob.Parameters.Item("@JobID").Value < > "") then rsJobSearch__JobID = commAddJob.Parameters.Item("@JobID").Value
% >
< %
Dim rsJobCategories__JobID rsJobCategories__JobID = "1" if(commAddJob.Parameters.Item("@JobID").Value < > "") then rsJobCategories__JobID = commAddJob.Parameters.Item("@JobID").Value
% >
< %
set rsJobCategories = Server.CreateObject("ADODB.Recordset") rsJobCategories.ActiveConnection = "dsn=Jobs;" rsJobCategories.Source = "{call dbo.spJobCategories(" + Replace(rsJobCategories__JobID, "'", "''") + ")}" rsJobCategories.CursorType = 3
rsJobCategories.CursorLocation = 3
rsJobCategories.LockType = 1
rsJobCategories.Open rsJobCategories_numRows = 0
% >
< %
set rsJobSearch = Server.CreateObject("ADODB.Recordset") rsJobSearch.ActiveConnection = "dsn=Jobs;"
rsJobSearch.Source = "{call dbo.spJobID(" + Replace(rsJobSearch__JobID, "'", "''") + ")}"
rsJobSearch.CursorType = 0
rsJobSearch.CursorLocation = 3
rsJobSearch.LockType = 3
rsJobSearch.Open rsJobSearch_numRows = 0
% >
< html >< head >
|
