<%
Temp1=trim(Request.Form("sn"))
session("flag")=False
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("../db.mdb")
SQLstr="SELECT * FROM product where sn='"&Temp1&"'"
set rs = Conn.Execute(SQLstr)
if not rs.BOF then
session("flag")=True
rs.close
end if
if session("flag")<>true then
Response.Redirect"error.htm"
end if
Set ors = Conn.Execute("SELECT * From product where sn='"&Temp1&"'")
%>
无标题文档