淄博生活网－网站友情链接交换

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

广告合作、频道合作
   请联系QQ：25430015/81510603

友情链接
   您好：
   本站链接只接受ALEXA排名在25万以内并且pr值>=4的文字或logo链接。
    请申请链接的同时做好本站的链接，所申请链接我们会在两个工作日内进行审核，如在贵站未发现本站链接，申请将不予通过。谢谢合作！
图片链接
        88×31

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

<%IF FriendSiteCheckCode ='' True then%> <%End If%>

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

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

图片链接

文字链接

濮阳信息港	圣托电器	淄博赶集网	无忧会计网	第一金融网	广搜网
伊春信息港	淄博人才网	同城商务网	顺德人才网	大斌健美网	济南分类信息网
天津二手房	两性健康网	金投保险	临淄新闻网	南京合租房	合肥厂房信息
无锡租房	济南车市	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请	点击申请	点击申请	点击申请
点击申请	点击申请	点击申请

站内搜索

文章下载图片

高级搜索

返回顶部

Copyright©2006-2010 zblive.Com All Rights Reserved 版权所有·淄博生活网
制作单位：淄博生活网（浏览本网主页，建议将电脑显示屏的分辨率调为1024*768）
合作电话:13120311828 京ICP备05066265号
本站内容来自互联网,其版权归原作者所有,若内容侵犯了您的权益,请告诉我们,本站将予删除处理

<% End Sub Sub SaveLinkSite() Dim KindID, SpecialID, LinkType, LinkSiteName, LinkSiteUrl, LinkLogoUrl, LinkSiteAdmin, LinkSiteEmail, LinkSitePassword, LinkSitePwdConfirm, LinkSiteIntro, LinkCheckCode 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")) LinkCheckCode = Trim(request("CheckCode")) 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 FriendSiteCheckCode = True then If LinkCheckCode = "" Then FoundErr = True ErrMsg = ErrMsg & "

请输入验证码！

" End If If FriendSiteCheckCode = True then If LinkCheckCode <> Session("CheckCode") Then FoundErr = True ErrMsg = ErrMsg & "

您输入的确认码和系统产生的不一致，请重新输入。

" End If End If 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 = InstallDir & 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 %>