全部

Microsoft 专家。高手救命啊！！工作流的问题！！

jrf 2002-06-02 05:34:43

高手救命啊！！工作流的问题！！我在做工作流时，我配置是这样的
1：用了二台机子，一台安装有sql server2k,我把它作为主域服务器，
另一台安装有exchange2k,workflow desiger,office xp ,在ad 中我将设额外的域控制器加入到安有sql 2k 的机子，exchange2k机子也为域控制器加入到sql的机子主域
2：硬件配置，exchange 机子是1000m 的cpu ,392的内存，sql 机子为1000m cpu ,128m 内存，
3：我在做工作流时，用到数据库表，是用自定义架构做工作流的，在架构文件夹中有联到数据库的，

问题：我在运行数据库程序正常（非工作流，），但运行工作流的asp时却很能慢最后却显示，：windows 虚拟内存不足，需要增加虚拟内存页面大少，我加了没用，
高手们救命啊，这是什么原因，是不是我的机子配置不好吗，还是什么原因呢，？

...全文

8 点赞收藏 4

写回复

4 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

jrf 2002-06-02

if NOT RecDB.EOF then
Msg_ID=CINT(RecDB.Fields.Item("msg_id")) + 1
ELSE
Msg_ID=1
End if
%>
<input type=hidden name="msg_id" id="msg_id" value="<%if strtype="doit" then Response.Write cint(msg_id) else Response.Write RecEx.Fields("shwen:MSG_ID")%>">
<% RecDB.Close
Set RecDB=Nothing %>

</FORM>
</div>

<div id=content align=center width=100% height="100%" style="display:none" >
<div ID=inlinecontent>

</div>
<DIV id=chuli style="display:none">
<table width=100% height=100% cellpadding=0 cellspacing=0 Border=0 style="overflow:auto;">
<TR>
<td><label>选择流程：</label></td>
<td><label>选择部门：</label></td>
<td><label>用户列表：</label></td>
<td><label></label></td>
<td><label>选中用户：</label></td>
</TR>
<TR>
<% Dim State
if StrType= doit then
State="SWDJ"
else
State=RecEx.Fields("http://schemas.microsoft.com/cdo/workflow/currentstate")
end if
%>
<TD valign=top align=left>
<select name=FLOWSETUP style="width:120">
<%if state="SWDJ" then %>
<option value="SWSENDLEAD" >送局领导批阅</option>
<%elseif state="JLD" then%>
<option value="SWsendoffice"> 送办公室分办</OPTION>
<%elseif state="OFFICE" then%>
<option value="DOCUMENT">归档</option>
<option value="swsendlead1">送局分领导批办</option>
<%elseif state="JFLD" then%>
<option value="SWSENDDEPART">送科室承办</option>
<%elseif state="KSCP" then%>
<option value="swsendoffice1">送办公室归档</option>
<%else
end if %>
</select>
</TD>
<TD valign=top align=left>
<SELECT name=department onclick=subfilter() style="width:120">
</SELECT>
</TD>
<TD valign=top align=left>
<SELECT size=5 name=user style="width:120" >
</SELECT>
</TD>
<TD align=center>
<input type=button value="添加用户>>" onclick=subadditem() id=button1 name=button1>
<br>
<input type=button name=deletei value="<<删除用户" onclick="deleteitem()" >
</TD>
<TD width=30% align=left>
<select name="userarea" size=4 MULTIPLE style="width:120">
</select>
<INPUT TYPE=button VALUE="流程处理"onclick="f_command('SUBMIT')" name=save>
</TD>
</TR>
</TABLE>
</Div>
</TD>
</TR>
</Table>
</BODY>
</HTML>

回复赞

jrf 2002-06-02

<%
'***************************Exchange Code*************************************************
Dim RecEx
Dim CnnEX
Dim StrDataUrl

StrDataUrl = request.querystring("dataurl")
' Open a connection
Set CnnEx = CreateObject("adodb.connection")
With CnnEx
.Provider = "exoledb.datasource"
.Open strDataUrl
End With

' Open a Record on the item that triggered the form.
Set RecEx = server.CreateObject("adodb.record")
RecEx.Open strDataUrl,CnnEx, 3 'adModeReadWrite

'*****************************************************************************************
%>
<BODY style="overflow:auto;">
<TABLE width=100% height=100% cellpadding=0 cellspacing=0 Border=0 style="overflow:auto;">
<TR>
<TD height=15px >
<DIV ID=NEWCONTENT >
<%If StrType="doit" then%><IMG tabindex=2 id="filecontent" src="../Image/addfile.gif" onmouseover="this.src='../Image/addfile_ov.gif'" style="cursor:hand;" Title = "插入文件" onmouseout="this.src='../Image/addfile.gif'" onclick="f_command('ATTACH')" align=absmiddle border="0"><%
%><%else%><%%><Img tabindex=2 id="content" src="../Image/content.gif" onmouseover="this.src='../Image/content_ov.gif'" onmouseout="this.src=../Image/content.gif" style="cursor:hand;"Title="正文"onclick="f_command('CONTENT')"><%END IF%><%
%><IMG tabindex=2 id="table" src="../Image/ChuliDan.gif" style="cursor:hand;" Title = "处理单" onmouseover="this.src='../Image/ChuliDan_ov.gif'" onmouseout="this.src='../image/ChuliDan.gif'" onclick="f_command('CHDL')" align=absmiddle border="0"><%
%><IMG tabindex=2 id="end" src="../Image/chuliover.gif" style="cursor:hand;" Title = "处理结束" onmouseover="this.src='../image/chuliover_ov.gif'" onmouseout="this.src='../image/chuliover.gif'" onclick="f_command('CHEND')" align=absmiddle border="0"><%
%><IMG tabindex=2 id="close" src="../image/vote_close.jpg" style="cursor:hand;" Title="关闭" onmouseover="../image/vote_close_ov.jpg" onmouseout="../image/vote_close.jpg" onclick="f_command('EXIT')">
</DIV>
</TD>
</TR>

<TR>
<TD height="*" valign=top>
<div id="main" align=center style="overflow:auto;">
<div id=form >
<FORM action="<%=strDataUrl%>?cmd=save" method=POST id=form1 name=form1>
<INPUT type=hidden name="attfileurl" id="attfileurl" value=""style="display:none">
<INput type=hidden name="attfilename" id="attfilename" value="" style="display:none">
<input type=hidden name="doing_username" id="doing_username" value="" style="display:none">
<input type=hidden name= "doing_user_id" id="doing_user_id" value="" style="display:none">
<input type=hidden name="send_username" id="send_username" value="<%=Session("User_Name")%>" style="display:none">
<input type=hidden name="send_user_id" id="send_user_id" value="<%=Session("User_ID")%>" style="display:none">
<input type=hidden name="send_time" id="send_time" value="" style="display:none">
<input type=hidden name="SendFlow" id="SendFlow" value="" style="display:none">
<%
on error resume next
Dim RecDB
Dim SqlDB
Dim Msg_id

set RecDB=Server.CreateObject("ADODB.Recordset")
SQLDB="SELECT MAX(MSG_ID) as msg_id From workflow_startinfo where workflow_name='收文管理'"
RecDB.Open SQLDB,ConnDB

回复赞

jrf 2002-06-02

你好轻骑（scgqq）:我现把程序给张贴出来，你帮我看一下，程序会不会产生造成存不足呢？
'联接数据库
 '为对数据库操作function
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>新增编辑</title>
<base href=<%=request.querystring("formurl")%>>
</head>
<%'**************************************************************************************
Dim StrType
Dim FlowName
StrType =Request.QueryString("type")
Response.Write StrType

Function AddQuotes(strValue)
' Given a string, wrap it in quotes, doubling
' any quotes within the string.

Const QUOTE = """"
AddQuotes = _
QUOTE _
& Replace(strValue, QUOTE, QUOTE & QUOTE) _
& QUOTE
End Function

' FlowName =Request.QueryString("FlowName")
%>
<SCRIPT LANGUAGE=javascript>

</SCRIPT>

回复赞