醉情书生

求PJBLOG的登陆窗口的E语言源码，登陆之后窗口自动返回到BLOG，仿IE浏览器一样。

网络小新

来源：http://blog.soxiu.net/article.asp?id=98

今天无意中逛了逛论坛,发现了很多好教程,结合自己今天的修改,把登陆框做个教程展示

打开 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

zkysn

顶一下