原本可以更新的。可是当我在数据库中把表增加了3个字段(全是文本类型,可以为空),再也更新不了了。
看了提交表单的NAME以及更新语句,好像没错。
求指点:
第一段,是提交FORM数据,代码如下
第二段,对数据做更新处理,代码如下
看了提交表单的NAME以及更新语句,好像没错。
求指点:
第一段,是提交FORM数据,代码如下
<form name="free" method="post" action="190_05.asp?id=<%=id%>" οnsubmit="return check_admin()"> <tr bgcolor="#FFFFFF">
<td align="right" height="22">客户名称:</td>
<%if session("sfsb_id")="1" then%>
<td><input type="text" name="user" value="<%=rs("user")%>" /> </td>
<%else%>
<td><input type="text" disabled='disabled' name="user" value="<%=rs("user")%>" /> </td>
<%end if%>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" height="22">身份识别码:</td>
<td><input type="text" name="sfsb_id" disabled='disabled' value="<%=rs("sfsb_id")%>" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" height="22">联系人:</td>
<td><input type="text" name="ct_name" value="<%=rs("ct_name")%>" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" height="22">电话:</td>
<td><input type="text" name="ct_tel" value="<%=rs("ct_tel")%>" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" height="22">QQ:</td>
<td><input type="text" name="ct_qq" value="<%=rs("ct_qq")%>" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" height="22">密码:</td>
<td><input type="password" name="pwd" value="123456" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" height="22">软件购买时间:</td>
<%if session("sfsb_id")="1" then%>
<td><input type="text" name="join_time" value="<%=rs("join_time")%>" /></td>
<%else%>
<td><input type="text" disabled='disabled' name="join_time" value="<%=rs("join_time")%>" /></td>
<%end if%>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" align="center">
<input type="submit" name="Submit" value=" 确 认 修 改 ">
</td>
</tr>
</form>
第二段,对数据做更新处理,代码如下
<%
if request.QueryString("id")<>"" then
set rs=server.CreateObject("ADODB.RecordSet")
sql="select admin.* from admin where admin.id="& request.QueryString("id")
rs.open sql,conn,3,2
if not rs.eof then
rs("user")=request("user")
rs("sfsb_id")=request("sfsb_id")
rs("pwd")=md5(request("pwd"))
rs("join_time")=request("join_time")
rs("ct_name")=request("ct_name")
rs("ct_tel")=request("ct_tel")
rs("ct_qq")=request("ct_qq")
rs.update
end if
call rsClose()
call connClose()
if session("sfsb_id")="1" then
response.redirect "190.asp"
else
response.redirect "index.asp"
end if
else
response.write"<SCRIPT language=JavaScript>alert('系统中无符合条件的内容,请确认您的输入');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
%>