Question

asp 实现表单发送数据。第二个页面接受数据，并根据，接收到的数据，进行表的查询，从而在第二页上显示。

各位高手，请为我写个小小的例子吧。本人不胜感激。我的qq：853082772

Answer 1

在一个页面也可以的,比如说简单的留言↓是详细代码:
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td height="10"></td></tr><tr><td>
<%if request("action")="add" then
sql_injdata = "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare|<a>|</a>"
sql_inj = split(sql_injdata,"|")
if request.querystring<>"" then
for each sql_get in request.querystring
for sql_data=0 to ubound(sql_inj)
if instr(request.querystring(sql_get),sql_inj(sql_data))>0 then
response.write "<script language=javascript>alert('↓请不要在参数中包含非法字符尝试注入');window.location='message.asp'</script>"
response.end
end if
next
next
end if
if request.form<>"" then
for each sql_post in request.form
for sql_data=0 to ubound(sql_inj)
if instr(request.form(sql_post),sql_inj(sql_data))>0 then
response.write "<script language=javascript>alert('↓请不要在参数中包含非法字符尝试注入');window.location='message.asp'</script>"
response.end
end if
next
next
end if
if request("CheckCode") <> session("aa") then
Response.Write ("<SCRIPT LANGUAGE=javascript>alert('验证码错误!');window.location='message.asp';</SCRIPT>")
else
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * from message"
rs.Open sql,conn,1,3
rs.addnew
rs("lyr")=(request("name")) '留言人
rs("email")=(request("Email")) 'Email
rs("address")=(request("Title")) '主题
rs("content")=(request("Content")) '内容
rs("lxfs")=(request("tel")) '电话
rs("cz")=(request("Fax")) '传真
rs("yb")=(request("cz"))
rs("phone")=(request("comp")) '公司名称
rs("idate")=now()
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs.update
Response.Write("<SCRIPT LANGUAGE=javascript>alert('发表成功!');window.location='message.asp';</SCRIPT>")
end if
end if%>
<table width="100%" border="1" align="center" cellpadding="2" cellspacing="2" bordercolor="#CCCCCC" bgcolor="#f2f2f2"><form action="?action=add" method="post" onSubmit="return checkForm(this);" name="form1"><tr><td><table width="100%" align=center border=0><tbody><tr><td colspan="2" class="a1"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%"> </td><td width="17%" align="right" class="a1"> 主   题：</td><td class="a1"><font color=#ffff99><input type="text" name="Title" size=30 maxlength=100 class="input"><font color=red>*</font></font></td></tr></table></td></tr><tr><td class="a1"><span class="STYLE1">将您的留言写入以下空白处:</span></td><td align="left" class="a1"> </td></tr><tr><td colspan="2" align="center" class="a1"><span class="STYLE1"><textarea name="Content" cols=80 rows=5></textarea><font color=red>*</font></span></td></tr></tbody></table><table width="100%" align=center border=0><tbody><tr><td colspan=3 class="a1"><span class="STYLE1">告诉我们怎样与您联系：</span></td></tr><tr><td width="4%"> </td><td width="16%" align="right"> 姓   名:</td><td width="80%"><input size=20 maxlength=20 name="name" value="" class="input"><font color=red>*</font></td></tr><tr><td width="4%"> </td><td width="16%" align="right"> 公   司：</td><td><input type="text" name="comp" size=30 maxlength=50 value="" class="input"></td></tr><tr><td width="4%"> </td><td width="16%" align="right"> Email：</td><td><input type="text" name="Email" size=30 maxlength=40 value="" class="input"></td></tr><tr><td width="4%"> </td><td width="16%" align="right"> 电   话：</td><td><input type="text" name="tel" size=30 maxlength=50 value="" class="input" onkeyup="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value=this.value.replace(/\D/g,'')"><font color=red>*</font></td></tr><tr><td width="4%"> </td><td width="16%" align="right"> 传   真：</td><td><input type="text" name="Fax" size=30 maxlength=50 value="" class="input" onkeyup="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value=this.value.replace(/\D/g,'')"></td></tr><tr><td width="4%"> </td><td width="16%" align="right"> 验证码：</td><td><table width="100%" border="0" cellpadding="0" cellspacing="0"><TR><TD width=63><input name="CheckCode" value="数字→" onFocus="this.value=''" size="9" maxlength="4" onkeydown="if(event.keyCode==13) return checkForm(this);" class="input"></td><TD width="18">    </tD><TD width="475"><%session("aa")=""
randomize
for i=1 to 4
x=int(10*rnd())
session("aa")=session("aa")&x
y="<img src=counter/"&x&".gif>"
z=z&y
next%><%=z%></tD></tr></table></td></tr><tr><td style="padding-top:10px" align=center colspan=3><input type="submit" value=" 提 交 " style="height:33px;" class="input_submit"><input type="reset" value=" 重 填 " style="height:33px;" class="input_submit"></td></tr><tr><td height="10"></td></tr></tbody></table></form></table><div id="divProcessing" style="width:200px;height:30px;position:absolute;left:70px;top:180px;display:none;FILTER: Alpha(opacity=75);"><table border=0 cellpadding=0 cellspacing=1 bgcolor="#3A6EA5" width="100%" height="100%"><tr><td bgcolor=#feffef><marquee align="middle" behavior="alternate" scrollamount="5"><font color=#FF0000>...正在提交...请等待...</font></marquee></td></tr></table></div><SCRIPT LANGUAGE="JavaScript">function checkForm(){ if(checkspace(document.form1.Title.value)) { document.form1.Title.focus(); alert("请填留言标题！"); return false; } if(checkspace(document.form1.Content.value)) { document.form1.Content.focus(); alert("请填留言内容！"); return false; } if(checkspace(document.form1.name.value)) { document.form1.name.focus(); alert("请填姓名！"); return false; } if(checkspace(document.form1.tel.value)) { document.form1.tel.focus(); alert("请填联系电话！"); return false; } if(checkspace(document.form1.CheckCode.value)||document.form1.CheckCode.value=='数字→') { document.form1.CheckCode.focus(); alert("请填4位数的验证码！"); return false; } divProcessing.style.top = (document.body.clientHeight-parseFloat(divProcessing.style.height))/2; divProcessing.style.left = (document.body.clientWidth-parseFloat(divProcessing.style.width))/2; divProcessing.style.display = ""; return true } function checkspace(checkstr){ var str = ''; for(i = 0; i < checkstr.length; i++) { str = str + ' '; } return (str == checkstr); }</script></TD></TR></TABLE>

Answer 2

第一个页：
表单部分其他略
<form method="post" action="2.asp" >
用户名：<input name="uname" type=text />
密 码：<input name="passwords"type="password" />
<input type="submit" value="提交" />
</form>

第二页：

<!--include file="conn.asp"-->//连接数据库代码
dim uname,passwords,rs,sql
uname=request.form("uname")
passwords=request.form("passwords")

set rs=server.createobject("adodb.recordset")
sql="select * from 用户信息表 where U_name='"&uname&"' and Password='"&passwords&"'"
rs.open sql,conn,1,1
if rs.eof then
response.write"数据库里有有这条数据"
else
response.write"数据库里没有这条数据"
end if

rs.close
set rs=nothing

conn.close
set conn=nothing

Answer 3

A.asp
<form action="B.asp">
<input type="text" name="Keyword">
<input type="submit" value="提交">
</form>

B.asp
<%
Keyword=Trim(Request("Keyword"))

Sql = "Select * From News Where News_Title Like '%"&Keyword&"%'"
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open Sql,Conn,1,3
Do While Not Rs.EOF
%>
<p><%=Rs("News_Title")%></p>
<%Rs.MoveNext
Loop
Rs.Close:Set Rs = Nothing%>
举了一个简单的新闻搜索

追问

你好。谢谢你的回答。我还想问能不能在同一个页面中，完成这两个动作呢？（表单提交 和 根据表单传送的数据显示在这个页面）

追答

可以啊。你就提交到当前页面好了