📄 driver_ok1.asp
字号:
<%@ 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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -