save.asp

来自「一个ASP创建的单位内部设备报修填报系统(繁体中文)」· ASP 代码 · 共 46 行

<!--#include file="adovbs.inc" -->
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("repair.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>
<%
Select Case Request("Command")
Case "reply"
   WorkID=Request("WorkID")
   WorkMaster=Request("WorkMaster")
   WorkStatus=Request("WorkStatus")
   WorkComment=Request("WorkComment")

   Set AddRs=SERVER.CreateObject("ADODB.Recordset")
   AddRs.Open "reply", conn , adOpenDynamic, adLockPessimistic
   AddRs.AddNew
   AddRs("WorkID")=Request.Form("WorkID")
   AddRs("WorkMaster")=Request.Form("WorkMaster")
   AddRs("WorkStatus")=Request.Form("WorkStatus")
   AddRs("WorkComment")=Request.Form("WorkComment")
   AddRs.Update
   AddRs.Close
   Set AddRs=Nothing

   SQLstr="Select * From post Where WorkID=" & WorkID
   Set rs=conn.Execute(SQLstr)

   conn.Close
   Set conn=Nothing

Case Else
   Set AddRs=SERVER.CreateObject("ADODB.Recordset")
   AddRs.Open "post", conn , adOpenDynamic, adLockPessimistic
   AddRs.AddNew
   AddRs("WorkName")=Request.Form("WorkName")
   AddRs("WorkSubject")=Request.Form("WorkSubject")
   AddRs("WorkWords")=Request.Form("WorkWords")
   AddRs("UserName")=Request.Form("UserName")
   AddRs.Update
   AddRs.Close
   Set AddRs=Nothing
   conn.Close
   Set conn=Nothing
End Select
Response.Redirect "index.asp" '