sendmess.asp

来自「一个电子商务网站完整代码,在.net平台下开发」· ASP 代码 · 共 53 行

<!--#include file="ubb.asp"-->
<%
 if request.QueryString("action")="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from notify",conn,1,3
rs.addnew
rs("newsname")=trim(request.form("newsname"))
rs("addname")=trim(request.form("addname"))
if request.form("html")="ubb" then
rs("newscontent")=trim(request.form("newscontent"))
else
rs("newscontent")=ubbcode(trim(request.form("newscontent")))
end if
rs("adddate")=now()
rs("viewnum")=0
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>alert('添加成功！');history.go(-1);</script>"
response.End
end if
%>
<table width="200" border="0" cellspacing="0" cellpadding="0" align="center"> 
<tr> 
    <td> <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor=<%=bgclr1%>>
        <tr> 
          <td height="20" ALIGN="CENTER"><FONT COLOR="#FFFFFF">撰写留言</FONT></td>
        </tr>
        <tr> 
          <td height="168" valign="top" bgcolor=<%=bgclr4%>> 
		  <form name="form1" method="post" action="opinion.asp?action=save">
              <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                  <td width="28%" style="PADDING-LEFT: 6px">主题：</td>
                  <td width="72%"> <input name="newsname" type="text" id="newsname" SIZE="15"></td>
                </tr>
                <tr> 
                  <td style="PADDING-LEFT: 6px">姓名：</td>
                  <td> <input name="addname" type="text" id="addname" SIZE="15"></td>
                </tr>
                <tr> 
                  <td style="PADDING-LEFT: 6px" valign="top">内容：</td>
                  <td><TEXTAREA NAME="newscontent" COLS="25" ROWS="8" ID="newscontent"></TEXTAREA></td>
                </tr>
                <tr> 
                  <td height="28" colspan="2" style="PADDING-LEFT: 6px" align="center">
                      <input type="submit" name="Submit" value="提交发表">
                      <input name="html" type="checkbox" id="html" value="ubb" checked>HTML添加</td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table></td></tr> </table>