⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 BBS论坛的开发和设计
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	font-size: 9pt;
	color: #FFFFFF;
}
td {
	font-size: 9pt;
	color: #FFFFFF;
	text-decoration: none;
}
a:hover {
	font-size: 9pt;
	color: #FFFFFF;
	text-decoration: none;
}
a:link {
	font-size: 9pt;
	color: #FFFFFF;
	text-decoration: none;
}
a:visited {
	font-size: 9pt;
	color: #FFFFFF;
	text-decoration: none;
}
-->
</style>
<script>
if (top.location==self.location){
	top.location="?action=login"
}
</script>
</head>
<body bgcolor="#2d65dc" leftmargin="0" topmargin="0" oncontextmenu="return false" ondragstart="return false"
 onselectstart="return false">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <TD width="10" background="images/TopBG_02.gif"><IMG SRC="images/TopBG_01.gif" onMouseDown="this.src='images/TopBG2_01.gif'" onMouseUp="this.src='images/TopBG_01.gif'" onMouseOut="this.src='images/TopBG_01.gif'"></TD>
    <td background="images/TopBG_02.gif">&nbsp;<a href="http://www.JoinBoard.Net" target="_blank">JoinBoard 
      控制面板(Ver2.3.0) </a></td>
    <td width="180" background="images/TopBG_02.gif" align="right"><a href="http://bbs.joinboard.com/board.asp?BoardID=15" target="_blank">使用帮助</a>&nbsp;&nbsp;&nbsp;<a href="../" target="_blank">论坛首页</a>&nbsp;</td>
    <TD width="10" background="images/TopBG_02.gif"><div align="right"><IMG SRC="images/TopBG_03.gif" onMouseDown="this.src='images/TopBG2_03.gif'" onMouseUp="this.src='images/TopBG_03.gif'" onMouseOut="this.src='images/TopBG_03.gif'"></div></TD>
</tr>
</table>
</body>
</html>
<%
End Sub
'=================================================
Sub main()
%>
<!--#Include file = "BBSConfig.asp"-->
<!--#include file="Session.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>JoinBoard管理中心</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script>
if (top.location==self.location){
	top.location="?action=login"
}
</script>
</head>
<body leftmargin="10" topmargin="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="23">&nbsp;</td>
  </tr>
  <tr> 
    <td height="22"><strong>欢迎光临JoinBoard管理员控制面板</strong></td>
  </tr>
  <tr> 
    <td height="22">软件开发 <a href="http://YouMeng.Com" target="_blank"><font color="#000000">友盟工作室</font></a></td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td height="22">在这里, 你可以定义你的论坛的所有属性和特征. 请选择左边的论坛管理选项管理和设置你的论坛。</td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td valign="top"> 
      <table width="349" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#2d65dc">
        <tr> 
          <td bgcolor="#9bbaf6"><strong><font color="#000000">常用管理功能</font></strong></td>
        </tr>
        <tr> 
          <form name="form1" method="Get" action="user.asp">
            <td height="30" bgcolor="#FFFFFF"> <input name="action" type="hidden" id="action" value="show">
              快速查找用户 
              <input name="username" type="text" id="username2"> <input name="groupID" type="hidden" id="groupID" value="0"> 
              <input name="submit" type="submit" class="form1" value="搜索"> </td>
          </form>
        </tr>
        <tr> 
          <td height="30" bgcolor="#FFFFFF">有用的链接　 
            <select name="select1" size="1"
    onChange="javascript:window.open(this.options[this.selectedIndex].value)">
              <option selected> == 有用的链接 ==</option>
              <option value="http://www.JoinBoard.Com/">JoinBoard 主页</option>
              <option value="http://bbs.JoinBoard.Com">JoinBoard 技术支持论坛</option>
            </select> </td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="50"><div align="center"> 
        <%
response.write"Powered by: <a href=""http://www.joinboard.net"" target=""_blank"">JoinBoard</a> V2.3<br>"&_
			"Copyright &copy; <a href=""http://Youmeng.com"" target=""_blank"">YouMeng Studio.</a> 2003, 2004.<br>"
%>
      </div></td>
  </tr>
</table>
</body>
</html>
<%
set conn=nothing
%>
<%
End Sub
'========================
Sub login()
response.Buffer = true
%>
<!--#Include file = "BBSConfig.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Style.css" rel="stylesheet" type="text/css">
<script>
if (top.location!=self.location){
	top.location="?action=login"
}
</script>
<style type="text/css">
<!--
.bgfont1 {
	font-size: 10pt;
	color: #FFFFFF;
	background-color: #000000;
	letter-spacing: 3px;
	width: 58px;
	line-height: 16pt;
	text-align: center;
}
-->
</style>
<title>登录管理论坛</title>
</head>

<body leftmargin="0" topmargin="0">
  <%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
	username = Trim(Request.Form("username"))
	userpass = Trim(Request.Form("userpass"))
	
	If Len(username)=0 Or Len(username)=0 Then
		Response.write "<script>alert('用户名和密码均不可为空!');</script>"		
		Response.write "<script>window.location.href='index.asp?action=login';</script>"
		Response.end
	Else 
		if cstr(Trim(session("checkcode")))<>cstr(trim(request.Form("verifycode"))) Or trim(session("checkcode"))="" then
			Response.write " <script>alert('您输入的登录验证码和系统所产生的不一致!')</script>"		
			Response.write "<script>window.location.href='index.asp?action=login';</script>"
			Response.End
		Else
			username = SetSafeStr(Request.Form("username"))
			userpass = SetSafeStr(Request.Form("userpass"))
			username = replace(username,"'","")
			userpass = replace(userpass,"'","")
			userpass=Md5(userpass)
			Set rs=Server.CreateObject("Adodb.RecordSet")
			sql="Select * From JBB_admin where adminname='"& username &"' And adminpass='"&userpass&"'"
			rs.open sql,conn,1,1
			If rs.eof and rs.bof then
				rs.close
				set rs=nothing
				Response.write " <script>alert('用户名或密码错误，请重新输入!')</script>"		
				Response.write "<script>window.location.href='index.asp?action=login';</script>"
				Response.End
			Else
				Session("adminname") = username
				Session("adminpass") = userpass
				rs.close
				set rs=nothing
				response.Redirect("index.asp?action=Frame")
			End if
		End if
	End if
else	
%><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td> <form name="form1" method="post" action="index.asp">
        <table width="260" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#2d65dc">
          <tr> 
            <td colspan="2" bgcolor="#9bbaf6"> <div align="center">管 理 登 录</div></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="80" bgcolor="#FFFFFF"> <div align="right">用户名:</div></td>
            <td> <input name="username" type="text" class="input2" id="username" size="20"></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td> <div align="right">密　码:</div></td>
            <td> <input name="userpass" type="password" class="input2" size="20"></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td> <div align="right">验证码:</div></td>
            <td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="35%"><input type="text" name="verifycode" class="input2" size="8" maxlength="4"> 
                  </td>
                  <td width="65%">&nbsp;<img src="../INC/checkcode.asp" width="40" height="10"></td>
                </tr>
              </table></td>
          </tr>
          <tr> 
            <td colspan="2" bgcolor="#9bbaf6"> <div align="center"> 
                <input name="Submit" type="submit" class="input2" value="登录">
              </div></td>
          </tr>
        </table>
      </form></td>
  </tr>
  <tr>
    <td >
<div align="center">
<%
response.write"Powered by: <a href=""http://www.joinboard.net"" target=""_blank"">JoinBoard</a> V2.3<br>"&_
			"Copyright &copy; <a href=""http://Youmeng.com"" target=""_blank"">YouMeng Studio.</a> 2003, 2004.<br>"
%>
</div>
    </td>
  </tr>
</table>
<% End if %>
</body>
</html>
<%
set conn = nothing
End Sub
%>
123

⌨️ 快捷键说明

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