表单中所有内容都写到模块中，就是发布不成
求高手帮助来源页部分代码 <form action="f_save.asp" method="post" enctype="multipart/form-data" name="form1">
发表页部分代码
<!--#include file="../conn/upload_5xsoft.inc"-->
<!--#include file="../conn/conn.asp" -->
<%
function invertr(str)
invertr=replace(replace(replace(replace(str,"<","＜"),">","＞"),chr(13),"<br>")," "," ")
end function
set upload=new upload_5xSoft ''建立上传对象
'--------将日期转化成文件名--------
function MakedownName(x)
if x = "url-1" then
getValue = upload.form("newsid-1")
elseif x = "url-2" then
getValue = upload.form("newsid-2")
elseif x = "url-3" then
getValue = upload.form("newsid-3")
elseif x = "url-4" then
getValue = upload.form("newsid-4")
elseif x = "url-5" then
getValue = upload.form("newsid-5")
elseif x = "url-6" then
getValue = upload.form("newsid-6")
elseif x = "url-7" then
getValue = upload.form("newsid-7")
elseif x = "url-8" then
getValue = upload.form("newsid-8")
elseif x = "url-9" then
getValue = upload.form("newsid-9")
elseif x = "url-10" then
getValue = upload.form("newsid-10")
end if
makedownName=htmlencode2(getValue)
fileformat=lcase(right(makedownName,7))'这里判断文件上传是否非法
if fileformat<>"code123" then
response.write"<script>alert('你的非法操作已经记录在案！')</script>"
response.end
end if
end function
s_fybh=upload.form("s_fybh")
s_jyfs=upload.form("s_jyfs")
问题
发布不成功
我在发表页中加了一句
if s_jyfs<>"" then
response.write "有"
else
response.write "没有"
end if
发现表单中的数据并没有提交求高手指点
[ 本帖最后由 yuqishange 于 2008-3-17 01:33 编辑 ] 用winsock截取数据包就行了,火车又不是ET. :lol :lol :lol
页:
[1]