driver_ok1.asp

来自「20041230162250801409: 浙江省丽水市公铁联运有限公司OA系」· ASP 代码 · 共 77 行

ASP
77
字号
<%@ language="vbscript"%>
<%response.Expires = 0%>

<!--#include file="conn.asp"-->
<%
'set rs=server.createobject("adodb.recordset")
'sqltext="select * from driver1  where id=" & request.Querystring("id")
'rs.open sqltext,conn,3,3
id=request.querystring("id")
'BiaoHao=Request("BiaoHao")
set rs=server.createobject("adodb.recordset")
sqltext="select * from driver1 where id="& id
rs.open sqltext,conn,3,3

'更新记录到数据库
If Request("aa1")="" Then
			rs("编号")=null
		Else
			rs("编号")=Request("aa1")
	End If
    If Request("aa")="" Then
			rs("聘用驾驶员")=null
		Else
			rs("聘用驾驶员")=Request("aa")
	End If
	  rs("性别")=request.form("bb")
	
	If Request("cc")="" Then
			rs("出生年月")="无"
		Else
			rs("出生年月")=Request("cc")
	End If
	
	 If Request("dd")="" Then
			rs("家庭地址")="无"
		Else
			rs("家庭地址")=Request("dd")
	End If 
	If Request("ee")="" Then
			rs("现住地址")="无"
		Else
			rs("现住地址")=Request("ee")
	End If 
	If Request("ff")="" Then
			rs("驾驶证号码")="无"
		Else
			rs("驾驶证号码")=Request("ff")
	End If 
	If Request("gg")="" Then
			rs("驾驶车类")="无"
		Else
			rs("驾驶车类")=Request("gg")
	End If 
	If Request("hh")="" Then
			rs("联系号码")="无"
		Else
			rs("联系号码")=Request("hh")
	End If 
rs.update
rs.close
'conn.close
'response.redirect "../yinyun/driver.asp"
   set rs=nothing
   conn.close
   set conn=nothing
  
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改提示</title>
</head>

<body>
<div align="center">修改成功,<a href="../yinyun/driver.asp" target="_parent">查看修改结果</a></div>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?