<%
Option Explicit
Response.Buffer = True
On Error Resume Next
Dim StarTime,EndTime,Sql_Use,Conn,Db,ConnStr
Rem ##########################################################################
Rem ## 说明：本例中使用的数据库是动网论坛IP数据库 ##
Rem ## 如果不想更换可以自行从动网论坛中找。 ##
Rem ## 如果想更换数据库，那么你必须修改相应的SQL语句和其它参数 ##
Rem ## 发布的该文档中我将JS附加在下面了，并且去掉了CSS等，可自行添加啦！##
Rem ##########################################################################
StarTime = Timer()
'第一次使用请修改本处数据库地址并相应修改data目录中数据库名称
'Db = "DataBase/iXuEr_Data_PAMS1.mdb"
Db = "/DataBase/Ipaddress.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "The database connection error, please check the connection character string."
'Response.Write "数据库连接错误，请检查连接字符串。"
Response.End
End If
Function CloseDB()
Conn.close
Set Conn = Nothing
End Function
'=========================================================
' 文件：iXuEr_Data_PageShow
' 功能：将指定数据库的指定项目进行分页读取
' 时间：2004-08-29
' 作者：Guidy
' 版权：iXuEr Studio
'=========================================================
' Copyright (C) 2004-2006 114XP.CN All rights reserved.
' 官方网站：HTTP://www.114xp.cn
' 技术论坛：HTTP://bbs.114xp.cn
' 电子信箱：guidy@qq.com,guidy@psysch.com
'=========================================================
Dim SqlStr,DateNums,PageNums,URLs
SqlStr = "SELECT * FROM dv_address"
Conn = Conn
DateNums = 20
PageNums = Request("Page")
URLs = ""
'################################################################################
'使用之前需要预先定义这三个函数，根据自己适用情况而定
'################################################################################
Function iXuEr_Page_DHead()
Response.Write("<hr>表头<hr>")
End Function
'--------------------------------------------------------------------------------
Function iXuEr_Page_DBody(DPS_Rs)
Response.Write("数据：" & DPS_Rs("IP1") & "---" & DPS_Rs("IP2") & "---" & DPS_Rs("country") & "---" & DPS_Rs("city") & "<br>")
End Function
'--------------------------------------------------------------------------------
Function iXuEr_Page_DTail()
Response.Write("<hr>表尾<hr>")
End Function
'################################################################################
Call iXuEr_Data_PageShow(SqlStr,Conn,DateNums,PageNums,URLs)
'################################################################################
Function iXuEr_Data_P
Option Explicit
Response.Buffer = True
On Error Resume Next
Dim StarTime,EndTime,Sql_Use,Conn,Db,ConnStr
Rem ##########################################################################
Rem ## 说明：本例中使用的数据库是动网论坛IP数据库 ##
Rem ## 如果不想更换可以自行从动网论坛中找。 ##
Rem ## 如果想更换数据库，那么你必须修改相应的SQL语句和其它参数 ##
Rem ## 发布的该文档中我将JS附加在下面了，并且去掉了CSS等，可自行添加啦！##
Rem ##########################################################################
StarTime = Timer()
'第一次使用请修改本处数据库地址并相应修改data目录中数据库名称
'Db = "DataBase/iXuEr_Data_PAMS1.mdb"
Db = "/DataBase/Ipaddress.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "The database connection error, please check the connection character string."
'Response.Write "数据库连接错误，请检查连接字符串。"
Response.End
End If
Function CloseDB()
Conn.close
Set Conn = Nothing
End Function
'=========================================================
' 文件：iXuEr_Data_PageShow
' 功能：将指定数据库的指定项目进行分页读取
' 时间：2004-08-29
' 作者：Guidy
' 版权：iXuEr Studio
'=========================================================
' Copyright (C) 2004-2006 114XP.CN All rights reserved.
' 官方网站：HTTP://www.114xp.cn
' 技术论坛：HTTP://bbs.114xp.cn
' 电子信箱：guidy@qq.com,guidy@psysch.com
'=========================================================
Dim SqlStr,DateNums,PageNums,URLs
SqlStr = "SELECT * FROM dv_address"
Conn = Conn
DateNums = 20
PageNums = Request("Page")
URLs = ""
'################################################################################
'使用之前需要预先定义这三个函数，根据自己适用情况而定
'################################################################################
Function iXuEr_Page_DHead()
Response.Write("<hr>表头<hr>")
End Function
'--------------------------------------------------------------------------------
Function iXuEr_Page_DBody(DPS_Rs)
Response.Write("数据：" & DPS_Rs("IP1") & "---" & DPS_Rs("IP2") & "---" & DPS_Rs("country") & "---" & DPS_Rs("city") & "<br>")
End Function
'--------------------------------------------------------------------------------
Function iXuEr_Page_DTail()
Response.Write("<hr>表尾<hr>")
End Function
'################################################################################
Call iXuEr_Data_PageShow(SqlStr,Conn,DateNums,PageNums,URLs)
'################################################################################
Function iXuEr_Data_P
相关文章
 我来说两句 |
对此文章发表了评论 |
评论列表 （最新 评论仅限网友观点！）
推荐文章
