%
If Request("action")="logout" Then
Session("AdminName")=""
Session("AdminPassWord")=""
'Response.Write "
你已经成功退出!
"
'Response.Write ""
Response.Redirect "index.asp"
End If
Call ConnectionDatabase
Set Rs = Server.CreateObject("Adodb.RecordSet")
txtGetConfig = "Select * From setup"
Rs.Open txtGetConfig,Conn,1,1
Set NewRs = Server.CreateObject("Adodb.RecordSet")
txtGetNews = "Select Top 5 * From news Order By Id Desc"
NewRs.Open txtGetNews,Conn,1,1
Set LinkRs = Server.CreateObject("Adodb.RecordSet")
txtGetLink = "Select Top 4 * From link Where UrlType=""Logo链接"" Order By Id Asc"
LinkRs.Open txtGetLink,Conn,1,1
%>
<%=Rs("SiteName")%>