Asp实例删除Split分隔的内容其中的某一部份-示例代码: %@LANGUAGE=VBSCRIPT CODEPAGE=65001% %Action=Request.QueryString(Action) Dim a...

海南网站建设,网页设计
记忆工作中的点滴
首页>> Asp技术 >>Asp实例删除Split分隔的内容其中的某一部份

示例代码:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%Action=Request.QueryString("Action")

Dim aID,aryTemp,Total,i,j,csID

csID=25

j=1%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<title>实例删除Split分隔的内容其中的某一部份</title>

<style type="text/css">

* {margin:0px; padding:0px; line-height:180%;}

a {color:#666666; text-decoration:none;}

</style>

</head>

<body> <% Function RtnReplaceInt(iCheck,iDefault)  If Trim(iCheck)="" Then   RtnReplaceInt = iDefault   Exit Function  End If

 If IsNumeric(iCheck)=false Then   RtnReplaceInt = iDefault   Exit Function  End If

 RtnReplaceInt = iCheck End Function

Select Case Action Case "Add" Call AddPic Case "Delete" Call DeletePic Case else Manage End Select

sub Manage

end sub

sub DeletePic uPic=Request("DelPic") Str=Request("nPic") Str=Replace(Str,uPic&",","") Str=Replace(Str,","&uPic,"") 'Response.Write(""&Str&"") 'Response.End() PicID=RtnReplaceInt(Request("PicID"),0) sql="update 表名 set 字段='"&Str&"' where 数据库ID in ("&Request("PicID")&")" conn.execute(sql) Response.write"<script>alert('操作成功!');location.href='?Action=Manage'</script>" Response.end

end sub%> <p>&nbsp;</p> <table width="80%" border="0" align="center" cellspacing="0">   <tr>   <%aID="20101111212349940.jpg,20101111212351417.jpg,20101111212357390.jpg,20101111212402671.jpg,20101111212404837.jpg" aryTemp = Split(aID,",") Total=UBound(aryTemp) for i=0 to Total %>     <td align="center"><a href="<%= aryTemp(i) %>"><img src="<%= aryTemp(i) %>" width="100" height="100" style="border:1px #cccccc solid;"></a><BR><a href="?Action=Delete&amp;DelPic=<%= aryTemp(i) %>&amp;PicId=<%= csID %>&amp;nPic=<%= aID %>">删除</a></td>  <% j=j+1 next %>   </tr> </table>

 

</body> </html>


×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

打赏作者
版权所有,转载注意明处:不懂戀愛魚兒 » Asp实例删除Split分隔的内容其中的某一部份
标签: asp split

发表评论

路人甲 表情
看不清楚?点图切换 Ctrl+Enter快速提交

网友评论(0)