📄 gz-4.asp
字号:
<% Option Explicit %>
<% Response.Buffer=True %>
<html>
<head>
<title> 修改我的记录</title>
</head>
<body bgcolor="pink">
<h2 align="center">修改记录</h2>
<%
'首先根据传入的Link_ID将原有数据显示在表单内
Dim var_id
var_id=Request.QueryString("id")
'以下连上数据库，建立一个Connection对象实例db
dim db
set db=Server.Createobject("ADODB.Connection")
db.Open "DBQ=" & Server.Mappath("./gz.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)};"
'以下建立Recordset对象实例rs
Dim strSql,rs
strSql="select * from gz where id=" & var_id 'var_id是传过来的
set rs=db.Execute(strSql)
%>
<center>
<table color=red border="2" width="70%">
<form action="" method="post" name="form1">
<tr>
<td>姓名</td>
<td><input type="text" name="name" size=20 value="<%=rs("Name")%>"></td>
</tr>
<tr>
<td>月份</td>
<td><input type="text" name="month" size=60
value="<%=rs("month")%>"></td>
</tr>
<tr>
<td>基本工资</td>
<td><input type="text" name="jbgz" size=60 value="<%=rs("month")%>"></td>
</tr>
<tr>
<td>奖金</td>
<td><input type="text" name="bonus" size=60 value="<%=rs("bonus")%>"></td>
</tr>
<tr>
<td>扣款</td>
<td><input type="text" name="kk" size=60 value="<%=rs("kk")%>"></td>
</tr>
<tr>
<td colspan=2 align=center><input type="submit" value=" 确 定 "></td>
</tr>
</form>
</table>
</center>
<%
'如果上面的信息填全了，就添加记录，否则给出错误信息
If Request("name")<>"" AND Request("month")<>"" AND Request("jbgz")<>"" AND Request("bonus")<>"" AND Request("kk")<>"" Then
'以下修改记录
Dim varName,varMonth,varBonus,varJbgz,varkk
varName=Request("name") '这里也可以不定义Name变量，下面直接用Request("name")
varMonth=Request("month")
varjbgz=Request("jbgz")
varBonus=Request("bonus")
varkk=Request("kk")
StrSql="update gz set name='" & varName & "',month='" & varMonth & "',jbgz='" & varjbgz & "',bonus='" & varbonus & "',kk='" & varkk & "' where id=" & var_id
db.Execute(strSql) '这里利用Execute方法，修改记录
Response.Redirect "gz-1.asp" '修改完毕，返回首页6-1.asp
Else
Response.Write "请将所有信息填写完整"
End If
%>
<center><p><a href="gz-1.asp">返回首页</a></center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -