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

海南世紀(jì)云圖網(wǎng)絡(luò)科技有限公司
咨詢熱線:400-822-8458 客戶服務(wù):0898-32183600

Asp實(shí)例刪除Split分隔的內(nèi)容其中的某一部份

發(fā)表于:2011-07-19 00:00:00來源:SOUAB.COM人氣:3656

示例代碼:

ASP/Visual Basic代碼
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>   
  2. <%Action=Request.QueryString("Action")   
  3. Dim aID,aryTemp,Total,i,j,csID   
  4. csID=25   
  5. j=1%>   
  6. <html>   
  7. <head>   
  8. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />   
  9. <title>實(shí)例刪除Split分隔的內(nèi)容其中的某一部份</title>   
  10. <style type="text/css">   
  11. * {margin:0px; padding:0px; line-height:180%;}   
  12. a {color:#666666; text-decoration:none;}   
  13. </style>   
  14. </head>   
  15. <body>   
  16. <%   
  17. Function RtnReplaceInt(iCheck,iDefault)    
  18.  If Trim(iCheck)="" Then  
  19.   RtnReplaceInt = iDefault   
  20.   Exit Function  
  21.  End If  
  22.  If IsNumeric(iCheck)=false Then  
  23.   RtnReplaceInt = iDefault   
  24.   Exit Function  
  25.  End If  
  26.  RtnReplaceInt = iCheck   
  27. End Function  
  28. Select Case Action   
  29. Case "Add"  
  30. Call AddPic   
  31. Case "Delete"  
  32. Call DeletePic   
  33. Case else   
  34. Manage   
  35. End Select  
  36. sub Manage   
  37. end sub   
  38. sub DeletePic   
  39. uPic=Request("DelPic")   
  40. Str=Request("nPic")   
  41. Str=Replace(Str,uPic",","")   
  42. Str=Replace(Str,","&uPic,"")   
  43. 'Response.Write(""&Str&"")   
  44. 'Response.End()   
  45. PicID=RtnReplaceInt(Request("PicID"),0)   
  46. sql="update 表名 set 字段='"&Str"' where 數(shù)據(jù)庫ID in ("&Request("PicID")")"    
  47. conn.execute(sql)    
  48. Response.write"<script>alert('操作成功!');location.href='?Action=Manage'</script>"  
  49. Response.end   
  50. end sub%>   
  51. <p> </p>   
  52. <table width="80%" border="0" align="center" cellspacing="0">   
  53.   <tr>   
  54.   <%aID="20101111212349940.jpg,20101111212351417.jpg,20101111212357390.jpg,20101111212402671.jpg,20101111212404837.jpg"  
  55. aryTemp = Split(aID,",")   
  56. Total=UBound(aryTemp)   
  57. for i=0 to Total   
  58. %>   
  59.     <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>   
  60.  <%   

    文章整理: 世紀(jì)云圖  http://www.usk2.com/

    以上信息與文章正文是不可分割的一部分,如果您要轉(zhuǎn)載本文章,請(qǐng)保留以上信息,謝謝!

    版權(quán)申明:本站文章部份來自網(wǎng)絡(luò),如有侵權(quán),請(qǐng)聯(lián)系我們,我們收到后立即刪除,謝謝!

    特別注意:本站部份轉(zhuǎn)載文章言論不代表本站觀點(diǎn),本站所提供的攝影照片,插畫,設(shè)計(jì)作品,如需使用,請(qǐng)與原作者聯(lián)系,版權(quán)歸原作者所有。

主站蜘蛛池模板: 精品不卡| 国产激情美女久久久久久吹潮 | 黄色精品| 国产一区二区三区在线 | 亚洲精品动漫久久久久 | 亚洲欧美一区二区久久 | 狠狠地操 | 欧美精品在线观看 | 国产精品国产三级国产在线观看 | 亚洲欧美综合精品久久成人 | 日韩天堂网 | 国产午夜精品久久久 | 精品国产青草久久久久福利 | 国产网站在线 | 午夜精品久久久久久久久久久久久蜜桃 | 久久久久久久久久美女 | 久久久精品美女 | 亚洲永久精品国产 | 国产一区二区三区电影在线观看 | 中文字幕 欧美 日韩 | 婷婷激情在线观看 | 综合av网| 欧美日韩激情 | 91精品国产麻豆国产自产在线 | 久久久久久久久久久91 | 天堂中文字幕在线观看 | 黄色av地址 | 成年人黄色网址 | 日韩综合网 | 久久一| 爱情岛亚洲论坛av入 | 久久国产午夜 | 精品久久小视频 | 亚洲首页在线 | 免费在线成人av | 精品久久久久久久久久中出 | 国产精品视频久久久 | 激情视频国产 | 超碰三级电影 | swag国产精品一区二区 | 欧美1234区 |