bookinsertdone.asp

来自「tushuguanlixitong 图书借阅系统 用ASP实现的 能实现简单的」· ASP 代码 · 共 98 行

ASP
98 行
字号 
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>录入成功</title>
</head>

<body bgcolor=#FF6600>

<%
dim bookname
dim sumnumber
dim nownumber
dim lendnumber
dim describe
dim flag
flag = 1

	dim dbconn
	dim ADOObjConn
	dim strSQL
	dim Adoobject 
	dim strConn	
	
	bookname = request.Form("bookname") 
	sumnumber = request.Form("sumnumber")
	nownumber = sumnumber
	lendnumber = 0
	describe = request.Form("describe")
	
	if (bookname="") or (sumnumber="")  then 
	  
%>
<table border="1" width="100%">
	<tr>
		<td align="center"><b><font size="4">请填写完整的书名与数量!</font></b></td>
	</tr>
	<tr>
		<td align="center">　</td>
	</tr>
	<tr>
		<td align="center"><b><font size="4">请<a href="bookinsert.htm">返回</a>重新填写!</font></b></td>
	</tr>
</table>

<%   
     flag = 0 
     end if
     if (flag = 1)  then 
	strConn = "DSN=dblib;uid=;pwd=;database=db"
	set ADOObjConn = server.CreateObject ("ADODB.Connection")
	ADOObjConn.ConnectionString = strConn	
	ADOObjConn.Open

	set Adoobject = server.CreateObject ("ADODB.Recordset")	
	strSQL = "SELECT * from Tbook "
	Adoobject.Open   strSQL, ADOObjConn, 1, 3
	
		 
	Adoobject.AddNew
	'存储用户信息
    	Adoobject.Fields ("bookname").Value =bookname     
        Adoobject.Fields ("sumnumber").Value =sumnumber 
        Adoobject.Fields ("nownumber").Value =nownumber
        Adoobject.Fields ("lendnumber").Value =lendnumber
        Adoobject.Fields ("describe").Value =describe
    	Adoobject.Update
   	Adoobject.Close
   	Set Adoobject = Nothing
   	%>
<table border="1" width="100%"  id="table1" height="128" bordercolordark=#0000FF style="border-collapse: collapse">
	
	<tr>
		<td height="39" align="right" width="379">书名</td>
		<td height="39"><%=bookname%>　</td>
	</tr>
	<tr>
		<td align="right" width="379">　数量</td>
		<td><%=sumnumber%>　</td>
	</tr>
	<tr>
		<td align="right" width="379">　说明</td>
		<td><%=describe%>　</td>
	</tr></table>
	<table width="100%" high="22" height="34">
	<tr>
	<td >
	<p align="center"><a href="bookinsert.htm">返回</a></td>
	</tr>

</table>
<%
   end if
%>

</body>
</html>

bookinsertdone.asp - 源码说明

本页面展示了「tushuguanlixitong 图书借阅系统 用ASP实现的 能实现简单的功能」中的 bookinsertdone.asp 源码文件，采用 ASP 编程语言编写，共 98 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与图书管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?