<%
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
%>
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
%>
{
alert("用户名或密码错误!");
}