| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1224 人关注过本帖
标题:图片修改名称问题?高手帮忙看下代码错在哪了?
取消只看楼主 加入收藏
川之鱼
Rank: 1
来 自:四川——成都
等 级:新手上路
帖 子:58
专家分:0
注 册:2009-3-4
结帖率:100%
收藏
 问题点数:0 回复次数:10 
图片修改名称问题?高手帮忙看下代码错在哪了?
这是图片的主要代码?不知哪错了,点击修改按钮没有反应?删除按钮可以删掉图片。高手帮帮忙,谢谢了!
图片附件: 游客没有浏览图片的权限,请 登录注册
我想在后台可以修改名称。规格。两个项目!
    <% dim rs,sql,page,i,NewsTitle,cpgg,ProName,NewsTitle2
    sql="select ProAddress,ProName,ID,NewsTitle2,cpgg from Product  order by id desc "
    Set rs = Server.CreateObject ("ADODB.Recordset")
    rs.open sql,conn,1,1
    if rs.eof then
        response.write("<tr><td colpan=""4"">暂无图片</td></tr>")
        rs.pagesize=15
    else
        page=Request.QueryString("page")
        rs.PageSize = 15
        if Not IsEmpty(page) then
            if Not IsNumeric(page) then
                page=1
            else
                Page = cint(page)
            end if   
            if Page > rs.PageCount then  Page = rs.PageCount      
            if Page <= 0 then  Page = 1
        else
            Page = 1
        end if
        rs.AbsolutePage = Page
        For i = 1 to rs.PageSize
        if rs.EOF then Exit For
     
    %>
        <td height="160" align="center" valign="middle">
            <table cellpadding="0" cellspacing="0">
      <tr>
        <td class="tdbg"><img height="100" width="126" border="0" src=<%=rs(0)%>></td>
      </tr>
      <tr><br>
            <tr><td height="20" align="center" >
        
          名称:<input name="NewsTitle2" type="text" id="Title" value="<%=rs(3)%>" size="15" maxlength="50"></td>
      </tr>
      <tr><td height="20" align="center" >
        
          规格:<input name="cpgg" type="text" id="Title" value="<%=rs(4)%>" size="15" maxlength="50"></td>
      </tr>
      <tr>
        <td height="20" align="center"> &nbsp;
          &nbsp; <input name="Submit2" onClick="if(confirm('确定删除?'))DeleteData(<%=rs(2)%>)" type="button" id="Submit" value="删除" />
          &nbsp; <input name="Submit" onClick="UpdateData(0)" type="button" id="Submit" value="修改"><input type="hidden" name="NewsFile" value="0"><input name="IsFile" type="hidden" value="0" /></td>
      </tr>
    </table>
          </td>
         
        <%
        if i=5 or i=10  then
        response.write("</tr><tr>")
        end if
        rs.movenext
        next
        end if
        %>
        </tr>
        <tr>
            <td>&nbsp;&nbsp;&nbsp;&nbsp;PAGE:&nbsp;&nbsp;&nbsp;&nbsp;<a href="admin_pic.asp?page=1">1</a><% for i=2 to rs.pagecount %>
        |&nbsp;&nbsp;&nbsp;&nbsp;<a href="admin_pic.asp?page=<%=i%>"><%=i%></a>
        <% next %></td>
        </tr>
</table>
</body>
</html>
<script language="javascript">
function DeleteData(ID)
{        
    var postInfo = "PostType=Products&Actions=Delete&ID="+ID;
    var eZuStudio = new ActiveXObject("Microsoft.XMLHTTP");
    eZuStudio.open("POST","PostData.asp",false);
    eZuStudio.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
    eZuStudio.send(postInfo);
    alert(unescape(eZuStudio.responseText));
    window.location.reload();
}
</script>
<script language="javascript">
function UpdateData(IsFile)
{   

    var NewsTitle2=escape(document.all.NewsTitle2.value);
    var cpgg=escape(document.all.cpgg.value);
    var ProType=escape("<%=ProType%>");
    var postInfo = "PostType=News&Actions=Modify";
    postInfo=postInfo+"&NewsTitle2="+NewsTitle2+"&cpgg="+cpgg+"&ProType="+ProType;
    postInfo=postInfo+"&ID=<%=ID%>";
    var eZuStudio = new ActiveXObject("Microsoft.XMLHTTP");
    eZuStudio.open("POST","PostData.asp",false);
    eZuStudio.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
    eZuStudio.send(postInfo);
    alert(unescape(eZuStudio.responseText));
    window.location.href="Admin_Pic.asp?ProType="+ProType;
}
</script>
//////////////////////////PostData.asp中主要代码:
sub Products()
dim Actions
Actions=SafeInput(Request("Actions"))
Select case Actions
case "Modify"
call ModifyNews()
case "Delete"
call DeleteProducts()
case "Add"
call AddProducts()
end select
end sub

sub ModifyNews()
dim sql,ProName,ProType,NewsTitle2,cpgg,ID
ProType=SafeInput(unescape(Request.Form("ProType.value")))
ProName=SafeInput(unescape(Request.Form("ProName")))
NewsTitle2=SafeInput(unescape(Request.Form("NewsTitle2")))
cpgg=SafeInput(unescape(Request.Form("cpgg")))
ID=SafeInput(Request.Form("ID"))
If IsNumeric(ID) and not IsEmpty(ID) then
sql="update Product Set ProType='"&ProType&"',NewsTitle2='"&NewsTitle2
sql=sql&"',cpgg='"&cpgg
sql=sql&"' where ID="&ID
on error resume next
conn.execute(sql)
Response.Write(escape("修改成功!"))
else
Response.Write(escape("你提交的数据中含有非法字符!"))
end if
end sub

sub AddProducts()
dim sql,ProName,Address,ProDate,NewsFile
ProName=SafeInput(unescape(Request.Form("ProName")))
NewsFile=unescape(Request.Form("NewsFile"))
'NewsFile="a"
'ProDate=time()
    sql="insert into Product (ProName,ProAddress) values "
    sql=sql&"('"&ProName&"','"&NewsFile&"')"
    conn.execute(sql)
    Response.Write(escape("添加成功!"))
end sub

sub DeleteProducts()
dim sql,ID
ID=SafeInput(Request.Form("ID"))
If IsNumeric(ID) and not IsEmpty(ID) then
sql="delete from Product where ID="&ID
conn.execute(sql)
Response.Write(escape("删除成功!"))
else
Response.Write(escape("你提交的数据中含有非法字符!"))
end if
end sub
%>

搜索更多相关主题的帖子: 代码 名称 
2010-03-05 17:35
川之鱼
Rank: 1
来 自:四川——成都
等 级:新手上路
帖 子:58
专家分:0
注 册:2009-3-4
收藏
得分:0 
高手们帮帮忙啊!先谢谢了!!
2010-03-05 17:37
川之鱼
Rank: 1
来 自:四川——成都
等 级:新手上路
帖 子:58
专家分:0
注 册:2009-3-4
收藏
得分:0 
问题是点击修改按钮,没有什么反应?是不是代码问题啊?
  <tr><td height="20" align="center" >
        
          名称:<input name="NewsTitle2" type="text" id="Title" value="<%=rs(3)%>" size="15" maxlength="50"></td>
      </tr>
      <tr><td height="20" align="center" >
        
          规格:<input name="cpgg" type="text" id="Title" value="<%=rs(4)%>" size="15" maxlength="50"></td>
      </tr>
      <tr>
        <td height="20" align="center"> &nbsp;
          &nbsp; <input name="Submit2" onClick="if(confirm('确定删除?'))DeleteData(<%=rs(2)%>)" type="button" id="Submit" value="删除" />
          &nbsp; <input name="Submit" onClick="UpdateData(0)" type="button" id="Submit" value="修改"><input type="hidden" name="NewsFile" value="0"><input name="IsFile" type="hidden" value="0" /></td>
      </tr>
2010-03-05 18:22
川之鱼
Rank: 1
来 自:四川——成都
等 级:新手上路
帖 子:58
专家分:0
注 册:2009-3-4
收藏
得分:0 
我把修改按钮改成这样,也是修改不了内容?
<tr>
        <td height="20" align="center"> &nbsp;
          &nbsp; <input name="Submit2" onClick="if(confirm('确定删除?'))DeleteData(<%=rs(2)%>)" type="button" id="Submit" value="删除" />
          &nbsp; <input name="Submit" onClick="if(confirm('确定修改?'))UpdateData(0)" type="button" id="Submit" value="修改"><input type="hidden" name="NewsFile" value="0"><input name="IsFile" type="hidden" value="0" /></td>
      </tr>

是这段代码有问题吗?高手看看啊?
<script language="javascript">
function UpdateData(IsFile)
{   

    var NewsTitle2=escape(document.all.NewsTitle2.value);
    var cpgg=escape(document.all.cpgg.value);
    var ProType=escape("<%=ProType%>");
    var postInfo = "PostType=News&Actions=Modify";
    postInfo=postInfo+"&NewsTitle2="+NewsTitle2+"&cpgg="+cpgg+"&ProType="+ProType;
    postInfo=postInfo+"&ID=<%=ID%>";
    var eZuStudio = new ActiveXObject("Microsoft.XMLHTTP");
    eZuStudio.open("POST","PostData.asp",false);
    eZuStudio.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
    eZuStudio.send(postInfo);
    alert(unescape(eZuStudio.responseText));
    window.location.href="Admin_Pic.asp?ProType="+ProType;
}
</script>
2010-03-05 18:48
川之鱼
Rank: 1
来 自:四川——成都
等 级:新手上路
帖 子:58
专家分:0
注 册:2009-3-4
收藏
得分:0 
PostData.asp中的代码
 conn.execute(sql)
改成
response.write(sql)
response.end()'停止执行后面代码

也没有报告错误在哪?
2010-03-05 18:53
川之鱼
Rank: 1
来 自:四川——成都
等 级:新手上路
帖 子:58
专家分:0
注 册:2009-3-4
收藏
得分:0 
回复 4楼 川之鱼
这段代码是不是有问题啊?我对代码也不是太懂?请高手指教!
2010-03-06 11:14
川之鱼
Rank: 1
来 自:四川——成都
等 级:新手上路
帖 子:58
专家分:0
注 册:2009-3-4
收藏
得分:0 
有人可以帮忙吗?
2010-03-06 11:19
川之鱼
Rank: 1
来 自:四川——成都
等 级:新手上路
帖 子:58
专家分:0
注 册:2009-3-4
收藏
得分:0 
回复 8楼 yms123
我对函数都不是太懂,具体怎么做啊。可以教教不?代码我还不是看的太懂?
2010-03-06 14:32
川之鱼
Rank: 1
来 自:四川——成都
等 级:新手上路
帖 子:58
专家分:0
注 册:2009-3-4
收藏
得分:0 
回复 10楼 yms123
谢谢你,可还是不能修改图片名称和规格?是怎么回事?只能删除图片!
2010-03-06 14:44
川之鱼
Rank: 1
来 自:四川——成都
等 级:新手上路
帖 子:58
专家分:0
注 册:2009-3-4
收藏
得分:0 
//////////////////这是图片的主要代码,就是不能修改?能删除图片。
    <% dim rs,sql,page,i,NewsTitle,cpgg,ProName,NewsTitle2
    sql="select ProAddress,ProName,ProType,ID,NewsTitle2,cpgg from jujia_Product  order by id desc "
    Set rs = Server.CreateObject ("ADODB.Recordset")
    rs.open sql,conn,1,1
    if rs.eof then
        response.write("<tr><td colpan=""4"">暂无图片</td></tr>")
        rs.pagesize=15
    else
        page=Request.QueryString("page")
        rs.PageSize = 15
        if Not IsEmpty(page) then
            if Not IsNumeric(page) then
                page=1
            else
                Page = cint(page)
            end if   
            if Page > rs.PageCount then  Page = rs.PageCount      
            if Page <= 0 then  Page = 1
        else
            Page = 1
        end if
        rs.AbsolutePage = Page
        For i = 1 to rs.PageSize
        if rs.EOF then Exit For
     
    %>
        <td height="160" align="center" valign="middle">
            <table cellpadding="0" cellspacing="0">
      <tr>
        <td class="tdbg"><img height="100" width="126" border="0" src=<%=rs(0)%>></td>
      </tr>
      <tr><br>
            <tr><td height="20" align="center" >
        
          名称:<input name="NewsTitle2" type="text" id="NewsTitle2" value="<%=rs(4)%>" size="15" maxlength="50"></td>
      </tr>
      <tr><td height="20" align="center" >
        
          规格:<input name="cpgg" type="text" id="cpgg" value="<%=rs(5)%>" size="15" maxlength="50"></td>
      </tr>
      <tr>
        <td height="20" align="center"> &nbsp;
          &nbsp; <input name="Submit2" onClick="if(confirm('确定删除?'))DeleteData(<%=rs(3)%>)" type="button" id="Submit" value="删除" />
          &nbsp; <input name="Submit" onClick="if(confirm('确定修改?'))UpdateData(0)" type="button" id="Submit" value="修改"><input type="hidden" name="NewsFile" value="0"><input name="IsFile" type="hidden" value="0" /></td>
      </tr>
    </table>
          </td>
         
        <%
        if i=5 or i=10  then
        response.write("</tr><tr>")
        end if
        rs.movenext
        next
        end if
        %>
        </tr>
        <tr>
            <td>&nbsp;&nbsp;&nbsp;&nbsp;PAGE:&nbsp;&nbsp;&nbsp;&nbsp;<a href="admin_pic.asp?page=1">1</a><% for i=2 to rs.pagecount %>
        |&nbsp;&nbsp;&nbsp;&nbsp;<a href="admin_pic.asp?page=<%=i%>"><%=i%></a>
        <% next %></td>
        </tr>
</table>
</body>
</html>
<script language="javascript">
function DeleteData(ID)
{        
    var postInfo = "PostType=Products&Actions=Delete&ID="+ID;
    var eZuStudio = new ActiveXObject("Microsoft.XMLHTTP");
    eZuStudio.open("POST","PostData.asp",false);
    eZuStudio.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
    eZuStudio.send(postInfo);
    alert(unescape(eZuStudio.responseText));
    window.location.reload();
}
</script>
<script language="javascript">
var reData=null;
var eZuStudio;
var ProType;
function UpdateData(IsFile)
{   

    var NewsTitle2=escape(document.all.NewsTitle2.value);
    var cpgg=escape(document.all.cpgg.value);
    ProType=escape("<%=ProType%>");
    var postInfo = "PostType=News&Actions=Modify";
    postInfo=postInfo+"&NewsTitle2="+NewsTitle2+"&cpgg="+cpgg+"&ProType="+ProType;
    postInfo=postInfo+"&ID=<%=ID%>";
    eZuStudio=new ActiveXObject("Microsoft.XMLHTTP");
    eZuSdtio.onreadystatechange=alertContents;
    eZuStudio.open("POST","PostData.asp",false);
    eZuStudio.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
    eZuStudio.send(postInfo);
}
function alertContents()
{
  if(eZuStudio.readyState==4)
  {
     if(eZuStudio.status==200)
     {
           alert(unescape(eZuStudio.responseText));
           window.location.href="Admin_Pic.asp?ProType="+ProType;
     }
  }
  else
  {
     //没有接收到数据或出错处理代码
  }
}
</script>
////////////////////PostData.asp/////////中的代码:
sub Products()
dim Actions
Actions=SafeInput(Request("Actions"))
Select case Actions
case "Modify"
call ModifyNews()
case "Delete"
call DeleteProducts()
case "Add"
call AddProducts()
end select
end sub

sub AddProducts()
dim sql,ProName,ProAddress,ProDate,NewsFile,ProType,NewsTitle2,cpgg
ProType=SafeInput(unescape(Request.Form("ProName.value")))
ProName=SafeInput(unescape(Request.Form("ProName")))
NewsFile=unescape(Request.Form("NewsFile"))
NewsTitle2=SafeInput(unescape(Request.Form("NewsTitle2")))
cpgg=SafeInput(unescape(Request.Form("cpgg")))
'NewsFile="a"
'ProDate=time()
    sql="insert into jujia_Product (ProName,ProAddress,ProType,NewsTitle2,cpgg) values "
    sql=sql&"('"&ProType&"','"&NewsFile&"','"&ProType&"','"&NewsTitle2&"','"&cpgg&"')"
    conn.execute(sql)
    Response.Write(escape("添加成功!"))
end sub

sub ModifyNews()
dim sql,ProName,ProType,NewsTitle2,cpgg,ID
NewsTitle2=SafeInput(unescape(Request.Form("NewsTitle2")))
cpgg=SafeInput(unescape(Request.Form("cpgg")))
ID=SafeInput(Request.Form("ID"))
If IsNumeric(ID) and not IsEmpty(ID) then
sql="update jujia_Product Set cpgg='"&cpgg&"',NewsTitle2='"&NewsTitle2
sql=sql&" where ID="&ID
on error resume next
conn.execute(sql)
'Response.write(sql)'停止执行后面代码
'Response.end()'停止执行后面代码
Response.Write(escape("修改成功!"))
else
Response.Write(escape("你提交的数据中含有非法字符!"))
end if
end sub

sub DeleteProducts()
dim sql,ID
ID=SafeInput(Request.Form("ID"))
If IsNumeric(ID) and not IsEmpty(ID) then
sql="delete from jujia_Product where ID="&ID
conn.execute(sql)
Response.Write(escape("删除成功!"))
else
Response.Write(escape("你提交的数据中含有非法字符!"))
end if
end sub
2010-03-06 14:57
快速回复:图片修改名称问题?高手帮忙看下代码错在哪了?
数据加载中...
 
   



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

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