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

📄 badwords.asp

📁 不错的ASP整站源代码。在IIS环境下运行都没有问题
💻 ASP
字号:
<!--#include file="../checkuser.asp" -->
<!--#include file="../../include/db_conn.asp"-->
<%
 sqlstr="select * from ys_messageboard_config"
  set rs=server.CreateObject("adodb.recordset")
   rs.open sqlstr,conn
   
  if request.ServerVariables("REQUEST_METHOD")="POST" THEN
  badwords=request.form("badwords")
  
   if rs.eof then
   sqlstr="insert into ys_messageboard_config(badwords) values('"&badwords&"')"
   else
   sqlstr="update ys_messageboard_config set badwords='"&badwords&"'"
   end if
   conn.execute(sqlstr)
  end if
  
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>设置留言</title>
<link href="../include/styles.css" rel="stylesheet" type="text/css">
</head>
<body>
  
<table width=90% border="0" cellpadding="0" cellspacing="1" bgcolor="#f0f0f0" align="center">
  <form name="form1" method="post" action="badwords.asp" ID="Form1">
          <tr> 
            <td height="35" colspan="2" align="center" bgcolor="#225597" class="TextFont12"><font color="#FFFFFF">设置留言过滤<%=tmpstr_t%></font></td>
          
		  </tr>
                <tr> 
                  
      <td width="17%" height="35" align="right" valign="top" class="p9"> 
        <p><strong>Badwords:</strong></p></td>
                  
      <td width="83%"> 
        <textarea rows="15" name="badwords" cols="60" class="Input"><%=rs("badwords")%></textarea></td>
                </tr>
                <tr>
                  <td height="35" align="right" valign="top" class="p9">&nbsp;</td>
                  <td>
                    <div align="center">
                      <input name="Submit" type="submit" class="Input" value=" 确 定 " >                    
                    </div></td>
                </tr>
              </form>
              </table>
</body>
</html>

⌨️ 快捷键说明

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