Asp實例刪除Split分隔的內容其中的某一部份

發表于：2010-12-16 00:00:00來源：人氣：3290

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

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

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

csID=25

j=1%>

<html>

<head>

<title>實例刪除Split分隔的內容其中的某一部份</title>

* {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%>

<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&DelPic=<%= aryTemp(i) %>&PicId=<%= csID %>&nPic=<%= aID %>">刪除</a></td>

j=j+1

</tr>

</table>

</body>

</html>

文章整理：世紀云圖 http://m.usk2.com/

以上信息與文章正文是不可分割的一部分,如果您要轉載本文章,請保留以上信息，謝謝!

版權申明：本站文章部份來自網絡，如有侵權，請聯系我們，我們收到后立即刪除，謝謝！

特別注意：本站部份轉載文章言論不代表本站觀點，本站所提供的攝影照片，插畫，設計作品，如需使用，請與原作者聯系，版權歸原作者所有。

上一篇：知名開源系統PHP168改制：分拆為兩家公司下一篇：ASP函數實現unicode轉gb2312

精品欧美一区二区精品久久_国产一区二区精品在线观看_美女黄影院_免费在线一区二区_色成人在线_99久久久国产精品露出

Asp實例刪除Split分隔的內容其中的某一部份

與本文相關的文章

海南世紀云圖網絡科技有限公司

關于我們

產品、業務

快速通道

客戶案例