- 中国开源CMS第一品牌标题连接不支持https等等

xiaoguangjay - 2008-5-5 19:59:00

最近发现外部链接，标题新闻不能填写https://,,,开头的网址。系统自动识别在前面加http://

请问有没有解决办法。

-----------------------------------------------------------

我觉得james2308误解我的问题了。
我不是想让风讯程序以https协议运行。
我遇到的问题是，风讯后台里的添加内容--标题新闻，标题自定义网址若我不填写http://那么系统会自动加上，而我有一些网址是https://www.sxxxxx.com这样的连接，但这样填写上去，风讯系统生成的时候会自动在前面加成这样http://https://www.sxxxx.com
问题就是这里。？
我想让系统不自动添加http，我填写什么地址就显示什么地址。应该可以通过修改某个文件可以实现。

请教。

xiaoguangjay - 2008-5-5 20:56:00

我顺从文件里的函数找到了admin\news和down下的class_add.asp文件，里有一段str_UrlAddress = "http://"，把这段删除或把http://删除，还是无法解决。

xiaoguangjay - 2008-5-5 21:06:00

<% Option Explicit %>






<%
Dim Conn,User_Conn
MF_Default_Conn
MF_User_Conn
MF_Session_TF
Dim Fs_news,NS_ClassNameValure,sRootDir,strShowErr,str_newsDir
set Fs_news = new Cls_News
MF_GetUserGroupID
Fs_News.GetSysParam()
if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
if Fs_news.newsDir<>"" then str_newsDir = "/"+Fs_news.newsDir else str_newsDir=""
Dim obj_Class_Rs,ClassID,str_ClassKeywords,str_Classdescription,str_currpath
Dim lng_OrderID,str_ClassName,str_ClassEName_add,str_ParentID,str_Templet,str_NewsTemplet,str_Domain,lng_AdminID,int_RefreshNumber
Dim lng_GroupID,lng_PointNumber,flt_Money,str_FileExtName,dtm_Addtime,int_isConstr,int_IsURL,str_UrlAddress,lng_Oldtime,int_isShow
Dim str_ClassNaviContent,str_ClassNaviPic,lng_DefineID,int_NewsCheck,int_AddNewsType,tmp_fileExtName,str_SavePath,str_FileSaveType,int_isConstrDel,str_GetParentID,IsAdPic,AdPicWH,AdPicLink,AdPicAdress
ClassID = NoSqlHack(Trim(Request.QueryString("ClassID")))
Select Case fs_news.fileExtName
Case 0
tmp_fileExtName ="html"
Case 1
tmp_fileExtName ="htm"
Case 2
tmp_fileExtName ="shtml"
Case 3
tmp_fileExtName ="shtm"
Case 4
tmp_fileExtName ="asp"
End Select
If Session("Admin_Is_Super") = 1 then
str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
Else
If Session("Admin_FilesTF") = 0 Then
str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&UCase(md5(Session("Admin_Name"),16)),"//","/")
Else
str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
End If
End if
if Request.QueryString("Action")="add" then
if not Get_SubPop_TF(ClassID,"NS016","NS","class") then Err_Show
str_Templet = Replace("//"&G_TEMPLETS_DIR&"/NewsClass/class.htm","//","/")
str_NewsTemplet = Replace("/"&G_TEMPLETS_DIR&"/NewsClass/news.htm","//","/")
dtm_Addtime = now
lng_AdminID = session("Admin_Name")
lng_OrderID = 10
lng_PointNumber = ""
flt_Money = ""
str_SavePath = Replace(str_newsDir,"//","/")
str_UrlAddress = "http://"
str_FileExtName = tmp_fileExtName
int_isShow = 1
int_RefreshNumber = 0
int_AddNewsType=Fs_news.addNewsType
str_FileSaveType = Fs_news.ClassSaveType
if NoSqlHack(ClassID)<>"" then
str_GetParentID = ClassID
Else
str_GetParentID = "0"
End if
lng_Oldtime = 180
if ClassID<>"" then
Dim obj_IsUrlTF_Rs
Set obj_IsUrlTF_Rs = server.CreateObject(G_FS_RS)
obj_IsUrlTF_Rs.Open "Select IsUrl from FS_NS_NewsClass where ClassID='"& ClassID &"' order by id desc",Conn,1,1
if not obj_IsUrlTF_Rs.eof then
if obj_IsUrlTF_Rs(0) = 1 then
strShowErr = "<li>外部栏目不能添加子类</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
end if
End if
Elseif Request.QueryString("Action")="edit" then
if not Get_SubPop_TF(ClassID,"NS017","NS","class") then Err_Show
Set obj_Class_Rs = server.CreateObject(G_FS_RS)
obj_Class_Rs.open "select ClassID,OrderID,ClassName,ClassEName,ParentID,Templet,NewsTemplet,[Domain],RefreshNumber,ClassAdmin,isPop,FileExtName,Addtime,isConstr,IsURL,UrlAddress,Oldtime,isShow,ClassNaviContent,ClassNaviPic,DefineID,NewsCheck,AddNewsType,SavePath,FileSaveType,isConstrDel,ClassKeywords,Classdescription,IsAdPic,AdPicWH,AdPicLink,AdPicAdress From FS_NS_NewsClass where ClassID = '"& ClassID &"'",Conn,1,3
if not obj_Class_Rs.eof then
if obj_Class_Rs("isPop")=1 then
Dim obj_tmppop_rs
set obj_tmppop_rs = Conn.execute("select GroupName,PointNumber,FS_Money,InfoID,PopType,isClass From FS_MF_POP where InfoID='"& obj_Class_Rs("ClassID") &"' and isClass=1 and PopType='NS'")
if obj_tmppop_rs.eof then
lng_GroupID = ""
lng_PointNumber=""
flt_Money = ""
obj_tmppop_rs.close:set obj_tmppop_rs = nothing
Else
lng_GroupID = obj_tmppop_rs("GroupName")
if obj_tmppop_rs("PointNumber") = 0 or isnull(trim(obj_tmppop_rs("PointNumber"))) then:lng_PointNumber="" else:lng_PointNumber=obj_tmppop_rs("PointNumber"):end if
if obj_tmppop_rs("FS_Money") = 0 or isnull(trim(obj_tmppop_rs("FS_Money"))) then:flt_Money="" else:flt_Money=obj_tmppop_rs("FS_Money"):end if
obj_tmppop_rs.close:set obj_tmppop_rs = nothing
End if
Else
lng_GroupID = ""
lng_PointNumber=""
flt_Money = ""
End if
lng_OrderID = obj_Class_Rs("OrderID")
str_ClassName = obj_Class_Rs("ClassName")
str_ClassEName_add = obj_Class_Rs("ClassEName")
str_ParentID = obj_Class_Rs("ParentID")
str_GetParentID = obj_Class_Rs("ParentID")
str_Templet = obj_Class_Rs("Templet")
str_NewsTemplet = obj_Class_Rs("NewsTemplet")
str_Domain = obj_Class_Rs("Domain")
lng_AdminID = obj_Class_Rs("ClassAdmin")
int_RefreshNumber = obj_Class_Rs("RefreshNumber")
str_FileExtName = obj_Class_Rs("FileExtName")
dtm_Addtime = obj_Class_Rs("Addtime")
int_isConstr = obj_Class_Rs("isConstr")
int_IsURL = obj_Class_Rs("IsURL")
str_UrlAddress = obj_Class_Rs("UrlAddress")
lng_Oldtime = obj_Class_Rs("Oldtime")
int_isShow = obj_Class_Rs("isShow")
str_ClassNaviContent = obj_Class_Rs("ClassNaviContent")
str_ClassNaviPic = obj_Class_Rs("ClassNaviPic")
lng_DefineID = obj_Class_Rs("DefineID")
int_NewsCheck = obj_Class_Rs("NewsCheck")
int_AddNewsType = obj_Class_Rs("AddNewsType")
str_SavePath = obj_Class_Rs("SavePath")
str_FileSaveType = obj_Class_Rs("FileSaveType")
int_isConstrDel = obj_Class_Rs("isConstrDel")
str_ClassKeywords = obj_Class_Rs("ClassKeywords")
str_Classdescription = obj_Class_Rs("Classdescription")
IsAdPic = obj_Class_Rs("IsAdPic")
AdPicWH = obj_Class_Rs("AdPicWH")
AdPicLink = obj_Class_Rs("AdPicLink")
AdPicAdress = obj_Class_Rs("AdPicAdress")
obj_Class_Rs.close
set obj_Class_Rs = nothing
Else
strShowErr = "<li>错误的参数</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
Else
strShowErr = "<li>错误的参数</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
%>

xiaoguangjay - 2008-5-6 18:40:00

难道没有人遇见一样的问题或者是没有人知道如何解决？

sicend - 2008-5-6 20:30:00

没用过这个https的，不过修改你这个文件应该可以实现。

xiaoguangjay - 2008-5-6 21:48:00

我修改过了，但没有实现。请教高手。

xiaoguangjay - 2008-5-7 22:31:00

继续等待。

xiaoguangjay - 2008-5-8 21:10:00

一天又一天

jxspace - 2008-5-8 21:29:00

这不是正确浏览的标准，所以会出错的。

xiaoguangjay - 2008-5-9 20:25:00

请问谁可以帮我解决一下。

xiaoguangjay - 2008-5-10 21:30:00

继续顶上去waiting.

xiaoguangjay - 2008-5-12 10:32:00

继续顶上去waiting.

xiaoguangjay - 2008-5-15 21:34:00

继续顶上去waiting.

xiaoguangjay - 2008-5-16 22:42:00

继续顶上去waiting.

james2308 - 2008-5-16 22:51:00

热烈祝贺“爱意汽车”被风迅收录为推荐网站案例，现在我来解答你的问题，https是一种安全通讯协议，这个和风迅没有任何的关系，这个需要你在你的网站IIS中配置一个cert证书就可以完成的，当然是服务器端证书了。

因为今天发现自己的网站被风迅收录，所以心情好，就开始回答问题了！！！:default6: :default6:

jxspace - 2008-5-17 09:38:00

建议保持默认浏览方式http，你不知道怎么操作，你可以使用原程序还原。

xiaoguangjay - 2008-5-17 20:46:00

引用:

原帖由 james2308 于 2008-5-16 22:51:00 发表
热烈祝贺“爱意汽车”被风迅收录为推荐网站案例，现在我来解答你的问题，https是一种安全通讯协议，这个和风迅没有任何的关系，这个需要你在你的网站IIS中配置一个cert证书就可以完成的，当然是服务器端证书了。

......

既然心情好不如告诉我如何配置证书文件。
我要的目的是让风讯添加标题新闻能支持https

非常感谢

james2308 - 2008-5-17 21:44:00

自己生成一个根证书,然后在自己给自己的网站签发一个站点服务器证书,如果你想保证权威,去verysign申请一个服务器证书,但是要钱的,很多银行都是这么做的!!!!

womode - 2008-5-18 11:49:00

:default6: :default69:

xiaoguangjay - 2008-5-18 15:28:00

不清楚这个风讯系统里的标题新闻不支持https有什么关系。

jxspace - 2008-5-18 16:22:00

现有系统不支持https,如果你需要可以作适当的修正.

james2308 - 2008-5-18 17:08:00

如果想使用安全连接协议,同时你生成的时间使用的相对地址的话,除了生成导航的地方需要修改为https之外,其它的没有任何的变化!!!安全连接协议不仅可以真对整个网站,也可以真对某个目录,网上找一篇IIS的证书配置就知道,哈哈,这个问题我在1997年的时间专门做CA的时间做过,就是一个X509协议的证书

xiaoguangjay - 2008-5-21 20:02:00

不知道风讯有没有办法。

jxspace - 2008-5-21 21:25:00

现有版本不支持https方式,用户可以参考相关书籍进行修改,或联系官方相关人员进行定制.

xiaoguangjay - 2008-5-22 18:06:00

继续求助，顶上去，希望有人能帮忙。

xiaoguangjay - 2008-5-22 18:47:00

我觉得james2308误解我的问题了。
我不是想让风讯程序以https协议运行。
我遇到的问题是，风讯后台里的添加内容--标题新闻，标题自定义网址若我不填写http://那么系统会自动加上，而我有一些网址是https://www.sxxxxx.com这样的连接，但这样填写上去，风讯系统生成的时候会自动在前面加成这样http://https://www.sxxxx.com

问题就是这里。？

我想让系统不自动添加http，我填写什么地址就显示什么地址。应该可以通过修改某个文件可以实现。

请教。

jxspace - 2008-5-23 01:58:00

在添加的时候不加Http就可以了，如果已经添加了的格式不正确可以用数据库批替换工具进行替换。

xiaoguangjay - 2008-5-24 22:53:00

还是没有找到根本的解决办法。继续顶。

jxspace - 2008-5-25 00:00:00

嗯，只要你把情况说明了还是很简单的，修改程序:"/FS_InterFace/NS_Public.asp"搜索出下面程序行：“If Left(LCase(get_NewsLink),7) <> "http://" And Instr(LCase(get_NewsLink),"https://") = 0 Then get_NewsLink = "http://" & get_NewsLink”，在此因版本不一，且程序行数不一样，就不具体描述行数，更改成代码里的内容就可以了。

wjcreator - 2008-5-25 10:04:00

:default7:

风讯官方论坛