sql1.asp

用ASP编写的网上购书系统,数据库部分用SQL编写

<% @ language="vbscript"%>
<%
	dim string1,ambiguous,thekey,thecode,sqlst1
	string1=request.form("text1")
	ambiguous=request.form("check1")
	thekey=request.form("radio1")
	thecode=request.form("radio2")
	sqlst1="SELECT * FROM book "
	if thekey<>"browse" then
		select case thekey
			case "bno"
				sqlst1=sqlst1 & " WHERE 书号 "
			case "bname"
				sqlst1=sqlst1 & " WHERE 书名 "
			case "author"
				sqlst1=sqlst1 & " WHERE 作者 "
			case "prise"
				sqlst1=sqlst1 & " WHERE 定价 "
		end select
		if ambiguous="on" then
			sqlst1=sqlst1 & " LIKE '%" & string1 & "%'"
		else
			sqlst1=sqlst1 & thecode & "'" & string1 & "'"
		end if
	end if
	session("sqlstring1")=sqlst1
	Response.redirect("browse.asp")
%>