如果文件较大，要用第三方组件来上传，如：ASPUpload
如果是小文件（<1MB）,可以用无组件上传，baidu一下"无组件上传"
以数据库ACCESS为例比如你数据库里有一个表AAA，里面有字段b1、b2、b3
链接数据库代码
<%
Response.CodePage = 936
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("数据库路径")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
表单:
<form name="form" method="post" action="?tj=y">
<input type="text" name="b1">
<input type="text" name="b2">
<input type="text" name="b3">
<input type="submit" value="提交">
</form>
提交表单，把表单的数据写入所连接的数据库的处理程序：
<%
if trim(requet("tj"))="y" then
set rs=server.createobject("adodb.recordset")
sql="select * from AAA"
rs.open sql,conn,1,3
rs.addnew
rs("b1")=trim(requet("b1"))
rs("b2")=trim(requet("b2"))
rs("b3")=trim(requet("b3"))
rs.update
response.write"<script language=javascript>alert('提交成功!')window.location.href='?'</script>"
end if
%>
您好，代码如下：第一个页面，命名如：add.asp，代码内容（实际上是html页）：
<html>
<head>
<title>提交页面</title>
</head>
<body>
<form action="addsave.asp" method="post" name="add">
<table width="450" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td height="40" colspan="2" align="center"><span class="text3"><strong>填写</strong></span></td>
</tr>
<tr>
<td width="124"><P style="MARGIN-TOP: 2pxMARGIN-LEFT: 80px">姓名</p></td>
<td width="318"><input name="name" type="text" id="name"></td>
</tr>
<tr align="center">
<td colspan="2"><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit" value="重填"></td>
</tr>
</table>
</form>
</body>
</html>
----------------------------------
第二个页面，叫addsave.asp，代码内容：
<%@LANGUAGE="VBScript" codepage="936"%>
<%
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0data source="&server.mappath("db1.mdb")
conn.open connstr
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select name from 1"
rs.open sql,conn,1,3
rs.addnew
name=request.form("name")
rs("name")=name
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
%>
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）