古风小说君子以泽,如何发布网络小说,已完本玄幻小说排行榜

主頁(yè) > 知識(shí)庫(kù) > 完美解決PJ的Cookies保存時(shí)限問(wèn)題!可選擇記錄登陸時(shí)長(zhǎng)!

完美解決PJ的Cookies保存時(shí)限問(wèn)題!可選擇記錄登陸時(shí)長(zhǎng)!

http://mr-w.cn/
一直被這個(gè)問(wèn)題所困擾!!現(xiàn)在終于完美解決啦!!獻(xiàn)給那些需要前臺(tái)記住登錄信息的朋友!(此方法經(jīng)過(guò)我的使用驗(yàn)證不存在星鈴丹管理員所說(shuō)的后臺(tái)會(huì)持續(xù)登陸的安全隱患...后臺(tái)還是和原版一樣的,效果只針對(duì)前臺(tái)!!)
感謝Wady和IFairy...
請(qǐng)大家不要只看不回,只回不來(lái)我的博客坐坐...回帖是美德!做人要厚道!!

下面是修改方法...

1.首先修改common/checkUser.asp(主要是這個(gè)!!)
將以下原碼

[Copy to clipboard]CODE:
'進(jìn)行MD5密碼驗(yàn)證，轉(zhuǎn)換舊帳戶密碼驗(yàn)證方式
                    dim strSalt
                    strSalt=randomStr(6)
                    memLogin("mem_salt")=strSalt
                    memLogin("mem_LastIP")=getIP()
                    memLogin("mem_lastVisit")=now()
                    memLogin("mem_hashKey")=HashKey
                    memLogin("mem_Password")=SHA1(PasswordstrSalt)
                            Response.Cookies(CookieName)("memName")=memLogin("mem_Name")
                            Response.Cookies(CookieName)("memHashKey")=HashKey
                            if Request.Form("KeepLogin")="1" then Response.Cookies(CookieName).Expires=Date+365
                            memLogin.Update
                            ReInfo(0)="登錄成功"
                            ReInfo(1)="b>"memLogin("mem_Name")"/b>，歡迎你的再次光臨。br/>a href=""default.asp"">點(diǎn)擊返回主頁(yè)/a>"
                            ReInfo(2)="MessageIcon"
                    ReInfo(3)=true
                   End IF
                 else
                   if memLogin("mem_Password")>SHA1(PasswordmemLogin("mem_salt")) then
                            ReInfo(0)="錯(cuò)誤信息"
                             ReInfo(1)="b>用戶名與密碼錯(cuò)誤/b>br/>a href=""javascript:history.go(-1);"">請(qǐng)返回重新輸入/a>"
                            ReInfo(2)="ErrorIcon"
                            logout(false)
                   else
                    memLogin("mem_LastIP")=getIP()
                    memLogin("mem_lastVisit")=now()
                    memLogin("mem_hashKey")=HashKey
                            Response.Cookies(CookieName)("memName")=memLogin("mem_Name")
                            Response.Cookies(CookieName)("memHashKey")=HashKey
                            if Request.Form("KeepLogin")="1" then Response.Cookies(CookieName).Expires=Date+365
                            memLogin.Update
                            ReInfo(0)="登錄成功"
                            ReInfo(1)="b>"memLogin("mem_Name")"/b>，歡迎你的再次光臨。br/>a href=""default.asp"">點(diǎn)擊返回主頁(yè)/a>meta http-equiv=""refresh"" content=""3;url=default.asp""/>"
                            ReInfo(2)="MessageIcon"
                    ReInfo(3)=true
                   end if
                 end if
                 memLogin.Close
                 Set memLogin=Nothing
  login=ReInfo
end function

修改成

[Copy to clipboard]CODE:
'進(jìn)行MD5密碼驗(yàn)證，轉(zhuǎn)換舊帳戶密碼驗(yàn)證方式
     dim strSalt
     strSalt=randomStr(6)
     memLogin("mem_salt")=strSalt
     memLogin("mem_LastIP")=getIP()
     memLogin("mem_lastVisit")=now()
     memLogin("mem_hashKey")=HashKey
     memLogin("mem_Password")=SHA1(PasswordstrSalt)
     Response.Cookies(CookieName)("memName")=memLogin("mem_Name")
     Response.Cookies(CookieName)("memHashKey")=HashKey
     if Cint(Request.Form("KeepLogin"))>0 then Response.Cookies(CookieName).Expires=Date+Cint(Request.Form("KeepLogin"))
     memLogin.Update
     ReInfo(0)="登陸成功"
     ReInfo(1)="b>"memLogin("mem_Name")"/b>，歡迎你的再次光臨。br/>a href=""default.asp"">點(diǎn)擊返回主頁(yè)/a>"
     ReInfo(2)="MessageIcon"
     ReInfo(3)=true
    End IF
    else
    if memLogin("mem_Password")>SHA1(PasswordmemLogin("mem_salt")) then
     ReInfo(0)="錯(cuò)誤信息"
     ReInfo(1)="b>用戶名與密碼錯(cuò)誤/b>br/>a href=""javascript:history.go(-1);"">請(qǐng)返回重新輸入/a>"
     ReInfo(2)="ErrorIcon"
     logout(false)
    else
     memLogin("mem_LastIP")=getIP()
     memLogin("mem_lastVisit")=now()
     memLogin("mem_hashKey")=HashKey
    Response.Cookies(CookieName)("memName")=memLogin("mem_Name")
     Response.Cookies(CookieName)("memHashKey")=HashKey
     if Cint(Request.Form("KeepLogin"))>0 then Response.Cookies(CookieName).Expires=Date+Cint(Request.Form("KeepLogin"))
     memLogin.Update
     ReInfo(0)="登陸成功"
     ReInfo(1)="b>"memLogin("mem_Name")"/b>，歡迎你的再次光臨。br/>a href=""default.asp"">點(diǎn)擊返回主頁(yè)/a>meta http-equiv=""refresh"" content=""3;url=default.asp""/>"
     ReInfo(2)="MessageIcon"
     ReInfo(3)=true
    end if
    end if
    memLogin.Close
    Set memLogin=Nothing
  login=ReInfo
end function

然后搜索

[Copy to clipboard]CODE:
memLogin("mem_LastIP")=getIP()

有三處!將其刪除...

再搜索

[Copy to clipboard]CODE:

if CheckCookie("mem_LastIP")>Guest_IP or isNull(CheckCookie("mem_LastIP")) then
      logout(true)
     else
      memName=CheckStr(Request.Cookies(CookieName)("memName"))
      memStatus=CheckCookie("mem_Status")
    end if

替換為

[Copy to clipboard]CODE:
      memName=CheckStr(Request.Cookies(CookieName)("memName"))
      memStatus=CheckCookie("mem_Status")

2.修改login.asp:
將以下代碼替換form name="checkUser" action="login.asp" method="post">至/form>斷

[Copy to clipboard]CODE:
form name="checkUser" action="login.asp" method="post">
div id="MsgContent">
div id="MsgHead">用戶登錄/div>
div id="MsgBody">
  input name="action" type="hidden" value="login"/>
  label>用戶名：input name="username" type="text" size="18" class="userpass" maxlength="24"/>/label>br/>
  label>密　碼：input name="password" type="password" size="18" class="userpass"/>/label>br/>
  %if blog_useCode then%>label>驗(yàn)證碼：input name="validate" type="text" size="4" class="userpass" maxlength="4"/> %=getcode()%>/label>br/>%end if%>
  label>記住登陸: select name="KeepLogin" id="KeepLogin" class="userpass">
  option value="1" selected="selected">一天/option>
  option value="30" >一個(gè)月/option>
  option value="365">一年/option>
  option value="0">不用記住/option>
  /select>
  /label>
  br/>
  input type="submit" value="登　錄" class="userbutton"/>　input type="button" value="用戶注冊(cè)" class="userbutton" onclick="location='register.asp'"/>
  /div>
/div>
/form>

附首頁(yè)顯示登陸框的方法
在library.asp里查找退出系統(tǒng)/a>" 將以下代碼替換原來(lái)的

[Copy to clipboard]CODE:
else
  userPanel=userPanel"form name=""checkUser"" action=""login.asp"" method=""post"" style=""margin:1px;"">input name=""action"" type=""hidden"" value=""login""/>label>用戶：input name=""username"" type=""text"" size=""12"" class=""userpass"" maxlength=""24""/>/label>br/>label>密碼：input name=""password"" type=""password"" size=""12"" class=""userpass""/>/label>br/>label>驗(yàn)證：input name=""validate"" type=""text"" size=""4"" class=""userpass"" maxlength=""4""/> "getcode()"/label>br/>label>記住登陸: select name=""KeepLogin"" id=""KeepLogin"" class=""userpass"">option value=""1"" selected=""selected"">一天/option>option value=""30"" >一個(gè)月/option>option value=""365"">一年/option>option value=""0"">不用記住/option>/select>/label>br/>input type=""submit"" value=""登錄"" class=""userbutton""/>input type=""button"" value=""會(huì)員注冊(cè)"" class=""userbutton"" onclick=""location.href='register.asp'""/>/form>"
end if
end function

如果你懶得改或不會(huì)改的話請(qǐng)下載我打的包,覆蓋原文件即可!(修改有風(fēng)險(xiǎn),請(qǐng)自行備份原文件!!)

點(diǎn)擊下載此文件

標(biāo)簽：鐵嶺家電維修昆明麗江咸陽(yáng) 昌都泰州溫州

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《完美解決PJ的Cookies保存時(shí)限問(wèn)題!可選擇記錄登陸時(shí)長(zhǎng)!》，本文關(guān)鍵詞完美,解決,的,Cookies,保存,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。