友情链接

首　　页│政策导向│学校介绍│学术探讨│证书查询

典型案例│学子园地│专业动态│专业设置│资料下载

师资介绍│在线学习│信息平台│教学成果│合作加盟

报名地址：青岛市台东一路27号交通职业学校 522室

招生电话：0532-88916160 0532-83689601 13305428020

交流QQ群：二手车评估群95926908；汽车评估群88727546或125854733；           汽车估损群87728387；导航保险公估考试交流91134976

友情链接     通知：二手车鉴定评估师1月23号（周天）考试，周五周六白天照常上课，希望大家做好准备，按时到校！

本站链接信息

本站名称：	青岛导航职业培训学校
本站地址：	http://www.daohangschool.cn/
本站Logo：
站长姓名：	张
电子邮件：	<%=WebmasterEmail%>
本站简介：	请申请链接的同时做好本站的链接。

申请友情链接

所属类别：
所属专题：
网站名称：	*
网站地址：	*
网站Logo：
站长姓名：	*
电子邮件：
网站密码：	* 用于修改信息时用。
确认密码：	*
网站简介：

青岛市台东一路27号交通学校电话\传真：0532-83666618
乘车路线：公交1,2,3,4,11,15,28,36,104,119,125,218, 226,232,301, 302到台东站
崂山培训中心：凤凰海景大酒店地址:青岛崂山风景区南线收费口路南5米乘车路线：公交304、104、113、802流清河站

联系电话：0532-88916160 83689601 咨询QQ:1146317897

浏览本站最佳分辨率:1024*768 网站备案序号：鲁ICP备09087535号

<% 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 = 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 %>