📄 annouce_add.asp

📁 本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Inc/AdminChk.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="../Inc/FormChk.asp"-->
<!--#include file="../Inc/msgbox.asp"-->
<%
IF Trim(Request("Submit"))<>Empty Then
  Dim StrSql,Rs,title,body
  title=Request.Form("title")
  body=htmlencode2(encodestr(request.Form("body")))
  set rs=server.CreateObject("adodb.recordset")
  strsql="select * from [gonggao]"
  rs.open strsql,conn,1,3
  rs.addnew()
  rs("title")=title
  rs("body")=body
  rs("HitNum")="0"
  rs("date")=date()
  rs.update
  rs.close
  set rs=nothing
  call msgbox("添加成功","GoUrl","annouce_list.asp")
  response.End()
End IF
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>公告添加</title><LINK href="../style.css" type=text/css rel=stylesheet>
</head>
<body><!--#include file="top.asp"-->
<form action="" onSubmit=submitonce(this) method="post" name="frmAnnounce">
  <table width="100%" border="0" bordercolor="#003399" cellspacing="1" bgcolor="#0099FF">
    <tr> 
      <td width="93" bgcolor="#FFFFFF"><font color="#0099FF">公告标题:</font></td>
      <td bgcolor="#FFFFFF">
		<input name="title" type="text" id="title" size="40"></td>
    </tr>

    <tr> 
      <td width="93" bgcolor="#FFFFFF"><font color="#0099FF">公告内容</font></td>
      <td bgcolor="#FFFFFF"><textarea name="body" rows="9" id="body" cols="40"></textarea></td>
    </tr>
    <tr> 
      <td width="93" bgcolor="#FFFFFF">　</td>
      <td bgcolor="#FFFFFF"><input type="submit" name="Submit" value="提交">
        <input type="reset" name="Submit2" value="重置"></td>
    </tr>
  </table>
</form><!--#include file="copy.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -