⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 bookinsertdone.asp

📁 tushuguanlixitong 图书借阅系统 用ASP实现的 能实现简单的功能
💻 ASP
字号:
🔍 
<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>

⌨️ 快捷键说明

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