📄 add.asp

📁 紫碟轩留言本V2.0的简单原代码请查阅
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="sub.asp" -->
<!--#include file="conn.asp" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="css.css" rel="stylesheet" type="text/css" />
<title><%=webname%></title>
</head>
<body>
<%if request.QueryString("act")="add" then
if len(request.Form("m_bt"))>30 or trim(request.Form("m_bt"))="" then
mgbox "留言主题不能为空或者大于30个字符"
response.End()
end if
if len(trim(request.Form("m_message")))<3 or len(trim(request.Form("m_message")))>2000 then
mgbox "留言内容必须大于3个字符小于2000个字符"
response.End()
end if
if request.Form("m_flid")=""  then
mgbox "请选者留言分类"
response.End()
end if
set rst=server.createobject("adodb.recordset")
rst.open "select * from zdi",conn,1,3
rst.addnew
if session("user")="" then
rst("m_user")="游客"
elseif session("user")<>"" then
rst("m_user")=server.HTMLEncode(session("user"))
end if
rst("m_bt")=server.HTMLEncode(trim(request.Form("m_bt")))
rst("m_flid")=request.Form("m_flid")
rst("m_message")=server.HTMLEncode(request.Form("m_message"))
rst("m_ding")="false"
rst("m_jh")="false"
rst("m_pb")="false"
if websh="false" then
rst("m_sh")="true"
else
rst("m_sh")="false"
end if
rst("m_time")=now
rst("m_view")=0
rst("m_re")=0
if session("user")="" then
rst("m_upuser")="游客"
elseif session("user")<>"" then
rst("m_upuser")=server.HTMLEncode(session("user"))
end if
rst("m_uptime")=now
if session("user")="" then
rs3("m_upuser")="游客"
elseif session("user")<>"" then
rs3("m_upuser")=server.HTMLEncode(session("user"))
end if
rst("m_ip")=request.ServerVariables("REMOTE_ADDR")
rst("m_con")=0
rst.update
rst.close
set rst=nothing
%>
<script>  
alert("恭喜！留言成功！");  
location.href="index.asp";  
</script>
<%end if
if request.QueryString("act")="re" then
m_con=request.QueryString("con")
if len(trim(request.Form("m_message")))<3 or len(trim(request.Form("m_message")))>2000 then
mgbox "留言内容必须大于3个字符小于2000个字符"
response.End()
end if
set rst=server.createobject("adodb.recordset")
rst.open "select * from zdi",conn,1,3
rst.addnew
if session("user")="" then
rst("m_user")="游客"
elseif session("user")<>"" then
rst("m_user")=server.HTMLEncode(session("user"))
end if
rst("m_bt")=server.HTMLEncode(trim(request.Form("m_bt")))
rst("m_message")=server.HTMLEncode(request.Form("m_message"))
rst("m_ding")="false"
rst("m_jh")="false"
rst("m_pb")="false"
rst("m_time")=now
rst("m_con")=m_con
if webresh="false" then
rst("m_sh")="true"
else
rst("m_sh")="false"
end if
rst("m_flid")=session("flid")
rst("m_ip")=request.ServerVariables("REMOTE_ADDR")
rst.update
rst.close
set rst=nothing
set rs3=server.createobject("adodb.recordset")
rs3.open "select * from zdi where m_id="&m_con,conn,1,3
rs3("m_re")=rs3("m_re")+1
rs3("m_uptime")=now
if session("user")="" then
rs3("m_upuser")="游客"
elseif session("user")<>"" then
rs3("m_upuser")=server.HTMLEncode(session("user"))
end if
rs3.update
session("flid")=""
rs3.close
set rs3=nothing
response.Redirect("view.asp?id="&m_con)
end if%>
<script>    //按cter+enter发表留言
  function   test()   
  {   
          if(window.event.keyCode==13&&window.event.ctrlKey)   
          {   
                  document.zdform.submit();   
          }   
  }   
  function   jia()
  {
  document.zdform.m_message.rows=document.zdform.m_message.rows+10
  }
    function   jian()
  
  {
  if(document.zdform.m_message.rows>20) 
  {
  document.zdform.m_message.rows=document.zdform.m_message.rows-10
  }
  }
    function   bq(em)
  {
  document.zdform.m_message.value=document.zdform.m_message.value+'[em]'+em+'[/em]'
  document.zdform.m_message.refresh
  }
  </script>  
<body   onkeydown="test();">   
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <!--页面头部-->
  <tr>
    <td height="30"><!--#include file="top.asp" --></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <!--公告内容-->
  <tr>
     <td width="100%" height="20" valign="middle">&nbsp;</td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="0">
  <!--签写留言，分类-->
  <tr valign="middle">
    <td width="16%" bgcolor="#FFCC99">&nbsp;<span class="putongziti">·<a href="index.asp">返回首页</a>&nbsp;</span></td>
    <td width="70%" bgcolor="#FFCC99">&nbsp;</td>
    <td width="14%" bgcolor="#FFCC99" class="putongziti">·<a href="add.asp">签写留言</a></td>
  </tr>
</table>
<form action="add.asp?act=add" method="post" name="zdform" id="zdform">
<table width="100%" align="center" cellpadding="0" cellspacing="1">

  <!--循环留言-->
  <tr>
    <td width="100%" height="72" valign="top"><table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" >
      <!--DWLayoutTable-->
      <tr>
        <td height="24" colspan="4" align="left">&nbsp;</td>
        </tr>
      <tr bordercolor="#0099CC" bgcolor="#0099CC">
        <td colspan="4" align="center" class="dhzi">添加留言</td>
        </tr>

      <tr bordercolor="#0099CC"   >
        <td width="162" rowspan="5" align="center" valign="top" class="biaogebiankuang"><table width="100%" height="310" border="0">
          <tr>
            <td height="135" align="center" valign="top">&nbsp;<br />
Html代码禁用<br />
<br />
支持UBB代码<br />
<br />
<br />
字数限制 5-2000<br />
<br />
禁止发任何反动&nbsp; <br />
色情，政治问题。<br /></td>
          </tr>
          <tr>
            <td valign="middle"><img src="images/em/1.GIF" alt="汗" name="a1" width="45" height="41" id="b1" style="CURSOR: hand"onClick="bq(1)"><img src="images/em/2.GIF" alt="调皮" name="a2" width="45" height="41" id="b1" style="CURSOR: hand"onClick="bq(2)"><img src="images/em/3.GIF" alt="害羞" name="a3" width="45" height="41" id="a3" style="CURSOR: hand"onClick="bq(3)"><img src="images/em/4.GIF" alt="色" name="a4" width="45" height="41" id="a4" style="CURSOR: hand"onClick="bq(4)"><br>
 <img src="images/em/5.GIF" alt="晕" name="a5" width="45" height="41" id="a5" style="CURSOR: hand"onClick="bq(5)"><img src="images/em/6.GIF" alt="哭" name="a6" width="45" height="41" id="a6" style="CURSOR: hand"onClick="bq(6)"><img src="images/em/7.GIF" alt="大笑" name="a7" width="45" height="45" id="a7" style="CURSOR: hand"onClick="bq(7)"><img src="images/em/8.GIF" alt="？" name="a8" width="45" height="41" id="a8" style="CURSOR: hand"onClick="bq(8)"><br>
                <img src="images/em/9.GIF" alt="酷" name="a9" width="45" height="41" id="a9" style="CURSOR: hand"onClick="bq(9)"><img src="images/em/10.GIF" alt="委屈" name="a10" width="45" height="41" id="a10" style="CURSOR: hand"onClick="bq(10)"><img src="images/em/11.GIF" alt="闭嘴" name="a11" width="45" height="41" border="0" id="a11" style="CURSOR: hand" onClick="bq(11)"><img src="images/em/12.GIF" alt="哦" name="a12" width="45" height="41" border="0" id="a12" style="CURSOR: hand" onClick="bq(12)"></td>
          </tr>
        </table>       </td> 
        <td height="21" colspan="2" align="left"  class="biaogebiankuang" ><b><font color="#FF0000">必填信息：</font></b></td>
        <td width="448" align="left"  class="biaogebiankuang" >&nbsp;</td>
        </tr>
      
      <tr bordercolor="#0099CC" onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';" >
        <td height="24" colspan="2" align="left" class="biaogebiankuang" >留言主题：
          <input name="m_bt" type="text" id="m_bt" value="" size="30"></td>
        <td align="left" class="biaogebiankuang" style="word-break:break-all"onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';"><font color="#FF0000">*最多30个字符，必须填写</font></td>
        </tr>
      <tr bordercolor="#0099CC" onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';" >
        <td height="27" colspan="2" align="left" class="biaogebiankuang" >留言分类：
          <select name="m_flid" id="m_flid">
<%
set rsfl=server.createobject("adodb.recordset")
exec2="select * from zdfl"
rsfl.open exec2,conn,1,1
do while not rsfl.eof%>
            <option value="<%=rsfl("f_id")%>"><%=rsfl("f_name")%></option>
<%
rsfl.movenext
loop
rsfl.close
12 下一页
💿 文件大小 151 K
👤 上传用户 Mrsliu
📂 所属分类压缩解压
🏷️ 相关标签

#2.0 #留言本 #代码
⌨️ 快捷键说明

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