求高手帮写一个ASP表单提交页面

表单项有：namezjlxzjhmazdztxdztstxdzkhyhyhzhazlxteltclxlxdhemailbz本人对这个不怎么了解，希望能帮写个完整的代码，要... 表单项有：name zjlx zjhm azdz txdzts txdz khyh yhzh azlx tel tclx lxdh email bz
本人对这个不怎么了解，希望能帮写个完整的代码，要求提交表单时可以给用户一个确认页面确认信息。最好就能通过一个页面实现，或者2个也可以。加高分求
2楼的代码测试了下不行，点提交就进入确认页面打不开。能再帮修改下吗
67813605@qq.com,谢谢展开

 我来答

4个回答

#热议# 发烧为什么不能用酒精擦身体来退烧？

314274886
2010-12-09 · 超过10用户采纳过TA的回答

知道答主

回答量：58

采纳率：0%

帮助的人：20.7万

我也去答题访问个人页

关注

展开全部

这里没写数据库连接,需要可以加
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 3</title>
</head>
<body>
<%
action=request.QueryString("action")

if action="save" then
call actsave()
elseif action="show" then
response.redirect "?action=show"
call actshow()
else
%>
<form method="POST" action="?action=save">

<table border="0" cellpadding="0" cellspacing="0" width="400">
<tr>
<td>name </td>
<td> <input type="text" name="name" size="20"></td>
</tr>
<tr>
<td>zjlx </td>
<td> <input type="text" name="zjlx" size="20"></td>
</tr>
<tr>
<td>zjhm </td>
<td> <input type="text" name="zjhm" size="20"></td>
</tr>
<tr>
<td>azdz </td>
<td> <input type="text" name="azdz" size="20"></td>
</tr>
<tr>
<瞎敏td>txdzts </td>
<td> <input type="text" name="txdzts" size="20"></td>
</tr>
<tr>
<td>txdz </td>
<td> <input type="text" name="txdz" size="20"></td>
</tr>
<tr>
<td>khyh </td>
<td> <input type="text" name="khyh" size="20"></td>
</tr>
<tr>
<td>yhzh </td>
<td> <input type="text" name="yhzh" size="20"></td>
</tr>
<tr>
<td>azlx </td>
<td> <input type="text" name="azlx" size="20"></td>
</历神兆tr>
<tr>
<td>tel </td>
<td> <input type="text" name="tel" size="20"></td>
</tr>
<tr>
<td>tclx </td>
<td> <input type="text" name="tclx" size="20"></td>
</tr>
<tr>
<td>lxdh </td>
<td> <input type="text" name="lxdh" size="20"></td>
</tr>
<tr>
<td>email </td>
<td> <input type="text" name="email" size="20"></td>
</tr>
<tr>
<td>bz </td>
<td> <input type="text" name="bz" size="20"></td>
</tr>
<tr>
<td colspan="2"><input type="submit" value="提交"><input type="reset" value="重置"></td>
<肢租/tr>
</table>
</form>
<%end if

sub actsave()
name=Trim(request.form("name"))
zjlx=Trim(request.form("zjlx"))
zjhm=Trim(request.form("zjhm"))
azdz=Trim(request.form("azdz"))
txdzts=Trim(request.form("txdzts"))
txdz=Trim(request.form("txdz"))
khyh=Trim(request.form("khyh"))
yhzh=Trim(request.form("yhzh"))
azlx=Trim(request.form("azlx"))
tel=Trim(request.form("tel"))
tclx=Trim(request.form("tclx"))
lxdh=Trim(request.form("lxdh"))
email=Trim(request.form("email"))
bz=Trim(request.form("bz"))

Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql="Select * From tablename order by id desc"
Rs.Open Sql,Conn,1,3

if rs.eof and rs.bof then
session("cid")=1
else
session("cid")=rs("id")+1
end if

Rs.Addnew
Rs("name")=name
Rs("zjlx")=zjlx
Rs("zjhm")=zjhm
Rs("azdz")=azdz
Rs("txdzts")=txdzts
Rs("txdz")=txdz
Rs("khyh")=khyh
Rs("yhzh")=yhzh
Rs("azlx")=azlx
Rs("tel")=tel
Rs("tclx")=tclx
Rs("lxdh")=lxdh
Rs("email")=email
Rs("bz")=bz
Rs.Update
Rs.Close
Set Rs=Nothing
end sub

sub actshow()
if session("cid")<>"" then
Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql="Select * From tablename Where ID="&Clng(session("cid"))
Rs.Open Sql,Conn,1,1
if not rs.bof then
%>
<table border="0" cellpadding="0" cellspacing="0" width="400">
<tr>
<td width=50>name </td>
<td> <%=rs("name")%></td>
</tr>
<tr>
<td>zjlx </td>
<td> <%=rs("zjlx")%></td>
</tr>
<tr>
<td>zjhm </td>
<td> <%=rs("zjhm")%></td>
</tr>
<tr>
<td>azdz </td>
<td> <%=rs("azdz")%></td>
</tr>
<tr>
<td>txdzts </td>
<td> <%=rs("txdzts")%></td>
</tr>
<tr>
<td>txdz </td>
<td> <%=rs("txdz")%></td>
</tr>
<tr>
<td>khyh </td>
<td> <%=rs("khyh")%></td>
</tr>
<tr>
<td>yhzh </td>
<td> <%=rs("yhzh")%></td>
</tr>
<tr>
<td>azlx </td>
<td> <%=rs("azlx")%></td>
</tr>
<tr>
<td>tel </td>
<td> <%=rs("tel")%></td>
</tr>
<tr>
<td>tclx </td>
<td> <%=rs("tclx")%></td>
</tr>
<tr>
<td>lxdh </td>
<td> <%=rs("lxdh")%></td>
</tr>
<tr>
<td>email </td>
<td> <%=rs("email")%></td>
</tr>
<tr>
<td>bz </td>
<td> <%=rs("bz")%></td>
</tr>
</table>
<%
else
Response.Write("<script>alert('系统错误！')</script>")
Response.End()
end if
else
Response.Write("<script>alert('系统错误！')</script>")
Response.End()
end if
end sub%>
</body>
</html>

本回答由提问者推荐

已赞过 已踩过<

评论收起

hwt87802887
2010-12-09 · TA获得超过194个赞

知道小有建树答主

回答量：606

采纳率：50%

帮助的人：257万

我也去答题访问个人页

关注

展开全部

把确认信息写在方法里面放在页面头部
action=request("action"烂嫌)
if action="saveok" Then Call set_Info()

function set_Info()
//返回确雹游认信息
End function
<form action=?action=saveok...></form>源历销

本回答被网友采纳

已赞过已踩过<

你对这个回答的评价是？
评论收起

qmochv
2010-12-09 · TA获得超过154个赞

知道答主

回答量：184

采纳率：0%

帮助的人：107万

我也去答题访问个人页

关注

展开全部

首先把你这个程序的错误修改正确，程斗磨序才能正雹冲常执行下去，这样后面的代码才能执行。去掉一下代码：
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
然后转向别空肆斗的页面用这个：
Response.Redirect("error.asp")
后面括号和引号中填别的页面地址。

已赞过 已踩过<

评论收起

huierone
2010-12-11 · 超过26用户采纳过TA的回答

知道答主

回答量：87

采纳率：0%

帮助的人：62.4万

我也去答题访问个人页

关注

展开全部

给邮箱我。我发给你。就是表单提交页面吧。例子。

已赞过 已踩过<

评论收起

更多回答（2）

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

求高手帮写一个ASP表单提交页面

其他类似问题

为你推荐：