conn.asp

用VB+JAVASCRIPT开发的一个仿QQ爱墙软件

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

Dim db
	db="\lovewall\#HX33LoveWall.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 HX33_Config Where HX33_ConfigID=1"
Set Rs=Conn.execute(sql)
alert_url=Rs("alert_url")
HX33_WishName=Rs("HX33_WishName")
HX33_Version=Rs("HX33_Version")
HX33_Programmer1=Rs("HX33_Programmer1")
HX33_Programmer2=Rs("HX33_Programmer2")
HX33_QQ=Rs("HX33_QQ")
HX33_BBS=Rs("HX33_BBS")
HX33_Email=Rs("HX33_Email")
HX33_Site=Rs("HX33_Site")
Bottom=Rs("Bottom")
HX33_KeyWord=Rs("HX33_KeyWord")
HX33_Descrip=Rs("HX33_Descrip")
HX33_IndexNum=Rs("HX33_IndexNum")
HX33_WishPage=Rs("HX33_WishPage")
Badwords=Rs("Badwords")
seconds=Rs("seconds")
ad=Rs("ad")
HX33_Reserve=Rs("HX33_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
%>