<%
''***************************************************************************/-->
Dim objConn
''**********************************************************************
DBBegin()
''<!--/*****************************************************************
''** 函数名:DBBegin
''** 输 入: 无
''** 输 出: ---无
''** 功能描述:数据库连接
''****************************************************************/-->
sub DBBegin()
On Error Resume Next
Set objConn = Server.CreateObject("ADODB.Connection")
'objConn.Open "DSN=nivs_data;uid=sa;pwd=nivs;database=data"
objConn.Open "Provider=SQLOLEDB;Server=(local);Database=data;UID=sa;PWD=nivs"
End sub
''<!--/*****************************************************************
''** 函数名:DBEnd
''** 输 入: 无
''** 输 出: ---无
''** 功能描述: 数据库断开连接
''****************************************************************/ -->
Sub DBEnd()
On Error Resume Next
objConn.Close
Set objConn = Nothing
End Sub
''<!--/*****************************************************************
''** 函数名:fInsert
''** 输 入: table,fields,values
''** table--- 表名
''** fields--- 字段名
''** 输 出: --- 无
''** 功能描述: 往指明的表里面插入记录
''****************************************************************/-->
Function fInsert(table,fields,values)
On Error Resume Next
Dim insStr
insStr = "insert into "&table&" ("&fields&") values ("&values&")"
objConn.execute(insStr)
'response.write(insStr)
'response.end
End Function
''<!--/*****************************************************************
''** 函数名:fUpdate
''** 输 入: table,fields,values,condition
''** table--- 表名
''** fields--- 字段名
''** values--- 值
''** condition--- 条件
''** 输 出: --- 无
''** 功能描述: 往指明的表里面插入记录
''****************************************************************/-->
Function fUpdate(table,fields,values,condition)
On Error Resume Next
Dim insStr,i
fields = split(fields,",")
values = split(values,",")
updStr = "update "&table&" Set "
for i = LBound(values) to UBound(values)
If i<>0 then updStr = updStr&","
updStr = updStr&fields(i)&" = "&values(i)
next
updStr = updStr&" where "&condition
objConn.execute(updStr)
End Function
''<!--/*****************************************************************
''** 函数名:fDelete
''** 输 入: table,condition
''** table--- 表名
''** condition--- 条件
''** 输 出: --- 无
''** 功能描述: 删除符合条件的记录
''****************************************************************/-->
Function fDelete(table,condition)
On Error Resume Next
Dim delStr
delStr = "delete from "&table&" where "&condition
objConn.execute(delStr)
End Function
''<!--/*****************************************************************
''** 函数名:fSelect
''** 输 入: table,fields,condition
''** table--- 表名
''** fields--- 字段名
''** condition--- 条件
''** 输 出: --- 查询记录集
''** 功能描述: 查询符合条件的记录集
''****************************************************************/-->
Function fSelect(table,fields,condition)
On Error Resume Next
Dim selStr
selStr = "select "&fields&" from "&table&" where "&condition
Set fSelect = Server.CreateObject("ADODB.RecordSet")
fSelect.open selStr,objConn,1,1
'response.Write(selStr)
'response.end
End Function
''<!--/*****************************************************************
''** 函数名:fClose
''** 输 入: --- objRS
''** objRS --- 输入的数据库连接对象或记录集
''** 输 出: --- 无
''** 功能描述: 回收资源
''****************************************************************/-->
Function fClose(objRS)
On Error Resume Next
Set objRS = Nothing
End Function
'============================================================
function pageinfo()
pageinfo = "共有<font class=""page_link"">"&icount&"</font>条记录 本页 <font class=""page_link"">"&ipagecurrent&"</font>/"&ipagecount&" 每页 "&maxperpage&" 条 "
end function
'============================================================
'翻页函数
function FY()
dim str_page1,str_page2,str_page3,str_page4,str_pagemenu
str_page1 = "首页 "
str_page2 = "上一页 "
str_page3 = "下一页 "
str_page4 = "尾页 "
if cint(ipagecurrent)>1 then
str_page1 = "<a href="""&url&"&page=1"">首页</a> "
str_page2 = "<a href="""&url&"&page="&ipagecurrent-1&""">上一页</a> "
end if
if Cint(ipagecount)>cint(ipagecurrent) then
str_page3 = "<a href="""&url&"&page="&ipagecurrent+1&""">下一页</a> "
str_page4 = "<a href="""&url&"&page="&ipagecount&""">尾页</a> "
end if
'------------------------------------------------------------------------
'通过下拉菜单进行翻页
str_pagemenu = " 跳转到:"
str_pagemenu = str_pagemenu&"<input id=""pagenum"" name=""pagenum"" type=""text"" class=""Bbutton""/> <input name="""" type=""button"" value=""go"" class=""Bbutton"" οnclick=""location='"&url&"&page='+document.getElementById('pagenum').value"" /></p>"
'------------------------------------------------------------------------
FY = "<div id=""page""><p id=""right"">"&str_page1&str_page2&str_page3&str_page4&str_pagemenu&pageinfo&"</div>"
end function
'============================================================
'翻页函数
function FY_shopping()
dim str_page1,str_page2,str_page3,str_page4,str_pagemenu
str_page1 = "首页 "
str_page2 = "上一页 "
str_page3 = "下一页 "
str_page4 = "尾页 "
if cint(ipagecurrent)>1 then
str_page1 = "<a href="""&url&"&page=1"">首页</a> "
str_page2 = "<a href="""&url&"&page="&ipagecurrent-1&""">上一页</a> "
end if
if Cint(ipagecount)>cint(ipagecurrent) then
str_page3 = "<a href="""&url&"&page="&ipagecurrent+1&""">下一页</a> "
str_page4 = "<a href="""&url&"&page="&ipagecount&""">尾页</a> "
end if
'------------------------------------------------------------------------
'通过下拉菜单进行翻页
str_pagemenu = " "
str_pagemenu = str_pagemenu&"<input id=""page_input"" name=""page_input"" type=""text"" class=""textbox"" size=""6"" /> <input name=""go"" id=""page_button"" type=""button"" class=""Bbutton"" value=""GO"" οnclick=""location='"&url&"&page='+document.getElementById('page_input').value"" /></p>"
'------------------------------------------------------------------------
FY_shopping = ""&str_page1&str_page2&str_page3&str_page4&str_pagemenu
end function
%>
''***************************************************************************/-->
Dim objConn
''**********************************************************************
DBBegin()
''<!--/*****************************************************************
''** 函数名:DBBegin
''** 输 入: 无
''** 输 出: ---无
''** 功能描述:数据库连接
''****************************************************************/-->
sub DBBegin()
On Error Resume Next
Set objConn = Server.CreateObject("ADODB.Connection")
'objConn.Open "DSN=nivs_data;uid=sa;pwd=nivs;database=data"
objConn.Open "Provider=SQLOLEDB;Server=(local);Database=data;UID=sa;PWD=nivs"
End sub
''<!--/*****************************************************************
''** 函数名:DBEnd
''** 输 入: 无
''** 输 出: ---无
''** 功能描述: 数据库断开连接
''****************************************************************/ -->
Sub DBEnd()
On Error Resume Next
objConn.Close
Set objConn = Nothing
End Sub
''<!--/*****************************************************************
''** 函数名:fInsert
''** 输 入: table,fields,values
''** table--- 表名
''** fields--- 字段名
''** 输 出: --- 无
''** 功能描述: 往指明的表里面插入记录
''****************************************************************/-->
Function fInsert(table,fields,values)
On Error Resume Next
Dim insStr
insStr = "insert into "&table&" ("&fields&") values ("&values&")"
objConn.execute(insStr)
'response.write(insStr)
'response.end
End Function
''<!--/*****************************************************************
''** 函数名:fUpdate
''** 输 入: table,fields,values,condition
''** table--- 表名
''** fields--- 字段名
''** values--- 值
''** condition--- 条件
''** 输 出: --- 无
''** 功能描述: 往指明的表里面插入记录
''****************************************************************/-->
Function fUpdate(table,fields,values,condition)
On Error Resume Next
Dim insStr,i
fields = split(fields,",")
values = split(values,",")
updStr = "update "&table&" Set "
for i = LBound(values) to UBound(values)
If i<>0 then updStr = updStr&","
updStr = updStr&fields(i)&" = "&values(i)
next
updStr = updStr&" where "&condition
objConn.execute(updStr)
End Function
''<!--/*****************************************************************
''** 函数名:fDelete
''** 输 入: table,condition
''** table--- 表名
''** condition--- 条件
''** 输 出: --- 无
''** 功能描述: 删除符合条件的记录
''****************************************************************/-->
Function fDelete(table,condition)
On Error Resume Next
Dim delStr
delStr = "delete from "&table&" where "&condition
objConn.execute(delStr)
End Function
''<!--/*****************************************************************
''** 函数名:fSelect
''** 输 入: table,fields,condition
''** table--- 表名
''** fields--- 字段名
''** condition--- 条件
''** 输 出: --- 查询记录集
''** 功能描述: 查询符合条件的记录集
''****************************************************************/-->
Function fSelect(table,fields,condition)
On Error Resume Next
Dim selStr
selStr = "select "&fields&" from "&table&" where "&condition
Set fSelect = Server.CreateObject("ADODB.RecordSet")
fSelect.open selStr,objConn,1,1
'response.Write(selStr)
'response.end
End Function
''<!--/*****************************************************************
''** 函数名:fClose
''** 输 入: --- objRS
''** objRS --- 输入的数据库连接对象或记录集
''** 输 出: --- 无
''** 功能描述: 回收资源
''****************************************************************/-->
Function fClose(objRS)
On Error Resume Next
Set objRS = Nothing
End Function
'============================================================
function pageinfo()
pageinfo = "共有<font class=""page_link"">"&icount&"</font>条记录 本页 <font class=""page_link"">"&ipagecurrent&"</font>/"&ipagecount&" 每页 "&maxperpage&" 条 "
end function
'============================================================
'翻页函数
function FY()
dim str_page1,str_page2,str_page3,str_page4,str_pagemenu
str_page1 = "首页 "
str_page2 = "上一页 "
str_page3 = "下一页 "
str_page4 = "尾页 "
if cint(ipagecurrent)>1 then
str_page1 = "<a href="""&url&"&page=1"">首页</a> "
str_page2 = "<a href="""&url&"&page="&ipagecurrent-1&""">上一页</a> "
end if
if Cint(ipagecount)>cint(ipagecurrent) then
str_page3 = "<a href="""&url&"&page="&ipagecurrent+1&""">下一页</a> "
str_page4 = "<a href="""&url&"&page="&ipagecount&""">尾页</a> "
end if
'------------------------------------------------------------------------
'通过下拉菜单进行翻页
str_pagemenu = " 跳转到:"
str_pagemenu = str_pagemenu&"<input id=""pagenum"" name=""pagenum"" type=""text"" class=""Bbutton""/> <input name="""" type=""button"" value=""go"" class=""Bbutton"" οnclick=""location='"&url&"&page='+document.getElementById('pagenum').value"" /></p>"
'------------------------------------------------------------------------
FY = "<div id=""page""><p id=""right"">"&str_page1&str_page2&str_page3&str_page4&str_pagemenu&pageinfo&"</div>"
end function
'============================================================
'翻页函数
function FY_shopping()
dim str_page1,str_page2,str_page3,str_page4,str_pagemenu
str_page1 = "首页 "
str_page2 = "上一页 "
str_page3 = "下一页 "
str_page4 = "尾页 "
if cint(ipagecurrent)>1 then
str_page1 = "<a href="""&url&"&page=1"">首页</a> "
str_page2 = "<a href="""&url&"&page="&ipagecurrent-1&""">上一页</a> "
end if
if Cint(ipagecount)>cint(ipagecurrent) then
str_page3 = "<a href="""&url&"&page="&ipagecurrent+1&""">下一页</a> "
str_page4 = "<a href="""&url&"&page="&ipagecount&""">尾页</a> "
end if
'------------------------------------------------------------------------
'通过下拉菜单进行翻页
str_pagemenu = " "
str_pagemenu = str_pagemenu&"<input id=""page_input"" name=""page_input"" type=""text"" class=""textbox"" size=""6"" /> <input name=""go"" id=""page_button"" type=""button"" class=""Bbutton"" value=""GO"" οnclick=""location='"&url&"&page='+document.getElementById('page_input').value"" /></p>"
'------------------------------------------------------------------------
FY_shopping = ""&str_page1&str_page2&str_page3&str_page4&str_pagemenu
end function
%>