gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\ArrangeCourse\answerImport.asp
<!--#include file="../include/ADOVBS.asp"--> <!--#include file="../include/keepHouse.asp"--> <html> <head> <title><%=WebName%>-排课系统</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="../include/WebCourseSettlementStyle.Css" rel="stylesheet" type="text/css"> </head> <body> <% if request("LIST_ID")="" then call trigErr() end if LIST_ID=request("LIST_ID") 'call Debug(LIST_ID) set Comd=server.createobject("ADODB.Command") call openDB() set Comd.ActiveConnection=conn Comd.CommandType=adCMdStoredProc Comd.CommandText="ImportArrange" set Para1=Comd.CreateParameter("LIST_ID",adInteger,adParamInput,4) set Para2=Comd.CreateParameter("result",adInteger,adParamOutput,4) Comd.Parameters.Append Para1 Comd.Parameters.Append Para2 Comd("LIST_ID") = LIST_ID Comd.Execute if Comd("result")=0 then debug("No") elseif Comd("result")<>1 then debug("Error") end if call closeDB() noInfo("导入成功!") response.redirect "ArrangeCourse.asp" %> </body> </html>