用ASP读取表单内容生成XML的问题。

CHARGING 2003-08-19 09:32:00

现有一表单，里面有TEXT、TEXTAREA、CHECKBOX、RADIO、SELECT等控件，表单提交后处理程序根据控件的类别、名称、值生成XML文件，请问如何实现？有现成代码最好。

...全文

66 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

CHARGING 2003-08-19

打赏
举报

果然厉害，请接分！！！

CHARGING 2003-08-19

打赏
举报

多谢！

我试下先！

ssm1226 2003-08-19

打赏
举报

<%@ Language=VBScript %>
<%
if Request.Form.Count>0 then
dim xmldoc,name,sex,other,strTemplateFile,strToSave

strTemplateFile=server.MapPath("template.xml")
strToSave=server.MapPath("post1.xml")

name=Request.Form("name")
sex=Request.Form("sex")
other=Request.Form("other")

name=EntityEncode(name)
other=EntityEncode(other)

set xmldoc=server.CreateObject("MSXML2.DOMDocument")
xmldoc.async=false
xmldoc.load strTemplateFile

xmldoc.selectSingleNode("//Name").text=name
xmldoc.selectSingleNode("//Sex").text=sex
xmldoc.selectSingleNode("//Other").text=other

xmldoc.save strToSave

Response.Write "保存成功！"
end if

Function EntityEncode(s)

s = Replace(s, "&", "&")
s = Replace(s, "<", "<")
s = Replace(s, ">", ">")
s = Replace(s, "'", "'")
s = Replace(s, """", """)

EntityEncode = s
End Function
%>
<HTML>
<HEAD>

</HEAD>
<BODY>

<form name=frm action=post.asp method=post>
姓名：<input type=text name=name id=name><br>
性别：<input type=radio name=sex id=sex value=0 checked>男<input type=radio name=sex id=sex value=1>女<br>
其它：<textarea name=other id=other></textarea><br>
<INPUT type="submit" value="Submit" id=submit1 name=submit1>
</form>
</BODY>
</HTML>

template.xml:

<ROOT>
<Name></Name>
<Sex></Sex>
<Other></Other>
</ROOT>

ssm1226 2003-08-19