|
|
主题: 急，为什么我做的新闻系统无法保存……
|
尘埃
职务：普通成员
等级：2
金币：3.0
发贴：700
注册：2001/3/29 11:28:09
|
#12002/10/15 11:07:50
我一步步来做的，其它都可以用。
就是为什么无法保存到NEWFILES文件夹底下。
|
忧忧
职务：普通成员
等级：1
金币：1.0
发贴：180
注册：2002/7/23 1:32:17
|
#22002/10/15 14:02:34
这个确实很麻烦，忍耐仔细分析找错误！
还有一个可能你的服务器不支持fso!
好像win98中的pws不支持fso组件！不如用xp专业版
|
尘埃
职务：普通成员
等级：2
金币：3.0
发贴：700
注册：2001/3/29 11:28:09
|
#32002/10/16 7:55:50
不会呀，我机子是支持的。
因为我曾经试过一次是成功的，就是只有一次可以了，其余都不行～
为什么？而且文件名和链接时的文件名不一样。
要命……
|
尘埃
职务：普通成员
等级：2
金币：3.0
发贴：700
注册：2001/3/29 11:28:09
|
#42002/10/16 9:40:59
急……为什么没有人回答我呀！ 到底怎么了？ 
|
忧忧
职务：普通成员
等级：1
金币：1.0
发贴：180
注册：2002/7/23 1:32:17
|
#52002/10/16 13:11:10
简单方法 好好阅读小田的新闻系统教材。我根据他的教材很成功作出来。感觉好有成就感！
把你作的原代码贴出来，看看那出错了！
|
尘埃
职务：普通成员
等级：2
金币：3.0
发贴：700
注册：2001/3/29 11:28:09
|
#62002/10/16 14:43:05
save.asp
------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_yx_STRING
rs.Source = "SELECT * FROM t_example"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
<%'Õâ¸öº¯ÊýDoWhiteSpaceÊÇÓÃÀ´×ª»»¿Õ¸ñºÍ»Ø³µ£¬ÈÃÎÒÃǵij¤Æª´óÂÛÄܹ»Õý³£ÏÔʾ%>
<%
Dim N_Title
Dim N_Content
Dim N_Date
Dim fname
Dim filepath
Dim PostPath
fname = Request.Form("N_FileName") '¨¨?¦Ì?¡À¨ª¦Ì£¤¦Ì?¡ä?¦ÌY?¦Ì
N_Title=Request.Form("N_Title")
N_Content=DoWhiteSpace(Request.Form("N_Content"))
N_Date=Request.Form("N_Date")
filepath=Request.Form("N_FilePath") '???t?¡¤??
pencat=rs.Fields.Item("E_Meno").value '¨¬????¡ê¡ã??D¦Ì??¨²¨¨Y?a¨º?¨¨?¦Ì??¨²¨¨Y
pencat=replace(pencat,"E_Title",N_Title)
pencat=replace(pencat,"E_Content",N_Content)
pencat=replace(pencat,"E_Date",N_Date)
'¡ã?¨ºy?Y?¡¥¨¬??¨²¨¨YD¡ä3¨¦?2¨¬????t
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath(filepath))
fout.WriteLine pencat
fout.close
%>
<%
rs.Close()
Set rs = Nothing
%>
这是一段SAVE.ASP的全部代码了。帮我看看为什么不能保存？
另我下了小田的程序，测试可已用。
这就排除了服务器不支持fso!的说法！
那还有什么问题呢？
|
忧忧
职务：普通成员
等级：1
金币：1.0
发贴：180
注册：2002/7/23 1:32:17
|
#72002/10/17 4:27:20
清水玲子在上个帖子中说 引用:
我一步步来做的，其它都可以用。
就是为什么无法保存到NEWFILES文件夹底下。
那放在什么地方了！ 刚才代码直接用小田是没有什么问题 add也面中 <% Dim fname Dim filepath fname = makefilename(now()) '文件名 filepath=("../newsfile/"&fname) %> filepath=("../newsfile/"&fname)着就是文件要保存的位置！ 添加新闻出现了什么错误提示！你自己认为问题出现再什么地方
|
尘埃
职务：普通成员
等级：2
金币：3.0
发贴：700
注册：2001/3/29 11:28:09
|
#82002/10/17 7:58:14
add.asp
……
<%
function makefilename(fname)
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname & ".htm"
end function
%>
<%
Dim fname
Dim filepath
fname = makefilename(now()) '文件名
filepath=("/news/newsfile/"&fname)
%>
………………
是的呀，要不是就是filepath=("/news/newsfile/"&fname)
这里面的路径有问题？是相对于站点目录的路径。
编辑历史:[这消息被清水玲子编辑过(编辑时间2002-10-17 07:58:44)]
|
5D荣誉斑竹
职务：普通成员
等级：2
金币：10.0
发贴：710
注册：2001/10/24 18:34:42
|
#92002/10/17 9:00:18
对！路径的问题我在一开始调试的时候也出错了好几回，你可以试着用绝对路径试一下（比如C:\），或者是同级的目录。
|
尘埃
职务：普通成员
等级：2
金币：3.0
发贴：700
注册：2001/3/29 11:28:09
|
#102002/10/18 8:41:27
我改了一下路径（e:\news\newsfile\）还是不行，不 能保存文件！ 为什么呢？
|
