picupload.asp

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

<!--#include file="top.asp"-->
<%
	dim title
	dim content
	dim sql
	dim rs
	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
    

		title=trim(request("title"))
		pic=trim(request("pic"))
		writerurl=trim(request("url"))
		writer=trim(request("writer"))
		content=request("txtcontent")
	
			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("picname")=title
		rs("picurl")=pic
		rs("content")=content
		rs("writer")=writer
		rs("writer_url")=writerurl
		rs("adate")=date()
		rs("pichits")=100
		rs.update
		id=rs("picid")
		rs.close
		set rs=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="25" 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%></p>
      <p>　　感谢您对<strong><font color="#FF6600">『缘网』 - ∵缘网笑吧∴</font></strong>的支持！您所推荐的漫画需要等带管理员的审核后才能显示，谢谢您！</p>
      <p>您可以进行其他操作 </p>
      <li> <a href="upload.asp?sort=2">返回继续</a><br>
    </td>
  </tr>
</table>
<p align="center">漫画预览<br>
  <%if pic<>"" then
		  if instr(pic,"[img]") then
			 pic = Replace(pic, "[img]","<img src=")
			 pic = Replace(pic, "[/img]"," alt=""缘网·笑话站~之暴笑漫画""><br><br>")  
		  else
			 pic = Replace(pic, "[up]","<img src=upload/")
			 pic = Replace(pic, "[/up]","  alt=""缘网·笑话站~之暴笑漫画""><br><br>")  
		  end if
		  Response.Write(pic)
		 end if
	   %>
  <br>
  <%=content%> </p>
<!--#include file="copyright.asp" -->