一个关于表单提交的ASP的问题～

2025-01-01 14:47:09

推荐回答（2个）

回答1：

<%
dim a
a= Request.QueryString("stunum")
%>

管理中心

<% if request("post")<>"" then
call write1
end if
function write1

set rs=server.createobject("adodb.recordset")
sql="Select * from stuinfo where stunum='"&a&"'"
rs.open sql,conn,1,3

rs("stunum")=request("stunum")
rs("name")=request("name")
rs("sex")=request("sex")
rs("tel")=request("tel")
rs("mobile")=request("mobile")
rs("yuanxi")=request("yuanxi")
rs("sushe")=request("sushe")
rs("beizhu")=request("beizhu")

rs.update
rs.close
response.Write("")
end function
%>

<%
Dim ll
Set ll = Conn.Execute("Select * From stuinfo where stunum='"&a&"'")
Do While Not ll.Eof
%>

<%
ll.MoveNext
Loop
ll.Close
Conn.Close
Set ll=Nothing
Set Conn=Nothing
%>

学号	姓名	性别	电话	手机	院系	宿舍	备注
学号为<%=a%>的同学详细情况
" size="12">	" size="8">	" size="6">	" size="12">	" size="12">	" size="20">	" size="10">	" size="16">

这回应该没问题了,

你是不是完全把我这段代码复制粘贴的?

还是你自己根据我这个改的?

这里面要添加一个隐藏input

如果是改的你看你加没加????

把你的check.asp也贴出来，这段代码肯定没错的

回答2：

这句应该是
name="form1"
method="post"
action="savestuupdate.asp?stunum=<%=stunum%>">
savestuupdate.asp代码
<%
set
rs=server.createobject("adodb.recordset")
sql="selece
*
from
[表名]
where
stunum="&clng(request("stunum"))
rs.open
sql,conn,1,3
rs("字段1")=request("相应输入框")
'stuupdate.asp页面中的相应输入框
。。。。其他的字段自己加
rs.update
rs.close
set
rs=nothing
%>
数据库连接的自己写~