about.asp
来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 560 行 · 第 1/2 页
ASP
560 行
<%@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="关于我们"
elseif not IsNumeric(request.QueryString("ID")) then
SeoTitle="参数错误"
elseif conn.execute("select * from LiangJingCMS_About Where ViewFlag"&Language&" and ID="&request.QueryString("ID")).eof then
SeoTitle="参数错误"
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>
<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 "暂无企业简介"
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 "暂无企业简介"
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 "暂无企业简介"
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 "暂无企业简介"
end if
rs.close
set rs=nothing%></DIV></DIV>
<DIV class=clearbox></DIV>
</DIV>
<DIV class=leftbar>
<DL>
<DT>关于我们
<DD class=list_1>
<UL>
<LI><%If ISHTML = 1 Then%>
<A title=# href="about.asp">
<%Else%>
<A title=# href="about.html">
<%
End If%>公司概况</A>
<UL>
<%=WebMenua()%></UL>
<LI><%If ISHTML = 1 Then%>
<A title=# href="Newslist.asp">
<%Else%>
<A title=# href="Newclass.html">
<%
End If%>新闻中心</A>
<UL>
<%=WebMenu(0,0,2)%>
</UL></LI>
<LI><%If ISHTML = 1 Then%>
<A title=# href="jobslist.asp">
<%Else%>
<A title=# href="jobsclass.html">
<%
End If%>人才招聘</A>
<UL>
<LI><A href="JobsList.asp">招聘职位</A>
<LI><A href="MemberTalent.asp">我的应聘</A>
</LI></UL></LI></UL></DD>
<DT>产品列表
<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("SortNameCh")&" "&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")&" "&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> ")
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"" /> <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"" /> "&FormatDate(rs("Addtime"),14)&"</td>"&VbCrLf
Response.Write " </tr>"&VbCrLf
Response.Write " </table></td>"&VbCrLf
Response.Write " </tr>"&VbCrLf
rs.movenext
loop
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?