<%
Set rs=Conn.Execute("Select [Logo],[Lock],[Index],[Key],[Moban],[WebEmail] From [Index] Where ID=1")
If rs("Lock")=true Then
Response.Redirect "Notice.asp"
End if
Set JaHtml=Conn.ExeCute("Select * From [JaHtml] Where id = "&Cint(Rs("Moban"))&"")
If Not JaHtml.Eof Then
application("JaTop")=JaHtml("Ja_Top")
application("JaBottom")=JaHtml("Ja_bottom")
application("Jaindex")=JaHtml("Ja_index")
application("Jaabout")=JaHtml("Ja_about")
application("JaNews")=JaHtml("Ja_News")
application("JaTNews")=JaHtml("Ja_TNews")
application("JaShowNews")=JaHtml("Ja_ShowNews")
application("JaProduct")=JaHtml("Ja_Product")
application("JaTProduct")=JaHtml("Ja_TProduct")
application("JaTSProduct")=JaHtml("Ja_SProduct")
application("JaShowProduct")=JaHtml("Ja_ShowProduct")
application("JaHonor")=JaHtml("Ja_Honor")
application("JaDownLoad")=JaHtml("Ja_DownLoad")
application("JaShowDown")=JaHtml("Ja_ShowDown")
application("JaSale")=JaHtml("Ja_Sale")
application("JaJob")=JaHtml("Ja_Job")
application("JaAcceptJob")=JaHtml("Ja_AcceptJob")
application("JaPlan")=JaHtml("Ja_Plan")
application("JaBookList")=JaHtml("Ja_BookList")
application("JaBook")=JaHtml("Ja_Book")
application("JaBookShow")=JaHtml("Ja_BookShow")
application("JaServer")=JaHtml("Ja_Server")
application("JaUpUser")=JaHtml("Ja_UpUser")
application("JaViewShop")=JaHtml("Ja_ViewShop")
application("JaRegister")=JaHtml("Ja_Register")
End If
Dim Strtop
Strtop=application("JaTop")
Strtop=Replace(strtop,"{网站标题}",Rs("Index"))
Strtop=Replace(strtop,"{联系管理}",Rs("WebEmail"))
Strtop=Replace(strtop,"{网站介绍}",Rs("key"))
Strtop=Replace(strtop,"{网站图标}",server.HTMLEncode(rs("Logo"))) 
Response.Write Strtop
%>
