Question

asp 图片名称修改问题？高手帮帮忙！

图片名称修改的代码怎么写啊？
删除图片的可以，修改按钮不能用，怎么回事？
<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">  
  <input name="Submit2" onClick="if(confirm('确定删除?'))DeleteData(<%=rs(2)%>)" type="button" id="Submit" value="删除" />
  <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>
/////////////////////////////
<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>
、、、、、、、、、、、、、、、、、、《以上是图片显示代码》
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 jujia_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 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
//////////////////////
conn.execute(sql)
先改成
response.write(sql)
response.end()'停止执行后面代码///也没有提示问题？

Answer 1

点击修改按钮后
如果没有返回("修改成功!")或("你提交的数据中含有非法字符!")
那肯定是在执行conn.execute(sql)时出错了，那你就要进行调试看看sql有没有问题。办法就是:
conn.execute(sql)
先改成
response.write(sql)
response.end()'停止执行后面代码
在页面上你就可以看到alert(...)中sql语句了。看看有没有问题。

Answer 2

你先在on error resume next前面打个'注释一下。再输

response.write sql
response.end

运行看看结果，看看sql语句有没有问题

如果没有问题，看看有没有报什么错误。

有错误的话再贴出来解决就行了

Answer 3

修改处都没连接地址 当然不管用了

Answer 4

zijixiang