about.asp

主要功能是为大家提供一个免费的校园平台网站,有新闻发布、会员及管理、论坛

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<%
start="网站信息"
call head()
call menu()
sql="select gy,lx,gg,dt from admin"
set rs=conn.execute(sql)
Response.Write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY><TR><TD class=l></TD><TD height='23' align='right'><a href='about.asp'>·关于我们</a>&nbsp;<a href='?ly=lx'>·联系我们</a>&nbsp;<a href='?ly=gg'>·广告合作</a>&nbsp;<a href='?ly=dt'>·网站地图</a>&nbsp;&nbsp;</TD><TD class=r></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
ly=request("ly")
if ly="" then
Response.Write "<SCRIPT type=text/javascript>lanyutable(""关于我们"");</SCRIPT><table width=""100%"" align=""center"" cellspacing=""0"" cellpadding=""0""" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top"" align=""center"">" & vbCrLf
Response.Write "<br><font style=""font-size:14px"" class=""book""><b>关于我们</b></font></div><br>" & vbCrLf
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top"">" & vbCrLf
Response.Write "<div style=""LINE-HEIGHT: 180%"">"&rs("gy")&"</div>" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
Response.Write "</table>"
elseif ly="lx" then
Response.Write "<SCRIPT type=text/javascript>lanyutable(""联系我们"");</SCRIPT><table width=""100%"" align=""center"" cellspacing=""0"" cellpadding=""0""" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top"" align=""center"">" & vbCrLf
Response.Write "<br><font style=""font-size:14px"" class=""book""><b>联系我们</b></font></div><br>" & vbCrLf
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top"">" & vbCrLf
Response.Write "<div style=""LINE-HEIGHT: 180%"">"&rs("lx")&"</div>" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
Response.Write "</table>"
elseif ly="gg" then
Response.Write "<SCRIPT type=text/javascript>lanyutable(""广告合作"");</SCRIPT><table width=""100%"" align=""center"" cellspacing=""0"" cellpadding=""0""" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top"" align=""center"">" & vbCrLf
Response.Write "<br><font style=""font-size:14px"" class=""book""><b>广告合作</b></font></div><br>" & vbCrLf
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top"">" & vbCrLf
Response.Write "<div style=""LINE-HEIGHT: 180%"">"&rs("gg")&"</div>" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
Response.Write "</table>"
elseif ly="dt" then
Response.Write "<SCRIPT type=text/javascript>lanyutable(""网站地图"");</SCRIPT><table width=""100%"" align=""center"" cellspacing=""0"" cellpadding=""0""" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top"" align=""center"">" & vbCrLf
Response.Write "<br><font style=""font-size:14px"" class=""book""><b>网站地图</b></font></div><br>" & vbCrLf
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top"">" & vbCrLf
Response.Write "<div style=""LINE-HEIGHT: 180%"">"&rs("dt")&"</div>" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
Response.Write "</table>"
rs.close
set rs=nothing
end if
call footer()%>