📄 gz-2.asp
字号:
<% Option Explicit %>
<% Response.Buffer=True%>
<html>
<head>
<title> 添加新记录示例</title>
</head>
<body bgcolor="pink">
<h2 align="center">添加新记录</h2>
<center>
<table border="1" width="90%">
<form action="" method="post" name="form1">
<tr>
<td>姓名</td><td><input type="text" name="name" size=20></td>
</tr>
<tr>
<td>月份</td><td><input type="text" name="month" size=60></td>
</tr>
<tr>
<td>基本工资</td><td><input type="text" name="jbgz" size=60></td>
</tr>
<tr>
<td>奖金</td><td><input type="text" name="bonus" size=60></td>
</tr>
<tr>
<td>扣款</td><td><input type=text name="kk" size=60></td>
</tr>
<tr>
<td><input type=image name="m" src="./enter2.gif" width=94 heigh=46 onclick="form1.onclick"></td>
</tr>
</form>
</table>
</center>
<%
'如果上面的信息填全了，就添加记录，否则给出错误信息
If Request("name")<>"" and Request("month")<>"" and Request("jbgz")<>"" and Request("bonus")<>"" and Request("kk")<>""Then
'以下连上数据库，建立一个Connection对象实例db
dim db
set db=Server.Createobject("ADODB.Connection")
db.Open "DBQ="&Server.Mappath("gz.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};"
'以下添加新记录
Dim strSql,varName,varmonth,varjbgz,varbonus,varkk
varName=Request("name") '这里也可以不定义变量，下面直接用Request("Name")
varmonth=Request("month")
varjbgz=Request("jbgz")
varbonus=Request("bonus")
varkk=Request("kk")
StrSql="insert into gz(name,month,jbgz,bonus,kk) values('" & varName & "','" & varmonth & "','" & varjbgz & "','" & varbonus & "','" & varkk & "')"
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 + -