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

📄 searchbook.asp

📁 小型图书馆管理系统
💻 ASP
字号:
🔍 


<HTML>
<HEAD>
	<Title>searchkbook.asp</Title>
	<META http-equiv="Content-Type" content="text/html; charset=gb2312">
	<META name="Generator" content="Asp Studio 1.0">
</HEAD>

<BODY>


<%
	'请在这里输入您的ASP代码
	Dim bID,bName,bPub,bDate0,bDate1,bAuthor,bMem
	Dim sql
	Dim rs
	bID=Request.Form("bID")
	bID=Replace(bID,"'","''",1,-1,vbTextCompare)
	
	bName=Request.Form("bName")
	bName=Replace(bName,"'","''",1,-1,vbTextCompare)
	
	bPub=Request.Form("bPub")
	bPub=Replace(bPub,"'","''",1,-1,vbTextCompare)
	
	bDate0=Request.Form("bDate0")
	bDate1=Request.Form("bDate1")
	
	bAuthor=Request.Form("bAuthor")
	bAuthor=Replace(bAuthor,"'","''",1,-1,vbTextCompare)
	
	bMem=Request.Form("bMem")
	bMem=Replace(bMem,"'","''",1,-1,vbTextCompare)
	sql=""
	if bID="" then
	else
	  sql="bID Like '%"&bID&"%'"
	  'Response.Write(sql)
	  'Response.End()
	end if
	if bName="" then
	else
	  if sql<>"" then
			sql=""&sql&" and bName Like '%"&bName&"%'"
	  else
			sql="bName Like '%"&bName&"%'"
		end if
	end if
	if bPub="" then
	else
	  if sql<>"" then
			sql= ""&sql&" and bPub Like '%"&bPub&"%'"
	  else
			sql="bPub Like '%"&bPub&"%'"
		end if
	end if
	if NOT IsDate(bDate0) then
	  if NOT IsDate(bDate1) then
		else
			bDate1=CDate(bDate1)
			bDate1=Replace(bDate1,"-","/",1,2,vbTextCompare)
			if sql<>"" then
				sql=""&sql&" and bDate<=#"&bDate1&"#"
			else
				sql="bDate<=#"&bDate1&"#"
			end if
		end if
	else 
		bDate0=CDate(bDate0)
		bdate0=Replace(bDate0,"-","/",1,2,vbTextCompare)
	  if NOT IsDate(bDate1) then
			if sql<>"" then
				sql=""&sql&" and bDate>=#"&bDate0&"#"
			else
				sql="bDate>=#"&bDate0&"#"
			end if
		else
			bDate1=CDate(bDate1)
			bDate1=Replace(bDate1,"-","/",1,2,vbTextCompare)
			if sql<>"" then
				sql=""&sql&" and bDate>=#"&bDate0&"# and bDate <=#"&bDate1&"#"
			else
				sql="bDate>=#"&bDate0&"# and bDate <=#"&bDate1&"#"
			end if
		end if
	end if
	if bAuthor="" then
	else
		if sql<>"" then
			sql=""&sql&" and bAuthor Like '%"&bAuthor&"%'"
		else
			sql="bAuthor Like '%"&bAuthor&"%'"
		end if
	end if
	if bMem="" then
	else
		if sql<>"" then
			sql=""&sql&" and bMem Like '%"&bMem&"%'"
		else
			sql="bMem Like '%"&bMem&"%'"
		end if
	end if
	if sql="" then
		sql="select * from bookTable"
	else
		sql="select * from bookTable where "&sql&""
	end if
	
	
	'Response.Write(sql)
	'Response.End()
	
	Set rs=Session("s_DBConn").Execute(sql)
	if rs.EOF then
	  Response.Write("<table border=1></table>")
	else
		Response.Write("<table border=1>")
		while NOT rs.EOF
			Dim bDate
			bDate=rs("bDate")
			bDate=Replace(bDate,"/","-",1,2,vbTextCompare)
			
			'Response.Write("select * from infoTable where bID='"&rsbID1&"'")
			'Response.End()
			
		  Response.Write("<tr><td>"&rs("bID")&"</td><td>"&rs("bName")&"</td><td>"&rs("bCnt")&"</td><td>"&rs("bCntLea")&"</td><td>"&rs("bPub")&"</td><td>"&bDate&"</td><td>"&rs("bAuthor")&"</td><td>"&rs("bMem")&"</td></tr>")
		  rs.MoveNext()
		wend
		Response.Write("</table>")
	end if
	rs.Close()
	Set rs=Nothing
%>
	
</BODY>

</HTML>

⌨️ 快捷键说明

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