📄 insert.asp
字号:
<html>
<head>
<title>个人图书信息管理</title>
</head>
<body alink="#000099" vlink="#00009" link="#00009">
<h2 align="center">个人图书信息管理</h2>
<table>
<form method="post" action="">
<tr><td>书名：<td><input type="text" name="bname" size="20"><p>
<tr><td>图书类别:<td><input type="text" name="btype" size="20"><p>
<tr><td>作者：<td><input type="text" name="bauthor" size="20"><p>
<tr><td>价格：<td><input type="text" name="bprice" size="20"><p>
<tr><td>购买时间：<td><input type="text" name="btime" size="20"><p>
<tr><td>图书内容介绍：<td><textarea name="bcontent" rows="5" cols="80" style="font-size: 16px; border: 3px solid #ffcfff;
background-image: url('bookback.gif');background-attachment:fixed; background-position: center"></textarea>
<tr><td>图书读后感：<td><textarea name="bopinion" rows="5" cols="80" style="font-size: 16px; border: 3px solid #ffcfff;
background-image: url('bookback.gif');background-attachment:fixed; background-position: center"></textarea>
<tr><td>存放位置：<td><input type="text" name="bplace" size="20"><p>
<tr><td>是否推荐此书：<td><input type="radio" name="flag" value="1" checked>是<input type="radio" name="flag" value="0">否
<tr><td colspan="2"><input type="submit" name="insert" value="插入数据"> <!--#include file="back.htm"-->
</form>
</table>
<%
Dim insert
insert=Request.form("insert")
Response.write(insert)
If insert<>"" then
Dim bname,btype,bauthor,bprice,btime,bopinion,bpalce,sql,rs
bname=Request.form("bname")
btype=Request.form("btype")
bauthor=Request.form("bauthor")
bprice=Request.form("bprice")
btime=Request.form("btime")
bopinion=Request.form("bopinion")
bplace=Request.form("bplace")
bcontent=Request.Form("bcontent")
flag=Request.Form("flag")
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Dbq=" & Server.Mappath("db/books.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set rs=Server.CreateObject("ADODB.recordset")
'从数据库中选出所有的图书信息
sql="select * from bookinfo"
rs.open sql,conn,3,3
'将数据集游标移动到记录末尾
If rs.EOF=true then
rs.MoveLast
End If
'将图书信息录入到数据库中
rs.AddNew
rs("bookname")=bname
rs("booktype")=btype
rs("author")=bauthor
rs("price")=cint(bprice)
rs("buytime")=btime
rs("opinion")=bopinion
rs("place")=bplace
rs("content")=bcontent
rs("user")=session("user")
rs("flag")=cint(flag)
rs.Update
rs.Close
conn.Close
set rs=nothing
set conn=nothing
End If
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -