<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<%
start="網站信息"
dim founderr
founderr=false
if request("type")<>"" then
  if not isInteger(request("type")) then
    founderr=true
    Response.Write "<script language=javascript>alert('參數非法');javascript:history.back();</script>"
  end if
end if
if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    Response.Write "<script language=javascript>alert('參數非法');javascript:history.back();</script>"
  end if
end if
call head()
call menu()
sql="select gy,lx,gg,dt from admin"
set rs=conn.execute(sql)
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY><TR><TD height='23' align='right'><a href='about.asp'>·關于本站</a>&nbsp;<a href='?hx66=lx'>·聯系我們</a>&nbsp;<a href='?hx66=gg'>·廣告合作</a>&nbsp;<a href='?hx66=dt'>·網站地圖</a>&nbsp;&nbsp;</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-zuoyou"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
hx66=request("hx66")
if hx66="" then
Response.Write "<table width=""760""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　關于本站</td></tr></table>" & vbCrLf
Response.Write "<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"" class=""table-hx66s"">" & 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 hx66="lx" then
Response.Write "<table width=""760""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　關于本站</td></tr></table>" & vbCrLf
Response.Write "<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"" class=""table-hx66s"">" & 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 hx66="gg" then
Response.Write "<table width=""760""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　關于本站</td></tr></table>" & vbCrLf
Response.Write "<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"" class=""table-hx66s"">" & 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 hx66="dt" then
Response.Write "<table width=""760""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　網站地圖</td></tr></table>" & vbCrLf
Response.Write "<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"" class=""table-hx66s"">" & 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
Response.Write "</table>"
call footer()%>