conn.asp

于毕业设计与论文以及做课题用-MSK Simulink simulation program for the design and graduation thesis topic, and makin

<%@language=vbscript codepage=936%>
<%
response.buffer=True

Dim db
	db="#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
%>