<%
'*******************************************************
'作 用: 得到文件扩展名
'函数名: GetFileExt(fileTrue)
'参 数: sFileName 文件名
'返回值: 返回文件扩展名
'*******************************************************
function GetFileExt(sFileName)
GetFileExt = UCase(Mid(sFileName,InStrRev (sFileName, ".")+1))
End function
'*******************************************************
'作 用: ASP上传漏洞 "\0" 防范
'函数名: TrueStr(fileTrue)
'参 数: sFileName 文件名
'返回值: 合法文件返回 True ,否则返回F ......
VBSCRIPT标记索引
基本运算
+ 数字加法及字符串连接
- 数字减法
* 数字乘法
/ 数字除法
Mod 求余数
\ 求商数
& 字符串连接
^ 次方
= 相等
＜＞ 不相等
＞= 大于或等于
＞ 大于
＜= 小于或等于
＜ 小于
Not 非
And 且
Or 或
Xor 异或
循环及决策
if ....then 若...则...
if ...then...else 若...则...非
else if... 非若
select case... 群组选择条件
end select
for ... next 计数循环
while...wend 条件循环(一)
do while...loop 条件循环(二)
do...loop while 条件循环(三)
do until...loop 条件循环(四)
do...loop until 条件循环(五)
数学函数
Abs 绝对值
Sgn 正负号
Hex 转换成十六进制
Oct 转换成八进制
Sqr 平方根
Int 取整数
Fix 取整数
Round 取整数
Log 以e为底的对数
Sin 正弦函数
Cos 余弦函数
Tan 正切函数
字符串处� ......
<%
yourip=Request.ServerVariables("REMOTE_ADDR")
if yourip="111.111.111.111" then
Response.Redirect ("http://www.baidu.com")
end if
%>
Dim UserIP
UserIP = Request.ServerVariables("Http_X_Forwarded_For")
If UserIP = "" Then UserIP = Request.ServerVariables("Remote_Addr") : UserIP = Trim(Replace(UserIP,"'",""))
If UserIP="192.168.1.2" Then
Response.Write "欢迎**网吧"
Else
Response.Write "欢迎光临"
End If
<%
'如果只有两三个IP,如下方法：
If UserIP="192.168.1.2" Or UserIP="222.231.31.46" Then
Response.Write "欢迎**网吧"
Else
Response.Write "欢迎光临"
End If
####################################################################
'如果有多个条件IP，可以写一个处理多个IP的函数：
Public Sub Welcome(ByVal IPs, ByVal UserIP, ByVal InternetBarName)
Dim i,Authorization
Authorization = False
IPs = Split(IPs,"|")
For i = 0 To UBound(IPs)
If Trim(IPs(i)) = UserIP Then
Authorization = True
Exit For
End If
Next
If Authorization = Tr ......
ASP实现同一虚拟主机空间安放多个网站的方法
现在的域名很便宜，不少朋友手里多少都有几个，如果您想用手中的几个域名做多个网站的话，并不用同时购买多个虚拟主机，您只要先将您所有的域名绑定到您的虚拟主机上，然后将虚拟主机根目录中的index.asp（首页文件）里加入下列代码就可以了：
<%
sn=lcase(Request.ServerVariables("SERVER_NAME")) '用于获取用户是通过哪个域名访问的，并转换成小写
if sn="www.zhongxun.net" or sn=" zhongxun.net" then server.Transfer("default1.asp")
if sn="www.37dns.com" or sn="37dns.com" then server.Transfer("index.html")
%>
看明白了吧，如果访问者输入的域名是[url]www.zhongxun.net[/url]或zhongxun.net的话，就访问default1.asp页面，如果是用37dns.com或[url]www.37dns.net[/url] 的话就调用index.html文件。
网上还有一些教程是让您用response.redirect来实现转向，但在这里，我建议您使用server.Transfer("")来实现这个功能，好处有以下几个方面：
１、不会出现页面跳转，直接输入网址后，网址后不会带任何文件，访问者不会看出你的两个网站是放在同一虚拟主机上。
２、server.Transfe ......
环境工具：
Visual studio 2008/2005
IIS 6.0
调试步骤如下:
(1) IIS启用调试
1. 计算机管理->服务和应用程序->Internet信息服务->网站->默认网站->属性
2. 主目录->应用程序配置->调试
3. 启用ASP服务器脚本调试
(2)在需要中断调试的ASP脚本行里添加一行stop
(3)在浏览器里访问该脚本，由于iis在解析脚本时遇到stop命令就会中断抛出异常，
此时会弹出窗口要求你选择调试器可选择visual studio 2008/2005，然后提示附加到dllhost进程，选择附加，
则visual studio就会弹出窗口显示代码，光标断点显示在stop语句行，这时便可以开始单步调试了。
......
环境：数据库 oracle 64bit 系统 win2008 64bit IIS7 在asp 网页中使用ado连接数据库 ODBC用的是Microsft ODBC for oracle
情况：在网页的查询语句中不含中文的可以，只要语句中含有中文就会返回错误结果。
如:select '一二三' from dual;这样的语句 返回回来就是？？？
还要说明的是oracle的字符集是AMERICAN_AMERICA.US7ASCII的，那么这个呢就需要在客户端也设置注册表的nls_lang键值为AMERICAN_AMERICA.US7ASCII并且还一定要用microsoft odbc for oracle驱动。否则就乱码。
开始以为是64位系统下驱动的事，试了半天没有效果，因为网站在32位系统下完全没有问题，最后没办法就挨着看IIS7
的设置最后发现“可以新建个32位的应用程序池
”这样就能解决问题了。哈哈，记录下来。
”32位的应用程序池“以后可能还会用的到。 ......
环境：数据库 oracle 64bit 系统 win2008 64bit IIS7 在asp 网页中使用ado连接数据库 ODBC用的是Microsft ODBC for oracle
情况：在网页的查询语句中不含中文的可以，只要语句中含有中文就会返回错误结果。
如:select '一二三' from dual;这样的语句 返回回来就是？？？
还要说明的是oracle的字符集是AMERICAN_AMERICA.US7ASCII的，那么这个呢就需要在客户端也设置注册表的nls_lang键值为AMERICAN_AMERICA.US7ASCII并且还一定要用microsoft odbc for oracle驱动。否则就乱码。
开始以为是64位系统下驱动的事，试了半天没有效果，因为网站在32位系统下完全没有问题，最后没办法就挨着看IIS7
的设置最后发现“可以新建个32位的应用程序池
”这样就能解决问题了。哈哈，记录下来。
”32位的应用程序池“以后可能还会用的到。 ......
最新文章 : asp