adminsave.asp

一套基于asp的网络办公系统！功能类似于oa

<!--#include file="data.asp"-->
<!--#include file="char.asp"--> <%
    dim rs,sql
    dim title
    dim content
    dim articleid
    dim name
    dim classid,Nclassid
    dim Nkey
    dim writer
    dim writefrom
    dim errmsg
    dim founderr
    founerr=false
    if trim(request.form("txttitle"))="" then
          founderr=true
          errmsg="<li>文件标题不能为空</li>"
    end if
    if trim(request.form("typeid"))="" then
          founderr=true
          errmsg="<li>文件类型不能为空</li>"
    end if
    if trim(request.form("txtcontent"))="" then
          founderr=true
          errmsg=errmsg+"<li>文件内容不能为空</li>"
    end if

    if founderr=false then
        title=htmlencode(request.form("txttitle"))
        typeid=request.form("typeid")

        if request("htmlable")="yes" then
        content=htmlencode2(request("txtcontent"))
        else
        content=ubbcode(request.form("txtcontent"))
        end if

    set rs=server.createobject("adodb.recordset")
    if request("action")="add" then
        call newsoft()
    elseif request("action")="edit" then
        call editsoft()
    else
        founderr=true
        errmsg=errmsg+"<li>没有选定参数</li>"
    end if
sub newsoft()
    sql="select * from learn where (id is null)" 
    rs.open sql,conn,3,3
    rs.addnew
    rs("title")=title
    rs("content")=content
    rs("type")=typeid
    rs("time")=date()
    rs("name")=Session("Rname")
    rs.update
    articleid=rs("id")
end sub
sub editsoft()
    sql="select * from learn where id="&request("id")
    rs.open sql,conn,1,3
    rs("title")=title
    rs("content")=content
    rs("type")=typeid
    rs.update
    articleid=rs("id")
end sub

    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
%> <title></title> <link rel="stylesheet" type="text/css" href="style.css"> <div align="center"><center> 
<br><br> <table width="50%" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999"> 
<tr> <td width="100%" bgcolor="#999999" height="20"><p align="center"><font color="#FFFFFF"><b> 
<%if request("action")="add" then%>添加<%else%>修改<%end if%>文件成功</b></font></td></tr> 
<tr> <td width="100%"><p align="left"><br> 文章标题为：<%response.write title%></p><A HREF="freeadd.asp">继续添加</A> 
&nbsp;&nbsp;&nbsp; <A HREF="javaScript:window.close()">关闭窗口</A> </td></tr> </table></center></div><%
else
 response.write "由于以下的原因不能成功添加文件数据："
 response.write errmsg
 response.write "<BR><A HREF=javascript:history.back(1)>返回重填写</A>"
end if
%></body></html>