<% 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 if request.QueryString("ID")="" then SeoTitle="关于我们" elseif not IsNumeric(request.QueryString("ID")) then SeoTitle="参数错误" elseif conn.execute("select * from Qianbo_About Where ViewFlag=1 and ID="&request.QueryString("ID")).eof then SeoTitle="参数错误" else set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_About where ViewFlag=1 and ID="&request.QueryString("ID") rs.open sql,conn,1,1 SeoTitle=rs("AboutName") rs.close set rs=nothing end if %> <% =SeoTitle %>-<% =SiteTitle %>
<%=WebMenu()%>

  • 销售经理:<%=lxr%>
    联系手机:<%=mobile%>
    联系电话:<%=Telephone%>
    图文传真:<%=Fax%>
    客 服 QQ:<%=sygg%>
    客 服MSN:MSN在线咨询

<%=WebLocation()%>
<% dim rs,sql set rs = server.createobject("adodb.recordset") if request.QueryString("ID")="" or not IsNumeric(request.QueryString("ID")) then sql="select top 1 * from Qianbo_About where ViewFlag=1 and not ChildFlag order by Sequence asc" else sql="select * from Qianbo_About where ViewFlag=1 and ID="&request.QueryString("ID") end if rs.open sql,conn,1,3 if rs.eof Then response.write "暂无相关信息"&VbCrLf Else if ViewNoRight(rs("GroupID"),rs("Exclusive")) then %>

<%=rs("AboutName")%>

更新时间:<%=FormatDate(rs("UpdateTime"),13)%> 浏览次数:

字体大小:

<%=rs("Content")%> <% else response.write ""&VbCrLf end if rs.update end if rs.close set rs=nothing %>
<% function WebMenu() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select ID,AboutName from Qianbo_About where ViewFlag=1 and not ChildFlag=1 order by Sequence asc" rs.open sql,conn,1,1 if rs.eof then response.write "
暂无相关信息
" else Do If ISHTML = 1 Then AutoLink = ""&AboutNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "About.asp?ID="&rs("ID")&"" End If response.write ""&rs("AboutName")&""&VbCrLf rs.movenext loop until rs.eof end if rs.close set rs=nothing end function function WebLocation() WebLocation=" 当前位置:首页 - 关于我们 - "&VbCrLf dim rs,sql set rs = server.createobject("adodb.recordset") if request.QueryString("ID")="" or not IsNumeric(request.QueryString("ID")) then sql="select top 1 * from Qianbo_About where ViewFlag=1 and not ChildFlag=1 order by Sequence asc" else sql="select * from Qianbo_About where ViewFlag=1 and ID="&request.QueryString("ID") end if rs.open sql,conn,1,1 if rs.eof then WebLocation=WebLocation&"参数错误" else WebLocation=WebLocation&""&rs("AboutName") end if rs.close set rs=nothing end Function %>