userlogin.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

<!--#include file="../conn.asp"-->
<%
Response.Buffer = true
Response.Expires = -1
%><!--#include file="../inc/config.asp"--><%
info=request.querystring("type")
if info="" or info=null Then
info=2
end if
UserName=CheckSql(request.cookies("JsIceWeb_User")("log_UserName"))
Select Case info
	Case "0"
		Call list0()
	Case "1"
		Call list1()
	Case "2"
		Call list2()
end select 
Sub list0()%>
document.write("<table align=center border=0 width=99% cellspacing=0 cellpadding=0 height=100><tr>");
<%If request.cookies("JsIceWeb_User")("log_UserID")="" or request.cookies("JsIceWeb_User")("log_UserName")="" or request.cookies("JsIceWeb_User")("log_UserID")=null or request.cookies("JsIceWeb_User")("log_UserName")=null Then%>
document.write("<form method=post action=<%=SiteSystemPath%>user_log.asp?info=login name=form1><td align=center>会员名 <input name=UserName type=text size=10 style='background-color: #FFFFFF; border: 1 solid #000000'><br>");
document.write("密　码 <input name=Userpass type=password size=10 style='background-color: #FFFFFF; border: 1 solid #000000'><br>");
<%if WebUserLOGLOCKNum=1 then
randomize
randm=Int((900000*rnd)+100000)%>
document.write("验证码 <input name=randm1 type=text style='background-color: #FFFFFF; border: 1 solid #000000' size=10 maxlength=20><input type=hidden name=randm2 value=<%=randm%>>");
document.write("<span style='font-family: Georgia;border: 1 solid #808080;background-color: #e8e8e8'>&nbsp;<b><%=randm%></b></span><br>");
<%end if%>
document.write("<input type=submit value='登　陆'> <input type=button value='注　册' onclick=javascript:location.href=&quot;<%=SiteSystemPath%>user.asp?info=reg&quot;><br>");
document.write("<input type=button value=找回密码 class=stbtm onclick=window.open(&quot;<%=SiteSystemPath%>GetPassword.asp&quot;,&quot;&quot;,&quot;toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=390,height=218&quot;);></td></form>");
<%Else%>
document.write("<td align=center><a href=<%=SiteSystemPath%>user_index.asp?info=index title=进入会员中心!~><font color=#006600>进入会员中心</font></a><br><a href=<%=SiteSystemPath%>user_index.asp?info=box title=进入藏书架!~><font color=#006600>进入藏书架</font></a><br>");
document.write("<a href=<%=SiteSystemPath%>user_bookroomadd.asp title=发表新的短篇文章><font color=#006600>发表新文章</font></a><br>");
document.write("<a href=<%=SiteSystemPath%>user_bookroom.asp title=查看我的文章列表><font color=#006600>我的文章列表</font></a><br>");
<%Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from [duanxin] where nickname='"&UserName&"' and yd=0 order by dateandtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
%>
document.write("<a href=<%=SiteSystemPath%>user_index.asp?info=pm title=新短消息!~ target=_blank><font color=#ff0000>有新短消息</font></a><br>");
<%End If
Rs.Close
Set  Rs=Nothing
%>
document.write("<a href=<%=SiteSystemPath%>user_log.asp?info=out title=退出/重新登陆><font color=#006600>退出登录</font></a></td>");
<%End IF%>
document.write("</tr></table>");
<%end sub
Sub list1()
If request.cookies("JsIceWeb_User")("log_UserID")="" or request.cookies("JsIceWeb_User")("log_UserName")="" or request.cookies("JsIceWeb_User")("log_UserID")=null or request.cookies("JsIceWeb_User")("log_UserName")=null Then%>
document.write("<form method=post action=<%=SiteSystemPath%>user_log.asp?info=login  name=form1>会员名 <input name=UserName type=text size=8 style='background-color: #FFFFFF; border: 1 solid #000000'> 密码 <input name=Userpass type=password size=8 style='background-color: #FFFFFF; border: 1 solid #000000'>");
<%if WebUserLOGLOCKNum=1 then
randomize
randm=Int((900000*rnd)+100000)%>
document.write("  验证码 <input name=randm1 type=text style='background-color: #FFFFFF; border: 1 solid #000000' size=8 maxlength=20><input type=hidden name=randm2 value=<%=randm%>>");
document.write("<span style='font-family: Georgia;border: 1 solid #808080;background-color: #e8e8e8'>&nbsp;<b><%=randm%></b></span>");
<%end if%>
document.write("  <input type=submit value=登陆 name=B3 class=stbtm> <input type=button value=注册 class=stbtm onclick=javascript:location.href=&quot;<%=SiteSystemPath%>user.asp?info=reg&quot;> <input type=button value=找回密码 class=stbtm onclick=window.open(&quot;<%=SiteSystemPath%>GetPassword.asp&quot;,&quot;&quot;,&quot;toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=390,height=218&quot;);></form>");
<%Else%>
document.write("欢迎您<font color=#006600><%=UserName%></font><%=request.cookies("JsIceWeb_User")("log_sex")%>，您要<a href=<%=SiteSystemPath%>user_index.asp?info=index title=进入会员中心!~><font color=#006600>进入会员中心</font></a>，或直接<a href=<%=SiteSystemPath%>user_index.asp?info=box title=进入藏书架!~><font color=#006600>进入藏书架</font></a>，");
<%Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from [duanxin] where nickname='"&UserName&"' and yd=0 order by dateandtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
%>
document.write("<a href=<%=SiteSystemPath%>user_index.asp?info=pm title=新短消息!~ target=_blank><font color=#ff0000>有新短消息</font></a>，");
<%End If
Rs.Close
Set  Rs=Nothing
%>
document.write("还是<a href=<%=SiteSystemPath%>user_log.asp?info=out title=退出/重新登陆><font color=#006600>退出登录</font></a>？");
<%End IF
end sub
Sub list2()
If request.cookies("JsIceWeb_User")("log_UserID")="" or request.cookies("JsIceWeb_User")("log_UserName")="" or request.cookies("JsIceWeb_User")("log_UserID")=null or request.cookies("JsIceWeb_User")("log_UserName")=null Then%>
document.write("<form method=post action=<%=SiteSystemPath%>user_log.asp?info=login  name=form1>会员名 <input name=UserName type=text size=8 style='background-color: #FFFFFF; border: 1 solid #000000'> 密码 <input name=Userpass type=password size=8 style='background-color: #FFFFFF; border: 1 solid #000000'>");
<%if WebUserLOGLOCKNum=1 then
randomize
randm=Int((900000*rnd)+100000)%>
document.write("  验证码 <input name=randm1 type=text style='background-color: #FFFFFF; border: 1 solid #000000' size=8 maxlength=20><input type=hidden name=randm2 value=<%=randm%>>");
document.write("<span style='font-family: Georgia;border: 1 solid #808080;background-color: #e8e8e8'>&nbsp;<b><%=randm%></b></span>");
<%end if%>
document.write("  <input type=submit value=登陆 name=B3 class=stbtm> <input type=button value=注册 class=stbtm onclick=javascript:location.href=&quot;<%=SiteSystemPath%>user.asp?info=reg&quot;></form>");
<%Else%>
document.write("欢迎您<font color=#006600><%=UserName%></font><%=request.cookies("JsIceWeb_User")("log_sex")%>，您要<a href=<%=SiteSystemPath%>user_index.asp?info=index title=进入会员中心!~><font color=#006600>进入会员中心</font></a>，或直接<a href=<%=SiteSystemPath%>user_index.asp?info=box title=进入藏书架!~><font color=#006600>进入藏书架</font></a>，");
<%Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from [duanxin] where nickname='"&UserName&"' and yd=0 order by dateandtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
%>
document.write("<a href=<%=SiteSystemPath%>user_index.asp?info=pm title=新短消息!~ target=_blank><font color=#ff0000>有新短消息</font></a>，");
<%End If
Rs.Close
Set  Rs=Nothing
%>
document.write("还是<a href=<%=SiteSystemPath%>user_log.asp?info=out title=退出/重新登陆><font color=#006600>退出登录</font></a>？");
<%End IF
end sub%>