有高人帮做个简单表单提交系统吗?急求
发布网友
发布时间：2023-03-17 22:50
共3个回答
热心网友
时间：2023-11-05 21:35
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>提交表单</title>
</head>
<body>
<form id="form6" name="form6" method="post" action="save.asp">
<p>姓名
<input name="name" type="text" id="name" />
</p>
<p>
性别
<select name="sex" id="sex">
<option value="0">男</option>
<option value="1">女</option>
</select>
</p>
<p>学历
<select name="xl" id="xl">
<option value="小学" selected="selected">小学</option>
<option value="中学">中学</option>
<option value="大专">大专</option>
<option value="本科">本科</option>
<option value="本科以上">本科以上</option>
</select>
</p>
<p>数量
<select name="sl" id="sl">
<option value="200" selected="selected">200</option>
<option value="500">500</option>
<option value="100">1000</option>
<option value="2000">2000</option>
<option value="3000">3000</option>
</select>
</p>
<p>邮箱
<input name="mail" type="text" id="mail" />
</p>
<p>其他说明
<textarea name="other" id="other"></textarea>
</p>
<input type="reset" name="Submit2" value="重设" />
<input type="submit" name="Submit" value="提交" />
</form>
<p> </p>
</body>
</html>
------------以下内容存为 save.asp--------------------<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<%name1=request.Form("name")
sex1=request.Form("sex")
xl1=request.Form("xl")
sl1=request.Form("sl")
mail1=request.Form("mail")
other=request.Form("other")
starttime=timer()
StrSQL="DBQ="+server.mappath("//1.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
set rs=server.createobject("adodb.recordset")
sql="select * from tijiao"
rs.open sql,conn,3,2
rs.addnew
rs("name")=name1
rs("sex")=sex1
rs("xl")=xl1
rs("sl")=sl1
rs("mail")=mail1
rs("other")=other
rs("time")=now()
rs.update
rs.close
set rs=nothing
Response.Write("提交成功")
%>
<body>
</body>
</html>
------------------------------------
把以上两个文件放到网页根目录下的 文件夹中
在文件夹中建一个MDB数据库 表名为tijiao
字段有
name
sex
sl
xl
other
time
类型全部为文本
应该就可以了
不行的话站内短信我
以上内容为100分
至于在线看数据，需增加分数
热心网友
时间：2023-11-05 21:36
热心网友
时间：2023-11-05 21:36
?
QQ:25393698
