| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 370 人关注过本帖
标题:我的网站newseditok.asp文件怎么都传不上去?
只看楼主 加入收藏
夕阳虎
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2007-5-21
收藏
 问题点数:0 回复次数:0 
我的网站newseditok.asp文件怎么都传不上去?

我的网站下面有一个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编辑过]

搜索更多相关主题的帖子: newseditok asp 文件 
2007-07-05 12:37
快速回复:我的网站newseditok.asp文件怎么都传不上去?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042782 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved