<!--#include file="Inc/Conn.asp"-->
<!--#include file="Head.asp"-->
<!--#include file="Inc/Code.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<%
Function Plist()
Dim PsHtml
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="Select * From [ClassManage] "
rs.Open sql,conn,1,1
If rs.Eof Then
PsHtml = PsHtml & "没有分类!"
Else
first = rs("Type")
Do While Not rs.Eof
PsHtml = PsHtml &  "<img src='ziyan/folder.gif'><a href=About.asp?tit=" &rs("Type")& ">" & rs("Type") & "</a><br>"
rs.MoveNext
Loop
End if
rs.Close
Set rs=nothing
Plist=PsHtml
End Function
sqlstr = "Select * From [About_Manage]"
If Request.QueryString("tit")<>"" Then
sqlstr = sqlstr & " Where [ManageType]='"&checkstr(Request.QueryString("tit"))&"' Order By InfoTime desc"
Else
Sqlstr = "Select top 1 * From [About_Manage] Order By InfoTime desc"
End If 
Set rs1 = Conn.Execute (sqlstr)
Dim Strabout
Strabout=application("Jaabout")
Strabout=Replace(Strabout,"{用户登陆}",UserLogin())
Strabout=replace(Strabout,"{新闻信息}",TopNews("News_ID"))
Strabout=Replace(Strabout,"{用户搜索}",FindProd())
Strabout=Replace(Strabout,"{栏目列表}",Plist())
Strabout=Replace(Strabout,"{用户投票}",ShowVote())
Strabout=Replace(Strabout,"{企业介绍}",rs1("Content"))
Response.Write Strabout
%>
<!--#Include File="bottom.Asp"-->