asp如何接收post表单

<form name="form1" action="sendasp" method="post">

</form>

这里考虑两种情况。因为大多数用户asp和aspnet统称为asp，这是不正确的，asp和 aspnet这是两种完全不同开发语言。

针对asp

如果是asp接收的话，直接在处理程序中

post提交方式用requestform['表单名']来接收

get提交方式用reuestquerystring['表单名']来接收

如：dim name

     name = requestform["name"]

或    name = requestquerystring['name']

针对aspnet

aspnet来接收的话，又要考虑是用普通的html方式还是服务器控件方式。

如果是html方式的话，那么和asp，前面讲的方式差不多。基本上是一样的。

如果采用的是服务器控件。那么直接可以接收，可以不用request对象

如：

<asp:Text ID="Name"></asp:Text>

可以提交按钮的事件中直接用string name = NameText即可。

<%

'以下为修改内容

Const UploadDir="/picture/" '存放文件的目录

Const Up="/picture/" '存放文件的目录

Const MaxPerPage=30 '每页显示数量

const Webpage="时尚网页" '标题

'检查组件是否已经安装

Function IsObjInstalled(strClassString)

IsObjInstalled = False

Err = 0

Dim xTestObj

Set xTestObj = ServerCreateObject(strClassString)

If 0 = Err Then IsObjInstalled = True

Set xTestObj = Nothing

Err = 0

End Function

dim strFileName

dim totalPut,CurrentPage,TotalPages

dim TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize

strFileName=""

if request("page")<>"" then

currentPage=cint(request("page"))

else

currentPage=1

end if

TruePath=ServerMapPath(UploadDir)

If not IsObjInstalled("ScriptingFileSystemObject") Then

ResponseWrite "<b><font color=red>你的服务器不支持 FSO(ScriptingFileSystemObject)! 不能使用本功能</font></b>"

Else

set fso=CreateObject("ScriptingFileSystemObject")

if fsoFolderExists(TruePath)then

FileCount=0

TotleSize=0

Set theFolder=fsoGetFolder(TruePath)

For Each theFile In theFolderFiles

FileCount=FileCount+1

TotleSize=TotleSize+theFileSize

next

totalPut=FileCount

if currentpage<1 then

currentpage=1

end if

if (currentpage-1)MaxPerPage>totalput then

if (totalPut mod MaxPerPage)=0 then

currentpage= totalPut \ MaxPerPage

else

currentpage= totalPut \ MaxPerPage + 1

end if

end if

if currentPage=1 then

showContent

showpage2 strFileName,totalput,MaxPerPage

responsewrite "<br><div align='center'>本页共显示 <b>" & FileCount-1 & "</b> 个，占用 <b>" & TotleSize\1024 & "</b> K</div>"

else

if (currentPage-1)MaxPerPage<totalPut then

showContent

showpage2 strFileName,totalput,MaxPerPage

responsewrite "<br><div align='center'>本页共显示 <b>" & FileCount-1 & "</b> 个，占用 <b>" & TotleSize\1024 & "</b> K</div>"

else

currentPage=1

showContent

showpage2 strFileName,totalput,MaxPerPage

responsewrite "<br><div align='center'>本页共显示 <b>" & FileCount-1 & "</b> 个，占用 <b>" & TotleSize\1024 & "</b> K</div><br><br>"

end if

end if

else

responsewrite "找不到文件夹！可能是配置有误！"

end if

end if

sub showContent()

dim c

FileCount=1

TotleSize=0

%>

<TABLE cellSpacing=5 cellPadding=5 border=0>

<TBODY>

<TR bgColor=#ffffff>

<% For Each theFile In theFolderFiles

c=c+1

if FileCount>MaxPerPage then

exit for

elseif c>MaxPerPage(CurrentPage-1) then %>

<TD align=middle width="138">

<img src=<%=(UploadDir & theFileName)%> border=0><br>

<%

dim str

str=""&(theFileName)&""

str1=str

str2=str

str=replace(str,"jpg","")

if instr(1,str,"/")>0 then

str=split(str,"/")

str1=str(0)

end if

%><%=str%>

</td>

<% if FileCount mod 5 =0 then%>

</TR>

<TR bgColor=#ffffff>

<%end if%>

<% FileCount=FileCount+1

TotleSize=TotleSize+theFileSize

end if

Next

%>

</tr></TBODY></table>

<%

end sub

sub showpage2(sfilename,totalnumber,maxperpage)

dim n, i,strTemp

if totalnumber mod maxperpage=0 then

n= totalnumber \ maxperpage

else

n= totalnumber \ maxperpage+1

end if

strTemp= "<TABLE cellSpacing=1 cellPadding=1 border=0 align='center'><TR bgColor=#ffffff><form name='showpages' method='Post' action='" & sfilename & "'><td align='center'>"

strTemp=strTemp & "共 <b>" & totalnumber & "</b> 个 "

if CurrentPage<2 then

strTemp=strTemp & "首页 上一页 "

else

strTemp=strTemp & "<a href='" & sfilename & "page=1'>首页</a> "

strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage-1) & "'>上一页</a> "

end if

if n-currentpage<1 then

strTemp=strTemp & "下一页 尾页"

else

strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage+1) & "'>下一页</a> "

strTemp=strTemp & "<a href='" & sfilename & "page=" & n & "'>尾页</a>"

end if

strTemp=strTemp & " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "

strTemp=strTemp & " <b>" & maxperpage & "</b>" & "个/页"

strTemp=strTemp & " 转到：<select name='page' size='1' onchange='javascript:submit()'>"

for i = 1 to n

strTemp=strTemp & "<option value='" & i & "'"

if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "

strTemp=strTemp & ">第" & i & "页</option>"

next

strTemp=strTemp & "</select>"

strTemp=strTemp & "</td></form></tr></table>"

responsewrite strTemp

end sub

%>

<script language="jscript" runat="server">  

Arrayprototypeget = function(x) { return this[x]; };  

function parseJSON(strJSON) { return eval("(" + strJSON + ")"); }  

</script>  

<%  

Dim json, obj  

json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }, c:[""item0"", ""item1"", ""item2""]}"  

Set obj = parseJSON(json)    

ResponseWrite obja & "<br />"  '直接获取

ResponseWrite objbname & "<br />"  '获取指定key

ResponseWrite objclength & "<br />"  '获取条数

ResponseWrite objcget(0) & "<br />" 'C的第一条 

ResponseWrite objc & "<br />"  '获取全部

Set obj = Nothing  

%>

然后就是对应的更新到数据库就行了。

建议让JSON，整条的保存在数据库，取出来的时候这样解释就行了。。。

上传界面：

<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="border">

<form name="form1" method="post" action="upfilesasp" enctype="multipart/form-data">

<tr>

<td height="25" valign="middle" align="center" colspan="2" class="Title"><strong>批量上传产品</strong></td>

</tr>

<form name="form1" method="post" action="upfilesasp" enctype="multipart/form-data">

<tr class=CommonListTitle height="25" bgcolor="#eeeeee">

<td height="22" align="center" valign="middle" class="tdbg"> 文件上传

<input type="hidden" name="act" value="upload">

(提交后请稍等!)</td>

</tr>

<tr c>

<td height="22" align="center" valign="middle" class="tdbg">

<script language="javascript">

function setid()

{

str='<br>';

if(!windowform1upcountvalue)

windowform1upcountvalue=1;

for(i=1;i<=windowform1upcountvalue;i++)

str+='文件'+i+':<input type="file" name="file'+i+'" style="width:250"><br>';

windowupidinnerHTML=str+'<br>';

}

</script>

<li> 上传个数：

<input name="upcount" type="text" value="1" size="10">

<input name="Button" type="button" class="button" onClick="setid();" value="· 设定 ·">

</li>

</td>

</tr>

<tr bgcolor="#eeeeee">

<td align="center" valign="middle" class="tdbg" id="upid"> 文件1:

<input type="file" name="file1" style="width:250" value=""></td>

</tr>

<tr bgcolor="#eeeeee">

<td height="22" align="center" valign="middle" class="tdbg">

<input name="Submit" type="submit" class="button" value="· 提交 ·">

<input name="Submit2" type="reset" class="button" value="· 重执 ·"></td>

</tr>

</form>

</table>

upfilesasp 上传结果：

<%

dim conn,mypath

set conn=servercreateobject("adodbconnection")

mypath=servermappath("//database/globalasa") '建立数据库连接

connopen "provider=microsoftjetoledb40;data source=" & mypath

%>

<!--#include FILE="upload_5xsoftinc"-->

<html>

<head>

<title>photo</title>

<link href="/style/stylecss" rel="stylesheet" type="text/css">

<meta >

Function RegExp_Execute(postcontent)

Dim regEx, Match, Matches,values '建立变量。

Set regEx = New RegExp '建立正则表达式。

regExPattern = "src\=+\(gif|jpg)" '设置模式。

regExIgnoreCase = true '设置是否区分字符大小写。

regExGlobal = True '设置全局可用性。

Set Matches = regExExecute(postcontent) '执行搜索。

For Each Match in Matches '遍历匹配集合。

values=values&MatchValue&"""|"

Next

RegExp_Execute = values

End Function

意思是这样

以上就是关于asp如何接收post表单全部的内容，包括:asp如何接收post表单、asp获取服务器一目录下的所有图片的文件名、asp 怎么接收post过来的json数据,解析出来后写入数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！