📄 pic_add_save.asp

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

<%
	dim title
	dim content
	dim sql
	dim rs
	
	if trim(request("sort"))="" then
  		response.write"<SCRIPT language=JavaScript>alert('类别不能为空！');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		response.end
	end if
	
	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("pic"))="" then
  		response.write"<SCRIPT language=JavaScript>alert('图片地址不能为空！');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		response.end
	end if
    
        sort=trim(request("sort"))
		title=trim(request("title"))
		pic=trim(request("pic"))
		minipic=trim(request("minipic"))
		writer=trim(request("writer"))
		content=request("txtcontent")
	
	if request("action")="add" then
	
			if trim(request("title"))<>"" and trim(request("pic"))<>"" then
				set rs=server.createobject("adodb.recordset")
    			sql="select * from pic where picname='"&request("title")&"' and picurl='"&request("pic")&"' order by picid 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 pic" 
		rs.open sql,conn,1,2
		rs.addnew
		rs("sort")=sort
		rs("picname")=title
		rs("picurl")=pic
		rs("spicurl")=minipic
		rs("content")=content
		rs("writer")=writer
		rs("writer_url")="student"
		rs("adate")=now()
		rs("tday")=date()
		rs("pichits")=100
		rs.update
		rs.close
		
	elseif request("action")="edit" then
		set rs=server.createobject("adodb.recordset")
		sql="select * from pic where picid="&request("id")
		rs.open sql,conn,1,2
		rs("picname")=title
		rs("picurl")=pic
		rs("spicurl")=minipic
		rs("content")=content
		rs("writer")=writer
		rs("writer_url")="http://www.ii86.com/"
		rs("adate")=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 leftmargin="0" topmargin="0">
<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="pic_list.asp">漫画浏览管理</a>&nbsp;|&nbsp;<a href="pic_add.asp">添加漫画</a>&nbsp;|&nbsp;<a href="pic_list.asp?shen=t">查看未审核</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><font color="#FFFFFF">操作成功</font></b></td>
  </tr>
  <tr> 
    <td width="100%" class="tdbg"> 
      <p align="left"><br>
        文章名称为：<%=title%></p>
      您可以进行其他操作 <br>
      <li> <a href="pic_add.asp?action=<%=request("action")%>&id=<%=request("id")%>">返回继续</a><br>
      <li> <a href="pic_list.asp">查看、审核已添加文章</a> 
    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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