addsave.asp

来自「*** ***** 系统进入 *** ***** 系统主文件为index.」· ASP 代码 · 共 93 行

<!--#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 view_object
    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("txtcontent"))="" then
          founderr=true
          errmsg=errmsg+"<li>文件内容不能为空</li>"
    end if

    if founderr=false then


part=session("upart")
set rs2=server.createobject("adodb.recordset")
sql2= "select * from bumen where type='"&part&"'"
rs2.open sql2,conn,3,3
type1=rs2("id")


        title=htmlencode(request.form("txttitle"))
		view_object=request("view_object")
        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 up where (id is null)" 
    rs.open sql,conn,3,3
    rs.addnew
    rs("title")=title
    rs("content")=content
    rs("type")=type1
	rs("view_object")=view_object
    rs("time")=date()
    rs("name")=Session("Rname")
    rs.update
    articleid=rs("id")
end sub
sub editsoft()
    sql="select * from up where id="&request("id")
    rs.open sql,conn,1,3
    rs("title")=title
    rs("content")=content
	rs("view_object")=view_object
    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="add.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>