淄博生活网(http://www.zblive.com)--·休闲·娱乐·时尚·博客 >> 友情链接

| 网站首页 | 新闻 | 杂谈 | 娱乐 | 体育 | 时尚 | 女人 | 情感 | 旅游 | 搞笑 | 军事 | 玩乐 | 博客 | 股票基金 | 2008北京奥运 |

广告合作、频道合作
   请联系QQ：25430015/81510603
   msn：fengyueyoubian@hotmail.com
   E-mail：fengyueyoubian@sina.com
友情链接
   您好：
   本站首页链接只接受ALEXA排名在15万以内并且pr值>=4的文字或logo链接。
   内页链接无ALEXA排名及pr值限制。
   请申请链接的同时做好本站的链接，所申请链接我们会在两个工作日内进行审核，如在贵站未发现本站链接，申请将不予通过。谢谢合作！
图片链接
        88×31

文字链接
淄博生活网
填写下列内容申请友情链接：

网站名称:	*
网站地址:	*
网站Logo:
站长姓名:	*
电子邮件:
网站密码:	* 用于修改信息时用。
确认密码:	*
网站简介:

淄博生活网的发展亦离不开通过贵站的大力推荐和支持。我们愿意与相关或互补网站进行友情链接，只要您认同我们的网站，联系我们以示确认即可链接。同时，欢迎其他方式上的合作。我们相信，合作伙伴和我们都希望通过双方之间的真诚合作，促进双方的共同发展。

图片链接

文字链接

POCO个人空间	温州人力资源网	山东小熊站	中国管理整合网	易凯全球旅行	国际加盟网
CNCN城市平台	无忧会计网	中国英才培训网	青岛体育网	E动生活网	淄博新闻网
博客集	金融评测网	资质通见	poco电影网	梧桐网	武清在线
梦想家园	济南装饰建材网	情缘谷交友网	淄博人才网	昆山热线	齐鲁培训网
陈设世家	襄樊学院学生网	疯狂论坛	中国商标注册网	常识网	胜利信息广场
第一金融网	青岛生活网	金珠瑜伽	宽度文化网	中国基金网	高比IT资讯网
青岛资讯网	滁州百姓生活网	中国企业链	珠海赶场网	盐城百姓网	琥珀网
淄博人才网	广饶在线	中国娱乐在线	猪八戒影像馆	临沂教育培训网	舜网山东社区
山东网	语言交友社区	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请

站内搜索

文章下载图片

高级搜索

返回顶部

Copyright©2006-2008 zblive.Com All Rights Reserved 版权所有·淄博生活网合作电话:13241105960
制作单位：淄博生活网（浏览本网主页，建议将电脑显示屏的分辨率调为1024*768）
合作邮箱:fengyueyoubian@sina.com 京ICP备05066265号

<% End Sub Sub SaveLinkSite() Dim KindID, SpecialID, LinkType, LinkSiteName, LinkSiteUrl, LinkLogoUrl, LinkSiteAdmin, LinkSiteEmail, LinkSitePassword, LinkSitePwdConfirm, LinkSiteIntro KindID = PE_CLng(Trim(request.Form("KindID"))) SpecialID = PE_CLng(Trim(request.Form("SpecialID"))) LinkSiteName = Trim(request("SiteName")) LinkSiteUrl = Trim(request("SiteUrl")) LinkLogoUrl = Trim(request("LogoUrl")) LinkSiteAdmin = Trim(request("SiteAdmin")) LinkSiteEmail = Trim(request("SiteEmail")) LinkSitePassword = Trim(request("SitePassword")) LinkSitePwdConfirm = Trim(request("SitePwdConfirm")) LinkSiteIntro = Trim(request("SiteIntro")) If LinkSiteName = "" Then FoundErr = True ErrMsg = ErrMsg & "

网站名称不能为空！

" End If If LinkSiteUrl = "" Or LinkSiteUrl = "http://" Then FoundErr = True ErrMsg = ErrMsg & "

网站地址不能为空！

" End If If LinkSiteAdmin = "" Then FoundErr = True ErrMsg = ErrMsg & "

站长姓名不能为空！

" End If If LinkSiteEmail <> "" And IsValidEmail(LinkSiteEmail) = False Then FoundErr = True ErrMsg = ErrMsg & "

电子邮件地址错误！

" End If If LinkSitePassword = "" Then FoundErr = True ErrMsg = ErrMsg & "

网站密码不能为空！

" End If If LinkSitePwdConfirm = "" Then FoundErr = True ErrMsg = ErrMsg & "

确认密码不能为空！

" End If If LinkSitePwdConfirm <> LinkSitePassword Then FoundErr = True ErrMsg = ErrMsg & "

网站密码与确认密码不一致！

" End If If LinkSiteIntro = "" Then FoundErr = True ErrMsg = ErrMsg & "

网站简介不能为空！

" End If If FoundErr = True Then Exit Sub End If If LinkLogoUrl = "" Or LinkLogoUrl = "http://" Then LinkType = 2 Else LinkType = 1 End If Dim sqlLink, rsLink LinkSiteName = ReplaceBadChar(LinkSiteName) LinkSiteUrl = ReplaceUrlBadChar(LinkSiteUrl) sqlLink = "select top 1 * from PE_FriendSite where SiteName='" & LinkSiteName & "' and SiteUrl='" & LinkSiteUrl & "'" Set rsLink = Server.CreateObject("Adodb.RecordSet") rsLink.open sqlLink, Conn, 1, 3 If Not (rsLink.bof And rsLink.EOF) Then FoundErr = True ErrMsg = ErrMsg & "

你申请的网站已经存在！请不要重复申请！

" Else rsLink.Addnew rsLink("KindID") = KindID rsLink("SpecialID") = SpecialID rsLink("LinkType") = LinkType rsLink("SiteName") = LinkSiteName rsLink("SiteUrl") = LinkSiteUrl rsLink("LogoUrl") = ReplaceUrlBadChar(LinkLogoUrl) rsLink("SiteAdmin") = PE_HTMLEncode(LinkSiteAdmin) rsLink("SiteEmail") = PE_HTMLEncode(LinkSiteEmail) rsLink("SitePassword") = md5(LinkSitePassword, 16) rsLink("SiteIntro") = PE_HTMLEncode(LinkSiteIntro) rsLink("Hits") = 0 rsLink("UpdateTime") = Now rsLink("Passed") = False rsLink.Update Call WriteSuccessMsg("申请友情链接成功！请等待管理员审核通过。", ComeUrl) End If rsLink.Close Set rsLink = Nothing End Sub Function GetLogo(LogoWidth, LogoHeight) Dim strLogo, strLogoUrl If LogoUrl <> "" Then If LCase(Left(LogoUrl, 7)) = "http://" Or Left(LogoUrl, 1) = "/" Then strLogoUrl = LogoUrl Else strLogoUrl = strInstallDir & LogoUrl End If If LCase(Right(strLogoUrl, 3)) = "swf" Then strLogo = "

" Else strLogo = "" strLogo = strLogo & "

0 Then strLogo ='' strLogo & " width='" & LogoWidth & "'" If LogoHeight > 0 Then strLogo ='' strLogo & " height='" & LogoHeight & "'" strLogo ='' strLogo & " border='0'>" strLogo = strLogo & "" End If End If GetLogo = strLogo End Function Function GetFsKind_Option(iKindType, KindID) Dim sqlFsKind, rsFsKind, strOption strOption = "" ElseIf iKindType ='' 2 Then strOption ='' strOption & ">不属于任何专题" End If sqlFsKind ='' "select * from PE_FsKind" If iKindType > 0 Then sqlFsKind = sqlFsKind & " where KindType=" & iKindType End If sqlFsKind = sqlFsKind & " order by KindID" Set rsFsKind = Conn.Execute(sqlFsKind) Do While Not rsFsKind.EOF If rsFsKind("KindID") = KindID Then strOption = strOption & "" Else strOption = strOption & "" End If rsFsKind.movenext Loop rsFsKind.Close Set rsFsKind = Nothing GetFsKind_Option = strOption End Function Function ReplaceUrlBadChar(strChar) If strChar = "" Or IsNull(strChar) Then ReplaceUrlBadChar = "" Exit Function End If Dim strBadChar, arrBadChar, tempChar, i strBadChar = "+,',--,(,),<,>,[,],{,},\,;," & Chr(34) & "," & Chr(0) & "" arrBadChar ='' Split(strBadChar, ",") tempChar ='' strChar For i ='' 0 To UBound(arrBadChar) tempChar ='' Replace(tempChar, arrBadChar(i), "") Next tempChar ='' Replace(tempChar, "@@", "@") ReplaceUrlBadChar ='' tempChar End Function Function PE_HTMLEncode(ByVal fString) If IsNull(fString) Or Trim(fString) ='' "" Then PE_HTMLEncode ='' "" Exit Function End If fString ='' Replace(fString, ">", ">") fString = Replace(fString, "<", "<") fString = Replace(fString, Chr(32), " ") fString = Replace(fString, Chr(9), " ") fString = Replace(fString, Chr(34), """) fString = Replace(fString, Chr(39), "'") fString = Replace(fString, Chr(13), "") fString = Replace(fString, Chr(10) & Chr(10), "

") fString = Replace(fString, Chr(10), "
") PE_HTMLEncode ='' fString End Function %>