34,590
社区成员
发帖
与我相关
我的任务
分享
Set Comm=Server.CreateObject("ADODB.Command")
Comm.ActiveConnection= "driver={SQL Server};server=(local);database=test1;uid=sa;pwd=;"
if request("action")="del" then
StudentID=request("id")
Comm.CommandText="UP_base_delete"
Set pStudentID=Comm.CreateParameter("@StudentID", 200,1,9,StudentID)
Comm.Parameters.Append pStudentID
Comm.Execute
Set Comm=nothing
else
if request("action")="add_rs" then
Comm.CommandText="UP_base_ADDg"
Set pStudentID=Comm.CreateParameter("@StudentID",200,2,9)
Comm.Parameters.Append pStudentID
elseif request("action")="edit_rs" then
Comm.CommandText="UP_base_Update"
Set pStudentID=Comm.CreateParameter("@StudentID", 200,1,9,StudentID)
Comm.Parameters.Append pStudentID
end if
'以comm对象建立存储过程连接,4代表连接类型为存储过程
Comm.CommandType=4
Set pStudentName=Comm.CreateParameter("@StudentName", 200,1,20,"李辉")
Comm.Parameters.Append pStudentName
Set zhuanye=Comm.CreateParameter("@zhuanye",200,1,20,"我专业")
Comm.Parameters.Append zhuanye
Set pphoto=Comm.CreateParameter("@photo", 200,1,50,"d:\a.jpg")
Comm.Parameters.Append pphoto
Set phouseholderName=Comm.CreateParameter("@householderName", 200,1,20,"他")
Comm.Parameters.Append phouseholderName
Set pStudentSex=Comm.CreateParameter("@StudentSex",200,1,10,"男")
Comm.Parameters.Append pStudentSex
Set pdiploma=Comm.CreateParameter("@diploma", 200,1,50,"高中")
Comm.Parameters.Append pdiploma
Set pbirthday=Comm.CreateParameter("@birthday", 135,1,,"1984-03-11")
Comm.Parameters.Append pbirthday
Set pschoolDate=Comm.CreateParameter("@schoolDate", 135,1,,"1999-01-02")
Comm.Parameters.Append pschoolDate
Set ppost=Comm.CreateParameter("@post", 200,1,50,"451200")
Comm.Parameters.Append ppost
Set pfolk=Comm.CreateParameter("@folk", 200,1,20,"folk")
Comm.Parameters.Append pfolk
Set pnativePlace=Comm.CreateParameter("@nativePlace", 200,1,50,"nativePlace")
Comm.Parameters.Append pnativePlace
Set ponceName=Comm.CreateParameter("@onceName", 200,1,20,"onceName")
Comm.Parameters.Append ponceName
Set pphone=Comm.CreateParameter("@phone", 200,1,20,"phone")
Comm.Parameters.Append pphone
Set prpr=Comm.CreateParameter("@rpr", 200,1,50,rpr)
Comm.Parameters.Append prpr
Set pmarriageStatus=Comm.CreateParameter("@marriageStatus", 200,1,50,"marriageStatus")
Comm.Parameters.Append pmarriageStatus
Set pcertificate=Comm.CreateParameter("@certificate", 200,1,20,"certificate")
Comm.Parameters.Append pcertificate
Set pcertificateCode=Comm.CreateParameter("@certificateCode", 200,1,30,"certificateCode")
Comm.Parameters.Append pcertificateCode
Set poccupation=Comm.CreateParameter("@occupation", 200,1,50,"occupation")
Comm.Parameters.Append poccupation
Set pcity=Comm.CreateParameter("@city",200,1,20,"city")
Comm.Parameters.Append pcity
Set pdwellingPlace=Comm.CreateParameter("@dwellingPlace", 200,1,100,"dwellingPlace")
Comm.Parameters.Append pdwellingPlace
Set pfamilyCircs=Comm.CreateParameter("@familyCircs", 200,1,100,"familyCircs")
Comm.Parameters.Append pfamilyCircs
Set pfather=Comm.CreateParameter("@father", 200,1,20,"father")
Comm.Parameters.Append pfather
Set pfatherContact=Comm.CreateParameter("@fatherContact", 200,1,50,"fatherContact")
Comm.Parameters.Append pfatherContact
Set pmater=Comm.CreateParameter("@mater", 200,1,20,"mater")
Comm.Parameters.Append pmater
Set pmaterContact=Comm.CreateParameter("@materContact", 200,1,50,"materContact")
Comm.Parameters.Append pmaterContact
Set pelderDwellingPlace=Comm.CreateParameter("@elderDwellingPlace", 200,1,100,"elderDwellingPlace")
Comm.Parameters.Append pelderDwellingPlace
Set pelderNativePlace=Comm.CreateParameter("@elderNativePlace", 200,1,20,"elderNativePlace")
Comm.Parameters.Append pelderNativePlace
Set pmemo=Comm.CreateParameter("@memo", 200,1,1000,"memo")
Comm.Parameters.Append pmemo
Set pbackup1=Comm.CreateParameter("@backup1", 200,1,50,"")
Comm.Parameters.Append pbackup1
Set pbackup2=Comm.CreateParameter("@backup2", 200,1,50,"")
Comm.Parameters.Append pbackup2
Set pbackup3=Comm.CreateParameter("@backup3", 200,1,50,"")
Comm.Parameters.Append pbackup3
Set pbackup4=Comm.CreateParameter("@backup4", 200,1,50,"")
Comm.Parameters.Append pbackup4
Set pxueno=Comm.CreateParameter("@xuejino", 200,1,50,"")
Comm.Parameters.Append pxueno
Set pxxdate=Comm.CreateParameter("@xxdate", 200,1,50,"")
Comm.Parameters.Append pxxdate
Set pfu=Comm.CreateParameter("@fu", 200,1,50,"5000")
Comm.Parameters.Append pfu
'运行存储过程
Comm.Execute
if request("action")="add_rs" then
response.Write "成功"
end if
Set Comm=nothing