admin_save.asp

信达技校学生管理系统,程序编写比较有价值。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<% 
name=request.form("name")
links=request.form("links")
hefrom=request.form("hefrom")
heclass=request.form("heclass")
content=GetHtmlStr(request.form("content"))
pinkun=request.form("pinkun")
if pinkun=1 then
pinkun=false
else
pinkun=true
end if
rs.open "infor",conn,1,3
if name<>""and links<>""and hefrom<>""and heclass<>"" then
rs.addnew
rs("name")=name
rs("links")=links
rs("hefrom")=hefrom
rs("class")=heclass
rs("content")=content
rs("pinkun")=pinkun
rs.update
Response.Write "<script>alert(""添加成功！！"");location.href=""admin_list.asp"";</script>"
else
Response.Write "<script>alert(""你填写的内容不完整！！"");location.href=""admin_add.asp"";</script>"
Response.end
rs.close
set conn=nothing
end if
%>