Asp编程中的一些重要函数(一)

本文将Asp编程中的一些常用的函数进行了归纳和总结，这些函数在程序中都是经常用到的，例如打开一个新的窗体，关闭窗体，文中进行注释等等。欢迎有兴趣的朋友一起来完善。
（1）打开一个窗体
<script language="JavaScript">
<!--
function openWindow(topic) {
window.open("xxxx.asp",topic,"width=600,height=380,scrollbars=yes");
}
//-->
</script>
（2）弹出命令，并指向一个新的页面
response.write"<SCRIPT language=JavaScript>alert('用户"&uname&"成功退出登录，正在返回首页！');"
response.write"this.location.href='./';</SCRIPT>" %>
response.write"<SCRIPT language=JavaScript>alert('用户"&firm_username&"资料修改成功！');"
response.write"this.location.href='index.asp';</SCRIPT>" %>
（3）关闭窗口
response.write"<SCRIPT language=JavaScript>alert('新闻添加成功！');"
response.write"javascript:window.close();</SCRIPT>"%>
<a href="javascript:window.close()"><font size="3">[关闭窗口]</font></a>
[<a href="javascript:window.close()">关闭窗口</a>]
（4）在项目中加入注释
<!--
/*****************************************************************
* Project Name:
* Version: 1.0.1
*****************************************************************
* Copyright (c) 2003 *********. All Rights Reserved.
*
*****************************************************************
* Maintain Logs Time Author Comments
*----------------------------------------------------------------
* 1 2004-02-09 21:43 ****** for Ver1.0.1
*----------------------------------------------------------------
*****************************************************************
*/
-->
（5）取得表单提交的所有数据
<% For Each x In Request.Form %>
Request.Form( <%= x %> ) = <%= Request.Form(x) %> <BR>
<% Next %>
或
<%
For i = 1 To Request.Form("inputname").Count
Response.Write Request.Form("inputname")(i) & "<BR>"
Next
%>
（6）限制某个段的IP地址
function IP2Num(sip)
dim str1,str2,str3,str4
dim num
IP2Num=0
if isnumeric(left(sip,2)) then
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
IP2Num = num
end if
end function
function Num2IP(nip)
iip1 = int(nip/256/256/256)
iip2 = int((nip-iip1*256*256*256)/256/256)
iip3 = int((nip-iip1*256*256*256-iip2*256*256)/256)
iip4 = int((nip-iip1*256*256*256-iip2*256*256-iip3*256) mod 256)
iip0 = iip1 &"."& iip2 & "." &iip3 &"."& iip4
Num2IP = iip0
end function
userIPnum = IP2Num(Request.ServerVariables("REMOTE_ADDR"))
if userIPnum > IP2Num("192.168.0.0") and userIPnum < IP2Num("192.168.0.255") then
response.write ("<center>您的IP被禁止</center>")
response.end
end if
（7）获取真实的IP地址
function GetIp()
dim realip,proxy
realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
proxy = Request.ServerVariables("REMOTE_ADDR")
if realip = "" then
GetIp = proxy
else
GetIp = realip
end if
end function