custtblchk.inc

来自「能实现用户注册」· INC 代码 · 共 20 行

<%
on error resume next
'do they have record in database customer table?
sSQL="SELECT "
sSQL=sSQL & "CustomerID "
sSQL=sSQL & "FROM tbl_Customer "
sSQL=sSQL & "WHERE CustomerID=" & CustomerID
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open sSQL, conn, 3, 3 'read
if (RS.BOF and RS.EOF) then
	rows=0
else
	RS.movelast
	rows=RS.recordcount
	CustomerID=RS("CustomerID")
	session("CustomerID")=CustomerID
end if
RS.close
set RS=nothing
%>