WEB源码(ASP,PHP,...)

开发平台：
HTML/CSS

About.Asp：源码内容
							﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="../Include/NoHackSql.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="关于我们"
elseif not IsNumeric(request.QueryString("ID")) then
SeoTitle="参数错误"
elseif conn.execute("select * from Wygkcnflash_About Where ViewFlag"&Language&" and  ID="&request.QueryString("ID")).eof then
SeoTitle="参数错误"
else
set rs = server.createobject("adodb.recordset")
sql="select * from Wygkcnflash_About where ViewFlag"&Language&" and ID="&request.QueryString("ID")
rs.open sql,conn,1,1
SeoTitle=rs("AboutName"&Language)
rs.close
set rs=nothing
end if
headid=1
%>
<!--#include file="Head2.Asp" -->
<DIV class=mian>
<DIV class=rightbar>
<H5><%=WebLocation()%></H5>
<DIV class=lefterbar>
<DIV id=d_con1><p>
	    <%
  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 Wygkcnflash_About where ViewFlag"&Language&" and not ChildFlag order by Sequence asc"
  else
	sql="select * from Wygkcnflash_About where ViewFlag"&Language&" and ID="&request.QueryString("ID")
  end if
  rs.open sql,conn,1,3
  if rs.eof Then
%>
           暂无相关信息
            <%
  Else
	if ViewNoRight(rs("GroupID"),rs("Exclusive")) then
%><%=rs("Content"&Language)%><%end if
end if%>
</p>
</DIV>
<DIV style="DISPLAY: none" id=d_con2>
可以后台利用图文、视频、音频、动画等进行全方位介绍。</DIV>
<DIV style="DISPLAY: none" id=d_con3>
可以后台利用图文、视频、音频、动画等进行全方位介绍。</DIV>
<DIV style="DISPLAY: none" id=d_con4>
可以后台利用图文、视频、音频、动画等进行全方位介绍。</DIV></DIV>
<DIV class=clearbox></DIV>
</DIV>
<DIV class=leftbar>
<DL>
  <DT>关于我们 
  <DD class=list_1>
  <UL>
  
  
  <!--函数开始-->
    <%If ISHTML = 1 Then
	AboutAutoLink = ""&ProSortName&"."&HTMLName&""
	Else
	AboutAutoLink = "about.asp"
	End If%>
    <LI>
		  <A title=# href="<%=AboutAutoLink%>">公司概况</A>
    <UL><%=ComWebMenu()%></UL>
	
	<%If ISHTML = 1 Then
	NewsAutoLink = ""&NewSortName&"."&HTMLName&""
	Else
	NewsAutoLink = "Newslist.asp"
	End If%>
	
    <LI>
		  <A title=# href="<%=NewsAutoLink%>">新闻中心</A>
    <UL><%=NewsWebMenu()%></UL>
	 
	 	<%If ISHTML = 1 Then
	JobAutoLink = ""&JobSortName&"."&HTMLName&""
	Else
	JobAutoLink = "joblist.asp"
	End If%>
	 
    <LI>
		  <A title=# href="<%=JobAutoLink%>">人才招聘</A>
    <UL><%=JobWebMenu()%></UL>
	</LI>
	
   <!--函数结束-->
	
	
	
	</UL>
	</DD>
  <DT>产品列表 
  <DD>
  <UL>
    <%call CallFolderView()%>
  </UL></DD></DL>
<DIV class=clearbox></DIV></DIV></DIV>
<!--#include file="Foot.Asp"-->
<%
'调用显示节点------------------------------
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 Wygkcnflash_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 Wygkcnflash_ProductSort where ParentID="&rs("id"))(0)
    if ChildCount=0 then
	  if i=rs.recordcount then
	    FolderType="SortFileEnd"
	  else
	    FolderType="SortFile"
	  end if
	  FolderName=rs("SortNameCh")&"&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("SortNameCh")&"&nbsp;"&ViewFlag
    end if
    response.write("<tr>")
     response.write("<td nowrap id='b"&rs("id")&"' class='"&FolderType&"' onMouseUp="&onMouseUp&"></td><td nowrap><a href=""ProductList.asp?SortID="&rs("ID")&""">"&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 ComWebMenu()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from Wygkcnflash_About where ViewFlag"&Language&" and not ChildFlag 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 "<Li><a href="""&AutoLink&""" style=""margin-left:5px;"">"&rs("AboutName"&Language)&"</a></li>"
      rs.movenext
    loop until rs.eof
  end if
  rs.close
  set rs=nothing
end function
function NewsWebMenu()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from Wygkcnflash_NewsSort Where ViewFlag"&Language&" and ParentID=0 order by ID asc"
  rs.open sql,conn,1,1
  if rs.eof then
    response.write "暂无相关信息"
  else
    do
		If ISHTML = 1 Then
			AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
		Else
			AutoLink = "NewsList.asp?SortID="&rs("ID")&""
		End If
      response.write "<Li><a href="""&AutoLink&""" style=""margin-left:5px;"">"&rs("SortName"&Language)&"</a></li>"
      rs.movenext
    loop until rs.eof
  end if
  rs.close
  set rs=nothing
end function
function JobWebMenu()
		If ISHTML = 1 Then
			AutoLink = ""&JobSortName&""&Separated&""&rs("ID")&"."&HTMLName&""
		Else
			AutoLink = "joblist.asp"
		End If
		
  response.write "<li><a href="""&AutoLink&""" style=""margin-left:5px;"">招聘信息</a></li>"
  response.write "<li><a href=""MemberTalent.asp"" style=""margin-left:5px;"">我的应聘</a></li>"
end function
function WebLocation()
  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 Wygkcnflash_About where ViewFlag"&Language&" and not ChildFlag order by Sequence asc"
  else
	sql="select * from Wygkcnflash_About where ViewFlag"&Language&" and ID="&request.QueryString("ID")
  end if
  rs.open sql,conn,1,1
  if rs.eof then
    WebLocation=WebLocation&"参数错误"
  else
    WebLocation=WebLocation&""&rs("AboutName"&Language)
  end if
  rs.close
  set rs=nothing
end Function
%>

						