风讯目录路径自由选择的实现方法

这一段时间大家对F4 目录总是在/NEWS 目录下的问题报怨很多.

仔细研究了一下程序,觉得要实现目录自定义也不是难事.下面详细介绍一下方法.

1)  不要文件名是NEWS目录下,想自己定义怎么办,比如html?

   \Admin\News/class_add.asp 

<td class="hback"><div align="right">栏目保存路径：</div></td>

 <td class="hback"><input name="SavePath" type="text" id="SavePath" value="<%=str_SavePath%>" size="40" maxlength="255" readonly>   将readonly去掉,就可以手动输入了,

 最终生成的HTML文件路径为/   保存路径/栏目英文名/....

2)  上例中还没有根本解决路径的问题,

 比如说有个图片栏目: 最后可能生成 pic/pic/index.html

还是多了一极栏目,那么这里怎么改呢?

   现在我们去找到生成HTML文件的程序文件.\Admin\News\lib\Cls_Js.asp

DatePathStr =RsNewsObj("SavePath")&"/"&RsNewsObj("ClassEName")&"/"& RsNewsObj("FileName") & "." & RsNewsObj("NewsFileExtName")

     RsNewsObj("SavePath") 就是上例选择的"目录路径"    RsNewsObj("ClassEName") 就是栏目的英文名

现在根据你的需要,可以删掉一级目录了.

只保留栏目路径的:

DatePathStr =RsNewsObj("SavePath")&"/"& RsNewsObj("FileName") & "." & RsNewsObj("NewsFileExtName")

只保留英文名生成路径的:

当然最好的方法是在"选择栏目保存路径"栏能只接到根目录,而不是目前限定死的"/news"

我们再看 \Admin\News/class_add.asp  文件.

<td class="hback"><div align="right">栏目保存路径：</div></td>
      <td class="hback"><input name="SavePath" type="text" id="SavePath" value="<%=str_SavePath%>" size="40" maxlength="255" readonly>
        <%if Request.QueryString("Action")="add" then%> <INPUT type="button"  name="Submit4" value="选择路径" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPathFrame.asp?CurrPath=<%= Replace(sRootDir & str_newsDir,"//","/")%>',320,280,window,document.ClassForm.SavePath);document.ClassForm.SavePath.focus();">
        <%End if%>

CurrPath 传递给 selectpathframe.asp 文件的参数,这里可以改一下,

改成什么样的呢,大家可以参考一下,"选择模板"

<input type="button" name="Submit2"  value="选择模板" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=sRootDir %>/<% = G_TEMPLETS_DIR %>',400,300,window,document.ClassForm.NewsTemplet);document.ClassForm.NewsTemplet.focus();">

  这里: sRootDir 就是根目录了,当然选择路径里的:CurrPath=<%   不能只接用这里的CurrPath=<%=sRootDir %> 替换,因为模板传递过去的参数的文件是:SelectTemplet.asp  而选择路径传递的是"SelectPathFrame.asp文件.