save.asp

来自「java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单」· ASP 代码 · 共 33 行

<% option explicit%>
<!-- #include virtual="/admin/store/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：公告管理--添加公告
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim sql
Dim bul_title , bul_con
call DB_Connect(strconn)
'---验证身份----
Call AdminCheck
'----读取表单数据----
bul_title=getFormElem("txtTitle")
bul_con=getFormElem("txtCon")

if bul_title="" or bul_con=""  then 
  response.redirect "add.asp"
  response.end
end if

sql="insert into t_BulletionCon(B_title,B_Con,Asr_Id,B_sort)values('"&bul_title&"','"&bul_con&"','"&session("admID")&"',0)"
oConn.Execute(Sql)
%>
<%
call DB_DisConnect
%>
<script language="JavaScript">
<!--
alert("添加成功!");
window.location.href="add.asp";
//-->
</script>