articleupload.asp

笑话堂(含上万数据) 笑话堂(含上万数据) 笑话堂(含上万数据)

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

		title=trim(request("atitle"))
		sort=trim(request("sort"))
		writer=trim(request("author"))
		writerurl=trim(request("aurl"))
		content=server.htmlencode(request("body"))
	
	
	
	if trim(request("atitle"))<>"" and trim(request("sort"))<>"" then
		set rs=server.createobject("adodb.recordset")
    	sql="select * from learning where title='"&request("atitle")&"' 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")=writerurl
		rs("content")=content
		rs("dateandtime")=date()
		rs("hits")=100
		rs.update
		rs.close
	
	set rs=nothing
	conn.close
	set conn=nothing
	
%>
<table width="773" border="0" cellpadding="2" cellspacing="1" bordercolor="#000000" style="border-collapse: collapse" align="center" class="border" bgcolor="#ff6600">
  <tr> 
    <td width="100%" bgcolor="#ff6600" height="20" align="center" class="title"><b><font color="#FFFFFF">笑话上传程序成功</font></b></td>
  </tr>
  <tr> 
    <td width="100%" class="tdbg" bgcolor="#FFFFFF"> 
      <p align="left"><br>
        文章名称为：<%=title%>　类别：<%=sort%></p>
      <p>　　感谢您对<font color="#FF6600"><strong>『缘网』 - ∵缘网笑吧∴</strong></font>的支持！您所推荐的笑话需要等带管理员的审核后才能显示，谢谢您！</p>
      <p>您可以进行其他操作 <br>
      </p>
      <li> <a href="upload.asp?sort=1">返回继续添加</a><br>
        <br>
        <br>
        <table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr> 
            <td class="gb1"><%=content%></td>
          </tr>
        </table>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp" -->