about.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 559 行 · 第 1/2 页

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%
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="About Us"
elseif not IsNumeric(request.QueryString("ID")) then
SeoTitle="Parameter error"
elseif conn.execute("select * from LiangJingCMS_About Where ViewFlag"&Language&" and  ID="&request.QueryString("ID")).eof then
SeoTitle="Parameter error"
else
set rs = server.createobject("adodb.recordset")
if request.QueryString("ID")<>"" then
sql="select * from LiangJingCMS_About where ViewFlag"&Language&" and ID="&request.QueryString("ID")
else
sql="select top 1 * from LiangJingCMS_About where ViewFlag"&Language
end if
rs.open sql,conn,1,1
SeoTitle=rs("AboutName"&Language)
rs.close
set rs=nothing
end if
headid=1
%>
<!--#include file="Head.Asp" -->
<DIV class=mian>
<DIV class=rightbar>
<H5><%=SeoTitle%></H5>
<DIV class=lefterbar style="word-break:break-all;word-wrap:break-word;">
<DIV id=d_con1>
<P>　　<%set rs = server.createobject("adodb.recordset")
  if request.QueryString("ID")<>"" then
sql="select * from LiangJingCMS_About where ViewFlag"&Language&" and ID="&request.QueryString("ID")
else
sql="select top 1 * from LiangJingCMS_About where ViewFlag"&Language
end if
  rs.open sql,conn,1,1
  if not rs.eof then
    if Getlen(rs("content"&Language&""))>36 then
     response.write rs("content"&Language&"")
   
    else
    response.write ""&rs("content"&Language&"")&""
    end if
  else
  response.write "No Company Profile"
  end if
  rs.close
  set rs=nothing%></P></DIV>
<DIV style="DISPLAY: none" id=d_con2>
<%set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJingCMS_About where ViewFlag"&Language&" and ID=2"
  rs.open sql,conn,1,1
  if not rs.eof then
    if Getlen(rs("content"&Language&""))>36 then
     response.write rs("content"&Language&"")

    else
    response.write ""&rs("content"&Language&"")&""
    end if
  else
  response.write "No Company Profile"
  end if
  rs.close
  set rs=nothing%></DIV>
<DIV style="DISPLAY: none" id=d_con3>
<%set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJingCMS_About where ViewFlag"&Language&" and ID=3"
  rs.open sql,conn,1,1
  if not rs.eof then
    if Getlen(rs("content"&Language&""))>36 then
     response.write rs("content"&Language&"")

    else
    response.write ""&rs("content"&Language&"")&""
    end if
  else
  response.write "No Company Profile"
  end if
  rs.close
  set rs=nothing%></DIV>
<DIV style="DISPLAY: none" id=d_con4>
<%set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJingCMS_About where ViewFlag"&Language&" and ID=4"
  rs.open sql,conn,1,1
  if not rs.eof then
    if Getlen(rs("content"&Language&""))>36 then
    response.write rs("content"&Language&"")
   
    else
    response.write ""&rs("content"&Language&"")&""
    end if
  else
  response.write "No Company Profile"
  end if
  rs.close
  set rs=nothing%></DIV><iframe margin=0 src="map.asp" width=740px height=440px scrolling=no frameborder=0></iframe></DIV>
<DIV class=clearbox></DIV>

</DIV>
<DIV class=leftbar>
<DL>
  <DT>About Us
  <DD class=list_1>
  <UL>
    <LI><%If ISHTML = 1 Then%>
		  <A title=# href="about.asp">
	    <%Else%>
		   <A title=# href="about.html">
		    <%
		  End If%>Company Profile</A>
    <UL>
      <%=WebMenua()%></UL>
    <LI><%If ISHTML = 1 Then%>
		  <A title=# href="Newslist.asp">
	    <%Else%>
		   <A title=# href="Newclass.html">
		    <%
		  End If%>News Center</A>
    <UL>
      <%=WebMenu(0,0,2)%>
      </LI></UL>
    <LI><%If ISHTML = 1 Then%>
		  <A title=# href="jobslist.asp">
	    <%Else%>
		   <A title=# href="jobsclass.html">
		    <%
		  End If%>Recruitment</A>
    <UL>
      <LI><A href="JobsList.asp">Job</A> 
      <LI><A href="MemberTalent.asp">My candidates</A> 
      </LI></UL></LI></UL></DD>
  <DT>Product List 
  <DD>
  <UL>
    <%call CallFolderView()%></UL></DD></DL>
<DIV class=clearbox></DIV></DIV></DIV><!--页尾-->
<!--#include file="Foot.Asp"--><!-- end buttom#--> 
<%
'调用显示节点------------------------------
Function CallFolderView()
%>
<% Folder(0) %>
<%
End Function
'列出所有节点------------------------------
Function Folder(id)
  Dim rs,sql,i,ChildCount,FolderType,FolderName,onMouseUp,ListType,ViewFlag
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From LiangJingCMS_ProductSort where ViewFlag"&Language&" and ParentID="&id&" order by id"
  rs.open sql,conn,1,1
  if id=0 and rs.recordcount=0 then
    response.write ("No Information!")
    response.end
  end if  
  i=1
  response.write("<table border='0' cellspacing='0' cellpadding='0' style='margin-left:16px;line-height:25px'>")
  while not rs.eof
    ChildCount=conn.execute("select count(*) from LiangJingCMS_ProductSort where ParentID="&rs("id"))(0)
    if ChildCount=0 then
	  if i=rs.recordcount then
	    FolderType="SortFileEnd"
	  else
	    FolderType="SortFile"
	  end if
	  FolderName=rs("SortNameEn")&"&nbsp;"&ViewFlag
	  onMouseUp=""
    else
	  if i=rs.recordcount then
	 	FolderType="SortEndFolderOpen"
		ListType="SortEndListline"
		onMouseUp="EndSortChange('a"&rs("id")&"','b"&rs("id")&"');"
	  else
		FolderType="SortFolderOpen"
		ListType="SortListline"
		onMouseUp="SortChange('a"&rs("id")&"','b"&rs("id")&"');"
	  end if
	  FolderName=rs("SortNameEn")&"&nbsp;"&ViewFlag
    end if
    response.write("<tr>")
    response.write("<td nowrap id='b"&rs("id")&"' class='"&FolderType&"' onMouseUp="&onMouseUp&"></td><td nowrap><a href="""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""">"&FolderName&"</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
    response.write("</td></tr>")
    if ChildCount>0 then
%>
      <tr id="a<%= rs("id")%>" style="display:none"><td class="<%= ListType%>" nowrap></td><td ><% Folder(rs("id")) %></td></tr>
<%
    end if
    rs.movenext
    i=i+1
  wend
  response.write("</table>")
  rs.close
  set rs=nothing
end function

function ViewSiteInfo()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top 1 * from LiangJingCMS_Site"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
	response.write ("<br><br><div align=""center""><font style=""color:red; font-size:9pt; "")>数据库记录读取错误！</font></div>")
    response.end
  else
 	ssp=rs("ssp")
    rs.close
    set rs=nothing
  end if
End Function


function videos(SortPath)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top 9 * from LiangJingCMS_Others where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
  
 
  rs.open sql,conn,1,1
  if rs.eof then
	Response.Write "  <tr>"&VbCrLf
	Response.Write "    <td align=""center"" height=""28"">暂无相关信息</td>"&VbCrLf
	Response.Write "  </tr>"&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 " <Li><img src=""images/arr4.gif"" width=""9"" height=""9"" align=""absmiddle"" /> <a href="""&AutoLink&""">"&StrLeft(rs("OthersName"&Language),42)&"</a></li>"&VbCrLf
      rs.movenext
    loop 
  end if
  rs.close
  set rs=nothing
end Function

function News(SortPath)
  dim rs,sql,NewsName,NewFlag
  set rs = server.createobject("adodb.recordset")
  sql="select top 8 * from LiangJingCMS_News where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
  rs.open sql,conn,1,1
  if rs.eof then
	Response.Write "  <tr>"&VbCrLf
	Response.Write "    <td align=""center"" height=""28"">暂无相关信息</td>"&VbCrLf
	Response.Write "  </tr>"&VbCrLf
  else
    do while not rs.eof
	  if now()-rs("AddTime")<=2 then 
	    NewsName=StrLeft(rs("NewsName"&Language),42)
	    NewFlag=" <img src=""Images/new.gif"" align=""absmiddle"">"
	  else
	    NewsName=StrLeft(rs("NewsName"&Language),46)
	    NewFlag=""
	  end If
		If ISHTML = 1 Then
			AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
		Else
			AutoLink = "NewsView.asp?ID="&rs("id")&""
		End If
		Response.Write "  <tr>"&VbCrLf
		Response.Write "    <td height=""25""><table width=""486"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
		Response.Write "        <tr>"&VbCrLf
		Response.Write "          <td width=""388"" style=""background:url(images/bg5.gif) repeat-x left bottom;""><img src=""images/arr2.gif"" width=""3"" height=""5"" align=""absmiddle"" />&nbsp;&nbsp;<a href="""&AutoLink&""">"&NewsName&"</a>"&NewFlag&"</td>"&VbCrLf
		Response.Write "          <td width=""98"" align=""right"" style=""font-size:11px; color:#999999; background:url(images/bg5.gif) repeat-x left bottom;""><img src=""images/clock.gif"" width=""7"" height=""7"" align=""absmiddle"" />&nbsp;&nbsp;"&FormatDate(rs("Addtime"),14)&"</td>"&VbCrLf
		Response.Write "        </tr>"&VbCrLf
		Response.Write "      </table></td>"&VbCrLf
		Response.Write "  </tr>"&VbCrLf
      rs.movenext
    loop 
  end if