表单中所有内容都写到模块中，就是发布不成

yuqishange

求高手帮助

来源页部分代码

1. <form action="f_save.asp" method="post" enctype="multipart/form-data" name="form1">

复制代码

发表页部分代码

1. 
   
2. <!--#include file="../conn/upload_5xsoft.inc"-->
   
3. <!--#include file="../conn/conn.asp" -->
   
4. <%
   
5. function invertr(str)
   
6.     invertr=replace(replace(replace(replace(str,"<","＜"),">","＞"),chr(13),"<br>")," "," ")
   
7. end function
   
8. set upload=new upload_5xSoft ''建立上传对象
   
9.      '--------将日期转化成文件名--------
   
10. function MakedownName(x)
    
11. if x = "url-1" then
    
12.   getValue = upload.form("newsid-1")
    
13. elseif x = "url-2" then
    
14.   getValue = upload.form("newsid-2")
    
15. elseif x = "url-3" then
    
16.   getValue = upload.form("newsid-3")
    
17. elseif x = "url-4" then
    
18.   getValue = upload.form("newsid-4")
    
19. elseif x = "url-5" then
    
20.   getValue = upload.form("newsid-5")
    
21. elseif x = "url-6" then
    
22.   getValue = upload.form("newsid-6")
    
23. elseif x = "url-7" then
    
24.   getValue = upload.form("newsid-7")
    
25. elseif x = "url-8" then
    
26.   getValue = upload.form("newsid-8")
    
27. elseif x = "url-9" then
    
28.   getValue = upload.form("newsid-9")
    
29. elseif x = "url-10" then
    
30.   getValue = upload.form("newsid-10")
    
31. end if
    
32. makedownName=htmlencode2(getValue)
    
33. fileformat=lcase(right(makedownName,7))  '这里判断文件上传是否非法
    
34. if fileformat<>"code123" then
    
35. response.write"<script>alert('你的非法操作已经记录在案！')</script>"
    
36. response.end
    
37. end if
    
38. end function
    
39. 
    
40. s_fybh=upload.form("s_fybh")
    
41. s_jyfs=upload.form("s_jyfs")

复制代码

问题

1. 
   
2. 发布不成功
   
3. 我在发表页中加了一句
   
4. if s_jyfs<>"" then
   
5.     response.write "有"
   
6.     else     
   
7.     response.write "没有"
   
8. end if
   
9. 发现表单中的数据并没有提交

复制代码

求高手指点

[ 本帖最后由 yuqishange 于 2008-3-17 01:33 编辑 ]

fireye

用winsock截取数据包就行了,火车又不是ET.

沦陷今生