传递问题
document.all("mainform").action="2.asp?pipe_num="+document.all("pipe_num").value"
为什么在2.asp中得到的 Request.QueryString("pipe_num")为空值?该如何办?
问题点数：20、回复次数：4Top
1 楼butcher2002（我又出来捣乱了）回复于 2005-01-07 11:34:03 得分 20
document.all("mainform").action="2.asp?pipe_num="+document.all("pipe_num").value
后面多了" ???
不行你就换
document.all.mainform.action="2.asp?pipe_num="+document.all.pipe_num.value 试下Top
2 楼taylermail（tayler）回复于 2005-01-07 11:41:34 得分 0
还是不行
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<link rel="stylesheet" type="text/css" href="style.css">
<title>主页</title>
</head>
<body>
<table border="0" width="100%">
<tr>
<td class="sub">图页面</td>
</tr>
<tr>
<td ><br>
</td>
</tr>
<form name="mainForm" enctype="multipart/form-data" action="2.asp" method=post>
<tr>
<tr><td class=class6>号：<input class=class1 type=text name=pipe_num></td>
</tr>
<tr><td class=class6>图： <input class=class1 type=file name=mefile size=50><BR><BR></td>
</tr>
<P>
<input class=class1 type=submit name=ok value="提交">
<input class=class1 type=reset name=reset value=重置> </P>
</form>
</table>
</center>
</BODY>
</HTML>
<script language=vbscript>
sub bb()
msgbox document.all ("mefile").value
word2=instrrev(document.all("mefile").value,"\")
word3=instrrev(document.all("mefile").value,".")
word4=mid(document.all("mefile").value,word2+1,word3-word2-1)
msgbox word4
end sub
function mainform_onsubmit()
if document.all("mefile").value="" then
msgbox "请选择dwf文件"
mainform_onsubmit=false
exit function
end if
if "mefile"="" then
msgbox "请选择dwf文件"
mainform_onsubmit=false
exit function
end if
word=right(document.all("mefile").value,3)
if word<>"dwf" then
msgbox "请输入dwf格式的文件"
mainform_onsubmit=false
exit function
end if
word2=instrrev(document.all("mefile").value,"\")
word3=instrrev(document.all("mefile").value,".")
word4=mid(document.all("mefile").value,word2+1,word3-word2-1)
document.all("pipe_num").value=pipe_num
'document.all("mainform").action="2.asp?pipe_num="+document.all("pipe_num").value"
document.all.("mainform").action="2.asp?pipe_num="+document.all.pipe_num.value
end function
</script>
Top
3 楼liujw（niuniu）回复于 2005-01-07 13:12:01 得分 0
multipart/form-data这种类型不能传送文本, 上传要用组件啊Top
4 楼taylermail（tayler）回复于 2005-01-07 13:43:12 得分 0
2.asp
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set connGraph=server.CreateObject("ADODB.connection")
connGraph.Open "driver={sql server};server=pw_wjs3\pw_wjs3;pwd=sa;uid=sa;database=lixz"
set rec=server.createobject("ADODB.recordset")
sqlstr="delete image where id=Request.QueryString("pipe_num")"
'Response.Write sqlstr
rec.Open sqlstr,conngraph,1,3
rec.Open "SELECT * FROM [image] ",connGraph,1,3
rec.addnew
rec("mefile").appendchunk mydata
rec("id")=Request.QueryString("pipe_num")
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%>Top
