在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000850 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章

用纯API函数做焦点矩形

用纯API函数实现BMP图像的显示

ASP与存储过程

自己做的一个数据库添加函数!

一个Jsp初学者的学习过程(一)

SQL Server的存储过程调用Com组件

信使服务增强工具

[分享]获取上(下)一条记录ID号

Serv-U软件密码加密函数

在ASP.NET中处理datetime的一些通用函数(VB)
发表文章
[分享]自动记录操作日志

作者:sandy_jay     提交人:sandy_jay     发布时间:04-11-29     文章类型:原创     浏览量:2675
参考链结:http://    
关键字:函数|过程|记录操作日志
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000850]

以前为一个后台写的记录操作日志的函数集,重新整理了一下,有什么错误希望大家指正。
<%
使用时,调用过程 SaveOperateLog 即可。

'the prefix of table name or field name
'CONST TbOrTfPrefix = "urprog"
Dim TbOrTfPrefix : TbOrTfPrefix = "urprog"

Sub SaveOperateLog(objConn,strTableName,id,strOperateType)
  On Error Resume Next
  '检查日志表是否存在
  Dim strLogTableName : strLogTableName = strTableName & LCase("_"&TbOrTfPrefix&"_log")
  Dim intCheckTable : intCheckTable = CheckTablexists(objConn,strLogTableName)
  '创建日志表
  If intCheckTable <> 1 Then
    Call CreateLogTable(objConn,strTableName,strLogTableName)
  End If
  '添加操作日志
  Call AddOperateLog(objConn,strTableName,strLogTableName,id,strOperateType)
End Sub

'check table exists
Function CheckTablexists(objConn,strTableName)
  On Error Resume Next
  Err.Clear
  CheckTablexists = 0
  Dim objRs
  Set objRs = objConn.OpenSchema(20)
  If Err.Number <> 0 Then
    CheckTablexists = 0
    Exit Function
  End If
  Do While Not objRs.EOF
    If objRs("TABLE_TYPE")="TABLE" Then
      If objRs("TABLE_NAME") = strTableName Then
      CheckTablexists = 1
      Exit Do
      End If
    End If
  objRs.MoveNext
  Loop
  Call CloseRecordSet(objRs)
End Function

'create log table
Sub CreateLogTable(objConn,strTableName,strLogTableName)
  On Error Resume Next
  Dim sSQL : sSQL = "SELECT 1 as src_id,* INTO [dbo]."&strLogTableName&" FROM "&strTableName&" WHERE 1<>1" + Chr(13)
  sSQL = sSQL + "ALTER TABLE "&strLogTableName&" DROP COLUMN id" + Chr(13)
  sSQL = sSQL + "ALTER TABLE "&strLogTableName&" ALTER COLUMN src_id INT NULL" + Chr(13)
  sSQL = sSQL + "ALTER TABLE "&strLogTableName&" ADD "&TbOrTfPrefix&"_operator VARCHAR(30) NULL" + Chr(13)
  sSQL = sSQL + "ALTER TABLE "&strLogTableName&" ADD "&TbOrTfPrefix&"_operatetime DATETIME NULL CONSTRAINT DF_"&strLogTableName&"_operatetime DEFAULT getdate() WITH VALUES"
  Err.Clear
  objConn.BeginTrans
  objConn.Execute(sSQL)
  If Err.Number <> 0 Then
    objConn.RollBackTrans
    Call ShowAlertMessage("","<li>创建日志表失败,操作取消。</li><li>请和系统管理员联系。</li>")
    Call CloseConn(objConn)
    Response.End
  Else
    objConn.CommitTrans
  End If
End Sub

'add operate log
Sub AddOperateLog(objConn,strTableName,strLogTableName,ids,strOperateType)
  On Error Resume Next
  Dim strSQLTemp
  If strOperateType = "update" Then
    strSQLTemp = "updated by "&Session("admin")
  Else
    strSQLTemp = "deleted by "&Session("admin")
  End If
  Dim strSql : strSql = "INSERT INTO "&strLogTableName&" SELECT *,'"&strSQLTemp&"' AS operator,getdate() AS operatetime FROM "&strTableName&" WHERE id in("&ids&")"
  Err.Clear
  objConn.BeginTrans
  objConn.Execute(strSql)
  If Err.Number <> 0 Then
    objConn.RollBackTrans
    Call ShowAlertMessage("","<li>操作日志记录失败,操作取消。</li><li>请和系统管理员联系。</li>")
    Call CloseConn(objConn)
    Response.End
  Else
    objConn.CommitTrans
  End If                       
End Sub
%>

关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
firefly        2004/11/30 14:40:00
:)
原创,好噢~~
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2021 Yup Studio, all rights reserved.  
171.875