bbslib.asp

宁波娱乐在线城市,丰富的内容版块

<!--#include file="tools.asp"-->
<%
Dim Database   
GetGlobalVar

Sub CheckLogin
    if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
        set Database = Server.CreateObject("ADODB.Connection")
        Database.Open ConnectionString,UserName,Password
        Fun101("")
        set Database = nothing
    end if
end Sub        
          
function GetIPAddress(cmd)
Dim str1,str2,str3,str4,sql
Dim Query 
Dim num

	str1 = GetPartEx(cmd,".",1)
	str2 = GetPartEx(cmd,".",2)
	str3 = GetPartEx(cmd,".",3)
	str4 = GetPartEx(cmd,".",4)
    num = cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
    
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select top 1 COUNTRY,CITY from ADDRESS where IP1 <="&num&" and IP2 >="&num
    Query.Open sql,Database
    if Query.Bof then 
        GetIPAddress = "未知"
    else
		GetIPAddress = trim(Query("COUNTRY"))&"("&trim(Query("CITY"))&")"
    end if
    Query.Close
	set Query = nothing
end function
        
        

Sub GetGlobalVar
    if Application.Contents.Key("DATE") = "" then
        Application("DATE") = "2000-01-01 12:00:00"
    end if    
    if DateDiff("d",Application("DATE"),now()) >=1 then

        Dim USER(2)
        Dim Query
        Dim sql
        Dim FWZS,HYZS,URL,ptr
        
        Application("DATE") = now()

        set Database = Server.CreateObject("ADODB.Connection")
        Database.Open ConnectionString,UserName,Password

        set Query = Server.CreateObject("ADODB.Recordset")
        sql = "select VAL from INI where TYPE='FWCS'"
        Query.Open sql,Database
        FWZS = Query("VAL")
        Query.Close
        set Query = nothing
        
        set Query = Server.CreateObject("ADODB.Recordset")
        sql = "select COUNT(ID) AS SL from HY "
        Query.Open sql,Database       
        HYZS = Query("SL")
        Query.Close
        set Query = nothing
    
        'URL = Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("PATH_INFO")
        'if LOCAL_TEST = "1" then
        '    Response.Write("<DIV style='Z-INDEX:100'><iframe src='http://szy/bbsnew/union/user.asp?FWZS="&FWZS&"&HYZS="&HYZS&"&URL="&URL&"'  style='HEIGHT: 0px; WIDTH: 0px;DISPLAY:NONE'></iframe></DIV>")
        'else    
        '    Response.Write("<DIV style='Z-INDEX:100'><iframe src='http://www.dzsq.net/union/user.asp?FWZS="&FWZS&"&HYZS="&HYZS&"&URL="&URL&"'  style='HEIGHT: 0px; DISPLAY:NONE; WIDTH: 0px'></iframe></DIV>")
        'end if    
         
        'set Query = Server.CreateObject("ADODB.Recordset")
        'sql = "select NC,XB,TX,LY,JYZ,ML from HY where ML>=0 and XB=0"
        'Query.Open sql,Database,1,1
        
        'if Query.RecordCount < 1 then
        '    USER(1) = ""
        'else
        '    ptr = rd(0,Query.RecordCount-1)
        '    Query.Move ptr
        '    USER(1) = Query("NC")&"|"&Query("TX")&"|"&Query("XB")&"|"&Query("LY")&"|"&Query("JYZ")&"|"&Query("ML")&"|"
        '    Database.Execute("update HY set JQ=JQ+50,ML=ML+50 where NC='"&Query("NC")&"'")
        'end if 
        'Query.Close
        'set Query = nothing
        
        
        'set Query = Server.CreateObject("ADODB.Recordset")
        'sql = "select NC,XB,TX,LY,JYZ,ML from HY where ML>=0 and XB=1"
        'Query.Open sql,Database,1,1
 
        'if Query.RecordCount < 1 then
        '    USER(2) = ""
        'else
        '    ptr = rd(0,Query.RecordCount-1)
        '    Query.Move ptr
        '    USER(2) = Query("NC")&"|"&Query("TX")&"|"&Query("XB")&"|"&Query("LY")&"|"&Query("JYZ")&"|"&Query("ML")&"|"
        '    Database.Execute("update HY set JQ=JQ+50,ML=ML+50 where NC='"&Query("NC")&"'")
        'end if 
        'Application("USER") = USER
        'Query.Close
        'set Query = nothing
        
        set Query = Server.CreateObject("ADODB.Recordset")
        sql = "select VAL from INI where NAME='留言保留时间'"
        Query.Open sql,Database
        if SQLServer = "0" then
            Database.Execute("delete from LY where SJ < DATEADD('m',-"&Query("VAL")&",'"&ConvertDateTime(now())&"')")
        else 
            Database.Execute("delete from LY where DATEDIFF(mm,SJ,'"&ConvertDateTime(now())&"') > "&Query("VAL"))
        end if    
        Query.Close
        set Query = nothing
        
        set Query = Server.CreateObject("ADODB.Recordset")
        sql = "select VAL from INI where NAME='文章保留时间'"
        Query.Open sql,Database
        if SQLServer = "0" then 
            Database.Execute("delete from HFWZ where SJ < DATEADD('m',-"&Query("VAL")&",'"&ConvertDateTime(now())&"')")
            Database.Execute("delete from WZ where (FBSJ < DATEADD('m',-"&Query("VAL")&",'"&ConvertDateTime(now())&"') and ZT=0)")    
        else
            Database.Execute("delete from HFWZ where DATEDIFF(mm,SJ,'"&ConvertDateTime(now())&"') > "&Query("VAL"))
            Database.Execute("delete from WZ where DATEDIFF(mm,FBSJ,'"&ConvertDateTime(now())&"') > "&Query("VAL"))
        end if
        Query.Close
        set Query = nothing

        set Query = Server.CreateObject("ADODB.Recordset")
        sql = "select VAL from INI where TYPE='推荐文章保留时间'"
        Query.Open sql,Database
        if SQLServer = "0" then 
            Database.Execute("delete from WZTJ where SJ <= DATEADD('d',-"&Query("VAL")&",'"&ConvertDateTime(now())&"')")
        else
            Database.Execute("delete from WZTJ where DATEDIFF(dd,SJ,'"&ConvertDateTime(now())&"') >= "&Query("VAL"))
        end if    
        Query.Close
        set Query = nothing
        
        set Database = nothing        
    else
        if Hour(Now()) >= 9 then
            GetInfo = false
            if len(CStr(Application("INFO"))) <> 8 then
                GetInfo = true
            else
                UserInfo = CStr(Decode(Application("INFO")))
                d = mid(UserInfo,1,len(UserInfo)-2)
                if (Abs(Day(Now()) - Int(d))) <> 0 then
                    GetInfo = true
                end if
            end if
        
            if GetInfo then
                set Database = Server.CreateObject("ADODB.Connection")
                Database.Open ConnectionString,UserName,Password
        
                set Query = Server.CreateObject("ADODB.Recordset")
                sql = "select VAL from INI where TYPE='FWCS'"
                Query.Open sql,Database
                FWZS = Query("VAL")
                Query.Close
                set Query = nothing
                
                set Query = Server.CreateObject("ADODB.Recordset")
                sql = "select COUNT(ID) AS SL from HY "
                Query.Open sql,Database
                HYZS = Query("SL")
                Query.Close
                set Query = nothing
                
                'URL = Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("PATH_INFO")
                'if LOCAL_TEST = "1" then
                '    Response.Write("<DIV style='Z-INDEX:100'><iframe src='http://szy/bbsnew/union/user.asp?FWZS="&FWZS&"&HYZS="&HYZS&"&URL="&URL&"'  style='HEIGHT: 0px; WIDTH: 0px;DISPLAY:NONE'></iframe></DIV>")
                'else    
                '    Response.Write("<DIV style='Z-INDEX:100'><iframe src='http://www.dzsq.net/union/user.asp?FWZS="&FWZS&"&HYZS="&HYZS&"&URL="&URL&"'  style='HEIGHT: 0px; DISPLAY:NONE; WIDTH: 0px'></iframe></DIV>")
                'end if    
                set Database = nothing
            end if
        end if
    end if             

    'if Application("NC") <> "" then 
    '   exit Sub 
    'end if

    'set Database = Server.CreateObject("ADODB.Connection")
    'Database.Open ConnectionString,UserName,Password
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='GLY'"
    'Query.Open sql,Database
    'Application("NC") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'管理员姓名
	Application("NC") = "wilson"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='LMSQ'"
    'Query.Open sql,Database
    'Application("LMSQ") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'栏目申请 '1' 为可申请 '0'反之
	Application("LMSQ") = "1"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='MYLMS'"
    'Query.Open sql,Database
    'Application("MYLMS") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'每页栏目数
    Application("MYLMS") = "8"

    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='MYWZS'"
    'Query.Open sql,Database
    'Application("MYWZS") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'每页文章数
    Application("MYWZS") = "11"

    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='FTTL'"
    'Query.Open sql,Database
    'Application("FTTL") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'发帖消耗体力
	Application("FTTL") = "3"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='HFTL'"
    'Query.Open sql,Database
    'Application("HFTL") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'回帖消耗体力
    Application("HFTL") = "1"

    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='LYTL'"
    'Query.Open sql,Database
    'Application("LYTL") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'留言消耗体力
	'Application("LYTL") = "1"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='FTML'"
    'Query.Open sql,Database
    'Application("FTML") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'发帖加魅力
	Application("FTML") = "5"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='HFML'"
    'Query.Open sql,Database
    'Application("HFML") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'回帖加魅力
	Application("HFML") = "1"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='STML'"
    'Query.Open sql,Database
    'Application("STML") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'删帖减魅力
	Application("STML") = "10"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='FTJQ'"
    'Query.Open sql,Database
    'Application("FTJQ") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'发帖加金钱
	Application("FTJQ") = "30"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='HFJQ'"
    'Query.Open sql,Database
    'Application("HFJQ") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'回帖加金钱
	Application("HFJQ") = "10"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='FTJY'"
    'Query.Open sql,Database
    'Application("FTJY") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'发帖加经验
	Application("FTJY") = "5"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='HFJY'"
    'Query.Open sql,Database
    'Application("HFJY") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'回帖加经验
	Application("HFJY") = "1"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='TLJY'"
    'Query.Open sql,Database
    'Application("TLJY") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'停留大于设定时间增加经验
	'Application("TLJY") = "1"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='FTZSTL'"
    'Query.Open sql,Database
    'Application("FTZSTL") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'发帖所需最少体力
	Application("FTZSTL") = "30"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='HFZSTL'"
    'Query.Open sql,Database
    'Application("HFZSTL") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'回帖所需最少体力
	Application("HFZSTL") = "20"
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select VAL from INI where TYPE='FTZSML'"
    'Query.Open sql,Database
    'Application("FTZSML") = Query("VAL")
    'Query.Close
    'set Query = nothing
	'发帖所需最少魅力
	Application("FTZSML") = "-100"
    
   'set Query = Server.CreateObject("ADODB.Recordset")
   'sql = "select VAL from INI where TYPE='在线峰值'"