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

📄 guanli.asp

📁 言板较全面地利用asp技术实现留言板的基本功能:留言、回复、删除
💻 ASP
字号:
<!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>
<%
     	Dim con,conStr
		Set con = server.CreateObject("adodb.connection")
		conStr = "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db.mdb")
		con.open conStr

		Dim rs2
		Set rs2 = server.CreateObject("adodb.recordset")
		Dim sql2
		sql2 = "select * from config"
		rs2.open sql2,con,1,3
%>	

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>
      <%=rs2("title")%>
</title>
<link rel="stylesheet" type="text/css" href="css/style.css">
<script type="text/javascript" src="js/script.js"></script> 

<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
	color: #FF66FF;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-image: url(images/5.gif);
	background-repeat: repeat;
}
.words {
	font-size: 12px;
	font-style: normal;
	line-height: normal;
	font-weight: normal;
	font-variant: normal;
	color: #FF0000;
	text-decoration: underline;
}
a:link {
	color: #FF0000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #FF0000;
}
a:hover {
	text-decoration: underline;
	color: #00FF66;
}
a:active {
	text-decoration: none;
	color: #FF66FF;
}
.STYLE1 {color: #000000}
-->
</style> 

</head>

<body onload="showDate()">
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" class="borall">
  <tr>
    <td height="300"><input type="image" name="imageField" src="images/2.gif" /></td>
  </tr>
  <tr>
    <td><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td align="right"><marquee>
      <%=rs2("board")%>
        </marquee></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="260" class="words" id="myDate"> </td> 
      
		   <td align="right"><a href="admin.asp">[管理留言]</a>
		 <a href="index.asp">[返回]</a> </td>
		
		
      </tr>
    </table></td>
  </tr>
  <tr>
    <td align="center"><img src="images/line.gif" width="741" height="10" /></td>
  </tr>
  <tr>
    <td height="25" align="center"><br />

	
	<form action="update.asp" method="post" onsubmit = "return check()">
      <table width="90%" border="0">
      <tr>
        <td width="130" height="25" align="right">是否关闭留言本:</td>
        <td align="left"><select name="drpClose" id="drpClose">
          <option value="1" <% If rs2("isclose")=True Then response.write "selected" End if%>>YES</option>
          <option value="0" <% If rs2("isClose")=false Then response.write "selected" End if%>>NO</option>
        </select>
        </td>
      </tr>
      <tr>
        <td height="25" align="right">每页显示留言数:</td>
        <td align="left"><input name="txtPagesize" type="text" class="borall" id="txtPagesize" value=<%=rs2("pagesize")%>> 
        *每页显示行数不能为空  </td>
      </tr>
      <tr>
        <td height="25" align="right">留言本标题:</td>
        <td align="left"><input name="txtTitle" type="text" class="borall" id="txtTitle" value=<%=rs2("title")%>></td>
      </tr>
      <tr>
        <td height="25" align="right">留言本公告:</td>
        <td align="left"><input name="txtBoard" type="text" class="borall" id="txtBoard" value=<%=rs2("board")%>></td>
      </tr>
      <tr>
        <td height="25" align="right">背景音乐:</td>
        <td align="left"><input name="txtSound" type="text" class="borall" id="txtSound" value=<%=rs2("bgsound")%>> 
        *输入音乐路径 </td>
      </tr>
      <tr>
        <td height="25" align="right">管理员帐号:</td>
        <td align="left"><input name="txtAccount" type="text" class="borall" id="txtAccount" value=<%=rs2("account")%>> 
        *帐号不能为空 </td>
      </tr>
      <tr>
        <td height="25" align="right">管理员密码:</td>
        <td align="left"><input name="txtPass" type="password" class="borall" id="txtPass" value=<%=rs2("pass")%>> 
        *要修改密码请先输入旧密码 </td>
      </tr>
      <tr>
        <td height="25" align="right">新密码: </td>
        <td align="left"><input name="txtNewPass" type="password" class="borall" id="txtNewPass" ></td>
      </tr>
      <tr>
        <td height="25" align="right">确认新密码: </td>
        <td align="left"><input name="txtConPass" type="password" class="borall" id="txtConPass"></td>
      </tr>
      <tr>
        <td height="25" align="right">&nbsp;</td>
        <td><table width="100%" border="0">
          <tr>
            <td><table width="100%" border="0">
              <tr>
                <td width="200"><input type="submit" name="Submit" value="提交" />
                  <input type="reset" name="Submit2" value="重置" /></td>
                <td>&nbsp;</td>
              </tr>
            </table></td>
            </tr>
        </table></td>
      </tr>
    </table>
	</form>
	

	  
      
	  

	  
	  
      <br />
    <br /></td></tr>
  <tr>
    <td height="50" align="center" bgcolor="#C96BB8"><span class="STYLE1">版权所有 盗版必究</span></td>
  </tr>
</table>
<bgsound src="<%=rs2("bgSound")%>" />
</body>

</html>
  

⌨️ 快捷键说明

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