📄 gon-save.asp

📁 20041230162250801409：浙江省丽水市公铁联运有限公司OA系统（物流）开发语言：PHP/ASP/PERL 本系统包括各个部门的管理

💻 ASP

字号:

   <%
On Error Resume Next

set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../../data.mdb")
%>

<% aa=request.Form("aa")
	bb=request.Form("bb")
	cc=request.Form("cc")
	ee=request.Form("ee")
	ff=request.Form("ff")
	gg=request.Form("gg")
	hh=request.Form("hh")
	ii=request.Form("ii")
	jj=request.Form("jj")
	kk=request.Form("kk")
	ll=request.Form("ll")
	mm=request.Form("mm")
	set rs=server.CreateObject("adodb.recordset")
	  sql="select * from gon "
    rs.open sql,conn,3,3
   rs.addnew
   rs("year")=aa
	 rs("month")=bb
	 rs("date")=cc
	 if request("dd")="" then 
	 rs("number")=null
	 else
	 rs("number")=request("dd")
	 end if 
	 if request("ee")="" then 
	 rs("number1")=null
	 else
	 rs("number1")=request("ee")
	 end if 
	 if request("ff")="" then 
	 rs("accept")=null
	 else
	 rs("accept")=request("ff")
	 end if 
	 if request("gg")="" then 
	 rs("number3")=null
	 else
	 rs("number3")=request("gg")
	 end if 
	 if request("hh")="" then 
	 rs("jifei")=null
	 else
	 rs("jifei")=request("hh")
	 end if 
	 if request("ii")="" then 
	 rs("total")=null
	 else
	 rs("total")=request("ii")
	 end if 
	 if request("jj")="" then 
	 rs("yucai")=null
	 else
	 rs("yucai")=request("jj")
	 end if 
	 if request("kk")="" then 
	 rs("get")=null
	 else
	 rs("get")=request("kk")
	 end if 
	 if request("ll")="" then 
	 rs("shicai")=null
	 else
	 rs("shicai")=request("ll")
	 end if 
	 if request("mm")="" then 
	 rs("money")=null
	 else
	 rs("money")=request("mm")
	 end if 
	 rs.update
    rs.close
	%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -