ASP常用代码段之一

　1:　asp阳历转农历

<% Function Nongli() Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) Dim curTime, curYear, curMonth, curDay, curWeekday Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr Dim i, m, n, k, isEnd, bit, TheDate '获取当前系统时间 curTime = Date '星期名 WeekName(0) = " * " WeekName(1) = "星期日" WeekName(2) = "星期一" WeekName(3) = "星期二" WeekName(4) = "星期三" WeekName(5) = "星期四" WeekName(6) = "星期五" WeekName(7) = "星期六" '天干名称 TianGan(0) = "甲" TianGan(1) = "乙" TianGan(2) = "丙" TianGan(3) = "丁" TianGan(4) = "戊" TianGan(5) = "己" TianGan(6) = "庚" TianGan(7) = "辛" TianGan(8) = "壬" TianGan(9) = "癸" '地支名称 DiZhi(0) = "子" DiZhi(1) = "丑" DiZhi(2) = "寅" DiZhi(3) = "卯" DiZhi(4) = "辰" DiZhi(5) = "巳" DiZhi(6) = "午" DiZhi(7) = "未" DiZhi(8) = "申" DiZhi(9) = "酉" DiZhi(10) = "戌" DiZhi(11) = "亥" '属相名称 ShuXiang(0) = "鼠" ShuXiang(1) = "牛" ShuXiang(2) = "虎" ShuXiang(3) = "兔" ShuXiang(4) = "龙" ShuXiang(5) = "蛇" ShuXiang(6) = "马" ShuXiang(7) = "羊" ShuXiang(8) = "猴" ShuXiang(9) = "鸡" ShuXiang(10) = "狗" ShuXiang(11) = "猪" '农历日期名 DayName(0) = "*" DayName(1) = "初一" DayName(2) = "初二" DayName(3) = "初三" DayName(4) = "初四" DayName(5) = "初五" DayName(6) = "初六" DayName(7) = "初七" DayName(8) = "初八" DayName(9) = "初九" DayName(10) = "初十" DayName(11) = "十一" DayName(12) = "十二" DayName(13) = "十三" DayName(14) = "十四" DayName(15) = "十五" DayName(16) = "十六" DayName(17) = "十七" DayName(18) = "十八" DayName(19) = "十九" DayName(20) = "二十" DayName(21) = "廿一" DayName(22) = "廿二" DayName(23) = "廿三" DayName(24) = "廿四" DayName(25) = "廿五" DayName(26) = "廿六" DayName(27) = "廿七" DayName(28) = "廿八" DayName(29) = "廿九" DayName(30) = "三十" '农历月份名 MonName(0) = "*" MonName(1) = "正" MonName(2) = "二" MonName(3) = "三" MonName(4) = "四" MonName(5) = "五" MonName(6) = "六" MonName(7) = "七" MonName(8) = "八" MonName(9) = "九" MonName(10) = "十" MonName(11) = "十一" MonName(12) = "腊" '公历每月前面的天数 MonthAdd(0) = 0 MonthAdd(1) = 31 MonthAdd(2) = 59 MonthAdd(3) = 90 MonthAdd(4) = 120 MonthAdd(5) = 151 MonthAdd(6) = 181 MonthAdd(7) = 212 MonthAdd(8) = 243 MonthAdd(9) = 273 MonthAdd(10) = 304 MonthAdd(11) = 334 '农历数据 NongliData(0) = 2635 NongliData(1) = 333387 NongliData(2) = 1701 NongliData(3) = 1748 NongliData(4) = 267701 NongliData(5) = 694 NongliData(6) = 2391 NongliData(7) = 133423 NongliData(8) = 1175 NongliData(9) = 396438 NongliData(10) = 3402 NongliData(11) = 3749 NongliData(12) = 331177 NongliData(13) = 1453 NongliData(14) = 694 NongliData(15) = 201326 NongliData(16) = 2350 NongliData(17) = 465197 NongliData(18) = 3221 NongliData(19) = 3402 NongliData(20) = 400202 NongliData(21) = 2901 NongliData(22) = 1386 NongliData(23) = 267611 NongliData(24) = 605 NongliData(25) = 2349 NongliData(26) = 137515 NongliData(27) = 2709 NongliData(28) = 464533 NongliData(29) = 1738 NongliData(30) = 2901 NongliData(31) = 330421 NongliData(32) = 1242 NongliData(33) = 2651 NongliData(34) = 199255 NongliData(35) = 1323 NongliData(36) = 529706 NongliData(37) = 3733 NongliData(38) = 1706 NongliData(39) = 398762 NongliData(40) = 2741 NongliData(41) = 1206 NongliData(42) = 267438 NongliData(43) = 2647 NongliData(44) = 1318 NongliData(45) = 204070 NongliData(46) = 3477 NongliData(47) = 461653 NongliData(48) = 1386 NongliData(49) = 2413 NongliData(50) = 330077 NongliData(51) = 1197 NongliData(52) = 2637 NongliData(53) = 268877 NongliData(54) = 3365 NongliData(55) = 531109 NongliData(56) = 2900 NongliData(57) = 2922 NongliData(58) = 398042 NongliData(59) = 2395 NongliData(60) = 1179 NongliData(61) = 267415 NongliData(62) = 2635 NongliData(63) = 661067 NongliData(64) = 1701 NongliData(65) = 1748 NongliData(66) = 398772 NongliData(67) = 2742 NongliData(68) = 2391 NongliData(69) = 330031 NongliData(70) = 1175 NongliData(71) = 1611 NongliData(72) = 200010 NongliData(73) = 3749 NongliData(74) = 527717 NongliData(75) = 1452 NongliData(76) = 2742 NongliData(77) = 332397 NongliData(78) = 2350 NongliData(79) = 3222 NongliData(80) = 268949 NongliData(81) = 3402 NongliData(82) = 3493 NongliData(83) = 133973 NongliData(84) = 1386 NongliData(85) = 464219 NongliData(86) = 605 NongliData(87) = 2349 NongliData(88) = 334123 NongliData(89) = 2709 NongliData(90) = 2890 NongliData(91) = 267946 NongliData(92) = 2773 NongliData(93) = 592565 NongliData(94) = 1210 NongliData(95) = 2651 NongliData(96) = 395863 NongliData(97) = 1323 NongliData(98) = 2707 NongliData(99) = 265877 '生成当前公历年、月、日 ==> GongliStr curYear = Year(curTime) curMonth = Month(curTime) curDay = Day(curTime) GongliStr = curYear & "年" If (curMonth < 10) Then   GongliStr = GongliStr & "0" & curMonth & "月" Else   GongliStr = GongliStr & curMonth & "月" End If If (curDay < 10) Then   GongliStr = GongliStr & "0" & curDay & "日" Else   GongliStr = GongliStr & curDay & "日" End If '生成当前公历星期 ==> WeekdayStr curWeekday = Weekday(curTime) WeekdayStr = WeekName(curWeekday) '计算到初始时间1921年2月8日的天数：1921-2-8(正月初一) TheDate = (curYear - 1921) * 365 + Int((curYear - 1921) / 4) + curDay + MonthAdd(curMonth - 1) - 38 If ((curYear Mod 4) = 0 And curMonth > 2) Then   TheDate = TheDate + 1 End If '计算农历天干、地支、月、日 isEnd = 0 m = 0 Do   If (NongliData(m) < 4095) Then   k = 11   Else   k = 12   End If   n = k   Do   If (n < 0) Then   Exit Do   End If   '获取NongliData(m)的第n个二进制位的值   bit = NongliData(m)   For q = 1 To n Step 1   bit = Int(bit / 2)   Next   bit = bit Mod 2   If (TheDate <= 29 + bit) Then   isEnd = 1   Exit Do   End If   TheDate = TheDate - 29 - bit   n = n - 1   Loop   If (isEnd = 1) Then   Exit Do   End If   m = m + 1 Loop curYear = 1921 + m curMonth = k - n + 1 curDay = TheDate If (k = 12) Then   If (curMonth = (Int(NongliData(m) / 65536) + 1)) Then   curMonth = 1 - curMonth   ElseIf (curMonth > (Int(NongliData(m) / 65536) + 1)) Then   curMonth = curMonth - 1   End If End If '生成农历天干、地支、属相 ==> NongliStr NongliStr = TianGan(((curYear - 4) Mod 60) Mod 10) & DiZhi(((curYear - 4) Mod 60) Mod 12)  NongliStr = NongliStr & "<font color='#ff9000'><b>(" & ShuXiang(((curYear - 4) Mod 60) Mod 12) & ")</b></font>年" '生成农历月、日 ==> NongljDayStr If (curMonth < 1) Then   NongliDayStr = "闰" & MonName(-1 * curMonth) Else   NongliDayStr = MonName(curMonth) End If NongliDayStr = NongliDayStr & "月" NongliDayStr = NongliDayStr & DayName(curDay) NongLi= NongliStr & " " & NongliDayStr end Function dim sdate:sdate=Nongli() response.Write(sdate) %>

    2: asp生成安全码的函数

<% '生成安全码的函数 function make_randomize(max_len,w_n) 'max_len 生成长度，w_n：0 可能包含字母，1：只为数字 randomize for intcounter=1 to max_len whatnext=int((1-0+1)*rnd+w_n) if whatnext=0 then upper=122 lower=97 else upper=57 lower=48 end if strnewpass=strnewpass & chr(int((upper-lower+1)*rnd)+lower) next make_randomize=strnewpass end function 'safecode=make_randomize(4,0) 'response.Write(safecode) %> <%random_num=make_randomize(4,0) '生成4位数字的安全码 session("random_num")=random_num '为什么调用session，没有session的安全码是完全没有意义的。呵呵 Set Jpeg = Server.createObject("Persits.Jpeg") '调用组件 Jpeg.Open Server.MapPath("1.jpg") '打开准备的图片 Jpeg.Canvas.Font.Color = &H006699 Jpeg.Canvas.Font.Family = "Arial Black" Jpeg.Canvas.Font.Bold = false Jpeg.Canvas.PrintText 0, -2, random_num jpeg.save Server.MapPath("random_index.jpg") '保存 %>&nbsp;<img src="random_index.jpg" border="0" align="absmiddle">

     3:asp彻底屏蔽鼠标右键

oncontextmenu="window.event.returnvalue=false"将彻底屏蔽鼠标右键 或者 <script language="javascript"> function click()  { if (event.button==0) //event.button依环境值不同 { alert("对不起，本页的内容不经允许不得拷备。"); } } window.document.onmousedown=click; </script> onpaste="returnfalse"不准粘贴 oncopy="returnfalse;"oncut="returnfalse;"防止复制 光标是停在文本框文字的最后 functioncc() { vare=event.srcElement; varr=e.createTextRange(); r.moveStart('character',e.value.length); r.collapse(true); r.select(); } 判断上一页的来源 asp:request.servervariables("HTTP_REFERER") javascript:document.referrer 网页不会被缓存 ASP网页 Response.Expires=-1 Response.ExpiresAbsolute=Now()-1 Response.cachecontrol="no-cache"

   4:asp全功能安全过滤函数

Function IIF(Expression,ReturnTrue,ReturnFalse) If Expression Then IIF = ReturnTrue Else IIF = ReturnFalse End If End Function '函数:全功能安全过滤函数 '参数:请求方式,过滤类型,请求名,值类型,默认值 Function SafeRequest(Requester,FilterType,RequestName,RequestType,DefaultValue) Dim tmpValue Select Case Requester Case 0 : tmpValue = RequestName Case 1 : tmpValue = Request(RequestName) Case 2 : tmpValue = Request.Form(RequestName) Case 3 : tmpValue = Request.QueryString(RequestName) Case 4 : tmpValue = Request.Cookies(RequestName) End Select Select Case RequestType Case 0 If Not IsNumeric(tmpValue) Or Len(tmpValue)<=0 Then tmpValue = CLng(DefaultValue) Else tmpValue = CLng(tmpValue) End If Case 1 If tmpValue="" Or IsNull(tmpValue) Then tmpValue=DefaultValue Select Case FilterType Case 0 : tmpValue = tmpValue Case 1 : tmpValue = SafeSql(tmpValue) Case 2 : tmpValue = FilterHtml(tmpValue) End Select Case 2 If Not IsDate(tmpValue) Or Len(tmpValue) <=0 Then tmpValue = CDate(DefaultValue) Else tmpValue = CDate(tmpValue) End If End Select SafeRequest = tmpValue End Function '函数：危险Sql过滤 '参数：Sql '返回：过滤结果 Function SafeSql(str) SafeSql = Replace(str, "'", "&#39;") End Function '函数：过滤Html标签 '参数：字符串 '返回：过滤后的字符串 Function FilterHtml(str) If IsNull(str) Or str="" Then FilterHtml="" : Exit Function Dim r Set r = New RegExp r.IgnoreCase = True r.Global = True r.MultiLine = True r.Pattern = "<.+?>" FilterHtml = r.Replace(str,"") Set r = Nothing End Function

    5:ASP与Access数据库连接：

<%@ language=VBscript%> 　　<% 　　dim conn,mdbfile 　　mdbfile=server.mappath("数据库名称.mdb") 　　set conn=server.createobject("adodb.connection") 　　conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数 据库密码;dbq="&mdbfile %>

   6:ASP与SQL数据库连接：

<%@ language=VBscript%> 　　<% 　　dim conn 　　set conn=server.createobject("ADODB.connection") 　　con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址; UID=sa;PWD=数据库密码;DATABASE=数据库名称 　　%>

   7:asp如何回到先前的页面

< a href="< %=request.serverVariables("Http_REFERER")% >" >preivous page< /a >

　　或用图片如：

< img src="arrowback.gif" alt="< %=request. serverVariables("HTTP_REFERER")% >" >

   8:asp如何确定对方的IP地址

< %=Request.serverVariables("REMOTE_ADDR)% >

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