<%
dim conn ,username,userpass,ok
set conn=server.createobject("ADODB.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=KF01;UID=;PWD=;DATABASE=alphatennis"
set rs=server.CreateObject("adodb.recordset")
username=request.querystring("username")
userpass=request.querystring("userpass")
rs.Open "select * from viptable where usernam='"&username&"' and pwd='"&userpass&"'",conn,3,2
if rs.RecordCount >0 then
ok=1
Response.Redirect "www.alphatennis.com.cn"
end if