<%
set rs=conn.execute(sqlstr)
If not (rs.eof or rs.bof) Then
session.TimeOut=20
session("UnionID")=rs(0)
session("RoleID")=rs(1)
scriptStr="<script language=""javaScript"">" & vbCrLF 
scriptStr=scriptStr & " alert(""登陆成功!"");" & vbCrLF 
scriptStr=scriptStr & " window.location.href=""myIndex.asp"";" & vbCrLF 
scriptStr=scriptStr & "<" & "/script" & ">"
html="<html>" & vbCrLF  &"<head></head>"& vbCrLF 
html=html & "<body>" & vbCrLF  & scriptStr & vbCrLF  & "</body>"  & vbCrLF &  "</html>"
response.Write(html)
response.End() else session("UnionID")=""
session("RoleID")=""
scriptStr="<script language=""javaScript"">" & vbCrLF 
scriptStr=scriptStr & " alert(""登陆失败!请仔细核对你的登陆ID和密码后再登陆\n也或者你的帐号还没有开通\n也或者你的帐号并冻结了"");" & vbCrLF 
scriptStr=scriptStr & " window.history.go(-1);" & vbCrLF 
scriptStr=scriptStr & "<" & "/script" & ">"
html="<html>" & vbCrLF  &"<head></head>"& vbCrLF 
html=html & "<body>" & vbCrLF  & scriptStr & vbCrLF  & "</body>"  & vbCrLF &  "</html>"
response.Write(html)
response.End() End if
%>