%
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
<%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
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
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
rs.movenext
If rs.EOF Then Exit For
Next
Response.Write "
"&vbCrLf
If rs.EOF Then Exit For
Next
Response.Write "
"&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
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
Response.Write "
"
If rs("LinkType") = 0 Then
Response.Write ""&LinkFace&""
Else
Response.Write ""
End If
Response.Write "
"&vbCrLf
Response.Write "
"&vbCrLf
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
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
Case "swf"
Response.Write ""&vbCrLf
End Select
End If
End Function
%>