海南世纪云图网络科技有限公司
咨询热线:400-822-8458 技术支持:0898-66754910 客户服务:0898-32183600

Asp实例删除Split分隔的内容其中的某一部份

发表于:2010-12-16 00:00:00来源:人气:2057

<%@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>

文章整理: 世纪云图  https://www.yuntop.cc/

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

版权申明:本站文章部份来自网络,如有侵权,请联系我们,我们收到后立即删除,谢谢!

特别注意:本站部份转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有。

微信
网站建设
软件业务
网络营销
400电话