我的网站下面有一个newseditok.asp文件，其功能是修改文章。今天我使用各种方法都没办法传到服务其器上去。我改文件名，改扩展名都不行。我就怀疑是不是服务器不支持该文件的内容，所以把源码放在下面，让各位高手看看：
<!--#include file=conn.asp -->
<!--#include file=../include/config.asp -->
<!--#include file=chkuser.asp -->
<%
NewsID=Request.QueryString("NewsID")
title=trim(request.form("title"))
if Title="" 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
Author=replace(trim(Request.Form("Author")),"'","''")
Original=replace(trim(Request.Form("Original")),"'","''")
about=replace(trim(Request.Form("about")),"'","''")
aaas1=Request.ServerVariables("SERVER_NAME")
aaas2=Request.ServerVariables("URL")
aaas2=replace(aaas2,"admin/newseditok.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.Form("goodnews")="1" then
goodnews=1
else
goodnews=0
end if
if request.Form("PicUrl")="" then
picnews=0
else
picnews=1
end if
Picurl=replace(Picurl,"uploadfile/","")
if request.Form("istop")="1" then
istop=1
else
istop=0
end if
checkked=request.form("checkked")
SpecialID=Request.Form("SpecialID")
SpecialID2=Request.Form("SpecialID2")
EnCode=trim(Request.Form("EnCode"))
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 where NewsID=" & NewsID
rs.open sql,conn,3,3
rs("title")=title
rs("Author")=Author
rs("content")=content
rs("Original")=Original
rs("goodnews")=goodnews
rs("istop")=istop
rs("picnews")=picnews
rs("checkked")=checkked
rs("SpecialID")=SpecialID
rs("SpecialID2")=SpecialID2
rs("EnCode")=EnCode
if newslevel="" then
rs("newslevel")=0
else
rs("newslevel")=newslevel
end if
rs("about")=about
rs("picname")=PicUrl
'rs("UpdateTime")=now()
dim bigclassid,smallclassid
bigclassid=rs("bigclassid")
smallclassid=rs("smallclassid")
if title_type="" or title_type="0" then
rs("titletype")="l"
else
rs("titletype")=title_type
end if
rs("titlecolor")=title_color
rs.update
rs.Close
set rs=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 rs5=nothing
response.write "<p align=center><font color=red>恭喜您，文章“"&title&"”已经成功修改!
<br>"&freetime&"秒钟后返回上页!</font>"
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
%>
[此贴子已经被作者于2007-7-5 12:38:18编辑过]
