boardupdate.asp

一个企业使用的OA系统,用VB开发,效果不错

<%@ TRANSACTION = Required LANGUAGE="VBSCRIPT" %>
<%  Response.Buffer = TRUE %>
<!--#include file="../inc/CheckUser.inc"-->
<%
sql="select Name from EmployeeDefine Where Email='" & Session("User") & "'"
'Response.Write sql
Set RS=Server.CreateObject("ADODB.RecordSet")
Rs.Open sql,Session("RiseManager_ConnectionString"),3,1
If Not (RS.EOF And RS.BOF ) Then
	UserName=Rs("Name")
End If
Rs.Close 
sql="select * from boarddept"
RS.open sql,Session("RiseInfo_ConnectionString") ,1,3
RS.Addnew
RS("Title")=Request("Title")
RS("Content")=Request("Content")
RS("IssueUser")=UserName
RS("Date")=NOW
rs("department_id")=Session("dept_Id")
RS.update
RS.close
Set Rs=Nothing
If Err.Number=0 Then
	Response.Redirect("BoardFrame.asp")	
End IF
Sub OnTransactionAbort()
	If Err.Number <> 0 Then
           Response.Clear()
           errmsg = "错误代码:" + CStr(Err.Number) + """" + " + Chr(13) + Chr(10) + " + """"
           errmsg = errmsg + "错误描述:" + CStr(Err.Description) + """" + " + Chr(13) + Chr(10) + " + """"
           errmsg = errmsg + "错误源:" + CStr(Err.Source)
%>
           <SCRIPT LANGUAGE="VBScript">
                   Msgbox("<%=errmsg%>")
					window.location="BoardFrame.asp"
           </SCRIPT>
<%
        End If
    End sub
%>