[求助]看看下面错误在那里 - ASP技术论坛

问题点数：0 回复次数：0

[求助]看看下面错误在那里

<%Server.ScriptTimeOut=5000%>

<% dim nl
set nl=server.CreateObject("lw.nl")
%>

<%
'fwtitle=request.Form("text2")
if session("uduty")<2 then'访问权限
Response.Redirect("nopower.htm")
end if
dim upload,file,formName,formPath,iCount
'兼容原无组件上传所有参数，只要修改控件声明就可以直接使用

Set upload=Server.CreateObject("lw.up")

'model=obj.form("text1")
fwtitle=trim(upload.form("text2"))'主旨
fwcontent=upload.form("textarea1")'说明
'session("model")=model
session("fwtitle")=fwtitle
session("fwcontent")=fwcontent
'filecount=obj.Count'上传文件个数
'Response.Write "filecount=" & filecount & "<br>"
session("filecount")=filecount

'*******************************************************
fwdate=year(session("fwdate")) & "-" 'build format of date and fwno
if len(month(session("fwdate")))=1 then
fwdate=fwdate & "0" & month(session("fwdate")) & "-"
else
fwdate=fwdate & month(session("fwdate")) & "-"
end if
if len(day(session("fwdate")))=1 then
fwdate=fwdate & "0" & day(session("fwdate"))
else
fwdate=fwdate & day(session("fwdate"))
end if
fwno=session("fwno")
%>
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>
<!--
a:link { color: #666666; text-decoration: none}

a:visited { color: #666666; text-decoration: none}

a:hover { color: #FF0033; text-decoration: underline}
td { font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 10pt;color:#666666;font-weight:bold;}
-->
</STYLE>
<TITLE></TITLE>

</HEAD>
<body bgcolor="" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="628" border="0" cellspacing="0" cellpadding="0" leftmargin="0">
<tr>
<td><img width="30" height="40" src="img/index01.gif"></td>
<td><img width="600" height="40" src="img/index02.gif"></td>
</tr>
<tr>
<td width="10" background="img/index03.gif" height="310"></td>
<td align=center width=560 height="260">


<table width="560" border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td><img width="20" height="22" src="img/index_07.gif"></td>
<td width="520" height="22" background="img/index_09.gif" align=center valign="bottom"><FONT style="font-size:11pt" color=#FFFFFF>：：请确认您所输入的信息-----通知单号码：<b><font style="font-size:10pt" ><%=fwno%></font></b></font></td>
<td width="20" height="22" background="img/index_08.gif"></td>
</tr>
<tr>
<td width=19 background="img/index_14.gif" height=300></td>

<td width=520 background="img/bg11.jpg" align=center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="80%">
<TR height=20 valign=middle>
<TD colspan=2 align=center width=460>
<FONT style="FONT-SIZE: 16pt">冠捷电子（福建）有限公司</font><br>
<FONT style="FONT-SIZE: 12pt">(内部发文)</FONT></TD>
</TR>
<tr height=20 valign=middle>
<td align=left width="50%">发文日期:<%=fwdate%></td>
<td align=left width="50%">拟 稿 人:<%=session("uname")%></td>
</tr>
<tr height=20 valign=middle>
<td align=left width="50%">发文编号:<%=fwno%></td>
<td align=left width="50%">审 稿 人:</td>
</tr>
<TR height=20 valign=middle>
<TD align=left width="50%">发文单位:
<%if session("udep")=session("fwsection") then '带课
Response.Write session("udep")
else
Response.Write session("udep") & "-" & session("fwsection")
end if%></TD>
<TD align=left width="50%">会稿单位:
<%if session("fwtype")=2 then Response.Write session("hqdep")%></TD>
</TR>
<TR height=20 valign=middle>
<TD align=left width="50%">收文单位:<%=session("swdep")%></TD>
<td align=left width="50%">会 稿 人:</td>
</TR>
<TR height=20 valign=middle>
<TD align=left width="50%">呈    送:<%=session("sendto")%></TD>
<td align=left width="50%">核    准:</td>
</tr>
<TR height=20 valign=middle>
<TD align=left>抄    送:<%=session("copyto")%></TD>
</tr>
<TR height=20 valign=middle>
<TD colspan=2 align=left>主    题:<%=fwtitle%></TD>
</TR>
<TR>
<TD colspan=2 align=left width=80%>(正    文)<br>
<%
do while instr(fwcontent,chr(32))<>0'chr(32)==空格
leng=instr(fwcontent,chr(32))
constr=left(fwcontent,leng-1)&" "
constr=constr&right(fwcontent,len(fwcontent)-leng)
fwcontent=constr
loop
do while instr(fwcontent,(chr(13)&chr(10)))<>0'chr(13),chr(10)回车
leng=instr(fwcontent,(chr(13)&chr(10)))
constr=left(fwcontent,leng-1)&"<br>"
constr=constr & right(fwcontent,len(fwcontent)-leng-1)
fwcontent=constr
loop
Response.Write "       "&fwcontent & "<br><br>"
%></TD>
</TR>
<% for i=1 to 4 %>
<TR height=20 valign=middle>
<TD colspan=2 align=left>附  件 <%
iCount=0
for each formName in upload.File ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveFile Server.mappath(formPath&file.FileName) ''保存文件
response.write file.FilePath&file.FileName&"<br>"
iCount=iCount+1
end if
set file=nothing

'file 属性项目
'文件名; file.FileName
'文件路径; file.FilePath
'文件扩展名;file.FileExt
'文件类型; file.FileType
'文件大小; file.FileSize

next

set upload=nothing ''删除此对象
%></TD>
</TR>
<% next %>
<tr>
<td align=right><INPUT type="button" value="确认发布" id=button1 name=button1 onclick=submit()>    </td>
<td align=left>    <INPUT type="button" value="取消" id=button1 name=button1 onclick=fwcancel()> </td>
</tr>
</TABLE>
<td width=20 background="img/index_141.gif" height=240></td>
</tr>
</table>
</BODY>
<script language=vbscript>
sub submit()
location.href="fwxd5.asp?command=1"
end sub
sub fwcancel()
cc=msgbox("请确认是否要清除您所添的信息?",4)
if cc=6 then '选Y进行提交
location.href="fwxd5.asp?command=0"
end if
end sub
</script>
</HTML>