<%
''***************************************************************************/-->
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&" 每页&nbsp;"&maxperpage&"&nbsp;条&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
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""/>&nbsp;&nbsp;<input name="""" type=""button"" value=""go""  class=""Bbutton"" onclick=""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"" />&nbsp;&nbsp;<input name=""go"" id=""page_button"" type=""button""  class=""Bbutton"" value=""GO"" onclick=""location='"&url&"&page='+document.getElementById('page_input').value"" /></p>"
 '------------------------------------------------------------------------
 FY_shopping = ""&str_page1&str_page2&str_page3&str_page4&str_pagemenu
end function
%> 

发表于 @ 2006年08月23日　17:14:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:XMLHTTP生成静态文件! | 新一篇:JS调用数据库内容二级联动