建站代码网

热门标签

创建来自表单输入的电子表格

 ASP表单输入多数是能被转换成你想看到的各种类型的格式。理论上来说。多数表单输入或者是提交到一个数据库,像Access或者SQL,或者是发送到邮件地址或者是一些其他应用程序的输出。在之前的例子中我们已经甚至演示了ASP表单输入怎样直接用来写出永久的html文件到服务器的。ASP表单输入到HTML。在这个例子中我们会用到用户输入,在服务器上创建一个电子表格文件输入。用户输入的标题将会被用来命名这个文件,因此标题包括@#$%^&*()+= are invalid。当利用在你的网站的这个脚本时,要注意的是你执行asp代码的目录必须已经写出了用户在服务器建立的权限。

<% '检查看看标题是否已经输入 u_title=request.form("u_title") if u_title = "" then %> <html> <body bgcolor="#FFFFFF"> <!-- Input form area - This will only display when no Title has been entered --> <form method="POST" action="<%= request.servervariables("script_name") %>"> document Title<br> <input type="text" name="u_title" size="35"> <br><br> Cell 1 <br> <textarea rows="2" name="u_cell1" cols="35"></textarea> <br><br> Cell 2 <br> <textarea rows="2" name="u_cell2" cols="35"></textarea> <input type="submit" value="Submit" ></p> </form> <% else
'如果有用户输入了标题
‘获得所有的用户输入值

u_title=request.form("u_title") u_cell1=request.form("u_cell1") u_cell2=request.form("u_cell2")

‘创建的电子表格文件名的变量。空格用来改变下划线
‘之后当前日期被添加来试图创建iyeg特殊的文件
‘用户不会输入在这个例子中的无效的文件名

‘[email protected]#$%^&*()+= that are字符 g_filename=replace(u_title," ","_") set fso = createobject("scripting.filesystemobject") '创建文本文件(xls)到服务器来添加the -mmddyyyy after the g_title value Set act = fso.CreateTextFile(server.mappath(""&g_filename & "-"& month(date())& day(date())& year(date()) &".xls"), true)

‘写出所有的用户输入文本(xls)文档
‘如果你移动包括顶部和在html标签里的参考xml
‘开始页面/电子表格文件。这是来添加网格线和
‘电子表格工作表的标题的

act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">" act.WriteLine "<head>" act.WriteLine "<!--[if gte mso 9]><xml>" act.WriteLine "<x:ExcelWorkbook>" act.WriteLine "<x:ExcelWorksheets>" act.WriteLine "<x:ExcelWorksheet>" act.WriteLine "<x:Name>"& u_title &"</x:Name>" act.WriteLine "<x:WorksheetOptions>" act.WriteLine "<x:Print>" act.WriteLine "<x:ValidPrinterInfo/>" act.WriteLine "</x:Print>" act.WriteLine "</x:WorksheetOptions>" act.WriteLine "</x:ExcelWorksheet>" act.WriteLine "</x:ExcelWorksheets>" act.WriteLine "</x:ExcelWorkbook>" act.WriteLine "</xml>" act.WriteLine "<![endif]--> " act.WriteLine "</head>" act.WriteLine "<body>" act.WriteLine "<table>" act.WriteLine "<tr>" act.WriteLine "<td>" act.WriteLine u_cell1 act.WriteLine "</td>" act.WriteLine "<td>" act.WriteLine u_cell2 act.WriteLine "</td>" act.WriteLine "</tr>" act.WriteLine "</table>" act.WriteLine "</body>" act.WriteLine "</html>"
'关闭文件

act.close %> Your excel has been successfully create and can be viewed by clicking <a href="<%= g_filename &"-"& month(date())& day(date())& year(date()) %>.xls" target="_blank">here</a> <%
'最后检查表单输入

end if %> </body> </html>


X