标题:这段修改代码怎么不起作用。。。。
取消只看楼主
dhdhzzw
Rank: 1
等 级:新手上路
帖 子:949
专家分:0
注 册:2007-8-13
结帖率:81.82%
 问题点数:0 回复次数:1 
这段修改代码怎么不起作用。。。。
<%
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>
搜索更多相关主题的帖子: request TypeDesc 代码 provider 
2008-01-08 13:15
dhdhzzw
Rank: 1
等 级:新手上路
帖 子:949
专家分:0
注 册:2007-8-13
得分:0 
提交修改功能,结果没变化。。。我觉得修改代码没错阿,,,我一时找不出错误。。。。。
2008-01-09 09:03



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-196476-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.571613 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved