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 %>
<!--#include file="SW.htm"-->
</FORM>
</div>

<div id=content align=center width=100% height="100%" style="display:none" >
<div ID=inlinecontent>
<!-- 附件
<%
Set obj = Server.CreateObject("LyfUpload.UploadFile")
ss=obj.SaveFile("file1", "E:\Samples\shwen\",true) '保存文件到服务器
aa=obj.filetype("file1")

if ss<> "" then
Response.Write(ss)
Response.Redirect "Upl1.asp?filename="&ss&""
end if%>


<FORM action="UP1.ASP" enctype="multipart/form-data" method=POST id= formatt name=formatt>
选择文件:<input type="file" name="file1"><br>
<input type="submit" value="上载" style="background-color: rgb(0,0,255); color: rgb(255,255,0)" >
</FORM>
<% dim filename
filename=Request("filename")
strPathInfo = Request.ServerVariables("PATH_INFO")
strPathInfo = Left(strPathInfo,InstrRev(strPathInfo,"/"))
Response.Write "你已插入了文件:"&filename
if strType<>"doit" then
if filename="" then %>
<iframe id="iframecontent" src="..<%=strPathInfo%>shwen\<%=filename%>" width=100% height=100%></iframe>
<%end if
end if %>
</div>
-->
</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):我现把程序给张贴出来,你帮我看一下,程序会不会产生造成存不足呢?
<!--#include file="../include/OpenDB.inc"-->'联接数据库
<!--#include file="../include/generaldownlist.inc"--> '为对数据库操作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>
<!--
//处理视图,
function f_command(szAction){
switch(szAction.toUpperCase())
{
case 'ATTACH':
content.style.display='';
table.style.display='none';
chuli.style.display='none';
break;
case 'CONTENT':
content.style.display='';
table.style.display='none';
chuli.style.display='none';
break;
case 'CHEND':
chuli.style.display='';
content.style.display='none';
table.style.display='none';
break;
case 'CHDL':
table.style.display='';
content.style.display='none';
chuli.style.display='none';
break;
case 'EXIT':
if(!window.confirm('您确定要关闭当前的项目吗?')) return;
main.style.display='none';
window.history.back();
break;
case 'SUBMIT': //流程处理
// form1.elements('attfileurl').value =""
// form1.elements('attfilename').value=""
form1.elements('SendFlow').value =window.document.all("SendFlow").value
form1.elements('doing_user_id').value=window.document.all("userarea").options[0].value; //获取下一流程运转的用户ID
form1.elements('doing_username').value=window.document.all("userarea").options[0].text;//获取下一流程运转的用户名称
form1.elements('send_time').value=<%=Now%>
form1.submit();
default:
}
}
//-->
</SCRIPT>
回复
scgqq 2002-06-02
可能是你的程序问题,我记得storm(风暴不再)以前问过这个问题,你搜索一下问题,或者给他发短消息。
回复
相关推荐
发帖
消息协作
创建于2007-08-27

523

社区成员

企业开发 Exchange Server
申请成为版主
帖子事件
创建了帖子
2002-06-02 05:34
社区公告
暂无公告