実例の練習ASP+XMLプログラミングは全体の第1/2ページになりました。

18195 ワード

本論文は実例をあげて解説する文章である。普通のプログラマとして、優秀なルーチンはプログラミングを勉強している人にとってどれほど役に立ちますか？本論文で使用するルーチンは、情報管理プログラムに連絡して、自分と友達が互いに連絡し合うために書いています。しかしスズメは小さいが、五臓がそろっていて、ASP＋XMLのプログラミングを勉強している友達に対して、一定の参考価値があると信じています。読者はこの実例を通してASP（Active）で理解できます。 Server Page）でどのようにXMLファイルを操作し、XMLノードの作成、修正、削除、保存などのデータの各種処理を行いますか？本文で関連する技術はASP、VBScript、DOM、XMLとXSLなどを含みます。本論文では使用した技術について深い理論紹介を行っていないので、読者はある程度の関連知識を必要とします。特にASP、XML、DOMに対して一定の理解が必要です。本文を読んで、ソースコードを参考にして、読者はきっとXMLプログラミングを上手に把握できると信じています。一、プログラム説明ルーチンはB/S構造に基づいて、XMLファイルを使って連絡情報を保存し、VBS Scriptで書いたクラスを通して、DOMを使って、XMLファイルの連絡情報を各種操作します。このルーチンで提供されるコードは統一されたネーミング仕様を採用しています。主に3文字の略語で変数の種類を説明します。数字の種類――int、文字列のタイプ――str、対象――objなど、ASP/VBScriptではデータの種類を区別しませんが、明らかなデータタイプの説明を使ってプログラムの作成とメンテナンスに意義があります。意味のある変数名を使用して、XMLDocumentオブジェクトのように、ObjXml Dockと定義するなど、同様に、より良い作成と維持のためのプログラムです。このプログラムはバックグラウンドデータ処理とフロントインターフェース表現の二つの部分に分けられます。プログラムのバックグラウンドはVBS Scriptを使ってクラスを作成しました。これはVB Script 5.0版に提供された新しい特性です。ここではクラスの概念は本当に対象に向けて遠いですが、ASPでは合理的にクラスを使っています。ある程度プログラムの運行効率とメンテナンス性を高めることができます。フロントパフォーマンスは、XSLを使用してXMLファイルのデータをフォーマットし、HTML形式でクライアントに出力し、XML技術の柔軟性とカスタマイズ性を十分に表しています。フォーマットのプロセスはサーバー端に置いて、ASPプログラムを使って完成しました。このように、クライアントはフォーマットされた後のHTML情報を得て、互換性の問題が発生することを避けました。もちろん、プログラムは、特定の操作の詳細については、非常に厳密な検査は行われていませんが、ASPではDOMを使用してXMLの関連部分を操作するために、プログラムは完全な例示コードを提供しています。二、XMLファイルの説明（persons.xml）ルーチンで使用されるXMLファイルの構造は非常に簡単であり、関連するSchemaまたはDMDを定義していないので、このプログラムについては必要ではない。もちろん、読者が自分で定義したいなら、プログラムの運行に影響を与えません。プログラムのデータ構造は以下のように定義されています。Personsの集合は複数のPersonオブジェクトを含み、各Personオブジェクトは名前Name、英語名Nick、携帯電話Mobile、電話Tel、電子メールEmail、騰訊QQと所在会社Companyの属性を含みます。以上の定義をXMLファイルに対応する、すなわちPersonsはルートノードであり、PersonはPersonsのサブノードであり、Name、Nick、Mobile、Tel、Email、QQ、CompanyはPersonのサブノードである。このように、私達が得たXMLファイルの内容は以下の通りです。

  
<Persons>  
<Person>  
 　　　　<Name>  </Name>  
<Nick>gwd</Nick>  
<Mobile>139XXXXXXXX</Mobile>  
<Tel>XXXXXXXX</Tel>  
<Email>[email protected]</Email>  
<QQ>7066015</QQ>  
<Company>XXX</Company>  
<Person>  
</Person>

読者は注意が必要です。xml version=「1.0」 encoding=「gb 2312」この行はXMLはデフォルトでは中国語に対応していません。encoding属性を設定することによって、XMLは正確に中国語を表示することができます。読者はIE 5.0および以上のバージョンのブラウザでこのファイルにアクセスできます。ツリー構造はデータを表示します。三、フォーマット変換XSLファイル説明（Persons.xsl）ルーチンでXSLを使用してXMlデータをフォーマットし、HTML形式でクライアントに返信します。このプロセスはクライアントにおいても良いが、互換性の問題を考慮して、サーバ端でASPによってDOMを操作するフォーマットを採用している。XSLファイルの内容は以下の通りです。

  
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">  
<xsl:template match="/Persons">  
<script language="javascript">  
　function add()  
　{  
　　window.open("add.asp", "add", "width=300,height=320,resize=no");  
　}  

　function edit(intId)  
　{  
　　window.open("edit.asp?id="+intId, "edit", "width=300,height=320,resize=no");  
　}  
</script>  
<table width="600" border="0" align="center">  
　<tr>  
　　<td align="right"><a href="javascript:add();" title="      ">      </a>　　</td>  
　</tr>  
</table>  

<table align="center" width="680" cellspacing="1" cellpadding="2" border="0" bgcolor="#666600">  
　<tr class="title" bgcolor="#E5E5E5">  
　　<td width="25"><xsl:text disable-output-escaping="yes">&</xsl:text>nbsp;</td>  
　　<td>  </td>  
　　<td>   </td>  
　　<td>  </td>  
　　<td>  </td>  
　　<td>Email</td>  
　　<td>QQ</td>  
　　<td>    </td>  
　</tr>  
　<xsl:for-each select="Person">  
　<TR BGCOLOR="#FFFFFF">  
　　<TD ALIGN="right"><xsl:value-of select="position()"/></TD>  
　　<TD STYLE="color:#990000"><A><xsl:attribute name="HREF">javascript:edit('<xsl:value-of select="position  
()"/>');</xsl:attribute><xsl:attribute name="title">    　　</xsl:attribute><xsl:value-of select="Name"/></A></TD>  
　　<TD><xsl:value-of select="Nick"/></TD>  
　　<TD><xsl:value-of select="Mobile"/></TD>  
　　<TD><xsl:value-of select="Tel"/></TD>  
　　<TD><A><xsl:attribute name="HREF">mailto:<xsl:value-of select="Email"/></xsl:attribute><xsl:value-of   
select="Email"/></A></TD>  
　　<TD><xsl:value-of select="QQ"/></TD>  
　　<TD><xsl:value-of select="Company"/></TD>  
　</TR>   
　</xsl:for-each>  
</table>  
</xsl:template>   
</xsl:stylesheet>

のサーバー端での変換は関数を使用して行われ、フォーマットに成功し、HTML文字列に戻り、フォーマットに失敗しました。エラー情報は下記の通りです。

'*******************************************  
'   ：  XSL     XML  。  
'   ：gwd 2002-11-05  
'   ：strXmlFile -- Xml  ，  ＋     
' strXslFile -- Xsl  ，  ＋     
'   ：   --      HTML     
'    --           
'*******************************************  
Function FormatXml(strXmlFile, strXslFile)  
　Dim objXml, objXsl  

　strXmlFile = Server.MapPath(strXmlFile)  
　strXslFile = Server.MapPath(strXslFile)  

　Set objXml = Server.CreateObject("MSXML2.DOMDocument")  
　Set objXsl = Server.CreateObject("MSXML2.DOMDocument")  

　objXML.Async = False  
　If objXml.Load(strXmlFile) Then  
　　objXsl.Async = False  
　　objXsl.ValidateonParse = False  
　　If objXsl.Load(strXslFile) Then  
　　　On Error Resume Next '   transformNode       
　　　FormatXml = objXml.transformNode(objXsl)  
　　　If objXsl.parseError.errorCode <> 0 Then  
　　　　Response.Write "<br><hr>"  
　　　　Response.Write "Error Code: " & objXsl.parseError.errorCode  
　　　　Response.Write "<br>Error Reason: " & objXsl.parseError.reason  
　　　　Response.Write "<br>Error Line: " & objXsl.parseError.line  
　　　　FormatXml = "<span class=""alert"">   XML    ！</span>"  
　　　End If  
　　Else  
　　　Response.Write "<br><hr>"  
　　　Response.Write "Error Code: " & objXsl.parseError.errorCode  
　　　Response.Write "<br>Error Reason: " & objXsl.parseError.reason  
　　　Response.Write "<br>Error Line: " & objXsl.parseError.line  
　　　FormatXml = "<span class=""alert"">  XSL    ！</span>"  
　　End If   
　Else  
　　Response.Write "<br><hr>"  
　　Response.Write "Error Code: " & objXml.parseError.errorCode  
　　Response.Write "<br>Error Reason: " & objXml.parseError.reason  
　　Response.Write "<br>Error Line: " & objXml.parseError.line  
　　FormatXml = "<span class=""alert"">  XML    ！</span>"  
　End If  

　Set objXsl = Nothing  
　Set objXml = Nothing  
End Function

四、Xmlデータを操作するClas_Person類説明(clsPerson.asp)Clas_Person類は連絡先情報に関する各種の操作を完成するために用いられます。添加、修正、削除などを含みます。VBS Scriptを使って作成します。ClasPersonは、Id、Name、Nick、Mobile、Tel、Email、QQ、Company属性を含み、XMLファイルのPersonノードに対応する。ClasPersonはGetInfoFroomXml、AddToXml、Edit ToXml、DeleteFormXmlの4つの主要な方法を含み、それぞれ情報を取得し、情報を追加し、情報を修正し、情報を削除する4つの機能があります。ClasPersonの具体的な実現は以下の通りである。

'***************************************************  
'   ：Person   
'   ：gwd 2002-11-06  
'   ：pub/constpub.asp  
'***************************************************  

Class Cls_Person  

Private m_intId ' Id，  Person   Persons        
Private m_strName '     
Private m_strNick '      
Private m_strMobile '     
Private m_strTel '     
Private m_strEmail '       
Private m_strQQ ' QQ   
Private m_strCompany '       
Private m_strError '       

'       
Private Sub Class_Initialize()  
　m_strError = ""  
　m_intId = -1  
End Sub  

'      
Private Sub Class_Terminate()  
　m_strError = ""  
End Sub  

'-----      ---------------------------  

Public Property Get Id  
　Id = m_intId  
End Property  

Public Property Let Id(intId)  
　m_intId = intId  
End Property  

Public Property Get Name  
Name = m_strName  
End Property  

Public Property Let Name(strName)  
　m_strName = strName  
End Property  

Public Property Get Nick  
　Nick = m_strNick  
End Property  

Public Property Let Nick(strNick)  
　m_strNick = strNick  
End Property  

Public Property Get Mobile  
　Mobile = m_strMobile  
End Property  

Public Property Let Mobile(strMobile)  
　m_strMobile = strMobile  
End Property  

Public Property Get Tel  
　Tel = m_strTel  
End Property  

Public Property Let Tel(strTel)  
　m_strTel = strTel  
End Property  

Public Property Get Email  
　Email = m_strEmail  
End Property  

Public Property Let Email(strEmail)  
　m_strEmail = strEmail  
End Property  

Public Property Get QQ  
　QQ = m_strQQ  
End Property  

Public Property Let QQ(strQQ)  
　m_strQQ = strQQ  
End Property  

Public Property Get Company  
　Company = m_strCompany  
End Property  

Public Property Let Company(strCompany)  
　m_strCompany = strCompany  
End Property  

'-----------------------------------------------  

'         
Public Function GetLastError()  
　GetLastError = m_strError  
End Function  

'     ，        
Private Sub AddErr(strEcho)  
　m_strError = m_strError + "<Div CLASS=""alert"">" & strEcho & "</Div>"  
End Sub  

'         
Public Function ClearError()  
　m_strError = ""  
End Function  

'  Xml          ，         
'       Id  
Public Function GetInfoFromXml(objXmlDoc)  
　Dim objNodeList  
　Dim I  

　ClearError  

　If objXmlDoc Is Nothing Then  
　　GetInfoFromXml = False  
　　AddErr "Dom     "  
　　Exit Function  
　End If  

　If CStr(m_intId) = "-1" Then  
　　GetInfoFromXml = False  
　　AddErr "           ID  "  
　　Exit Function  
　Else  
　　I = m_intId - 1 '           
　End If  

　'          ，        
　Set objNodeList = objXmlDoc.getElementsByTagName("Person")  
　If objNodeList.length - m_intId >= 0 Then  
　　On Error Resume Next  
　　m_strName = objNodeList(I).selectSingleNode("Name").Text  
　　m_strNick = objNodeList(I).selectSingleNode("Nick").Text  
　　m_strMobile = objNodeList(I).selectSingleNode("Mobile").Text  
　　m_strTel = objNodeList(I).selectSingleNode("Tel").Text  
　　m_strEmail = objNodeList(I).selectSingleNode("Email").Text  
　　m_strQQ = objNodeList(I).selectSingleNode("QQ").Text  
　　m_strCompany = objNodeList(I).selectSingleNode("Company").Text  
　　GetInfoFromXml = True  
　Else  
　　GetInfoFromXml = False  
　　AddErr "          "  
　　Set objNodeList = Nothing  
　　Exit Function  
　End If  
　Set objNodeList = Nothing  
End Function  

'      XML     
'                
Public Function AddToXml(objXmlDoc)  
　Dim objPerson, objNode  

　ClearError  

　If objXmlDoc Is Nothing Then  
　　AddToXml = False  
　　AddErr "Dom     "  
　　Exit Function  
　End If  

　'   Person    
　Set objPerson = objXmlDoc.createElement("Person")  
　objXmlDoc.documentElement.appendChild objPerson  

　'          
　'-----------------------------------------------------  
　Set objNode = objXmlDoc.createElement("Name")  
　objNode.Text = m_strName  
　objPerson.appendChild objNode  

　Set objNode = objXmlDoc.createElement("Nick")  
　objNode.Text = m_strNick  
　objPerson.appendChild objNode  

　Set objNode = objXmlDoc.createElement("Mobile")  
　objNode.Text = m_strMobile  
　objPerson.appendChild objNode  

　Set objNode = objXmlDoc.createElement("Tel")  
　objNode.Text = m_strTel  
　objPerson.appendChild objNode  

　Set objNode = objXmlDoc.createElement("Email")  
　objNode.Text = m_strEmail  
　objPerson.appendChild objNode  

　Set objNode = objXmlDoc.createElement("QQ")  
　objNode.Text = m_strQQ  
　objPerson.appendChild objNode  

　Set objNode = objXmlDoc.createElement("Company")  
　objNode.Text = m_strCompany  
　objPerson.appendChild objNode  
　'-----------------------------------------------------  

　Set objNode = Nothing  
　Set objPerson = Nothing  

　 On Error Resume Next  
　objXmlDoc.save Server.MapPath(C_XMLFILE) '  XML    
　If Err.Number = 0 Then  
　　AddToXml = True  
　Else  
　　AddToXml = False  
　　AddErr Err.Description  
　End If  
End Function  

'  XML         
'       Id  
Public Function DeleteFromXml(objXmlDoc)  
　Dim objNodeList, objNode  

　ClearError  

　If objXmlDoc Is Nothing Then  
　　DeleteFromXml = False  
　　AddErr "Dom     "  
　　Exit Function  
　End If  

　If CStr(m_intId) = "-1" Then  
　　DeleteFromXml = False  
　　AddErr "           ID  "  
　　Exit Function  
　End If  

　Set objNodeList = objXmlDoc.getElementsByTagName("Person")   
　If objNodeList.length - m_intId < 0 Then  
　　DeleteFromXml = False  
　　AddErr "         "  
　　Set objNodeList = Nothing  
　　Exit Function  
　End If  

　On Error Resume Next  
　Set objNode = objXmlDoc.documentElement.removeChild(objNodeList(intId-1))  
　If objNode Is Nothing Then  
　　DeleteFromXml = False  
　　AddErr "       "  
　　Set objNodeList = Nothing  
　　Exit Function  
　Else  
　　objXmlDoc.save Server.MapPath(C_XMLFILE)  
　End If  
　Set objNode = Nothing  
　Set objNodeList = Nothing  

　If Err.Number = 0 Then  
　　DeleteFromXml = True  
　Else  
　　DeleteFromXml = False  
　　AddErr Err.Description  
　End If  
End Function  

'   XML        
'        Id  
Public Function EditToXml(objXmlDoc)  
　Dim objPersonList, objOldPerson, objNewPerson, objNode  

　ClearError  

　If objXmlDoc Is Nothing Then  
　　EditToXml = False  
　　AddErr "Dom     "  
　　Exit Function  
　End If  

　If CStr(m_intId) = "-1" Then  
　　EditToXml = False  
　　AddErr "           ID  "  
　　Exit Function  
　End If  

　Set objPersonList = objXmlDoc.getElementsByTagName("Person")   
　If objPersonList.length - m_intId < 0 Then  
　　DeleteFromXml = False  
　　AddErr "         "  
　　Set objPersonList = Nothing  
　　Exit Function  
　End If  

　Set objOldPerson = objPersonList(m_intId-1) '          

　Set objNewPerson = objXmlDoc.createElement("Person") '              
　Set objNode = objXmlDoc.createElement("Name")  
　objNode.Text = m_strName  
　objNewPerson.appendChild objNode  

　Set objNode = objXmlDoc.createElement("Nick")  
　objNode.Text = m_strNick  
　objNewPerson.appendChild objNode  

　Set objNode = objXmlDoc.createElement("Mobile")  
　objNode.Text = m_strMobile  
　objNewPerson.appendChild objNode  

　Set objNode = objXmlDoc.createElement("Tel")  
　objNode.Text = m_strTel  
　objNewPerson.appendChild objNode  

　Set objNode = objXmlDoc.createElement("Email")  
　objNode.Text = m_strEmail  
　objNewPerson.appendChild objNode  

　Set objNode = objXmlDoc.createElement("QQ")  
　objNode.Text = m_strQQ  
　objNewPerson.appendChild objNode  

　Set objNode = objXmlDoc.createElement("Company")  
　objNode.Text = m_strCompany  
　objNewPerson.appendChild objNode  

　On Error Resume Next  
　'       
　Set objNode = objXmlDoc.documentElement.replaceChild(objNewPerson, objOldPerson)  
　If objNode Is Nothing Then  
　EditToXml = False  
　AddErr "       "  
　Set objOldPerosn = Nothing  
　Set objNewPerson = Nothing  
　Set objPersonList = Nothing  
　Exit Function  
Else  
　objXmlDoc.save Server.MapPath(C_XMLFILE)  
End If  

Set objOldPerson = Nothing  
Set objNewPerson = Nothing  
Set objPersonList = Nothing  

If Err.Number = 0 Then  
　EditToXml = True  
Else  
　EditToXml = False  
　AddErr Err.Description  
End If  
End Function  

End Class

1 2 次のページ全文を読む

オリジナルJavascriptを使って計算機の実例コードを開発します。

FormValid 0.5バージョンがリリースされ、ajaxを持ってカスタム検証例があります。