设为首页收藏本站

新微赢技术网

 找回密码
 注册
搜索
热搜: 回贴
查看: 46|回复: 3
打印 上一主题 下一主题

这段修改代码怎么不起作用。。。。

[复制链接]
跳转到指定楼层
1#
发表于 2010-1-9 04:51:41 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
<%
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>
2#
发表于 2010-3-17 16:05:08 | 只看该作者
感觉好像在哪里看过了,汗~
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

申请友链|小黑屋|最新主题|手机版|新微赢技术网 ( 苏ICP备08020429号 )  

GMT+8, 2024-11-20 00:38 , Processed in 0.110138 second(s), 9 queries , Gzip On, Memcache On.

Powered by xuexi

© 2001-2013 HaiAn.Com.Cn Inc. 寰耽

快速回复 返回顶部 返回列表