<% Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FileExists(Server.MapPath(""&SysRootDir&"NoInstall.txt")) Then response.Redirect "install.Asp" End If Set fso = Nothing Call SiteInfo() If ISHTML = 1 Then Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" End If %> <% Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FileExists(Server.MapPath(""&SysRootDir&"NoInstall.txt")) Then response.Redirect "install.Asp" End If Set fso = Nothing Call SiteInfo() If ISHTML = 1 Then Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" End If %> <% strcity=Request.Querystring("city") If strcity="sy" Then city = "十堰" Elseif strcity="wh" Then city = "武汉" Elseif strcity="xa" Then city = "西安" Elseif strcity="cd" Then city = "成都" Elseif strcity="ly" Then city = "洛阳" Else city = "十堰" End If %> <%=city%>金凤化工|<%=city%>金凤油漆|<%=city%>金凤实业--十堰市金凤化工实业有限公司【官网】 咨询电话: 0719-6481264
1 2 3
>>> 更多最新动态
<%=News("0,1")%>
>>> 更多求贤纳士
<%=News2("0,46",6,28)%>
更多  JINGFENG 关于金凤
>>> 更多公司简介
<%=left(SiteDetail,600)%>
>>> 更多专业知识
<%=News2("0,47",6,28)%>
<%If JMailDisplay = 1 Then%> <%End If%> <% Function News(SortPath) Dim rs, sql, NewsName, NewFlag Set rs = server.CreateObject("adodb.recordset") sql = "select top 6 * from Qianbo_News where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc" rs.Open sql, conn, 1, 1 If rs.EOF Then Response.Write " "&vbCrLf Response.Write " 暂无相关信息"&vbCrLf Response.Write " "&vbCrLf Else Do While Not rs.EOF If Now() - rs("AddTime")<= 2 Then NewsName = StrLeft(rs("NewsName"),70) NewFlag = " " Else NewsName = StrLeft(rs("NewsName"), 72) NewFlag = "" End If If ISHTML = 1 Then AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "newsview.asp?ID="&rs("id")&"" End If Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write "
 "&NewsName&""&NewFlag&" "&FormatDate(rs("Addtime"), 14)&"
"&vbCrLf Response.Write " "&vbCrLf rs.movenext Loop End If rs.Close Set rs = Nothing End Function Function News2(SortPath,num,wid) Dim rs, sql, NewsName, NewFlag Set rs = server.CreateObject("adodb.recordset") sql = "select top "&num&" * from Qianbo_News where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc" rs.Open sql, conn, 1, 1 If rs.EOF Then Response.Write " "&vbCrLf Response.Write " 暂无相关信息"&vbCrLf Response.Write " "&vbCrLf Else Do While Not rs.EOF If Now() - rs("AddTime")<= 2 Then NewsName = StrLeft(rs("NewsName"),wid) NewFlag = " " Else NewsName = StrLeft(rs("NewsName"), wid+2) NewFlag = "" End If If ISHTML = 1 Then AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "newsview.asp?ID="&rs("id")&"" End If Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf 'Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write "
 "&NewsName&""&NewFlag&" "&FormatDate(rs("Addtime"), 14)&"
"&vbCrLf Response.Write " "&vbCrLf rs.movenext Loop End If rs.Close Set rs = Nothing End Function Function Products(SortPath, trs, tds) Dim rs, sql, tr, td, ProductName, SmallPicPath Set rs = server.CreateObject("adodb.recordset") sql = "select top "&trs * tds&" * from Qianbo_Products where ViewFlag order by id desc" 'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc" 'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag and NewFlag order by id desc" rs.Open sql, conn, 1, 1 If rs.EOF Then response.Write "暂无相关信息" Else Response.Write ""&vbCrLf For tr = 1 To trs Response.Write " "&vbCrLf For td = 1 To tds If StrLen(rs("ProductName"))<= 18 Then ProductName = rs("ProductName") Else ProductName = StrLeft(rs("ProductName"), 16) End If If ISHTML = 1 Then AutoLink = ""&ProName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "ProductView.Asp?ID="&rs("id")&"" End If SmallPicPath = HtmlSmallPic(rs("GroupID"), rs("SmallPic"), rs("Exclusive")) Response.Write " "&vbCrLf Response.Write " "&vbCrLf rs.movenext If rs.EOF Then Exit For Next Response.Write " "&vbCrLf If rs.EOF Then Exit For Next Response.Write "
"&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write "
"&ProductName&"
"&vbCrLf End If rs.Close Set rs = Nothing End Function Function other(SortPath) Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select top 6 * from Qianbo_Others where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc" rs.Open sql, conn, 1, 1 Response.Write ""&vbCrLf If rs.EOF Then Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Else Do While Not rs.EOF If ISHTML = 1 Then AutoLink = ""&OtherName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "OtherView.Asp?ID="&rs("ID")&"" End If Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf rs.movenext Loop End If Response.Write "
暂无相关信息
"&StrLeft(rs("OthersName"), 26)&"
"&vbCrLf rs.Close Set rs = Nothing End Function Function FriendLinks(trs, tds) Dim rs, sql, tr, td, ProductName, SmallPicPath Set rs = server.CreateObject("adodb.recordset") sql = "select top "&trs * tds&" * from Qianbo_FriendLink where ViewFlag order by ID desc" rs.Open sql, conn, 1, 1 If rs.EOF Then response.Write "暂无相关信息" Else Response.Write ""&vbCrLf For tr = 1 To trs Response.Write " "&vbCrLf For td = 1 To tds If StrLen(rs("LinkFace"))<= 18 Then LinkFace = rs("LinkFace") Else LinkFace = StrLeft(rs("LinkFace"), 16) End If Response.Write " "&vbCrLf Response.Write " "&vbCrLf rs.movenext If rs.EOF Then Exit For Next Response.Write " "&vbCrLf If rs.EOF Then Exit For Next Response.Write "
"&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write "
" If rs("LinkType") = 0 Then Response.Write ""&LinkFace&"" Else Response.Write "" End If Response.Write "
"&vbCrLf End If rs.Close Set rs = Nothing End Function Function SelPlay(strUrl, strWidth, StrHeight) Dim Exts, isExt If strUrl <> "" Then isExt = LCase(Mid(strUrl, InStrRev(strUrl, ".") + 1)) Else isExt = "" End If Exts = "mp3,avi,wmv,asf,mov,rm,ra,ram,rmvb,swf" If InStr(Exts, isExt) = 0 Then Response.Write "
视频文件格式错误
" Else Select Case isExt Case "mp3", "avi", "wmv", "asf", "mov" Response.Write "" Case "mov", "rm", "ra", "ram", "rmvb" Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Case "swf" Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf Response.Write ""&vbCrLf End Select End If End Function %>