自定义的日期函数包
2004-10-17 16:46
267 查看
| ||
DataBasePackage.asp(数据库函数包) | ||
<% '数据库操作函数包DatabasePackage 'conn.Open Driver & DBPath 'Set CreateExcelRecordset = Server.CreateObject("ADODB.Recordset") '打开Sheet,参数二为Connection对象,因为Excel ODBC驱动程序无法直接用‘sheet名来打开sheet,所以请注意以下的select语句 'CreateExcelRecordset.Open "Select * From ["&sheet&”$]”, conn, 2, 2 '********************** '目的:取得各种数据库连接字符串 '输入:数据库服务器名、数据库名、用户ID、密码 '输出:数据库连接字符串 '********************** Function GetConnStr(pServer,pDb,pId,pPwd,pType) Dim strConn strConn = "" if pType="SQLSERVER" then strConn = "Driver={SQL Server};Server=" & pServer & ";Database=" & pDb strConn = strConn & ";Uid=" & pId & ";Pwd=" & pPwd & ";" end if if pType="ACCESS" then strConn = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath(pDb) strConn = strConn & ";password=" & pPwd end if if pType="EXCEL" then strConn = "Driver={Microsoft Excel Driver (*.xls)};" & "DBQ=" & Server.MapPath(pDb) end if GetConnStr = strConn End Function '********************** '********************** '目的:返回客户名称 '输入:客户ID '输出:客户名称 '********************** Function GetCustomerName(ID) dim cn dim rs dim strSQL set cn=server.CreateObject("ADODB.Connection") set rs=server.CreateObject("ADODB.RecordSet") cn.Open Application("ConnStr") strSQL="select UserName fr c43d om P_User_Info where Id=" & ID rs.Open strSQL,cn if rs.EOF then GetCustomerName="" else GetCustomerName=rs("UserName") end if rs.Close cn.Close set rs=nothing set cn=nothing End Function '********************** '********************** '目的:判断表中某字段值是否已经存在 '输入:表名、字段名、关键字 '输出:true or false '********************** Function IsExist(TableName,FieldName,FieldValue) dim cn dim rs dim blnTemp dim strconn set cn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") strconn = GetConnStr(cnstDataSvr,cnstDataName,cnstUserId,cnstUserPwd,"SQLSERVER") cn.open strconn with rs .open "select " & FieldName & " from " & TableName & " where " & FieldName & "='" & FieldValue & "'",cn blnTemp = not .EOF .close end with cn.close set rs = nothing set cn = nothing IsExist = blnTemp End Function '********************** '********************** '目的:事务处理更新后台数据 '输入:SQL执行字符串和错误信息字符串 '输出:true or false '********************** Function ExecuteUpdate(strSQL) dim cn,strconn ExecuteUpdate = false set cn = server.CreateObject("ADODB.Connection") strconn = GetConnStr(cnstDataSvr,cnstDataName,cnstUserId,cnstUserPwd,"SQLSERVER") cn.open strconn on error resume next cn.begintrans cn.Execute strSQL if cn.errors.count>0 then cn.rollbacktrans else cn.committrans ExecuteUpdate = true end if cn.Close set cn = nothing End Function '********************** '********************** '目的:取字段预定义值 '输入:数据库连接,字段中文名,字段中文值 '输出:字符串 'ts_TypeColValue:字段预定义常数表 '********************** Function getFieldValue(pConn,pTable,pField,pValue) dim strSql,rstmp set rstmp = server.createobject("adodb.recordset") strSql = "select * from ts_TypeColValue where TableName=" & pTable strSql = strSql & " and ColCnNm=" & pField & "and TypeColName=" & pValue rstmp.open strSql,pConn,1,3 if rstmp.recordcount>0 then getFieldValue = rstmp("TypeColVal") else getFieldValue = "" end if rstmp.close set rstmp = nothing End Function '********************** 'DatabasePackage End %> | ||
AccessDbPackage.asp(ACCESS数据库访问函数包) | ||
<% 'ACCESS数据库操作函数包AccessDbPackage '************************* 'ACCESS数据库操作方法 '************************* function CreateDBfile(DbVer,SaveFileName) '建立数据库文件 'If DbVer is 0 Then Create Access97 dbFile 'If DbVer is 1 Then Create Access2000 dbFile On error resume Next If DbExists(FileName) Then %> <script language="javascript"> window.alert("对不起,该数据库已经存在!"); </script> <% CreateDBfile = False Else Dim Ca Set Ca = Server.CreateObject("ADOX.Catalog") If Err.number<>0 Then %> <script language="javascript"> window.alert("无法建立,请检查错误信息 " & Err.number & " " & Err.Description); </script> <% Err.Clear Exit function End If If DbVer=0 Then call Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & FileName) Else call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName) End If Set Ca = Nothing CreateDBfile = True End If End function function DbExists(dbPath) '查找数据库文件是否存在 On Error resume Next Dim c Set c = Server.CreateObject("ADODB.Connection") c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath If Err.number<>0 Then Err.Clear DbExists = false else DbExists = True End If set c = nothing End function 'AccessDbPackage End %> | ||
aspextend.asp(HTML扩展函数) | ||
<% 'ASP控件扩展函数包AspPackage '********************** '目的:判断两值相等,输出"selected",用于标志组合框项目被选中 '输入:参数一、参数二 '输出:"selected"或"" '********************** Function Selected(req,reqvalue) if req=reqvalue then selected=" selected" else selected="" end if End Function '********************** '********************** '目的:判断两值相等,输出"checked",用于标志复选框被选中 '输入:参数一、参数二 '输出:"checked"或"" '********************** Function Checked(req,reqvalue) if req=reqvalue then checked=" checked" else checked="" end if End Function '********************** '********************************* '符合条件背景置色(历史数据,custid>=10000000) '********************************* Function SetBackColor(req,reqvalue,dfaultcolor,color) If req>=reqvalue Then SetBackColor=color Else SetBackColor=dfaultcolor End if End Function '********************************* '********************************* '符合条件背景置色(区分打印非打印记录) '********************************* Function SetPrintColor(req,reqvalue,dfaultcolor,color) If req>=reqvalue Then SetPrintColor=color Else SetPrintColor=dfaultcolor End if End Function '********************************* 'AspPackage End %> |
相关文章推荐
- sql自定义日期函数,返回范围内日期和星期数表。
- Unity NGUI UIPanel下对粒子或自定义Mesh的剪裁
- spark自定义Accumulator高级应用(JAVA)
- ASP.NET 自定义服务器控件
- maven自定义插件 jenkis打包 jar包版本校验dependency-check-plugin:check
- java POI实现Excel单元格自定义颜色
- [C/C++]map自定义比较函数
- robot framework 自定义关键字详细过程及debug。
- C语言中的自定义函数
- NavigationView自定义
- Cordova3.X 运用grunt生成plugin自定义插件骨架
- lua的时间和日期函数
- QuickXDev增强功能:用户自定义变量、函数自动完成提示及转到定义
- Android 自定义View (一)
- Mysql日期函数,时间函数使用的总结
- WPF 自定义滚动条样式
- 一个相当好的自定义标签---分页
- Cacti 显示自定义的 SNMP 数据
- C++中对hash_map自定义哈希函数和比较函数的理解
- PHP-应用数据库保存自定义SESSION