<%
dim rs
if request("no")="modi" then
newsid=request("STypeId")
TypeDesc=request("TypeDesc")
version1=request("version")
tzm=request("featurecode")
provider1=request("provider")
sm=request("sm")

set rs=server.createobject("adodb.recordset")
sql="select * from ProductTypes where STypeid="&newsid
rs.open sql,conn,1,3
rs("TypeDesc")=TypeDesc
rs("version")=version1
rs("featurecode")=tzm
rs("provider")=provider1
rs("sm")=sm
rs("sj")=date()

rs.update
rs.close
set rs=nothing
response.write "<script language='javascript'>" & chr(13)
        response.write "alert('新产品修改成功！');" & Chr(13)
        response.write "window.document.location.href='newproduct_Manage.asp';"&Chr(13)
        response.write "</script>" & Chr(13)
end if%>



<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" valign="top"><%
newsId=request("StypeID")
Set rso=Server.CreateObject("ADODB.RecordSet")
sql="select * from productTypes where  StypeID="&newsId
rso.Open sql,conn,1,1
if rso.eof and rso.bof then
response.Write("没有记录")
else
%>
      <table width="90%" border="0" cellpadding="2" cellspacing="1" class="table_southidc">
        <form name="addNEWS" method="post" action="Newproduct_admin_modi.asp?no=modi" >
          <tr align="center">
            <td class="back_southidc" height="30" colspan="3"><font color="#0000FF"><strong>修改新产品</strong></font></td>
          </tr>
          <tr>
            <td width="20%" height="23" align="right" bgcolor="#ECF5FF"><font color="#FF0000">*</font>新产品名称：</td>
            <td width="80%" colspan="2" valign="top" bgcolor="#ECF5FF"><input name="typedesc" type="text"  value="<%=rso("TypeDesc")%>" size="30"></td>
          </tr>
          <tr>
            <td height="24" align="right" bgcolor="#ECF5FF"><font color="#FF0000">*</font>新产品版本：</td>
            <td colspan="2" valign="top" bgcolor="#ECF5FF"> <input name="version1" type="text"  value="<%=rso("Version")%>" size="30">　            
            </td>
          </tr>
          <tr>
            <td height="19" align="right" valign="top" bgcolor="#ECF5FF"><font color="#FF0000">*</font>新产品特征码：</td>
            <td colspan="2" valign="top" bgcolor="#ECF5FF">
            
              <input name="tzm" type="text" class="input" value="<%=rso("featurecode")%>" size="30">
            </td>
          </tr>
          <tr>
            <td height="24" align="right" bgcolor="#ECF5FF"><font color="#FF0000">*</font>地图供应商：</td>
            <td colspan="2" bgcolor="#ECF5FF">
<input name="provider1" type="text" class="input" id="provider1" value="<%=rso("provider")%>" size="30"></td>
          </tr>
          <tr>
            <td height="24" align="right" bgcolor="#ECF5FF"><font color="#FF0000">*</font>新产品说明：</td>
            <td colspan="2" bgcolor="#ECF5FF">
              <textarea name="sm" cols="50" rows="5" class="input" id="sm"><%=rso("sm")%></textarea></td>
          </tr>
          <tr align="center">
            <td height="35" colspan="3"> <input type="submit" name="Submit" value="提交" class="input">
            

              　
              <input type="reset" name="Submit2" value="重置" class="input">
            
            </td>
          </tr>
        </form>
      </table>
      <% End If
rso.close
set rso=nothing
 %></td>

你啥问题，贴出来～

提交修改功能，结果没变化。。。我觉得修改代码没错阿，，，我一时找不出错误。。。。。

<form name="addNEWS" method="post" action=Newproduct_admin_modi.asp?no=modi >

去掉action=后面的引号试一下看

newsid=request("STypeId")
TypeDesc=request("TypeDesc")
version1=request("version")
tzm=request("featurecode")
provider1=request("provider")
sm=request("sm")
上面这几个值用response.write输出看看，值有没有传过来