收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 3815|回复: 2

[asp] 哪位高手能帮忙看看怎样修改才能记住用户名和密码?而不用每次都输入?最好能帮忙修改

[复制链接]
发表于 2017-1-25 14:14:52 | 显示全部楼层 |阅读模式
类似于这样的 无标题.png 用户名密码都能直接保持在表单中,按回车直接能够进入!
代码小白,刚刚起步,请高手赐教!
  1. <%
  2. Response.ExpiresAbsolute = Now() - 1
  3. Response.Expires = 0
  4. Response.CacheControl = "no-cache"
  5. %>

  6. <%
  7. un = trim(request("username"))
  8. pw = trim(request("pwhidden"))
  9. saveUser = trim(request("saveUser"))
  10. cleancookies = trim(request("cleancookies"))

  11. if cleancookies = "true" then
  12.         Response.Cookies("accounts") = ""
  13. end if

  14. showaccounts = trim(request.Cookies("accounts"))

  15. Response.Cookies("name") = ""
  16. dim ei
  17. dim errmsg
  18. errmsg = trim(request("errstr"))


  19. if IsEmpty(Application("em_MaxMPOP3")) and IsEmpty(Application("em_MaxSigns")) then
  20.         dim mam
  21.         set mam = server.createobject("easymail.AdminManager")

  22.         tmp_num = 0
  23.         do while tmp_num < 30
  24.                 mam.LoadExt

  25.                 if mam.IsLoadOK = true then
  26.                         Exit Do
  27.                 end if

  28.                 mam.Sleep 500
  29.                 tmp_num = tmp_num + 1
  30.         loop

  31.         if mam.IsLoadOK = true then
  32.                 Application("em_MaxMPOP3") = mam.MaxMPOP3
  33.                 Application("em_MaxSigns") = mam.MaxSigns
  34.                 Application("em_SystemAdmin") = LCase(mam.SystemAdmin)
  35.                 Application("em_EnableBBS") = mam.EnableBBS
  36.                 Application("em_Enable_SignHold") = mam.Enable_SignHold
  37.                 Application("em_Enable_FreeSign") = mam.Enable_FreeSign
  38.                 Application("em_Enable_SignWithDomainUser") = mam.Enable_SignWithDomainUser
  39.                 Application("em_Enable_SignNumberLimit") = mam.Enable_SignNumberLimit
  40.                 Application("em_SignNumberLimitDays") = mam.SignNumberLimitDays
  41.                 Application("em_Enable_ShareFolder") = mam.Enable_ShareFolder
  42.                 Application("em_Enable_SignEnglishName") = mam.Enable_SignEnglishName
  43.                 Application("em_LogPageKSize") = mam.LogPageKSize
  44.                 Application("em_TestAccounts") = LCase(mam.TestAccounts)
  45.                 Application("em_SignMode") = mam.SignMode
  46.                 Application("em_SignWaitDays") = mam.SignWaitDays
  47.                 Application("em_am_Name") = mam.am_Name
  48.                 Application("em_am_Accounts") = LCase(mam.am_Accounts)
  49.                 Application("em_AccountsAdmin") = LCase(mam.AccountsAdmin)
  50.                 Application("em_EnableEntAddress") = mam.Enable_Show_EntAddress
  51.                 Application("em_SpamAdmin") = LCase(mam.SpamAdmin)

  52.                 Application("em_EnableTrap") = mam.EnableTrap
  53.                 if mam.EnableTrap = true then
  54.                         Application("em_TrapMail") = mam.TrapMail
  55.                 end if

  56.                 set mam = nothing
  57.         else
  58.                 set mam = nothing
  59.                 Response.Redirect "outerr.asp?errstr=" & Server.URLEncode("超时, 请重试") & "&" & getGRSN()
  60.         end if
  61. end if


  62. if un <> "" and pw <> "" and Request.ServerVariables("REQUEST_METHOD") = "POST" then
  63.         if Application("em_EnableVerification") = true then
  64.                 if trim(request.Cookies("zatt_checkcode")) <> trim(request("zck")) then
  65.                         Response.Redirect "outerr.asp?errstr=" & Server.URLEncode("验证码填写错误") & "&" & getGRSN()
  66.                 end if
  67.         end if

  68.         un = LCase(un)
  69.         pw = strDecode(pw, trim(request("picnum")))

  70.         if un <> Application("em_SystemAdmin") then
  71.                 dim webkill
  72.                 set webkill = server.createobject("easymail.WebKill")
  73.                 webkill.Load

  74.                 rip = Request.ServerVariables("REMOTE_ADDR")

  75.                 if webkill.IsKill(rip) = true then
  76.                         set webkill = nothing
  77.                         Response.Redirect "outerr.asp?errstr=" & Server.URLEncode("拒绝IP地址 " & rip & " 访问") & "&" & getGRSN()
  78.                 end if

  79.                 set webkill = nothing
  80.         end if


  81.         set ei = Application("em")
  82.         Session("wem") = ""
  83.         Session("mail") = ""
  84.         Session("tid") = ""
  85.         Session("SecEx") = ""
  86.         Session("scpw") = ""
  87.         Session("cert_ca") = ""
  88.         Session("EnableSession") = ""


  89.         dim tmp_un
  90.         tmp_un = ei.GetRealUser(un)
  91.         if IsNull(tmp_un) = false and Len(tmp_un) > 0 then
  92.                 un = LCase(tmp_un)
  93.         end if

  94.         rip = Request.ServerVariables("REMOTE_ADDR")
  95.         if ei.CheckIPLimit(un, rip) = false then
  96.                 set ei = nothing
  97.                 Response.Redirect "outerr.asp?errstr=" & Server.URLEncode("拒绝IP地址 " & rip & " 访问") & "&" & getGRSN()
  98.         end if

  99.         dim checkret
  100.         checkret = ei.CheckPassWordEx(un, pw, Request.ServerVariables("REMOTE_ADDR"))

  101.         if checkret = 0 then
  102.                 if un = Application("em_SystemAdmin") and ei.CheckAdminIP(Request.ServerVariables("REMOTE_ADDR")) = false then
  103.                         set ei = nothing

  104.                         errmsg = "管理员登录IP地址错误。"
  105.                 else
  106.                         Session("tid") = ei.LoginEx(un, Request.ServerVariables("REMOTE_ADDR"))
  107.                         Session("wem") = un
  108.                         Session("mail") = ei.GetUserMail(un)
  109.                         set ei = nothing

  110.                         dim mri
  111.                         set mri = server.createobject("easymail.MoreRegInfo")
  112.                         mri.LoadRegInfo un
  113.                         mri.CurrentlyIP = Request.ServerVariables("REMOTE_ADDR")
  114.                         mri.SaveRegInfo
  115.                         set mri = nothing


  116.                         if saveUser = "true" then
  117.                                 Response.Cookies("accounts") = un
  118.                                 Response.Cookies("accounts").Expires = DateAdd("y", 5, Now())
  119.                         end if

  120.                         SecEx = trim(request("SecEx"))
  121.                         if SecEx = "true" then
  122.                                 Session("SecEx") = "1"
  123.                         else
  124.                                 Session("SecEx") = "0"
  125.                         end if


  126.                         dim userweb
  127.                         set userweb = server.createobject("easymail.UserWeb")
  128.                         userweb.Load Session("wem")

  129.                         ShowLanguage = userweb.ShowLanguage

  130.                         set userweb = nothing

  131.                         dim ul
  132.                         set ul = server.createobject("easymail.UserLog")
  133.                         ul.Load Session("wem")
  134.                         ul.Add 1, Request.ServerVariables("REMOTE_ADDR")
  135.                         ul.Save
  136.                         set ul = nothing

  137.                         if ShowLanguage = 1 then
  138.                                 Response.Redirect "en/welcome.asp"
  139.                         else
  140.                                 Response.Redirect "welcome.asp"
  141.                         end if
  142.                 end if
  143.         elseif checkret = 2 then
  144.                 dim pwwt
  145.                 pwwt = ei.PassWordWaitMinute
  146.                 set ei = nothing

  147.                 errmsg = "连续三次输入密码错误,请过" & pwwt & "分钟后再试。"
  148.         else
  149.                 set ei = nothing

  150.                 errmsg = "错误的用户名或密码!请再次输入。"
  151.         end if
  152. end if

  153. if trim(request("logout")) = "true" then
  154.         if Session("wem") <> "" then
  155.                 Application("em").Logout Session("wem"), Session("tid")
  156.         end if

  157.         Session("wem") = ""
  158.         Session("mail") = ""
  159.         Session("tid") = ""
  160.         Session("SecEx") = ""
  161.         Session("scpw") = ""
  162.         Session("cert_ca") = ""
  163.         Session("EnableSession") = ""
  164. end if
  165. %>

  166. <!DOCTYPE html>
  167. <HTML>
  168. <head>
  169. <META HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
  170. <title>邮箱</title>
  171. <link rel="stylesheet" type="text/css" href="images/owin.css">
  172. <link rel="stylesheet" type="text/css" href="images/hrefbt.css">

  173. <STYLE type=text/css>
  174. <!--
  175. a:hover {color:#b30008; text-decoration:underline;}
  176. a                {color:#004276; text-decoration:none;}
  177. .u_line:hover {color:#b30008; text-decoration:underline;}
  178. .u_line        {color:#004276; text-decoration:underline;}
  179. -->
  180. </STYLE>
  181. </head>

  182. <script type="text/javascript">
  183. <!--
  184. if (top.location !== self.location) {
  185. top.location=self.location;
  186. }

  187. function window_onload() {
  188. <%
  189. if errmsg <> "" then
  190. %>
  191.         alert("<%=server.htmlencode(errmsg) %>");
  192. <%
  193. end if

  194. if showaccounts = "" then
  195. %>
  196.         var S = document.getElementById("usernameshow");
  197.         S.focus();
  198. <%
  199. else
  200. %>
  201.         var S = document.getElementById("pwshow");
  202.         S.focus();
  203. <%
  204. end if
  205. %>
  206. }

  207. function gook() {
  208.         var S;
  209. <%
  210. if showaccounts = "" then
  211. %>
  212.         S = document.getElementById("usernameshow");
  213.         if (S.value == "")
  214.         {
  215.                 alert("用户名不可为空");
  216.                 S.focus();
  217.                 return ;
  218.         }
  219. <%
  220. end if
  221. %>
  222.         S = document.getElementById("pwshow");
  223.         if (S.value == "")
  224.         {
  225.                 alert("密码不可为空");
  226.                 S.focus();
  227.                 return ;
  228.         }
  229. <%
  230. if Application("em_EnableVerification") = true then
  231. %>
  232.         S = document.getElementById("zck_out");
  233.         if (S.value.length < 1)
  234.         {
  235.                 S.focus();
  236.                 alert("验证码填写错误");
  237.                 return ;
  238.         }
  239.         else
  240.                 document.getElementById("zck").value = S.value;
  241. <%
  242. end if

  243. if showaccounts = "" then
  244. %>
  245.         S = document.getElementById("usernameshow");
  246.         document.f1.username.value = S.value;

  247.         S = document.getElementById("showsaveUser");
  248.         document.f1.saveUser.value = S.checked;
  249. <%
  250. else
  251. %>
  252.         document.f1.username.value = "<%=showaccounts %>";
  253. <%
  254. end if
  255. %>
  256.         S = document.getElementById("showSecEx");
  257.         document.f1.SecEx.value = S.checked;

  258.         S = document.getElementById("pwshow");
  259.         document.f1.pwhidden.value = encode(S.value, parseInt(document.f1.picnum.value));

  260.         document.f1.submit();
  261. }

  262. function encode(datastr, bassnum) {
  263.         var tempstr;
  264.         var tchar;
  265.         var newdata = "";

  266.         for (var i = 0; i < datastr.length; i++)
  267.         {
  268.                 tchar = 65535 + bassnum - datastr.charCodeAt(i);
  269.                 tchar = tchar.toString();

  270.                 while(tchar.length < 5)
  271.                 {
  272.                         tchar = "0" + tchar;
  273.                 }

  274.                 newdata = newdata + tchar;
  275.         }

  276.         return newdata;
  277. }
  278. //-->
  279. </script>

  280. <body LANGUAGE=javascript onload="return window_onload()">
  281. <br><br><br>
  282. <div align="center"><font color="#444444"></font></div>
  283. <br>
  284. <form name="f1" method="post" action="default.asp">
  285. <input type="hidden" name="username">
  286. <input type="hidden" name="pwhidden">
  287. <input type="hidden" name="picnum" value="<%=createRnd() %>">
  288. <input type="hidden" name="saveUser">
  289. <input type="hidden" name="SecEx">
  290. <input type="hidden" name="zck" id="zck">
  291. </form>
  292. <table cellspacing="0" cellpadding="0" width="350" align="center" border="0">
  293.         <tr>
  294.         <td align="center" width="347" rowspan="2">
  295.         <table cellspacing="0" cellpadding="0" width="100%" border="0" style="border:#333333 1px solid;">
  296.                 <tr align="middle" bgcolor="#104A7B">
  297.                   <td colspan="4" height="35" style="border-bottom:#333333 1px solid; color:white;"><b>
  298.                 欢迎使用邮箱</b></td>
  299.                 </tr>
  300.                 <tr><td colspan="4" height="15">&nbsp;</td></tr>
  301.                 <tr><td colspan="3" nowrap height="28" width="53"></td>
  302.                 <td nowrap align="left"><span style="width:46px; display:inline-block;">用户名:</span>
  303. <%
  304. if showaccounts = "" then
  305. %>
  306. <input type="text" id="usernameshow" name="usernameshow" maxlength="64" size="24" class="n_textbox">
  307. <%
  308. else
  309. %>
  310. <font style="font-size:14px;" color="#001246"><%=showaccounts %></font>
  311. <%
  312. end if
  313. %>
  314.                 </td></tr>

  315.                 <tr><td colspan="3" nowrap height="28"></td>
  316.                 <td nowrap align="left"><span style="width:46px; display:inline-block;">密&nbsp;&nbsp;码:</span>
  317.                 <input type="password" id="pwshow" name="pwshow" maxlength="32" size="24" class="n_textbox">
  318.                 </td></tr>

  319. <%
  320. bt_height = "36"
  321. if Application("em_EnableVerification") = true then
  322.         bt_height = "23"
  323. %>
  324.                 <tr><td colspan="3" nowrap height="28"></td>
  325.                 <td nowrap align="left">输入验证码:<img src="tu.asp" align="absmiddle" border="0">
  326.                 <input type="text" id="zck_out" class="n_textbox" size="2" maxlength="2">
  327.                 </td></tr>
  328. <%
  329. end if

  330. if showaccounts = "" then
  331. %>
  332.                 <tr valign="bottom">
  333.                 <td colspan="4" nowrap align="center" height="<%=bt_height %>"><input type="checkbox" id="showSecEx" name="showSecEx">增强安全性&nbsp;&nbsp;
  334.                 <input type="checkbox" id="showsaveUser" name="showsaveUser">记住用户名
  335.                 </td></tr>
  336. <%
  337. else
  338. %>
  339.                 <tr valign="bottom">
  340.                 <td colspan="4" nowrap align="center" height="<%=bt_height %>">
  341.                 <input type="checkbox" id="showSecEx" name="showSecEx">增强安全性&nbsp;&nbsp;
  342.                 <a href="default.asp?cleancookies=true">改用其他身份登录</a></font>
  343.                 </td></tr>
  344. <%
  345. end if
  346. %>
  347.                 <tr><td colspan="4" nowrap align="right" height="50" style="padding-right:14px; _padding-right:24px;">
  348.                 <a class='wwm_btnDownload btn_gray' href="javascript:gook();">确 定</a>
  349.                 <input type="submit" value="" onclick="javascript:gook();" style="filter:alpha(opacity=0); opacity:0; font-size:0pt; height:0px; width:0px; border:0px;">
  350.                 </td></tr>
  351.         </table>

  352.         </td>
  353.         <td width=1 bgcolor=#ffffff height=5></td>
  354.         <td width=1 bgcolor=#ffffff height=5></td>
  355.         <td width=1 bgcolor=#ffffff height=5></td>
  356.         </tr>
  357.         <tr>
  358.         <td width=1 bgcolor=#333333 height=120></td>
  359.         <td width=1 bgcolor=#666666 height=120></td>
  360.         <td width=1 bgcolor=#999999 height=120></td>
  361.         </tr>
  362.         <tr valign=top align=right>
  363.         <td colspan=4>
  364.                 <table cellspacing=0 cellpadding=0 width="345" border=0>
  365.                 <tr><td bgcolor=#333333 height=1></td></tr>
  366.         <tr><td bgcolor=#666666 height=1></td></tr>
  367.         <tr><td bgcolor=#999999 height=1></td></tr>
  368.                 </table>
  369.         </td></tr>
  370.         <tr valign=center align=right><td colspan=4 height=35>&nbsp;</td></tr>
  371. </table>

  372. <table width="100%" border="0" align="center" cellspacing="0" bgcolor="white">
  373.         <tr><td align="center" nowrap>
  374. <%
  375. if Application("em_Enable_FreeSign") = true then
  376. %>
  377. [<a href="create.asp?<%=getGRSN() %>">申请邮箱</a>]&nbsp;&nbsp;
  378. <%
  379. end if
  380. %>
  381. [<a href="forgetbf.asp?<%=getGRSN() %>">忘记密码</a>]
  382.         </td></tr>
  383.         <tr><td height="15"></td></tr>
  384. </table>
  385. <%
  386. if Application("em_EnableTrap") = true then
  387. %>
  388. <div style="position:absolute; top:0; left:0; z-index:0; visibility:hidden">
  389. <a href="mailto:<%=Application("em_TrapMail") %>"><%=Application("em_TrapMail") %></a>
  390. </div>
  391. <%
  392. end if
  393. %>
  394. </body>
  395. </html>

  396. <%
  397. function getGRSN()
  398.         dim theGRSN
  399.         Randomize
  400.         theGRSN = Int((9999999 * Rnd) + 1)

  401.         getGRSN = "GRSN=" & CStr(theGRSN)
  402. end function

  403. function createRnd()
  404.         dim retval
  405.         retval = getGRSN()

  406.         if Len(retval) > 4 then
  407.                 retval = Right(retval, 4)
  408.         end if

  409.         if Left(retval, 1) = "0" then
  410.                 retval = "5" & Right(retval, 3)
  411.         end if

  412.         createRnd = retval
  413. end function

  414. function strDecode(sd_Data, sd_bassnum)
  415.         dim sd_vChar
  416.         dim sd_NewData
  417.         dim sd_TempChar
  418.         sd_vChar = 1

  419.         do
  420.                 if sd_vChar > Len(sd_Data) then
  421.                         exit do
  422.                 end if

  423.             sd_TempChar = CLng(Mid(sd_Data, sd_vChar, 5))
  424.                 sd_TempChar = ChrW(65535 + sd_bassnum - sd_TempChar)

  425.         sd_NewData = sd_NewData & sd_TempChar
  426.                 sd_vChar = sd_vChar + 5
  427.         loop

  428.         strDecode = sd_NewData
  429. end function
  430. %>
复制代码
 楼主| 发表于 2017-1-28 23:21:01 来自手机 | 显示全部楼层
没有人能指点一下吗?
回复 支持 反对

使用道具 举报

发表于 2017-2-7 14:19:08 | 显示全部楼层
把用户名、密码记录到本机的cookies里,设置一下过期时间,下次登录直接读取即可
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-9-22 10:52 , Processed in 0.093515 second(s), 10 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表