adodata.asp

《SQL Server 2000课程设计案例精编》-李昆-源代码-3436

<%


'资料捕获常量

Const adExecuteStream = 1024
Const adCmdStoredProc = 4
Const adWriteChar = 0
Const strCon = "PROVIDER=SQLOLEDB;DATA SOURCE=(local);INITIAL CATALOG=retailer;INTEGRATED SECURITY=SSPI;"


Function ValidData(strUserName, strPassword)
'会员帐号与密码资料确认

'会员帐号与密码不得空白
If strUserName = "" Or strPassword = "" Then
  ValidData = False
Else
  ValidData = True
End If
End Function
%>