8,906
社区成员
发帖
与我相关
我的任务
分享用ASP读取表单内容生成XML的问题。
现有一表单，里面有TEXT、TEXTAREA、CHECKBOX、RADIO、SELECT等控件，表单提交后处理程序根据控件的类别、名称、值生成XML文件，请问如何实现？有现成代码最好。
...全文
请发表友善的回复…
发表回复
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>
<%
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
- 打赏
- 举报
预建一模板文件，提交后，读取模板文件，替换
：P
：P
