conn.asp

爱情许愿墙

<%@language=vbscript codepage=936%>
<%
response.buffer=True
'****************************************************************
'** 程序: KuKoo LoveWall 		  最后修改日期: 2007.6.29
'** 作者: Anthony	主页：www.KuKoo.Net	邮箱: [e-mail]
'** 版权: Powered by KuKoo.Net 和本注释必须保留;基于此程序修改须注明!
'** Copyright (c) 2007 www.KuKoo.Net All Rights Reserved. 
'****************************************************************

Dim db
	db="\lovewall\#KuKooLoveWall.asp"	'数据库路径
Dim conn
	Set conn=server.CreateObject("ADODB.CONNECTION")
	conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	
Sql="Select * From Kukoo_Config Where Kukoo_ConfigID=1"
Set Rs=Conn.execute(sql)
alert_url=Rs("alert_url")
Kukoo_WishName=Rs("Kukoo_WishName")
Kukoo_Version=Rs("Kukoo_Version")
KuKoo_Programmer1=Rs("KuKoo_Programmer1")
KuKoo_Programmer2=Rs("KuKoo_Programmer2")
KuKoo_QQ=Rs("KuKoo_QQ")
KuKoo_BBS=Rs("KuKoo_BBS")
KuKoo_Email=Rs("KuKoo_Email")
KuKoo_Site=Rs("KuKoo_Site")
Bottom=Rs("Bottom")
Kukoo_KeyWord=Rs("Kukoo_KeyWord")
Kukoo_Descrip=Rs("Kukoo_Descrip")
Kukoo_IndexNum=Rs("Kukoo_IndexNum")
Kukoo_WishPage=Rs("Kukoo_WishPage")
Badwords=Rs("Badwords")
seconds=Rs("seconds")
ad=Rs("ad")
Kukoo_Reserve=Rs("Kukoo_Reserve")
rs.close:set rs=nothing

sub ConnClose()
    If IsObject(Conn) Then
		Conn.Close
		Set Conn = Nothing
	End if
end sub

Public Function Checkstr(Str)
	If Isnull(Str) Then
		CheckStr = ""
		Exit Function 
	End If
	CheckStr = Replace(Str,"'","''")
End Function

function getFrom(ip)
	dim arr,num, sqlip, rsip
	arr=split(ip,".")
	if ip="" or ubound(arr)<>3 then
		getFrom=""
		exit function
	end if
	num=int(arr(0))*16777216+int(arr(1))*65536+int(arr(2))*256+int(arr(3))-1
	sqlip="select top 1 country,city from address where ip1<="&num&" and ip2>="&num
	set rsip=conn.execute(sqlip)
	if not rsip.eof then
		getFrom=rsip(0)&rsip(1)
	end if
	rsip.close
	set rsip=nothing
end function
%>