ASP常用代码段之六

网络整理 - 09-08

1: aps日历控件

index.html

11Or7

2：asp获取客户端IP

""OR000

3：asp被检测的字符的类型 1为数字检测

'str被检测的
'stypes被检测的字符的类型 1为数字检测
'RturnStr 如果此参数为空，则可以为空。否则此参数就是否返回的错误信息提示
'checkstrin(request("id"),1,"ID号码不能为空，请返回")
Function checkstrin(str,types,ReturnStr)
if str<>"" then
if cstr(types)="1" then
if isnumeric(str) then
str=clng(str)
else
%>
<script language="javascript"> alert("错误链接，请返回! ");history.back();</script>
<%
response.End()
end if
else
str=trim(str)
Fy_In = "exec|insert|select|delete|update|chr|master|truncate|declare|script|'"
Fy_in_a=split(Fy_In,"|")
for i=0 to (ubound(fy_in_a))
pos=instr(lcase(str),lcase(fy_in_a(i)))
if pos <> 0 then
%>
<script language="javascript"> alert('您提交的信息包含非法字符！\n\n');history.back();</script>
<%
response.End()
end if
next
end if
else
if ReturnStr<>"" then
%>
<script language="javascript"> alert("<%=ReturnStr%>");history.back();</script>
<%
response.End()
end if
end if
checkstrin=str
end function

4：asp利用JPEG来自动缩小图片

'利用JPEG来自动缩小图片的。
'fileName为图片的路径
'w为图片的最大宽
'h为图片的最大高度
'
<img src=http://www.jz123.cn/text/"q.jpg" <%=SetRangw("q.jpg",250,250)%>>
function SetRangw(fileName,w,h)
'fileName="admin/bookpic/2008651444726127.gif"
'w=200
'h=150
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(server.MapPath(fileName)) then
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.RegKey = "48958-77556-02411"
Jpeg.Open server.MapPath(fileName)
Width=Jpeg.OriginalWidth
height=Jpeg.OriginalHeight
Jpeg.close
Set Jpeg = Nothing
end if
Set fso = nothing
if ((Width>w) or (height>h )) then

if (Width/height)>(w/h) then
SetRangw = "Width="&w
else
SetRangw = "height="&h
end if
end if
end function

5：asp客户端效果总结

1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键
<table border oncontextmenu=return(false)><td>no</table> 可用于Table

   2. <body onselectstart="return false"> 取消选取、防止复制

    3. onpaste="return false" 不准粘贴

    4. oncopy="return false;" oncut="return false;" 防止复制

   5. <link rel="Shortcut Icon" href="favicon.ico"> IE地址栏前换成自己的图标

   6. <link rel="Bookmark" href="favicon.ico"> 可以在收藏夹中显示出你的图标

    7. <input style="ime-mode:disabled"> 关闭输入法

    8. 永远都会带着框架
<script language="javascript"></script>

   9. 防止被人frame
<SCRIPT LANGUAGE=javascript></SCRIPT>

    10. <noscript><iframe src=*.html></iframe></noscript> 网页将不能被另存为

    11. <input type=button value=查看网页源代码
onclick="window.location = ‘view-source:‘+ ‘'">

   12. 怎样通过asp的手段来检查来访者是否用了代理
<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
response.write "<font color=#FF0000>您通过了代理服务器，"& _
"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
%>

     13. 取得控件的绝对位置

//javascript
<script language="javascript">
function getIE(e){
var t=e.offsetTop;
var l=e.offsetLeft;
while(e=e.offsetParent){
t+=e.offsetTop;
l+=e.offsetLeft;
}
alert("top="+t+"\nleft="+l);
}
</script>

6：asp比较数字大小

toto
tmp

7：asp检测上传的文件是否webshell

to
end

8：asp强制不调用缓存的页面

<%Response.Expires=-1%>