ASP中使用.inc文件技巧-优快云博客

本文链接：https://blog.youkuaiyun.com/wxl2012/article/details/5263924

【what's inc file】
　　.inc 文件顾名思义是include file的意思。实际上，文件的后缀对于文件包含是无所谓，你可以包含一个asp文件，也可以包含txt文。一般我们使用inc作为后缀，是因为这样能体现该文件的作用。
　　【why inc file】
　　.inc文件的作用有点类似于C/C++内的.H .HPP头文件，使用inc文件可以使我们的程序，增
　　加可读性，更易于开发和维护。
　　【how to inc file】
　　使用SSI(Server Side Include)指令中的#Include，asp包含文件的写法是这样的：在html中，写：
　　 
　　
　　file和Virtual的区别在于file使用相对路径，而Virtual是你的web站点内虚拟目录的完整虚拟路径，比如：
　　
　　就表示包含当前文件所在的虚拟目录路径下面的inc目录下的char.inc，写成 virtual就可能就需要这么写了：

<% function htmlencode(str) dim result dim l if isNULL(str) then htmlencode="" exit function end if l=len(str) result="" dim i for i = 1 to l select case mid(str,i,1) case "<" result=result+"<" case ">" result=result+">" case chr(13) result=result+"<br>" case chr(34) result=result+""" case "&" result=result+"&" case chr(32) 'result=result+" " if i+1<=l and i-1>0 then if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then result=result+" " else result=result+" " end if else result=result+" " end if case chr(9) result=result+" " case else result=result+mid(str,i,1) end select next htmlencode=result end function function sustainhtml(str) dim result dim l if isNULL(str) then sustainhtml="" exit function end if l=len(str) result="" dim i for i = 1 to l select case mid(str,i,1) case chr(13) result=result+"<br>" case chr(34) result=result+""" case chr(32) 'result=result+" " if i+1<=l and i-1>0 then if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then result=result+" " else result=result+" " end if else result=result+" " end if case "&" result=result+"&" case chr(9) result=result+" " case else result=result+mid(str,i,1) end select next sustainhtml=result end function ' 检查sql字符串中是否有单引号，有则进行转化 function CheckStr(str) dim tstr,l,i,ch l=len(str) for i=1 to l ch=mid(str,i,1) if ch="'" then tstr=tstr+"'" end if tstr=tstr+ch next CheckStr=tstr end function function IsValidEmail(email) dim names, name, i, c 'Check for valid syntax in an email address. IsValidEmail = true names = Split(email, "@") if UBound(names) <> 1 then IsValidEmail = false exit function end if for each name in names if Len(name) <= 0 then IsValidEmail = false exit function end if for i = 1 to Len(name) c = Lcase(Mid(name, i, 1)) if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then IsValidEmail = false exit function end if next if Left(name, 1) = "." or Right(name, 1) = "." then IsValidEmail = false exit function end if next if InStr(names(1), ".") <= 0 then IsValidEmail = false exit function end if i = Len(names(1)) - InStrRev(names(1), ".") if i <> 2 and i <> 3 then IsValidEmail = false exit function end if if InStr(email, "..") > 0 then IsValidEmail = false end if end function %>

关于inc文件的解释