gonggao_add.asp

来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 25 行

<!--#include file=conn.asp-->
<!--#include file=checkuser.asp-->
<%
dim rs,sql
dim title,neirong,user
title=request.form("title")
neirong=request.form("neirong")
user=request.form("user")
set rs=server.createobject("adodb.recordset")
sql="select * from gonggao"
rs.open sql,conn,2,3
rs.addnew
rs("title")=title
rs("neirong")=neirong
rs("user")=user
rs("hit")=1
rs.update
rs.close
set rs=nothing
set conn=nothing
%>
<script language="vbscript">
msgbox("恭喜你添加公告操作成功~!")
window.location.href"gonggao.asp"
</script>