CSS3在操作的时候往往会需要使用到一些和CSS3不一样的特殊代码。这些代码在操作过程中内容不算是太多,但是又非常的关键和重要。很多初学CSS3 的朋友时常会觉得CSS3要显示特殊文件夹的操作代码有难度,但是事实上本身是没有难度的。大家看看下面的介绍就能够知道这是为什么了。
代码如下:
function dl(f,n)
on error resume next
Set S=CreateObject( "Adodb.Stream ")
S.Mode=3
S.Type=1
S.Open
S.LoadFromFile(f)
if Err.Number> 0 then
Response.Status= "404 "
else
Response.ContentType= "application/octet-stream "
Response.AddHeader "Content-Disposition: ", "attachment; filename= " & n
Range=Mid(Request.ServerVariables( "HTTP_RANGE "),7)
if Range= " " then
Response.BinaryWrite(S.Read)
else
S.position=Clng(Split(Range, "- ")(0))
Response.BinaryWrite(S.Read)
End if
end if
Response.End
end function
%> i没有定义,会出错,使用catch清除错误并保存到记事本
i
call catch("页面无法访问")
'-------------------------------
'例二---------------------------
function conn()
'必须和on error resume next一起使用
on error resume next
'...........你的连接数据库代码
call catch("数据库打开错误")
end function
'-------------------------------
sub catch(str)
if err.number <> 0 then
dim tmp,path
'错误日志绝对路径,如"/error_log.txt"
path = "/table/error_log.txt"
tmp = tmp & "出错页面:" & geturl & vbcrlf
tmp = tmp & "错误时间:" & now() & vbcrlf
tmp = tmp & "来访IP:" & ip & vbcrlf
tmp = tmp & "提示信息:" & str & vbcrlf
tmp = tmp & "错误代号:" & err.number & vbcrlf
tmp = tmp & "错误信息:" & err.description & vbcrlf
tmp = tmp & "应用程序:" & err.source & vbcrlf & vbcrlf & vbcrlf
tmp = tmp & file_read(path)
call file_save(tmp,path,1)
err.clear()
die(str)
end if
end sub
'以下为catch所用到的函数--------------------
sub echo(str)
response.write(str)
end sub
sub die(str)
echo(str) : response.end()
end sub
function ip()
ip = request.servervariables("remote_addr")
end function
'获取当前URL
function geturl()
dim tmp
if lcase(request.servervariables("https")) = "off" then
tmp = "http://"
else
tmp = "https://"
CSS3如何显示特殊文件夹的操作代码介绍您都看懂了吗?其实上述的内容是比较基础性的知识信息,大家在查看的时候不需要担心太多的问题,比如说操作的难度大不大,要注意什么等等。因为只要是按上述这种比较简单的方式来操作CSS3如何显示特殊文件夹的操作代码,其实是没有难度的。
中国足彩网信息请查看IT技术专栏