1:asp 判断发言是否来自外部 : 'ChkPost=false 来自外部提交(非法) 'ChkPost=true 合法提交表单
function ChkPost() dim server_v1,server_v2 chkpost=false server_v1=LCase(Cstr(Request.ServerVariables("HTTP_REFERER"))) server_v2=LCase(Cstr(Request.ServerVariables("SERVER_NAME"))) if mid(server_v1,8,len(server_v2))<>server_v2 then chkpost=false else chkpost=true end if end function
2:asp 实现向数据库中任何表中添加、删除、修改内容 : 实现向数据库中任何表中添加、删除、
<% '=========================================== ' 函数功能:实现向数据库中任何表中添加、删除、修改内容 ' 作 者:wangsdong ' 网 站: aspprogram ' 文章为作者
原创,转载请注明文章出处、保留作者信息,谢谢支持! ' 参数意义:tablename 为表名,str 的值是 insert,delete,update 表示 ' 要执行的语句是添加、删除、修改。id 为自动编号类型字段,使用方 ' 法见举例 '=========================================== Function add_del_update(tablename,str,id) Select Case str Case "insert": sql="select * from ["&;tablename&;"] where id=null" rs.open sql,conn,1,3 rs.addnew For Each key In request.Form rs(CStr(key))=request(key) Next rs.update rs.close Case "update": sql="select * from ["&;tablename&;"] where id="&;id
rs.open
sql,conn,1,3 For Each key In request.Form if key<>"id" then rs(CStr(key))=request(key) end if Next rs.update rs.close Case "delete": sql="delete from ["&;tablename&;"] where id in("&;id&;")" rs.open sql,conn,1,3 Case "" End Select End Function %>
3:ASP 身份证号码验证函数 :
//var sss = "422324860305482"; //Response.Write(checkIDCard(sss, "03/05/1986", 0)); function checkIDCard(s, d, g) { if (!s) return false; d = new Date(d); if (!d.getTime()) return false; var t, r; t = "" + d.getFullYear() + dblNum(d.getMonth() + 1) + dblNum(d.getDate()); if (g == null || isNaN(g)) return false; g = parseInt(g) % 2; switch (s.length) { case 8 : if (new Date() > d.setFullYear(d.getFullYear() + 19)) return false; r = /^[\d]{8}$/; if (!r.test(s)) return false; if (s != t) return false; break;
case 15 : r = /^[\d]{15}$/; if (!r.test(s)) return false; if (s.substr(6, 6) != t.substr(2)) return false; if (parseInt(s.charAt(14)) % 2 != g) return false; break; case 18 : r = /^(?:[\d]{18}|[\d]{17}X)$/i; if (!r.test(s)) return false; if (s.substr(6, 8) != t) return false; if (parseInt(s.charAt(16)) % 2 != g) return false; var n = 0; var w = new Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2); // 加权因 子 var c = new Array("1", "0", "X", "9", "8", "7", "6", "5", "4", "3", "2"); // 校验码 for (var i = 0; i < 17; i++) { n += parseInt(s.charAt(i)) * w[i]; } if (s.charAt(17).toUpperCase() != c[n % 11]) return false; break; default : return false; } return true; } function dblNum(n) { return parseInt(n) < 10 ? "0" + n : n; }
4:asp 格式化日期时间 显示 : 格式化日期时间(显示 显示)
' ==============
============================== ' 格式化日期时间(显示) ' 参数:n_Flag
' 1:"yyyy-mm-dd hh:mm:ss" ' 2:"yyyy-mm-dd" ' 3:"hh:mm:ss" ' 4:"yyyy 年 mm 月 dd 日" ' 5:"yyyymmdd" ' 6:"yyyymmddhhmmss" ' 7:"yy-mm-dd" ' 8:"yy-mm-dd hh:mm:ss" ' 9:"yyyy 年 mm 月" ' 10:"mm/dd/yyyy" ' ============================================ Function Format_Time(s_Time, n_Flag) Dim y, m, d, h, mi, s Format_Time = "" If IsDate(s_Time) = False Then Exit Function y = cstr(year(s_Time)) if y = "1900" then Exit Function m = right("0"&;month(s_Time),2) d = right("0"&;day