notesave.asp

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

<!--#include file="data.asp"-->
<%
	dim rs,sql
	dim errmsg
	dim founderr
	founerr=false
	if trim(request.form("txtnote"))="" then
  		founderr=true
  		errmsg=errmsg+"<li>内容不能为空</li>"
	end if
	if founderr=false then
		note1=request.form("txtnote")
                title=request.form("txttitle")
        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 own where ownid="&request("ownid")
	rs.open sql,conn,1,3
	rs("reply1")=reply1
	rs.update
	ownid=rs("ownid")
end sub
sub editsoft()
	sql="select * from up where id="&request("id")
	rs.open sql,conn,1,3
	rs("note")=note1
        rs("reply")=session("rname")
        rs("notetime")=date()
	rs.update
	id=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="addsee.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>