求高手指教,我有一个会员登陆文件页面,我想在会员点登陆弹出新窗口,然后自动关闭登陆窗口,就象腾讯2007版的官方会员网站http:my.qq.com上面的那个登陆窗口一样

技术2022-05-11 57

求高手指教,我有一个会员登陆文件页面,我想在会员点登陆弹出新窗口,然后自动关闭登陆窗口,就象腾讯2007版的官方会员网站http://my.qq.com上面的那个登陆窗口一样

我的登陆文件如下,请问怎么样修改,也可以到我的网站上看看实列,我的网站http://blog.17175.org

请指教啊,高手来

<%response.expires = 0 response.expiresabsolute = now() - 1 response.addHeader "pragma","no-cache" response.addHeader "cache-control","private" Response.cachecontrol = "no-cache" dim username,password,show_login,CookieDate,fromurl,actionaction=request("action")if action<>"showindexlogin" and action<>"showjs" then if oblog.checkuserlogined() then response.Redirect("user_index.asp")end ifusername=oblog.filt_badstr(trim(request.Form("username")))password=trim(request.form("password"))CookieDate=trim(request("CookieDate"))fromurl=trim(request("fromurl"))if username<>"" or request("chk")="1" then call sub_chkloginelse if action="showindexlogin" then call sub_showindexlogin() elseif action="showjs" then blogurl=oblog.setup(3,0) call sub_showindexlogin() else call sub_showlogin() end ifend ifsub sub_showlogin()%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>用户管理登陆</title><link href="OblogStyle/OblogStyleAdminLogin.css" rel="stylesheet" type="text/css" /></head><body><form name="reg" method="post" action="login.asp?fromurl=<%=fromurl%>" ><p class="p1"><input name="username" type="text" class="put1" size="25" /></p><p class="p2"><input name="password" type="password" class="put1" size="25" /></p><p class="p3"> <input name="CookieDate" type="radio" value="0" checked="checked" title="若您不在自己的电脑登陆，请不要保存密码" />不保存 <input type="radio" name="CookieDate" value="1" />一天 <input type="radio" name="CookieDate" value="2" />一月 <input type="radio" name="CookieDate" value="3" />一年</p><p class="p4"></p><div class="but"> <input name="Submit" type="image" src="OblogStyle/OblogStyleAdminImages/login.gif" value="提交" οnclick="submit()" /></div> <div class="code"> <%if oblog.setup(58,0)=1 then %><input name="codestr" type="text" class="put2" size="6" maxlength="4" /> <%response.Write(oblog.getcode) end if %> </div></p> </form></body></html><%end sub

sub sub_chklogin() if oblog.chkiplock() then oblog.adderrstr("对不起！你的IP已被锁定,不允许登陆，！") oblog.showerr exit sub end if if oblog.setup(58,0)=1 then if not oblog.codepass then oblog.adderrstr("验证码错误，请刷新后重新输入！"):oblog.showerr end if if UserName="" then oblog.adderrstr("登陆用户名不能为空！") if Password="" then oblog.adderrstr("登陆密码不能为空！") if oblog.errstr<>"" then oblog.showerr:exit sub if CookieDate="" then CookieDate=0 else CookieDate=Clng(CookieDate)' password=md5(password) if is_ot_user=1 then call ot_chklogin() Else oblog.ob_chklogin UserName,MD5(password),CookieDate If API_Enable Then Dim blogAPI Set blogAPI = New DPO_API_OBLOG blogAPI.LoadXmlFile True blogAPI.UserName=username blogAPI.PassWord=password blogAPI.CookieDate=CookieDate blogAPI.userip=oblog.userip Call blogAPI.ProcessMultiPing("login") Set blogAPI=Nothing Dim strUrl,i,gourl if fromurl<>"" Then gourl=replace(fromurl,"$","&") Else gourl=oblog.comeurl End If For i=0 To UBound(aUrls) strUrl=Lcase(aUrls(i)) If Left(strUrl,7)="http://" Then Response.write("<script src="""&strUrl&"?syskey="&MD5(UserName&oblog_Key)&"&username="&UserName&"&password="&MD5(PassWord)&"&savecookie="&CookieDate&"""></script>") Response.Flush End If Next response.write"<script language=JavaScript>" response.write"setTimeout(""window.location='"&gourl&"'"",0);" response.write"</script>" End If end If If API_Enable=False Then if fromurl<>"" then response.Redirect(replace(fromurl,"$","&")) else if action="showindexlogin" then if instr(oblog.comeurl,"/err.asp")>0 then response.Redirect("index.asp") else response.Redirect(oblog.comeurl) end if else response.Redirect("user_index.asp") end if end If End If end sub

sub ot_chklogin() dim sql,rs,rsreg if not IsObject(ot_conn) then link_database sql="select * from "&ot_usertable&" where "&ot_username&"='"& username & "' and "&ot_password&" ='" & md5(password) &"'" set rs=ot_conn.execute(sql) if rs.bof and rs.eof then set rs=nothing if isobject(ot_conn) then ot_conn.close:set ot_conn=nothing oblog.adderrstr("用户名或密码错误，请重新输入！"):oblog.showerr exit sub else set rsreg=server.CreateObject("adodb.recordset") rsreg.open "select * from [oblog_user] where username='"& username &"'",conn,1,3 if rsreg.eof then dim reguserlevel if oblog.setup(16,0)=1 then reguserlevel=6 else reguserlevel=7 set rsreg=server.CreateObject("adodb.recordset") rsreg.open "select top 1 * from [oblog_user]",conn,1,3 rsreg.addnew rsreg("username")=username rsreg("password")="othertable" rsreg("user_dir")=oblog.setup(30,0) rsreg("user_level")=reguserlevel rsreg("lockuser")=0 rsreg("en_blogteam")=1 rsreg("adddate")=now() rsreg("regip")=oblog.userip rsreg("lastloginip")=oblog.userip rsreg("lastlogintime")=ServerDate(now()) If oblog.chkdomain(UserName)=False Then rsreg("Nickname")=UserName End If rsreg.update oblog.execute("update oblog_user set user_folder=userid where username='"&username&"'") oblog.execute("update oblog_setup set user_count=user_count+1") rsreg.close set rsreg=nothing oblog.SaveCookie username,md5(password),0," " oblog.CreateUserDir username,1 set rs=nothing oblog.showok "您是第一次激活blog系统，请完善blog资料!","user_setting.asp" response.End() else rsreg("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR") rsreg("LastLoginTime")=now() rsreg("LoginTimes")=rsreg("LoginTimes")+1 rsreg.update end if rsreg.close set rsreg=nothing set rs=nothing if isobject(ot_conn) then ot_conn.close:set ot_conn=nothing oblog.SaveCookie username,md5(password),CookieDate,"" if action="showindexlogin" then 'response.Redirect(oblog.comeurl) response.Redirect("user_index.asp") else response.Redirect("user_index.asp") end if end ifend sub

sub sub_showindexlogin() dim show_userlogin if oblog.CheckUserLogined()=False then show_userlogin="<form action="""&blogurl&"login.asp?action=showindexlogin&chk=1"" method='post' name='UserLogin'>" show_userlogin=show_userlogin&"<table align='center' width='100%' border='0' cellspacing='0' cellpadding='0' style=""font-size:12px"">" show_userlogin=show_userlogin & "<tr><td height='25' class=login>用户名：<input name='UserName' type='text' id='UserName' size='12' maxlength='20'></td></tr>" show_userlogin=show_userlogin & "<tr><td height='25' class=login >密　码：<input name='Password' type='password' id='Password' size='12' maxlength='20'></td></tr>" if oblog.setup(58,0)=1 then show_userlogin=show_userlogin&"<tr><td height='25' >验证码：<input name=""codestr"" type=""text"" size=""4"" maxlength=""4"" />"&oblog.getcode&"</td></tr>" end if show_userlogin=show_userlogin & "<tr><td height='25'>　　　　<input type=""checkbox"" name=""CookieDate"" value=""3"">记住密码</td></tr>" show_userlogin=show_userlogin & "<tr><td height='25'><input name='Login' type='submit' id='Login' value='登录'> " show_userlogin=show_userlogin & "<a href='"&blogurl&"reg.asp'>用户注册</a> <a href='"&blogurl&"lostpassword.asp'>忘记密码</a><br></td>" show_userlogin=show_userlogin & "</tr></table></form>" else show_userlogin="--欢迎您," & oblog.logined_uname & "--<br />" show_userlogin= show_userlogin&"您的身份：" if oblog.logined_ulevel=7 then show_userlogin= show_userlogin&"注册用户" elseif oblog.logined_ulevel=8 then show_userlogin= show_userlogin&"VIP用户" elseif oblog.logined_ulevel=9 then show_userlogin= show_userlogin& "前台管理员" end if 'show_userlogin= show_userlogin& "<br><b>用户控制面板：</b><br>" & vbcrlf show_userlogin= show_userlogin& "<br /><a href="&blogurl&"blog.asp?name="&oblog.logined_uname&" target='_blank'>我的首页</a>" show_userlogin= show_userlogin& " <a href='"&blogurl&"user_index.asp' target='_blank'>管理中心</a><br />" show_userlogin= show_userlogin& "<a href='"&blogurl&"user_index.asp?url=user_post.asp' target='_blank'>发表日志</a> " show_userlogin= show_userlogin& "<a href='"&blogurl&"user_index.asp?t=logout&re=1'>注销登录</a><br />" end if Response.Write oblog.htm2js_div(show_userlogin,"ob_login")end Sub%>

专利

最新回复(0)