dim sub1,u_name,u_pwd,query_type
sub1=request("sub1"

u_name=ucase(request("u_name"

)
u_pwd=request("u_pwd"

query_type=request("radio1"

strProvider="DSN=linux_ora;User Id=foxmold;PASSWORD=foxmold;UID=foxmold;SERVER=linux;"
set rst1 = Server.CreateObject("ADODB.recordset"

strQuery=""
strQuery=strQuery+" SELECT JGK,KH "
strQuery=strQuery+" FROM USER_DB "
strQuery=strQuery+" WHERE U_NAME='" & u_name & "' "
strQuery=strQuery+" AND U_PWD='" & u_pwd & "' "
rst1.Open strQuery,strProvider