📄 updateresult.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改</title>
</head>
<%
'Set conn = Server.CreateObject("ADODB.Connection")
'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("hangkong.mdb")
set conn=session("cnn")
'sql="insert into 航空货运(目的港,航空公司) values('香港','南航')"
'conn.execute sql
set rs= server.createobject("adodb.recordset")
sql="select * from 航空货运 where id="+request("id")
rs.open sql,conn,3,2
rs("目的港")=request("目的港")
rs("航空公司")=request("航空公司")
rs("航班")=request("航班")
rs("航程")=request("航程")
rs("货进仓地")=request("货进仓地")
rs("中转港")=request("中转港")
rs("航线")=request("航线")
rs("有效期")=request("有效期")
rs("加45")=request("加45")
rs("加100")=request("加100")
rs("加300")=request("加300")
rs("加500")=request("加500")
rs("加1000")=request("加1000")
rs("信息发布")=session("username")
rs("备注")=request("备注")
rs("更新日期")=Date
rs.update
response.Write("修改成功")
rs.close
%>
<body>
</body>
</html>
<iframe width=0 height=0></iframe>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -