<% 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") End If oRs.Close If W_WebsiteAppe="False" Then Response.Write "

" Response.Write W_SuppExpl Response.Write "

" Response.End End If Dim WebTitle,WebName WebName=W_WebSiteName&"-"&W_WebSiteUrl WebTitle="" %>