www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > include.asp

    <%
set oRs=server.createobject("adodb.recordset")

sSql="Select Top 1 * From WebBasicInfo"
oRs.Open sSql,Conn,1,1
If Not oRs.Eof Then
	W_ID=oRs("W_ID")
	W_WebsiteAppe=oRs("W_WebsiteAppe")
	W_SuppExpl=oRs("W_SuppExpl")
	W_WebSiteName=oRs("W_WebSiteName")
	W_WebSiteUrl=oRs("W_WebSiteUrl")
	W_StatMastName=oRs("W_StatMastName")
	W_StatMastEmail=oRs("W_StatMastEmail")
	W_StatMastQQ=oRs("W_StatMastQQ")
	W_WebSiteKeyword=oRs("W_WebSiteKeyword")
	W_WebSiteIntr=oRs("W_WebSiteIntr")
	W_WebSiteCopyInfo=oRs("W_WebSiteCopyInfo")
	isBook=oRs("W_DownCataShowClose")

End If
oRs.Close
If W_WebsiteAppe="False" Then
	Response.Write "<table width='100%' height='100%'  border='0' cellpadding='0' cellspacing='0'><tr><td style='font-size:11pt'><div align='center'><font color='#ff0000'>"
	Response.Write W_SuppExpl
	Response.Write "</font></div></td></tr></table>"
	Response.End
End If
Dim WebTitle,WebName
WebName=W_WebSiteName&"-"&W_WebSiteUrl
WebTitle=""

%>