Microsoft-VBScript编译器错误'800a0400' 第2页

<%@ language="VBScript" %>
<%
t1 = Request.Form("T1") 
t2 = Request.Form("T2")
t3 = Request.Form("T3")
t4 = Request.Form("T4") 
t5 = Request.Form("T5")
t6 = Request.Form("T6") 
t7 = Request.Form("T7")  
if t1="" OR t2="" OR t5="" then
    Response.Write "有必填数据没有填写!"
else  
    set xmldoc = server.createObject("MSXML.DOMDocument") 
    xmldoc.async = "false" 
    xmldoc.load(server.mappath("studentInfor.xml")) 
    set root = xmldoc.DocumentElement 
    set newNode1 = xmldoc.CreateElement("student")
    root.AppendChild(newNode1) 

    set newNode2 = xmldoc.CreateElement("SN") 
    newNode1.AppendChild(newNode2) 
    newNode2.text = t1 
    set newNode2 = xmldoc.CreateElement("Name") 
    newNode1.AppendChild(newNode2) 
    newNode2.text = t2 

    set attrNode=xmldoc.CreateAttribute("sex")

    newNode2.setAttributeNode(attrNode)
    attrNode.text="T6"

    set attrNode=xmldoc.CreateAttribute("birth")

    newNode2.setAttributeNode(attrNode)
    attrNode.text="T7"

    newNode1.AppendChild(newNode2)
    set newNode2 = xmldoc.CreateElement("Class")

    newNode1.AppendChild(newNode2) 
    newNode2.text = t3 
    set newNode2 = xmldoc.CreateElement("Tel") 
    newNode1.AppendChild(newNode2) 
    newNode2.text = t4 
    set newNode2 = xmldoc.CreateElement("Email")
    newNode1.AppendChild(newNode2) 
    newNode2.text = t5  
    xmldoc.save(server.mappath("student.xml"))
    set xmldoc = nothing 
    Response.Write"客户数据已成功添加!" 
end if //这里是49行
%>
举个例
if 1 = 1 then reponse.write 123是 
if 1 = 1 then
reponse.write 123
enf if
还有 代码注意下缩进，有时候问题很明显就看出来了。

上一页  [1] [2]