为什么改变不了数据库中的数据?

ICAC2008 2002-10-13 02:49:36

<%
d1=trim(request.form("a1"))
d2=trim(request.form("a2"))
d3=trim(request.form("a3"))
d4=trim(request.form("a4"))
dim sql
dim sqla
dim rs
set con=Server.CreateObject("ADODB.Connection")
con.open "DSN=resource;UID=sa;PWD"
set rs=Server.createobject("adodb.recordset")

sql="select * from connect"
rs.open sql,con,1,3
if rs.recordcount=0 then
if request("Submit3")<>"" then
sqla="insert into connect(con_number,status,project,life_time) values ('"&d1&"','"&d2&"','"&d3&"','"&d4&"')"
con.execute sqla
end if
else

if request("Submit3")<>"" then

rs("con_number")=d1
rs("status")=d2
rs("project")=d3
rs("life_time")=d4
rs.update
response.redirect(request.servervariables("url"))
response.end
end if

d1=rs.Fields("con_number")
d2=rs.Fields("status")
d3=rs.Fields("project")
d4=rs.Fields("life_time")
end if

response.write("<table cellspacing=2 cellpadding=0 cols=3 width=1000 bgcolor=#F0F0FF>")
response.write("<tr>")
response.write("<td align=center valign=top width=25% bgcolor=#C8C8FF><B>接入号</b></td>")
response.write("<td align=center valign=top width=25% bgcolor=#C8C8FF><B>状态</b></td>")
response.write("<td align=center valign=top width=25% bgcolor=#C8C8FF><B>所属项目</b></td>")
response.write("<td align=center valign=top width=25% bgcolor=#C8C8FF><B>使用期限</b></td>")
response.write("</tr>")
do while not rs.eof
d1=rs.Fields("con_number")
d2=rs.Fields("status")
d3=rs.Fields("project")
d4=rs.Fields("life_time")%>
<tr>
<td><input type=text name=a1 value="<%response.write(d1)%>" size=35></td>
<td><input type=text name=a2 value="<%response.write(d2)%>" size=35></td>
<td><input type=text name=a3 value="<%response.write(d3)%>" size=35></td>
<td><input type=text name=a4 value="<%response.write(d4)%>" size=35></td>
</tr>
<tr><td width=15% bgcolor=C8C8FF height=5><spacer type=block height=1></td>
<td width=15% bgcolor=C8C8FF height=5><spacer type=block height=1></td>
<td width=15% bgcolor=C8C8FF height=5><spacer type=block height=1></td>
<td width=15% bgcolor=C8C8FF height=5><spacer type=block height=1></td></tr>
<%rs.movenext
loop
response.write("</table>")
'rs.close
'set rs=nothing
'con.close
'set con=nothing
%>
<HTML>
<HEAD>
<TITLE>资源使用状况--接入号</TITLE>
<META HTTP-EQUIV=Content-Type CONTENT="text/html; charset=gb2312">
<script>
function conf(tf){
if(confirm("你确实要提交吗？"))
return true;
else
return false;
}
</script>
</HEAD>
<BODY>
<form method="post" action="modify.asp" onsubmit="return conf(this);">
<table width=1000 border=0 algin=center align=center>
<tr>
<td>
<hr align=center noshade width=100% color=black>
</td>
</tr>
<tr>
<td align=center><font size=2>
<input type="submit" name="Submit3" value=" 确认 " style="cursor:hand;">
</font></td>
</tr>
</table>
</form>
</br>
</BODY>
</HTML>

...全文