newsadd2.asp

很好的代码！！大家可以下

<!--#include file=conn.asp -->
<!--#include file=../include/config.asp -->
<!--#include file=chkuser.asp -->
<!--#include file="char.inc"-->
<%
IF request.cookies("KEY")="" THEN
response.redirect "index_face.asp"
response.end
else
usernamecookie=CheckStr(request.cookies("UserName"))
passwdcookie=replace(trim(Request.cookies("passwd")),"'","''")
KEYcookie=replace(trim(request.cookies("KEY")),"'","''")
if usernamecookie="" or passwdcookie="" then
response.redirect "login.asp"
response.end
else
'判断用户的合法性
  set rs=server.createobject("adodb.recordset")
  sql="select * from admin where username='"&usernamecookie&"'"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
             response.redirect "login.asp"
            response.end
         end if
  IF passwdcookie<>rs("passwd") THEN
          response.redirect "login.asp"
           response.end
      END IF
   '下面判断用户级别实际在有用户级别是都应该判断
   if KEYcookie<>rs("OSKEY") then
      response.redirect "index_face.asp"
      response.end
    end if
           rs.close
           set rs=nothing
END IF
END IF
%>
<%
aaas1=Request.ServerVariables("SERVER_NAME")
aaas2=Request.ServerVariables("URL")
aaas2=replace(aaas2,"admin/newsadd2.asp","")
Dim strData
Dim intFieldCount
Dim i

intFieldCount = Request.Form("hdnCount")

For i=1 To intFieldCount
content = content & Request.Form("hdnBigfield" & i)
Next
content=replace(content,"http://"&xpurl&"/uploadfile/","uploadfile/")
content=replace(content,"http://"&aaas1&aaas2&"uploadfile/","uploadfile/")

PicUrl=Request.Form("PicUrl")

Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<img.+?>"
strs=trim(content)

'是否偷图
if request.Form("getphoto")="1" then
Set Matches =objRegExp.Execute(strs)
For Each Match in Matches
RetStr = RetStr &getimgs( Match.Value )
Next 
end if 

function getimgs(str)
getimgs=""
Set objRegExp1 = New Regexp
objRegExp1.IgnoreCase = True
objRegExp1.Global = True
objRegExp1.Pattern = "http://.+?"""
set mm=objRegExp1.Execute(str)
For Each Match1 in mm
getimgs=getimgs&"||"&left(Match1.Value,len(Match1.Value)-1)
next
end function


function getHTTPPage(url)
on error resume next
dim http
set http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then 
exit function
end if
getHTTPPage=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear 
end function
 

 
arrimg=split(retstr,"||")
allimg=""
newimg=""
for i=1 to ubound(arrimg)
if arrimg(i)<>"" and instr(allimg,arrimg(i))<1 then
fname="../uploadfile/"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&cstr(i&mid(arrimg(i),instrrev(arrimg(i),".")))

dim geturl,objStream,imgs
geturl=trim(arrimg(i))
imgs=gethttppage(geturl)
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type =1
objStream.Open
objstream.write imgs
objstream.SaveToFile server.mappath(fname),2
objstream.Close()
set objstream=nothing

allimg=allimg&"||"&arrimg(i)
newimg=newimg&"||"&fname
end if
next

arrnew=split(newimg,"||")
arrall=split(allimg,"||")
for i=1 to ubound(arrnew)
arrnew(i)=replace(arrnew(i),"../uploadfile/","uploadfile/")
strs=replace(strs,arrall(i),arrnew(i))
arrnew(i)=replace(arrnew(i),"uploadfile/","")
if PicUrl=arrall(i) then
PicUrl=arrnew(i)
end if
next
content=strs

if left(Picurl,4)="http" then
fname="../uploadfile/"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&cstr(i&mid(Picurl,instrrev(Picurl,".")))
dim imgsa
imgsa=gethttppage(Picurl)
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type =1
objStream.Open
objstream.write imgsa
objstream.SaveToFile server.mappath(fname),2
objstream.Close()
set objstream=nothing
aassss=Picurl
Picurl=fname
Picurl=replace(Picurl,"../uploadfile/","")
aassss1=Picurl
content=replace(content,aassss,"uploadfile/"&Picurl)
end if

if Content="" then
%>
<script language=javascript>
history.back()
alert("请输入文章内容！")
</script>
<%
Response.End
end if
if request.cookies("key")="super" then
if request("viewhtml")<>"" then 
%>
<script language=javascript>
history.back()
alert("请取消查看HTML源代码后再添加！")
</script>
<%
Response.End
end if
end if
SmallClassid=Request.Form("SmallClassid")
bigClassid=Request.Form("bigClassid")
typeid=Request.Form("typeid")
title=trim(request.form("title"))

if title="" then
%>
<script language=javascript>
history.back()
alert("请填写文章标题！")
</script>
<%
Response.End
end if

if len(title)>100 then
%>
<script language=javascript>
history.back()
alert("文章标题过长！")
</script>
<%
Response.End
end if

if request.Form("goodnews")="1" then
goodnews=1
else
goodnews=0
end if


if request.Form("istop")="1" then
istop=1
else
istop=0
end if

SpecialID=Request.Form("SpecialID")
SpecialID2=Request.Form("SpecialID2")
Author=replace(trim(Request.Form("Author")),"'","''")
Original=replace(trim(Request.Form("Original")),"'","''")
about=Request.Form("about")
if request.Form("PicUrl")="" then
picnews=0
else
picnews=1
end if
Picurl=replace(Picurl,"uploadfile/","")

editor=request.form("editor")
if request.cookies("key")="super" or request.cookies("key")="check" or request.cookies("key")="bigmaster" or request.cookies("key")="typemaster" then
checkked=1
else
if request.cookies("key")="selfreg" and fabiaocheck="1" then
checkked=1
else
if request.cookies("key")="smallmaster" then
checkked=1
else
checkked=0
end if
end if
end if
EnCode=Request.Form("EnCode")
newsrelated=Request.Form("newsrelated")
newslevel=Request.Form("newslevel")
title_color=Request.Form("title_color")
title_type=Request.Form("title_type")

set rs=server.createobject("adodb.recordset")
sql="select * from news" 
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("Author")=Author
rs("content")=content
rs("Original")=Original
rs("goodnews")=goodnews
rs("picnews")=picnews
if newslevel="" then
rs("newslevel")=0
else
rs("newslevel")=newslevel
end if
rs("istop")=istop
rs("editor")=editor
rs("checkked")=checkked
rs("BigClassid")=BigClassid
rs("SmallClassid")=SmallClassid
rs("SpecialID")=SpecialID
rs("SpecialID2")=SpecialID2
rs("EnCode")=EnCode
rs("newsrelated")=newsrelated
rs("about")=about
rs("picname")=PicUrl
if title_type="" or title_type="0" then
rs("titletype")="l"
else
rs("titletype")=title_type
end if
rs("titlecolor")=title_color
rs("typeid")=typeid
rs("UpdateTime")=now()
rs.update
newsid=rs("newsid")
dim username
username=request.cookies("username")
set rs2=server.createobject("adodb.recordset")
sql2="select * from admin where username='"&username&"'"
rs2.open sql2,conn,1,3
rs2("number")=rs2("number")+1
rs2.update
rs2.close
set rs2=nothing

rs.Close
set rs1=nothing
set rs3=server.createobject("adodb.recordset")
    sql3="select * from uploadpic where username='"&request.cookies("username")&"'" 
    rs3.open sql3,conn,1,3
    do while not rs3.eof
    set rs4=server.createobject("adodb.recordset")
           sql4="select * from attach" 
           rs4.open sql4,conn,1,3
           filename=rs3("picname")
           rs4.addnew
           rs4("filename")=filename
           rs4("newsid")=newsid
           rs4.update
           rs4.close
           set rs4=nothing
           RS3.MoveNext
           loop
           conn.execute("delete from uploadpic where username='"&request.cookies("username")&"'")
           rs3.close
           set rs3=nothing
 
for i=1 to ubound(arrnew)
set rs4=server.createobject("adodb.recordset")
           sql4="select * from attach" 
           rs4.open sql4,conn,1,3
           filename=arrnew(i)
           rs4.addnew
           rs4("filename")=filename
           rs4("newsid")=newsid
           rs4.update
           rs4.close
           set rs4=nothing
next
 
set rs5=server.createobject("adodb.recordset")
           sql5="select * from attach" 
           rs5.open sql5,conn,1,3
           filename=aassss1
           rs5.addnew
           rs5("filename")=filename
           rs5("newsid")=newsid
           rs5.update
           rs5.close
           set rs4=nothing
  
Response.cookies("content")=""
Response.cookies("newsrelated")=""
response.write "<p align=center><font color=red>恭喜您，文章“"&title&"”已经成功添加!<br>"&freetime&"秒钟后返回上页!</font>"
if request.cookies("key")="typemaster" or request.cookies("key")="bigmaster" or request.cookies("key")="smallmaster" then

response.write "<meta http-equiv=""refresh"" content="""&freetime&";url=typemanage.asp"">"
else
if smallclassid<>"" then
response.write "<meta http-equiv=""refresh"" content="""&freetime&";url=listnews.asp?smallclassid="&smallclassid&""">"
else
response.write "<meta http-equiv=""refresh"" content="""&freetime&";url=smallno.asp?bigclassid="&bigclassid&""">"
end if
end if
%>