热门文章

把3.62首页登陆为横向代码

1\int/function.asp

'==================================================
'过程名：ShowUserLogin
'作  用：显示用户登录表单
'参  数：无
'==================================================
Function ShowUserLogin()
dim strLogin
if CheckUserLogined()=False or session("AdminName")<>"" then
     if session("AdminName")="" then
  strLogin="<table align='center' width='760' border='0' cellspacing='0' cellpadding='0'>" & vbcrlf
     If UserTableType="MyPower" then
  strLogin=strLogin &  "<form action='User_ChkLogin.asp' method='post' name='UserLogin' onSubmit='return CheckForm();'>" & vbcrlf
  Else
        strLogin = strLogin & "<form action='"& forum_dir &"/Login2.asp?action=chk' method='post' name='UserLogin' onSubmit='return CheckForm();'>" & vbCrLf
     End if
         strLogin=strLogin & "&nbsp;&nbsp;用户：<input name='UserName' type='text' id='UserName' size='10' maxlength='20'>&nbsp;&nbsp;密码：<input name='Password' type='password' id='Password' size='10' maxlength='20'>" & vbcrlf
         strLogin=strLogin & "&nbsp;&nbsp;附加验证：<input name='CheckCode' size='4' maxlength='4'> <img src='inc/checkcode.asp'>" & vbcrlf
         strLogin=strLogin & "&nbsp;&nbsp;Cookie：<select name=CookieDate><option selected value=0>不保存</option><option value=1>保存一天</option>" & vbcrlf
  strLogin=strLogin & "<option value=2>保存一月</option><option value=3>保存一年</option></select>" & vbcrlf
  strLogin=strLogin & "&nbsp;&nbsp;<input name='Login' type='submit' id='Login' value='登&nbsp;陆'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name='Reset' type='reset' id='Reset' value='清&nbsp;除'>" & vbcrlf
else
  strLogin="<table align='center' width='100%' border='0' cellspacing='0' cellpadding='0'><tr align='center'><td height='30' colspan='2'>" & vbcrlf
  strLogin=strLogin &  "<font color=#ff6600><b>" & session("AdminName") & vbcrlf
  strLogin=strLogin &  "</b></font>" & vbcrlf
  strLogin=strLogin & "您的身份：网站管理员" & vbcrlf
  strLogin=strLogin & "&nbsp;&nbsp;[<b>控制面板</b>]" & vbcrlf end if

        if session("AdminName")="" then
  strLogin=strLogin & "<a href='User_Reg.asp'>注册</a>&nbsp;&nbsp;" & vbcrlf
  strLogin=strLogin & "<a href='User_GetPassword.asp'>忘记密码</a>" & vbcrlf
  strLogin=strLogin & "</td></tr></form></table>" & vbcrlf
else '--snowice modify 管理员身份登陆以高级模式添加文章
  strLogin=strLogin & "&nbsp;&nbsp;<a href='Admin_ArticleAdd2.asp' target='_blank'>添加文章</a>" & vbcrlf
  strLogin=strLogin & "&nbsp;&nbsp;<a href='Admin_PhotoAdd.asp' target='_blank'>添加图片</a>" & vbcrlf
  strLogin=strLogin & "&nbsp;&nbsp;<a href='Admin_SoftAdd.asp' target='_blank'>添加软件</a>" & vbcrlf
  strLogin=strLogin & "&nbsp;&nbsp;<a href='Admin_AdminModifyPwd.asp' target='_blank'>修改密码</a>" & vbcrlf
  strLogin=strLogin & "&nbsp;&nbsp;<a href=""javascript:openScript('Admin_Index.asp')"">进入后台" & vbcrlf
  strLogin=strLogin & "&nbsp;&nbsp;<a href='Admin_Logout.asp'>退出管理</a>" & vbcrlf
  
  strLogin=strLogin & "<a href=""javascript:openScript2('sms_main.asp?action=new',500,400)"">发短消息</a>&nbsp;&nbsp;&nbsp;&nbsp;"
  if Cint(newincept())>Cint(0) then
   strLogin=strLogin & "<bgsound src=""images/mail.wav"" border=0>"
   if nt2003.site_setting(36)=1 then strLogin=strLogin & "<script language=javascript>openScript2('sms_main.asp?action=read&id="&inceptid(1)&"&sender="&inceptid(2)&"',500,400)</script>"
   strLogin=strLogin & "<a href='sms_user.asp?action=inbox'>收件信箱</a>"
   strLogin=strLogin & "<a href=""javascript:openScript2('sms_main.asp?action=read&id="&inceptid(1)&"&sender="&inceptid(2)&"',500,400)""><font color=red>"&newincept()&"</font>新</a>"
  else
   strLogin=strLogin & "<a href='sms_user.asp?action=inbox'>收件箱</a><font color=gray>0新</font>"
  end if
  strLogin=strLogin & "</td></tr></form></table>" & vbcrlf
end if
Else
dim Rs_user
Set Rs_user= Server.CreateObject("ADODB.Recordset")
sql="select top 1 ArticlesReceive from "& db_User_Table&" where UserName='"&Request.Cookies(asp163_Cookies)("username")&"'"
Rs_user.open sql,conn_user,1,1
if not Rs_user.eof then
  if len(Rs_user("ArticlesReceive"))>1 then
   strLogin = "<script language=""javascript"">window.open('User_ReceiveArticlList.asp?ArticleIDs_Rcv="&Rs_user("ArticlesReceive")&"', 'QSLIST', 'width=460,height=300,resizable=0,scrollbars=no');</script>"
  end if
end if
Rs_user.close
set Rs_user=nothing
       strLogin = strLogin & "&nbsp;&nbsp;欢迎您<font color=green><b>" & UserName & "</b></font>！"
strLogin = strLogin & "您的身份："
if UserLevel=999 then
  strLogin = strLogin & "注册用户"
elseif UserLevel=99 then
  strLogin = strLogin & "收费用户"
elseif UserLevel=9 then
  strLogin = strLogin & "VIP用户"
elseif UserLevel=5 then
  strLogin = strLogin & "管理员"
end if
if UserLevel=5 then  '管理员判断
  strLogin = strLogin & "&nbsp;&nbsp;<b><a href=admin_login.asp>登录后台管理</a></b><br>"
else '管理员判断
  strLogin = strLogin & "&nbsp;&nbsp;计费方式："
if ChargeType=1 then
  if UserPoint>0 then
   strLogin = strLogin & "扣点数&nbsp;&nbsp;可用点数： <b><font color=blue>" & UserPoint & "</font></b> 点"
   if UserPoint<=10 then
    strLogin = strLogin & "&nbsp;&nbsp;<font color=red>你的可用点数已不多，请及时联系我们进行充值！</font>"
   end if
  else
   strLogin = strLogin & "&nbsp;&nbsp;扣点数&nbsp;&nbsp;可用点数： <b><font color=red>" & UserPoint & "</font></b> 点"
   strLogin = strLogin & "&nbsp;&nbsp;<font color=red>你的可用点数已经用完，请联系我们进行充值，否则你将不能阅读收费内容。</font>"
  end if
else
  if ValidDays>0 then
   strLogin = strLogin & "&nbsp;&nbsp;有效期&nbsp;&nbsp;有效天数： <b><font color=blue>" & ValidDays & "</font></b> 天"
   if ValidDays<=10 then
    strLogin = strLogin & "&nbsp;&nbsp;<font color=red>你的有效期时间已不长，请及时联系我们进行充值！</font>"
   end if
  else
   strLogin = strLogin & "有效期&nbsp;&nbsp;有效天数： <b><font color=red>" & ValidDays & "</font></b> 天"
   strLogin = strLogin & "&nbsp;&nbsp;<font color=red>你的有效期已经过期，请联系我们进行充值，否则你将不能阅读收费内容。</font>"
  end if
end if
end if'管理员判断
strLogin = strLogin & "<br>&nbsp;&nbsp;[<b>控制面板</b>]" & vbcrlf
strLogin = strLogin & "&nbsp;&nbsp;<a href=""javascript:openScript('User_ControlPad.asp?Action=ArticleAdd')"">发表文章</a>" & vbcrlf
strLogin = strLogin & "&nbsp;&nbsp;<a href=""javascript:openScript('User_ControlPad.asp?Action=ArticleManage')"">文章管理</a>" & vbcrlf
strLogin = strLogin & "&nbsp;&nbsp;<a href=""javascript:openScript('User_ControlPad.asp?Action=ModifyPwd')"">修改密码</a>" & vbcrlf
strLogin = strLogin & "&nbsp;&nbsp;<a href=""javascript:openScript('User_ControlPad.asp?Action=ModifyInfo')"">个人信息</a>" & vbcrlf
strLogin=strLogin & "&nbsp;&nbsp;<a href=""javascript:openScript2('sms_main.asp?action=new',500,400)"">发短消息</a>"
if Cint(newincept())>Cint(0) then
  strLogin=strLogin & "<bgsound src=""images/mail.wav"" border=0>"
  if nt2003.site_setting(36)=1 then strLogin=strLogin & "<script language=javascript>openScript2('sms_main.asp?action=read&id="&inceptid(1)&"&sender="&inceptid(2)&"',500,400)</script>"
  strLogin=strLogin & "&nbsp;&nbsp;<a href='sms_user.asp?action=inbox'>收件箱</a>"
  strLogin=strLogin & "&nbsp;&nbsp;<a href=""javascript:openScript2('sms_main.asp?action=read&id="&inceptid(1)&"&sender="&inceptid(2)&"',500,400)""><font color=red>"&newincept()&"</font>新</a>"
else
  strLogin=strLogin & "&nbsp;&nbsp;<a href='sms_user.asp?action=inbox'>收件箱</a><font color=gray>0 新</font>"
end if
strLogin = strLogin & "&nbsp;&nbsp;<a href=""javascript:openScript2('User_cz.asp',500,400)"">在线充值</a>" & vbcrlf
strLogin = strLogin & "&nbsp;&nbsp;<a href='User_Logout.asp'>注销登录</a><br>" & vbcrlf
end if
ShowUserLogin=strLogin
end Function
######################################################