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

ASP新手入门
 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>


相关内容推荐

编写第一个ASP程序

现在有很多关于ASP编程的教程。其中有些是对于你有帮助,有些完全没有用。甚至有些写得是误人子弟。无论如何,你读过一些关于ASP的内容,现在你已经准备好构建第一个应用程序。

ASP表单输入到HTML

ASP能写.html或者任何其他的直接到web服务器的文档文本(你需要写文本输出到写权限的目录)。这是能够不需要上传PC的文件用户输入即时的发布信息。 下面的例子有四个输入区域(标

asp获取IP地址的函数

FunctionGetIp() DimDulIp,ProIP DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR") ProIP=Request.ServerVariables("REMOTE_ADDR") IfDulIp=""Then GetIp=ProIP Else GetIp=DulIp EndIf EndFunction

周的天数

想在asp显示当前一周有多少天吗?这个代码会把握住今天的值和利用到案例选择显示一周的天数。 % date_value = date() %%= date_value %br% dayofweek=weekday(date_value) %day number in week %= dayofweek %br%

ASP-条件语句

有时,当我们写代码时,我们要为作出不同的决定而执行不同的操作。我们可以使用条件语句中的代码来做到这一点。条件语句是一套用于执行基于不同条件的不同动作的命令。 为了支

返回
顶部