sskwraps

如题，，，总是按登陆，跳到另一个页面，，，我想在首页上直接登陆，，，大家帮帮忙

[ 本帖最后由 sskwraps 于 2006-11-29 21:18 编辑 ]

嵘心天涯

说明，这个并不是我写的，不知道在哪看到的，问的人实在太多，我就给贴上

打开 common/library.asp文件，
**********************************************
用户面板
'**********************************************

在这个范围贴上下面的代码

'**********************************************
输出日记统计信息
'**********************************************

复制内容到剪贴板

代码:

function userPanel()
userPanel=""
if memName<>Empty then userPanel=userPanel&" <b>"&memName&"</b>，欢迎你!<br/>你的权限: "&stat_title&"<br/><br/>"
if stat_Admin=true then userPanel=userPanel+"<a href=""control.asp"" class=""sideA"" accesskey=""3"">系統管理</a>"
if stat_AddAll=true or stat_Add=true then userPanel=userPanel+"<a href=""blogpost.asp"" class=""sideA"" accesskey=""N"">发表日记</a>"
if (stat_AddAll=true or stat_Add=true) and (stat_EditAll or stat_Edit) then
  if isEmpty(session(CookieName&"_draft_"&memName)) then
   session(CookieName&"_draft_"&memName)=conn.execute("select count(log_ID) from blog_Content where log_Author='"&memName&"' and log_IsDraft=true")(0)
   SQLQueryNums=SQLQueryNums+1
  end if
  if session(CookieName&"_draft_"&memName)>0 then
      userPanel=userPanel+"<a href=""default.asp?display=draft"" class=""sideA"" accesskey=""D""><strong>编辑草稿 ["&session(CookieName&"_draft_"&memName)&"]</strong></a>"
   else
      userPanel=userPanel+"<a href=""default.asp?display=draft"" class=""sideA"" accesskey=""D"">编辑草稿</a>"
  end if
end if
if memName<>Empty then
  userPanel=userPanel&"<a href=""member.asp?action=edit"" class=""sideA"" accesskey=""M"">修改資料</a><a href=""login.asp?action=logout"" class=""sideA"" accesskey=""Q"">退出系统</a>"
else
  userPanel=userPanel&"<form name=""checkUser"" action=""login.asp"" method=""post""><input name=""action"" type=""hidden"" value=""login""/><label><b>用户名︰</b><input name=""username"" type=""text"" size=""12"" class=""userpass"" maxlength=""24""/></label><br/><label><B>密　码︰</B><input name=""password"" type=""password"" size=""12"" class=""userpass""/></label><br/><label><B>验证码︰</B><input name=""validate"" type=""text"" size=""4"" class=""userpass"" maxlength=""4""/>"&getcode()&"</label><br/><label><input name=""KeepLogin"" type=""checkbox"" value=""1""/>记住我的登陆信息</label><br/><input type=""submit"" value=""登　陆"" class=""userbutton""/>　<input type=""button"" value=""注　册"" class=""userbutton"" onclick=""location.href='register.asp'""/></form>"
end if
end function

[ 本帖最后由 嵘心天涯 于 2006-11-29 21:41 编辑 ]

Dev.7

嵘心天涯辛苦呀
我看这些当斑竹的就你最卖力了

sskwraps

不错

cqu001

谢谢斑竹了，我正在找 也正好有人提问，去设置看看！

cqu001

成功了，感谢斑竹的代码哈！感谢！大家可以来我的看看效果！

cqu001

斑竹可以做个连接吗？我看你的博客做的很好啊！

嵘心天涯

thanks~

Michael

呵呵

网络小新

支持一下