📄 article_add_save.asp

📁 图利文章管理系统。毕业设计郑州科技学院2006级计算机系计算机信息管理专业
💻 ASP
字号:
<%
  	if session("admin")="" then
  		response.redirect "admin.asp"
  	end if
%>
<!--#include file="conn.asp"-->

<%
	dim title
	dim sort
	dim content
	dim sql
	dim rs
	dim founderr
	if trim(request("title"))="" then
  		response.write"<SCRIPT language=JavaScript>alert('文章名称不能为空！');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		response.end
	end if
	if trim(request("txtcontent"))="" then
  		response.write"<SCRIPT language=JavaScript>alert('文章不能为空！');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		response.end
	end if
    

		title=trim(request("title"))
		sort=trim(request("sort"))
		writer=trim(request("writer"))
		content=server.htmlencode(request("txtcontent"))
	
	if request("action")="add" then
	
	if trim(request("title"))<>"" and trim(request("sort"))<>"" then
		set rs=server.createobject("adodb.recordset")
    	sql="select * from learning where title='"&request("title")&"' and sort='"&request("sort")&"' order by articleid desc"
		rs.open sql,conn,1,1
		if not(rs.eof or rs.bof) then
		response.write"<SCRIPT language=JavaScript>alert('对不起，您所添加的文章已有同名存在,请核实！');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		response.end
		rs.close
		set rs=nothing
		end if
	end if
		set rs=server.createobject("adodb.recordset")
		sql="select * from learning" 
		rs.open sql,conn,1,2
		rs.addnew
		rs("title")=title
		rs("sort")=sort
		rs("writer")=writer
		rs("writer_url")="http://joke.ii86.com/"
		rs("content")=content
		rs("dateandtime")=now()
		rs("today")=date()
		rs("hits")=100
		rs.update
		rs.close
	elseif request("action")="edit" then
		set rs=server.createobject("adodb.recordset")
		sql="select * from learning where articleid="&request("id")
		rs.open sql,conn,1,2
		rs("title")=title
		rs("sort")=sort
		rs("writer")=writer
		rs("writer_url")="http://joke.ii86.com/"
		rs("content")=content
		rs("dateandtime")=now()
		rs.update
		rs.close
	end if
	set rs=nothing
	conn.close
	set conn=nothing
	
%>
<html>

<head>
<title></title>
<link rel="stylesheet" type="text/css" href="style.css">

</head>

<body>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr background="images/bg.gif"> 
    <td class="topbg" height="22" colspan="2" align="center"><b>文 章 管 理</b></td>
  </tr>
  <tr> 
    <td class="tdbg" width="70" height="30"><b>管理导航：</b></td>
    <td class="tdbg" height="30">&nbsp;<a href="article_edit.asp">笑话管理首页</a>&nbsp;|&nbsp;<a href="article_add.asp">添加笑话</a>&nbsp;|&nbsp;<a href="article_up.asp">查看未审核</a></td>
  </tr>
</table>
<br><br>
<table width="50%" border="0" cellpadding="2" cellspacing="1" bordercolor="#50BA41" style="border-collapse: collapse" align="center" class="border">
  <tr> 
    <td width="100%" bgcolor="#999999" height="20" background="images/bj1.gif" align="center" class="title"><b> 
      <%if request("action")=add then%>
      添加 
      <%else%>
      修改 
      <%end if%>
      程序成功</b></td>
  </tr>
  <tr> 
    <td width="100%" class="tdbg"> 
      <p align="left"><br>
        文章名称为：<%=title%><%=sort%></p>
      您可以进行其他操作 <br>
      <li> <a href="article_add.asp">返回继续添加</a><br>
      <li> <a href="article_edit.asp">查看、审核已添加文章</a> </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -