📄 password.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<% Option Explicit %>
<!-- #include file="includes/header.asp" -->
<!--#include file="functions/hash.asp" -->
<%
Response.Buffer = True

Dim strPassword
Dim blnAutoLogin
Dim intForumID
Dim strForumCode
Dim strReturnPage
Dim strReturnPageProperties

Select Case Request.QueryString("RP")
	Case "PT"
		strReturnPage = "post.asp"
		strReturnPageProperties = "?RP=PT&tid=" & CLng(Request.QueryString("tid")) & "&fid=" & CInt(Request.QueryString("fid"))
	Case Else
		strReturnPage = "topic.asp"
		strReturnPageProperties = "?RP=TC&fid=" & CInt(Request.QueryString("fid"))
End Select

intForumID = CInt(Request.QueryString("fid"))
strPassword = LCase(Trim(Mid(Request.Form("password"), 1, 15)))
blnAutoLogin = CBool(Request.Form("AutoLogin"))
If NOT strPassword = "" Then
	strSQL = "SELECT timesbbs.Password, timesbbs.codes FROM timesbbs WHERE bbsid = " & intForumID
	rsConn.Open strSQL, adoCon
	If NOT rsConn.EOF Then
		strPassword = HashEncode(strPassword)
		If strPassword = rsConn("Password") Then
			strForumCode = rsConn("codes")
			Response.Cookies("PrForum")("Forum" & intForumID) = strForumCode
			If blnAutoLogin = True Then
				Response.Cookies("PrForum").Expires = Now() + 365
			End If
			rsConn.Close
			Set rsConn = Nothing
			adoCon.Close
			Set adoCon = Nothing
			Response.Redirect strReturnPage & strReturnPageProperties
		End If
	End If
	rsConn.Close
End If
%>
<html>
<head>


<title>登录加密论坛</title>
<script  language="JavaScript">
function CheckForm () {

	var errorMsg = "";
	if (document.frmLogin.password.value==""){
		errorMsg += "\n\t密码 \t- 输入你的密码";
	}
	if (errorMsg != ""){
		msg = "_______________________________________________________________\n\n";
		msg += "表单不完整，请填写完全\n";
		msg += "请修正后再发表\n";
		msg += "_______________________________________________________________\n\n";
		msg += "以下区域需要修改: \n";

		errorMsg += alert(msg + errorMsg + "\n\n");
		return false;
	}

	return true;
}

// -->
</script>

  <table width="96%" border="0" cellspacing="0" cellpadding="3" align="center">
 <tr>
  <td align="left" width="71%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %><a href="password.asp" target="_self" class="boldLink">加密论坛登录</a><br /></td>
  </tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td align="center" class="text"><br />这个论坛需要你输入密码才可以进入</td>
  </tr>
</table>
<br />
<%
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
If strPassword <> "" Then
%>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td align="center" class="lgText">对不起,你输入的密码不正确<br />
      清重试</td>
  </tr>
</table>
<%
End If
%>
<form method="post" name="frmLogin" action="password.asp<% = strReturnPageProperties %>" onSubmit="return CheckForm();" onReset="return confirm('你确认要重新填写此表单?');">
  <table width="310" border="1" bordercolor="#6699cc"  cellspacing="0" cellpadding="0" align="center" bgcolor="<% = strTableBorderColour %>" height="30">
    <tr>
      <td height="2" width="483" align="center">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
		<tr><td background="<% = strTablePostsTitleBgImage %>" height="25" class="theading" align="center">加密论坛登陆</td></tr>
          <tr>
            <td bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>">
              <table width="100%" border="0" cellspacing="0" cellpadding="5">
                <tr>
                  <td align="right" width="39%"><span class="text">密码::</span>
                  </td>
                  <td width="61%">
                    <input type="password" name="password" size="15" maxlength="15" >
                  </td>
                </tr>
                <tr>
         <td align="right" width="39%">&nbsp;</td>
         <td width="61%" class="text" valign="middle"><span class="text">
          <input type="checkbox" name="AutoLogin" value="True" checked>自动登录</span></td>
                </tr>
                <tr>
                  <td width="40%" align="right">
                    <input type="submit" name="Submit" value="登录">
                  </td>
				   <td width="60%" align="left">
                    <input type="reset" name="reset" value="清除">
                  </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
</form>
<br/><br/><br/>
<!-- #include file="includes/footer.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -