ASP教程之组件开发及组件注册和操作Word文档

3． 操作XML文件

本次交流时间有限，有时间再做详细探讨

4．文件上传

⑴．安装文件上传组件Asp fileup（支持多文件上传，文件类型及大小判断，文件上传后改名等）
⑵．重起IIS以使上传组件生效
⑶．设置上传目录的文件权为Internet用户可以读取、写入和修改
⑷．代码部分
upload_file.htm
<style type="text/css">
<!--
.input {background-color: #FFFFFF; border-bottom: black 1px solid;border-left: black 1px solid; border-right: black 1px solid;border-top: black 1px solid; color: #000000;font-family: Georgia; font-size: 9pt;color: midnightblue;}
a:link {color: #1B629C; text-decoration: none}
a:hover {color: #FF6600; text-decoration: underline}
a:visited {text-decoration: none}
-->
</style>

<center>
<form enctype="multipart/form-data" method="post" action="upload_file.asp" name="Upload">
<input type="hidden" name="CopyrightInfo" value="http://www.chinaasp.com">
请选择文件：<input type="file" name="file1" class="input"><br><br>
请选择文件：<input type="file" name="file2" class="input"><br><br>
</form>
<br><br>
<a href="javascript:document.Upload.submit();"> 提 交 </a>
</center>

upload_file.asp
<%
on error resume next

'定义获得文件后缀的函数
function getfileextname(filename)
pos=instrrev(filename,".")
if pos>0 then
getfileextname=mid(filename,pos+1)
else
getfileextname=""
end if
end function

'定义获取文件正名的函数
function getfilename(filename)
lens=len(filename)-len(getfileextname(filename))-1
getfilename=left(filename,lens)
end function

'创建文件上传组件的对象
set fileup=server.createobject("chinaasp.upload")

'循环读取用户上传的文件，并保存在服务器上
for each f in fileup.files

'当用户没有选择文件或文件大小超过10m时返回到选择上传文件的页面
if f.filename="" or f.filesize>10485500 then response.redirect "upload_file.htm"

'获取保存的路径
path=server.mappath("upload_file.asp")
path=left(path,len(path)-15)

'保存文件
f.saveas path&getfilename(f.filename)&"."&getfileextname(f.filename)

next

response.redirect "upload_file.htm"
%>

5．驱动器/目录/文件操作

本次交流时间有限，有时间再做详细探讨

6． Asp编写与调试经验：cookies和session如何选择、cookies数量陷阱、页面过期和缓冲设定、移植性如何保证、如何应付内部服务器500错误……

1．Cookies和Session的选择：
⑴．共同特点
⑵．不同之处：
①．工作方式
②．过期条件
③．对服务器的性能影响

2．Cookies数量陷阱：
IIS可以保存一般的cookies不超过20个，再定义新的Cookies以前的Cookies的值就丢失了，这样对大型应用显然局限性非常大，如何解决这个问题呢？
答案是使用二维Cookies。

例子：

测试一维Cookies数量极限：
test_cookies_1.asp
<%
for i=1 to 50
response.cookies("cookies_"&i)=i
next
%>

test_cookies_2.asp
<%
for i=1 to 50
response.write request.cookies("cookies_"&i)&"<br>"
next
%>

效果：
先访问test_cookies_1.asp，再访问test_cookies_2.asp,，发现了什么？

test_cookies_3.asp
<%
for i=1 to 50
response.cookies("cookies_"&i)=i
next

for i=1 to 50
response.write request.cookies("cookies_"&i)&"<br>"
next
%>

效果：
没有Cookies丢失！！！！

测试二维Cookies数量极限：
test_cookies_4.asp
<%
for i=1 to 301
response.cookies("tuht")("cookies_"&i)=i
next
%>

test_cookies_5.asp
<%
for i=1 to 301
response.write request.cookies("tuht")("cookies_"&i)&"<br>"
next
%>

效果：
使用这种方式可以使用201*20=4020个Cookies！！！！

3．页面过期和缓冲设定
<%
'过期和缓冲处理
response.buffer=true
response.cachecontrol="no-chache"
response.expiresabsolute=now()-1
response.expires=0
%>
html中还可以做设定：
<meta content="no-cache" http-equiv="Pragma">
<meta HTTP-EQUIV="Expires" CONTENT="0">

4．移植性的保证
⑴．包含文件
<!--#include file="top.asp" -->
⑵．使用server.mappath寻找文件路径，避免在页面中直接使用绝对路径
⑶．尽量使用组件封装业务逻辑

5．调试内部服务器500的错误
⑴．设置IIS显示具体的错误信息
⑵．分步调试，由上而下
⑶．打印某些重要的变量的值，检查是否为我们预期
⑷．根据经验来判断错误

7． 操作Word文档