推奨：ルーチン：ASPを使用して、ファイルアドレスが有効かどうかを判断する以下は引用されたコンテンツです：<％respons.write（<head> <style> <！ - span {font-size：9pt} - > </style> </head＆g
| 以下は引用されたコンテンツです。 ASPを使用してフォームコンテンツをデータベースに挿入します。 <％ '-loader.asp- ' - バージョン1.5.2 ' - 最終更新12/5/2002 ' 'ファイサル・カーン 'www.stardeveloper.com 'バイナリアップロードを処理するためのクラス クラスローダー プライベートディクト private sub class_initialize set dict = server.createobject（scripting.dictionary） End Sub プライベートSub Class_terminate isobject（intdict）の場合 intdict.removeall intdict = Nothingを設定します ifを終了します isobject（dict）の場合 dict.removeall set dict = Nothing ifを終了します End Sub 公共財産がカウントされます count = dict.count プロパティを終了します パブリックサブ初期化 request.totalbytes> 0の場合 薄暗いビンダタ bindata = request.binaryread（request.totalbytes） getdata bindata ifを終了します End Sub パブリック関数getFileData（名前） dict.exists（name）の場合 getFileData = dict（name）.item（value） それ以外 getFileData = ifを終了します エンド関数 パブリック関数getValue（名前） 薄暗いgv dict.exists（name）の場合 gv = cstr（dict（name）.item（value）） gv = left（gv、len（gv）-2） getValue = gv それ以外 getValue = ifを終了します エンド関数 パブリック関数savetofile（名前、パス） dict.exists（name）の場合 薄暗い温度 temp = dict（name）.item（value） 薄暗いfso fso = server.createObject（scripting.filesystemObject）を設定します DIMファイル file = fso.createTextfile（path）を設定します tpoint = 1からlenb（temp）へ file.write chr（ascb（midb、tpoint、1））） 次 file.close savetofile = true それ以外 savetofile = false ifを終了します エンド関数 パブリック関数getFileName（名前） dict.exists（name）の場合 薄暗い温度、テンポス temp = dict（name）.item（filename） temppos = 1 gresurrev（temp、 /） getFileName = MID（TEMP、TEMPPOS） それ以外 getFileName = ifを終了します エンド関数 パブリック関数getFilepath（名前） dict.exists（name）の場合 薄暗い温度、テンポス temp = dict（name）.item（filename） temppos = instrrev（temp、 /） getFilepath = Mid（Temp、1、Temppos） それ以外 getFilepath = ifを終了します エンド関数 パブリック関数getFilePathComplete（名前） dict.exists（name）の場合 getFilePathComplete = dict（name）.item（filename） それ以外 getFilePathComplete = ifを終了します エンド関数 パブリック関数getFilesize（name） dict.exists（name）の場合 getFileSize = lenb（dict（name）.item（value））） それ以外 getFileSize = 0 ifを終了します エンド関数 パブリック関数getFilesizetranslated（名前） dict.exists（name）の場合 temp = lenb（dict（name）.item（value）） temp <= 1024の場合 getFilesizetranslated = temp＆bytes それ以外 temp = formatnumber（（temp / 1024）、2） getFileSizetranslated = temp＆kilobytes ifを終了します それ以外 getFilesizetranslated = ifを終了します エンド関数 パブリック関数getContentType（name） dict.exists（name）の場合 getContentType = dict（name）.item（contentType） それ以外 getContentType = ifを終了します エンド関数 プライベートサブゲットダタ（rawdata） 薄暗いセパレーター セパレーター= Midb（rawdata、1、instrb（1、rawdata、chrb（13））-1） 薄暗いレンズパレーター レンズパレーター=レンブ（セパレーター） dim currentpos currentpos = 1 Dim Instrbyte instrubyte = 1 薄暗い値、mvalue 薄暗いtempvalue tempvalue = instrubyte> 0 strubyte = instrb（currentpos、rawdata、分離器） mvalue = strubyte -currentpos mvalue> 1の場合 value = midb（rawdata、currentpos、mvalue） Dim Begpos、Endpos、Midvalue、nvalue dim intdict intdict = server.createobject（scripting.dictionary）を設定します begpos = 1 strb（1、value、chrb（34）） endpos = instrb（begpos 1、value、chrb（34）） nvalue = endpos 薄暗い名前 namen = midb（value、begpos、endpos -begpos） dim namevalue、isvalid isvalid = true If strb（1、value、stringtobyte（content-type））> 1 begpos = 1 instrb（endpos 1、value、chrb（34）） endpos = instrb（begpos 1、value、chrb（34）） endpos = 0の場合 endpos = begpos 1 isvalid = false ifを終了します midvalue = midb（value、begpos、endpos -begpos） intdict.add filename、trim（bytetostring（midvalue）） begpos = 14 instrb（endpos 1、value、stringtobyte（content-type :)） endpos = instrb（begpos、value、chrb（13）） midvalue = midb（value、begpos、endpos -begpos） intdict.add contentType、トリム（bytetostring（midvalue）） begpos = endpos 4 endpos = lenb（value） namevalue = midb（value、begpos、（（endpos -begpos）-1）） それ以外 namevalue = trim（bytetostring（midb（value、nvalue 5））） ifを終了します isvalid = trueの場合 intdict.add value、namevalue intdict.add name、namen dict.add bytetostring（namen）、intdict ifを終了します ifを終了します currentpos = leenseparator instrbyte ウェンド End Sub エンドクラス プライベート関数StringTobyte（TOCONV） 薄暗いtempchar i = 1の場合（toconv） tempchar = mid（toconv、i、1） stringtobyte = stringtobyte＆chrb（ascb（tempchar）） 次 エンド関数 プライベート関数Bytetostring（toconv） i = 1にlenb（toconv）へ bytetostring = bytetostring＆chr（ascb（midb（toconv、i、1））） 次 エンド関数 ％> 1。ユーザーインターフェイス： <スクリプト言語= javascript> function checkall（form） {for（var i = 0; i <form.elements.length; i） {var e = form.elements [i]; if（e.name！= 'chkall'） e.checked = form.chkall.checked; } } </script> </head> <body> <form method = post action = del.asp name = form1> <表> <tr> <td> <入力タイプ=チェックボックス値= 111 name = tradename>電子メール1 </td> </tr> <tr> <td> <入力タイプ=チェックボックス値= 111 name = tradename>電子メール2 </td> </tr> <tr> <td> <入力タイプ=チェックボックス値= 111 name = tradename>電子メール3 </td> </tr> <tr> <td> <入力タイプ=チェックボックス値= 111 name = tradename>電子メール4 </td> </tr> <tr> <td> <入力タイプ=チェックボックス値= 111 name = tradename>電子メール5 </td> </tr> <tr> <td> <入力タイプ=チェックボックス値= 111 name = tradename>電子メール6 </td> </tr> <tr> <td bgcolor =＃f1fbfc heigh = 25 colspan = 2> <P align = left> <input type = checkbox name = chkall value = on onclick = checkall（this.form）> <font color =＃ff9900>表示されたすべてのメッセージを選択</font> </p> </td> <center> </tr> </table> </form> 2.ファイルdel.aspを削除します <％ 'この行は、データベースに接続するコードを書き込みます 薄暗いID、ストリッド strid = リクエストの各ストリッドについて.form（tradename） id = cint（strid） strid <>の場合 delrs = server.createObject（adodb.Recordset） conn.execute tbname where id =＆cstr（id）から削除 strid = ifを終了します 次 conn.close conn =何も設定しません Response.Redirectは削除されました！ ％> |
共有：ASP Advanced：ASPを使用して、ファイルアドレスが有効かどうかを判断します<％response.write（<head> <style> <！ - span {font-size：9pt} - > </style> </head>）エラーr