收藏网站的代码_收藏网站的代码是什么

收藏网站的代码_收藏网站的代码是什么

大家好，今天我要和大家探讨一下关于收藏网站的代码的问题。为了让大家更容易理解，我将这个问题进行了归纳整理，现在就让我们一起来看看吧。

文章目录列表:

1.制作网页，点击让网页“加入收藏”的代码是什么？

2.静态网页加为收藏的源代码

3.网页制作的设置成首页的代码是什么，还有添加到收藏夹啊的代码是什么，要怎么用，放在哪里

4.javascript 网站加入收藏代码

5.vb 网页另存为代码 添加收藏夹代码 整理收藏夹代码

6.收藏夹代码，要在IE、火狐、谷歌中都能使用。

制作网页，点击让网页“加入收藏”的代码是什么？

代码如下：

<script language="JavaScript">

function bookmarkit(){window.external.addFavorite('';);"title=设置本站为浏览器首页(启始页)>·设为首页</A>

<A href="#" onclick="javascript:window.external.AddFavorite('';,'『XXX』')" title=收藏本站到你的收藏夹">·收藏本站</A>

网页制作的设置成首页的代码是什么，还有添加到收藏夹啊的代码是什么，要怎么用，放在哪里

<a href="#" onClick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('你的网址');return false;">设为首页</a> 这是设为首页代码 <a href="#" onClick="window.external.addFavorite('网址','网页标题')">加入收藏</a> 收藏代码

javascript 网站加入收藏代码

可兼容所有浏览器的加入收藏代码代码，原理:根据获取用户navigator.userAgent.toLowerCase()信息来判断浏览器，根据浏览器是否支持加入收藏js命令，如果可以自动收藏否则就提示ctrl+D手动收藏了。

代码如下:

function addFavorite2() {

_ar url=window.location;

_ar title=document.title;

_ar ua=navigator.userAgent.toLowerCase();

if (ua.indexOf("360se") > -1) {

alert("由于360浏览器功能限制，请按 Ctrl+D 手动收藏！");

}

else if (ua.indexOf("msie 8") > -1) {

window.external.AddToFavoritesBar(url, title); //IE8

}

else if (document.all) {

try{

window.external.addFavorite(url, title);

}catch(e){

alert('您的浏览器不支持,请按 Ctrl+D 手动收藏!');

}

}

else if (window.sidebar) {

window.sidebar.addPanel(title, url, "");

}

else {

alert('您的浏览器不支持,请按 Ctrl+D 手动收藏!');

}

}

复制代码保存成js文件，然后在要收藏的地方加上

代码如下

<a href=# onclick="javascript:addFavorite2()">加入收藏</a>

vb 网页另存为代码 添加收藏夹代码 整理收藏夹代码

保存网页的VB源代码：

参考如下：

新建一标准EXE工程->在窗体上添加如下控件:

richTEXT1(超级文本框<部件Microsoft RichText Controls>),

command1(按钮),

command2(按钮),

INET1(INET控件<部件Microsoft Internet Tran_er Controls>),

CommonDiaLog1(<部件Microsoft Common Dialog Controls>),

'窗体代码

private sub command1_click()

richtext1.text=Inet1.openUrl("/")'打开对应网址的原代码

end sub

private sub command2_click()

CommonDiaLog1.filtter="网页文件(*.htm)|*.htm|网页文件(*.html)|*.html"'设置欲保存文件的格式

CommonDiaLog1.showsave

richtext1.savefile CommonDiaLog1.filename,rtftext'保存richtext1的内容(即网页源代码)到_位置.

msgbox"文件已经保存到" & CommonDiaLog1.filename

end sub

添加2个txet控件,一个command(实现添加至收藏夹)

Private C_t MAX_PATH As Long=260

Private C_t ERROR_SUCCESS As Long=0

Private C_t S_OK As Long=0

Private C_t S_FALSE As Long=1

Private C_t SHGFP_TYPE_CURRENT As Long=&H0

Private C_t SHGFP_TYPE_DEFAULT As Long=&H1

C_t CSIDL_FAVORITES As Long=&H6

Private Declare Function DoAddToFavDlg Lib "shdocvw" _

(ByVal hWnd As Long, _

ByVal szPath As String, _

ByVal nSizeOfPath As Long, _

ByVal szTitle As String, _

ByVal nSizeOfTitle As Long, _

ByVal pidl As Long) As Long

Private Declare Function DoOrganizeFavDlg Lib "shdocvw" _

(ByVal hWnd As Long, _

ByVal lpszRootFolder As String) As Long

Private Declare Function SHGetFolderPath Lib "shfolder" _

Alias "SHGetFolderPathA" _

(ByVal hwndOwner As Long, _

ByVal nFolder As Long, _

ByVal hToken As Long, _

ByVal dwReserved As Long, _

ByVal lpszPath As String) As Long

Private Declare Function SHGetSpecialFolderLocation Lib "shell32" _

(ByVal hwndOwner As Long, _

ByVal nFolder As Long, _

pidl As Long) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" _

Alias "WritePrivateProfileStringA" _

(ByVal lpSectionName As String, _

ByVal lpKeyName As Any, _

ByVal lpString As Any, _

ByVal lpFileName As String) As Long

Private Declare Sub CoTaskMemFree Lib "ole32" _

(ByVal pv As Long)

Public Sub ProfileSaveItem(lpSectionName As String, _

lpKeyName As String, _

lpValue As String, _

iniFile As String)

Call WritePrivateProfileString(lpSectionName, lpKeyName, lpValue, iniFile)

End Sub

Private Function MakeFavouriteEntry(szTitle As String, sURL As String) As String

'变量定义

Dim success As Long

Dim pos As Long

Dim nSizeOfPath As Long

Dim nSizeOfTitle As Long

Dim pidl As Long

Dim szPath As String

'追加chr$(0)字符

szTitle=szTitle & Chr$(0)

nSizeOfTitle=Len(szTitle)

'返回路径的字符串

szPath=Space$(MAX_PATH) & Chr$(0)

nSizeOfPath=Len(szPath)

'得到用户“收藏夹”路径的PIDL (pointer to item identifier list)

'成功后返回值为ERROR_SUCCESS

If SHGetSpecialFolderLocation(hWnd, _

CSIDL_FAVORITES, _

pidl)=ERROR_SUCCESS Then

'调用“添加到收藏夹”对话框

'hwnd=本窗口的句柄

'szPath=所选择文件夹的_路径，包括文件名和所需的URL

' 例如，在我的系统里就是C:\Documents and Settings\40Star\Favorites\CSDN.NET--中国_的开发者网络.url

'szTitle=标题

'pidl=PIDL 描述用户的收藏夹的信息

success=DoAddToFavDlg(hWnd, _

szPath, nSizeOfPath, _

szTitle, nSizeOfTitle, _

pidl)

'如果路径有效并_了标题，而且用户选择了“确定”，success 返回 1

If success=1 Then

'删除_后的Chr$ (0)

pos=InStr(szPath, Chr$(0))

szPath=Left(szPath, pos - 1)

pos=InStr(szTitle, Chr$(0))

szTitle=Left(szTitle, pos - 1)

'在Text中显示结果

Text1.Text=szPath

Text2.Text=szTitle

Call ProfileSaveItem("InternetShortcut", "URL", sURL, szPath)

'返回创建成功的路径

MakeFavouriteEntry=szPath

End If

'清空PIDL

Call CoTaskMemFree(pidl)

End If

End Function

Private Sub Command1_Click()

Dim szTitle As String

Dim sURL As String

Dim sResult As String

'_添加到收藏夹后的快捷方式的名称

szTitle=Text1.Text

'_添加到收藏夹后的快捷方式的URL

sURL=Text2.Text

'调用MakeFavouriteEntry函数，打开对话框

sResult=MakeFavouriteEntry(szTitle, sURL)

End Sub

Private Sub Form_Load()

End Sub

收藏夹代码，要在IE、火狐、谷歌中都能使用。

1.文字型：

复制代码<a onclick="this.style.behavior=’url(#default#homepage)’;this.setHomePage(’’);" href="">设为首页</a>

2.按钮型：

复制代码<input TYPE="button"_ALUE=" 设为首页 " onclick="this.style.behavior=’url(#default#homepage)’;this.setHomePage(’’);" href="t">

3.离开时自动提示设为首页：

复制代码<body onunload="BASEBody.style.behavior=’url(#default#homepage)’;if(!(BASEBody.isHomePage(’’)))BASEBody.setHomePage(’t’);">

4.打开网页就提示是否设为主页：

复制代码<script language="javascript"> function myhomepage(){ this.homepage.style.behavior=’url(#default#homepage)’;this.homepage.sethomepage(’’); } </script> <p align="center"><a href="" name="homepage" onclick="myhomepage();"></a>

1.链接

复制代码<a onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('');"><img width=16 height=16 border=0 src="images/Logo.gif"><u> 设为首页</u></a>

2.文字型：

复制代码<a onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('');" href="#">设为首页</a>

3.按钮型：

复制代码<input TYPE="button"_ALUE=" 设为首页 " onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('');" href="#">

4.离开时自动提示设为首页

复制代码<body onunload="BASEBody.style.behavior='url(#default#homepage)';if(!(BASEBody.isHomePage('')))BASEBody.setHomePage('');">

5.鼠标指向时提示设为首页

复制代码<A href="/" onmouseover="this.style.behavior='url(#default#homepage)';this.setHomePage('');" target="_blank">设为首页</A>

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

加入收藏代码

1.

复制代码<a href="#" onclick="javascript:window.external.AddFavorite('','苹果壁纸资源')" title="收藏本站到你的收藏夹"><font size="-1" color="#FFE09E">收藏本站</font></a>

2.

复制代码<a href="javascript:void(0);" onClick="window.external.AddFavorite(document.location.href,document.title)">加入收藏</a>

加入_道

复制代码<a href="typhoon.cdf")>加入_道</a>

邮件链接

复制代码<a href="mailto:xuan_web@hotmail.com">与我联系</a>

再将下面代码加入<body>内：

复制代码onload="myhomepage();"

即：

复制代码<body onload="myhomepage();">

好了，今天关于“收藏网站的代码”的话题就讲到这里了。希望大家能够通过我的讲解对“收藏网站的代码”有更全面、深入的了解，并且能够在今后的学习中更好地运用所学知识。