栏目导航

热点推荐

阅览排行

当前位置：主页>网络编程>ASP教程>资讯:ASP常用代码段之六

ASP常用代码段之六

www.jz123.cn 2010-09-29 来源: 中国建站责任编辑(袁袁) 我要投递新闻

1: aps日历控件

index.html

<html>
<body>
<script src="Calendar.js"></script>
<script>
EnabledDate=new Date(CurrentYear,CurrentDate.getMonth(),CurrentDay-1);
showday(CurrentMonth.toString());
</script>
<input type="text" name="btime" readonly onclick="getdate(this);" size="15" />
</body>
</html>

Calendar.js

window.iif=function(fstr){return typeof(fstr)=="string"?document.getElementById(fstr):fstr}
var StarDate=1900;
var EndDate=2099;
var EnabledDate=new Date(1900,0,1);
var CurrentDate=new Date();
var CurrentYear=CurrentDate.getYear();
var CurrentMonth=CurrentDate.getMonth()+1;
var CurrentDay=CurrentDate.getDate();
var OutObj;
function getdate(obj){
var curDate = new Date();
OutObj=obj;
var x=iif(obj)["offsetLeft"];
var y=iif(obj)["offsetTop"];
Layer1.style.pixelLeft=x;
Layer1.style.pixelTop=y+iif(obj)["offsetHeight"];
Layer1.style.display=Layer1.style.display=='none'?'block':'none';
}
function outMonth(){
for(var m=0;m<12;m++){
iif("AllMonth").cells[m].innerHTML=(m+1).toString()+'月';
iif("AllMonth").cells[m].style.border='';
iif("AllMonth").cells[m].style.cursor='hand';
if(m==(CurrentMonth-1)){
   iif("AllMonth").cells[m].style.border='1px solid #FFA64D';
}
}
}
function showday(val){
var tempcell,tempdate;
var currMonth=Math.floor(val.replace('月',''));
CurrentMonth=currMonth;
CurrentDate=new Date(CurrentYear,CurrentMonth-1,CurrentDay);
StatDay=new Date(CurrentYear,CurrentMonth-1,1);
EndDay=new Date(CurrentYear,CurrentMonth-1,MaxDay(StatDay));
tempcell=6+StatDay.getDay()+1;
for(var tempi=7;tempi<=48;tempi++){
iif("AllDay").cells[tempi].innerHTML='';
}
for(var day=1;day<=EndDay.getDate();day++){
tempdate=new Date(CurrentYear,CurrentMonth-1,day);
if(EnabledDate<tempdate){
   iif("AllDay").cells[tempcell].innerHTML='<a href=javascript:; onclick="dayclick(AllDay.cells['+tempcell+'],this.innerHTML);" style="text-decoration:none;color:#000000">'+day.toString()+'</a>';
}
else
   iif("AllDay").cells[tempcell].innerHTML=day;
if(day==CurrentDay){
   setDayStyle(iif("AllDay").cells[tempcell]);
}
tempcell++;
}
if(CurrentDay>EndDay.getDate())
setDayStyle(iif("AllDay").cells[tempcell-1]);
}
function dayclick(obj,txt){
if(typeof(obj)=='object')
setDayStyle(obj);
CurrentDay=txt;
OutObj.value=CurrentYear.toString()+'-'+CurrentMonth.toString()+'-'+CurrentDay.toString();
divclose();
}
function setDayStyle(obj){
for(var tempi=7;tempi<=48;tempi++){
iif("AllDay").cells[tempi].style.fontstyle='';
iif("AllDay").cells[tempi].style.background='';
iif("AllDay").cells[tempi].style.fontweight='';
iif("AllDay").cells[tempi].style.border='';
}
iif(obj).style.background='#F0F0F0';
iif(obj).style.fontstyle='italic';
iif(obj).style.fontweight='bold';
iif(obj).style.border='1px solid #FFA64D';
}
function MaxDay(fDate){
var newdate=new Date(fDate.getYear(),fDate.getMonth()+1,0)
return newdate.getDate();
}
function NextYear(obj,fYear){
var currYear=Math.floor(fYear.replace('年',''));
if(currYear<EndDate){
iif(obj).innerHTML=(currYear+1).toString()+'年';
CurrentYear=currYear+1;
}
else{
CurrentYear=EndDate;
alert('已经到达系统支持的最大年份');
}
showday(CurrentMonth.toString());
}
function PrevYear(obj,fYear){
var currYear=Math.floor(fYear.replace('年',''));
if(currYear>StarDate){
iif(obj).innerHTML=(currYear-1).toString()+'年';
CurrentYear=currYear-1;
}
else{
CurrentYear=StarDate;
alert('已经到达系统支持的最小年份');
}
showday(CurrentMonth.toString());
}
function today(){
CurrentDate=new Date();
CurrentYear=CurrentDate.getYear();
CurrentMonth=CurrentDate.getMonth()+1;
CurrentDay=CurrentDate.getDate();
showday(CurrentMonth.toString());
dayclick('',CurrentDay);
}
function divclose(){
Layer1.style.display='none';
}

function CalenderInit(){
var content;
content='<div id="Layer1" style="position:absolute;width:10px;height:10px;z-index:1;display:none; ">';
content+='<table width="162" height="25" cellpadding="0" cellspacing="0" border="0" style="border:1px solid #F8BACF;">';
content+='<tr><td width="20" align="center"><img src="arrowl.jpg" width="20" height="18" style="cursor:hand" onClick="PrevYear(CurY,CurY.innerHTML);"></td>';
content+='<td width="120" align="center" id="CurY" style="font-weight:bold; font:宋体; font-size:12px">'+CurrentYear.toString()+'年</td>';
content+='<td width="20" align="center"><img src="arrowr.jpg" width="20" height="18" style="cursor:hand"onClick="NextYear(CurY,CurY.innerHTML);"></td>';
content+='</tr><tr><td colspan="3" align="center"><table width="158" height="25" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff" id="AllMonth" ';
content+='style="font:宋体; font-size:12px;border:1px solid #999999;padding-top:2px;"><tr><td width="24" height="18" align="center" bgcolor="CCCCCC" ';
content+='onclick="showday(this.innerHTML);outMonth();" nowrap></td><td width="24" align="center" bgcolor="CCCCCC" onclick="showday(this.innerHTML);outMonth();" ';
content+='nowrap></td><td width="24" align="center" bgcolor="CCCCCC" onclick="showday(this.innerHTML);outMonth();" nowrap></td><td width="26"';
content+=' align="center" bgcolor="CCCCCC" onclick="showday(this.innerHTML);outMonth();" nowrap></td><td width="26" align="center" bgcolor="CCCCCC" onclick';
content+='="showday(this.innerHTML);outMonth();" nowrap></td><td width="26" align="center" bgcolor="CCCCCC" onclick="showday(this.innerHTML);outMonth();" nowrap>';
content+='</td></tr><tr><td height="18" align="center" bgcolor="CCCCCC" onclick="showday(this.innerHTML);outMonth();" nowrap></td><td align="center" bgcolor';
content+='="CCCCCC" onclick="showday(this.innerHTML);outMonth();" nowrap></td><td align="center" bgcolor="CCCCCC" onclick="showday(this.innerHTML);outMonth();"';
content+=' nowrap></td><td align="center" bgcolor="CCCCCC" onclick="showday(this.innerHTML);outMonth();" nowrap></td><td align="center" bgcolor="CCCCCC" onclick';
content+='="showday(this.innerHTML);outMonth();" nowrap></td><td align="center" bgcolor="CCCCCC" onclick="showday(this.innerHTML);outMonth();" nowrap></td>';
content+='</tr></table></td></tr></table><table id="AllDay" width="162" height="25" cellpadding="0" cellspacing="0" border="0" style="border:1px solid #F8BACF;';
content+=' padding-top:3px; padding-bottom:1px; padding-left:2px; padding-right:2px; font:宋体; font-size:12px"><tr bgcolor="#F8BACF"><td align="center">日';
content+='</td><td align="center">一</td><td align="center">二</td><td align="center">三</td><td align="center">四</td><td align="center">五</td><td align';
content+='="center">六</td></tr><tr><td align="center" style="color:#FF0000;"></td><td align="center"></td><td align="center"></td><td align="center"></td>';
content+='<td align="center"></td><td align="center"></td><td align="center" style="color:#FF0000;"></td></tr><tr><td align="center" style="color:#FF0000">';
content+='</td><td align="center"></td><td align="center"></td><td align="center"></td><td align="center"></td><td align="center"></td><td align="center" ';
content+='style="color:#FF0000"></td></tr><tr><td align="center" style="color:#FF0000;"></td><td align="center"></td><td align="center"></td><td ';
content+='align="center"></td><td align="center"></td><td align="center"></td><td align="center" style="color:#FF0000"></td></tr><tr><td align="center" style';
content+='="color:#FF0000"></td><td align="center"></td><td align="center"></td><td align="center"></td><td align="center"></td><td align="center"></td><td ';
content+='align="center" style="color:#FF0000"></td></tr><tr><td align="center" style="color:#FF0000"></td><td align="center"></td><td align="center"></td>';
content+='<td align="center"></td><td align="center"></td><td align="center"></td><td align="center" style="color:#FF0000"></td></tr><tr>';
content+='<td align="center" style="color:#FF0000"></td><td align="center"></td><td align="center"></td><td align="center"></td><td align="center">';
content+='</td><td align="center"></td><td align="center" style="color:#FF0000"></td></tr></table><table width="162" border="0" cellspacing="0"';
content+=' cellpadding="0"><tr><td width="81" align="center"><input type="button" name="btoday" value="今天" onclick="today();" style="width:81px"></td>';
content+='<td align="center"><input type="button" name="bclose" value="关闭" onclick="divclose();" style="width:81px"></td></tr></table></div>';
document.write(content);
}
CalenderInit();
outMonth();
showday(CurrentMonth.toString())
计算一个月有几天
'参数：fYM 格式 YYYYMM
Function MonthDay(fYM)
t_Date = DateAdd("m",1,Left(fYM,4)&"-"&Right(fYM,2)&"-1")
MonthDay = Day(DateAdd("d",-1,t_Date))
End Function
'计算一个月有几个周六周日
'参数：fDate 格式 YYYYMM
Function WeekSum(fDate)
t_Day = MonthDay(fDate)
t_NDate = Left(fDate,4)&"-"&Right(fDate,2)&"-"
t_Sum = 0
For i = 1 To t_Day
If Weekday(t_NDate&i) = 1 Or Weekday(t_NDate&i) = 7 Then
   t_Sum = t_Sum + 1
End If
Next

2：asp获取客户端IP

Function GetIP()
    Dim sIP
    If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
        sIP = Request.ServerVariables("REMOTE_ADDR")
    ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
        sIP = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
    ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
        sIP = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
    Else
        sIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    End If
    GetIP = sIP
End Function

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="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:‘+ ‘http://www.csdn.net/'">

   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比较数字大小

'====================================================================
'函数功能：比较数字大小
'说明：获得最小和最大值的参数分别是0、1，str是以","分割的字符串
'例子：
' response.Write(compNum("2,1,4,3",1))
'====================================================================
function compNum(str,cond)
    arr=split(str,",")
    for i=0 to ubound(arr)
        for j=0 to ubound(arr)-1-i
            if Cint(arr(j))>Cint(arr(j+1)) then
                tmp=arr(j)
                arr(j)=arr(j+1)
                arr(j+1)=tmp
            end if
        next
    next
    if 0=cond then compNum=arr(Lbound(arr))
    if 1=cond then compNum=arr(Ubound(arr))
end function

function urlFname()
'获取当前页面文件名
    Dim fileName,arrName,postion
    fileName=Request.ServerVariables("script_name")
    postion=InstrRev(fileName,"/")+1
    fileName=Mid(fileName,postion)
    If InStr(fileName,"?")>0 Then
        arrName=fileName
        arrName=Split(arrName,"?")
        filename=arrName(0)
    End If
    urlFname=filename
end function

'输出内容时去掉文中图片
function contentClearImgStr(str)
   arr=split(str,"<IMG")
   arrlen=ubound(arr)
   if ubound(arr)>0 then
       for i=1 to arrlen
         last=instr(1,"<IMG"&arr(i),">")
         contentImgStr=contentImgStr&mid("<IMG"&arr(i),1,last-start)&"|"
       next
       imgArr=split(contentImgStr,"|")'获得内容中所有图片分离为数组
        for each img in imgArr
            contentClearImgStr=replace(str,img,"")
        next
    else
        contentClearImgStr=str
    end if
end function
'用法：call contentClearImgStr(content) 对ewebeditor适用,对其它编辑器可能会出问题

'=====================================================
'函数名：contentImgLinkDeal
'参数str，待处理文本字符串
'返回值类型：string
'作用:处理文本字符串，给其中没有链接的图片加上自身地址链接，可以点击查看原始图片。将返回包含链接的图片文本字符串
'说明：首先找到每个图片地址，然后在图片链接结束标记到超级链接结束标记查找超级链接开始标记。若找不到超链结束标记或者有超链结束标记且有超链开始标记，表示此图片原本没有链接。进行字符串替换给图片加上其地址链接。
'=====================================================
function contentImgLinkDeal(str)
   arr=split(str,"<IMG")
   arrlen=ubound(arr)
   for i=1 to arrlen
        start=instr(1,arr(i),"SRC=",1)+5
        last=instr(start,arr(i)," ")-1    '若文中没有"，会出错，故使用" "再减去1更加准确
        imgUrl=mid(arr(i),start,last-start)        '获得图片地址
        start=instr(arr(i),">")            '从>到</A>之间查找<a
        last=instr(start,arr(i),"</A>")
        if last>0 then
            theChkStr=mid(arr(i),start,last-start)
            chk=instr(1,theChkStr,"<A",1)
            if chk>0 then
                imgFullStr=chr(60)&chr(73)&chr(77)&chr(71)&mid(arr(i),1,start)
                str=replace(str,imgFullStr,"<a href="&imgUrl&" target=_blank>"&imgFullStr&"</a>")
            end if
        else
            imgFullStr=chr(60)&chr(73)&chr(77)&chr(71)&mid(arr(i),1,start)
            str=replace(str,imgFullStr,"<a href="&imgUrl&" target=_blank>"&imgFullStr&"</a>")
        end if
   next
end function

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

'=====================================================
'函数名：chkUpFile
'参数FilePath，文件路径
'返回值类型：无
'作用:检测上传的文件是否webshell
'说明：call chkUpFile(FilePath)
'=====================================================
function chkUpFile(FilePath)
    set MyFile = server.CreateObject("Scripting.FileSystemObject")
    if MyFile.FileExists(FilePath) then        '判断是否有这文件
        set MyText = MyFile.OpenTextFile(FilePath, 1) '读取文本文件
        sTextAll = lcase(MyText.ReadAll)
        MyText.close
        sStr=".getfolder|.createfolder|.deletefolder|.createdirectory|.deletedirectory|.saveas|wscript.shell|script.encode|server.|.createobject|execute|activexobject|language="
        sNoString = split(sStr,"|")
        for i=0 to ubound(sNoString)
           if instr(sTextAll,sNoString(i)) then
             MyFile.deletefile FilePath
             Response.Write("<script>alert('请表上传木马，谢谢-_-');window.opener=null;window.close();</script>")
             Response.End()
           end if
        next
    end if
    set MyFile = nothing
end function

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

<%Response.Expires=-1%>

顶一下

上一篇：ASP常用代码段之五下一篇：ASP常用代码段之七

栏目导航

热点推荐

阅览排行

ASP常用代码段之六

相关文章列表

评论总数：0 条 [ 查看全部 ] 网友评论