网站地图 | RSS订阅 凌陈亮博客 - 专业上海SEO上海SEO优化,分享网站优化知识,同时提供上海SEO服务。
你的位置:首页
ASP程序

ASP版MD5加密函数及使用方法

ASP版MD5加密函数及使用方法

MD5加密函数说明:
1、由于MD5加密算法目前来说是不可逆的,即可以通过原始数据生成MD5码后,但不能通过MD5码还原数据。
2、虽然不可逆,但同一个字符串只能生成同样的一组MD5码。

发布时间:2016年1月26日 | 评论:0 | 浏览: | 标签:md5  加密  ASP教程  

ASP程序

ASP输出一级分类select下拉列表框,可定位到列表项

ASP输出一级分类select下拉列表框,可定位到列表项

<%
'作者:凌陈亮www.lingchenliang.com(QQ:57404811)
'ASP输出一级分类select下拉列表框,可定位到列表项
'参数:表名,自身ID
function gw_sort_select(tb,id)
dim f_id : f_id=id
if len(f_id)>0 then call checknum(0,1,f_id,"非法传值id!","javascript:window.history.back();")
dim f_rs,f_sql
set f_rs=server.createobject("adodb.recordset")
'表名:tb,分类自动编号:id,分类名:name1,排序号:orderby,添加时间:addtime
f_sql="select [id],[name1] from [tb] order by [orderby],[addtime],[id]"
'conn为打开数据库变量
f_rs.open f_sql,conn,1,1
dim f_count : f_count=f_rs.recordcount '总记录数
if f_rs.bof=false and f_rs.eof=false then
dim f_i : f_i=0
dim f_rs_id,f_rs_name1
do while f_rs.bof=false and f_rs.eof=false
set f_rs_id=f_rs(0) 'ID
set f_rs_name1=f_rs(1) '名称
if f_rs_id=f_id then '若当前ID=传值的ID,一般文章修改页面和已用分类查询页面会传值ID
response.write("<option value=""" & f_rs_id & """ style=""color:#FF0000; background:#ddffaa;"" selected=""selected"">" & f_rs_name1 & "</option>")
else '一般文章添加页面和未用分类查询页面无需传值ID
response.write("<option value=""" & f_rs_id & """>" & f_rs_name1 & "</option>")
f_i=f_i+1
end if
f_rs.movenext() : loop
if checknum(1,1,f_id,"","")=1 then
'若传值的ID在分类中未找到
if f_count=f_i then response.write("<option value="""" style=""color:#FF0000; background:#ddffaa;"" selected=""selected"">未知</option>")
end if
end if
f_rs.close() : set f_rs=nothing
end function
'判断字符串是否为数值型或全数字
function checknum(typ,typ2,str,msg,url)
dim f_return : f_return=0 'false
if len(str)<1 or isnumeric(str)=false then
if typ=0 then call alert(msg,url)
end if
if typ2=0 then '数值型验证
if len(str)>0 and isnumeric(str)=true and typ<>0 then f_return=1 'true
else '全数字不包括小数点验证
if len(str)>0 and isnumeric(str)=true then
dim re : set re=New RegExp '建立正则表达式
re.Pattern="\D" '设置模式,即建立正则式规则
re.Global=False '设置全局可用性
re.Ignorecase=True '设置是否区分字符大小写
re.MultiLine=False '设置多行标记可用性
if re.test(str)=true then '执行搜索测试
if typ=0 then call alert(msg,url)
else
if typ<>0 then f_return=1 'true
end if
end if
end if
if typ<>0 then checknum=f_return
end function
sub alert(msg,url)
response.write("<script type=""text/javascript"">") & vbcrlf
response.write("<!--//") & vbcrlf
response.write("window.alert("""& msg &""");") & vbcrlf
response.write("window.location.href="""& url &""";") & vbcrlf
response.write("//-->") & vbcrlf
response.write("</script>") & vbcrlf
response.end()
end sub
%>

发布时间:2016年1月25日 | 评论:1 | 浏览: | 标签:下拉列表框  select列表  一级分类  

ASP程序

ASP获取某条记录的某个字段值函数

ASP获取某条记录的某个字段值函数

<%
'作者:凌陈亮www.lingchenliang.com(QQ:57404811)
'自定义函数功能:根据查询条件表达式获取某条记录的某个字段值
'只适合单一记录的单一字段值获取,一般文章列表中显示文章分类名称时常用
'此函数只为方便代码写作或多处调用时使用,并无什么特殊之处
'参数:表名,查询字段名称,查询值,返回字段名称
function getsys(tb,wfield,wfield_v,getfield)
if len(tb)>0 and len(wfield)>0 and len(wfield_v)>0 and len(getfield)>0 then
dim f_rs
'conn为打开数据库变量
set f_rs=conn.execute("select [" & getfield & "] from [" & tb & "] where [" & wfield & "]=" & wfield_v & "")
if f_rs.bof=false and f_rs.eof=false then getsys=f_rs(0)
set f_rs=nothing
end if
end function
%>

发布时间:2016年1月25日 | 评论:0 | 浏览: | 标签:获取字段值  获取字符串  

前端脚本

jQuery图片向左向上无缝滚动代码

jQuery图片向左向上无缝滚动代码

jQuery图片向左向上无缝滚动代码,鼠标移上去悬停时停止滚动,移出后继续滚动。

代码是包含了两个JS文件:jquery-1.4.2.min.js、scroll.js,需要请点击文章底部的下载。

发布时间:2016年1月22日 | 评论:1 | 浏览: | 标签:Javascript  jQuery  滚动  JS特效  

网站制作

DIV+CSS浮动代码

DIV+CSS浮动代码

纯DIV+CSS浮动代码,无需JS,一般用作浮动QQ客服、淘宝/阿里旺旺、MSN、二维码、图片广告、在线咨询、浮动窗口、联系信息等用途。

以下代码是右侧浮动,可以自己修改为左侧浮动,或把CSS单独出来,或改成整个JS输出,这样只用包含JS就可以了,更方便。

注:样式中包含图片,请下载整个压缩包,以方便自己可以直接本地使用。

发布时间:2016年1月21日 | 评论:3 | 浏览: | 标签:浮动  QQ  客服  淘宝  阿里  旺旺  MSN  二维码  

前端脚本

jQuery返回顶部代码,带滑动效果

jQuery返回顶部代码,带滑动效果

返回顶部图标:

发布时间:2016年1月20日 | 评论:1 | 浏览: | 标签:Javascript  jQuery  返回顶部  滑动  浮动  JS特效  

前端脚本

jQuery图片轮播代码集合

jQuery图片轮播代码集合

jQuery可悬停控制图片轮播代码1

发布时间:2016年1月18日 | 评论:0 | 浏览: | 标签:Javascript  jQuery  图片轮播  图片切换  图片轮换  幻灯片  JS特效  

前端脚本

JS+FLASH图片轮播/图片切换/图片自动轮换特效代码集合

JS+FLASH图片轮播/图片切换/图片自动轮换特效代码集合

JS+FLASH图片轮播/图片切换/图片自动轮换特效代码1

发布时间:2016年1月14日 | 评论:0 | 浏览: | 标签:Javascript  图片轮播  图片切换  图片轮换  幻灯片  JS特效  

前端脚本

JS实现切换标签页,显示隐藏DIV层内容

JS实现切换标签页,显示隐藏DIV层内容

<script type="text/javascript">
//制作:凌陈亮www.lingchenliang.com(QQ:57404811)
//切换标签页/选项卡,显示隐藏DIV层内容,同时更换标签链接样式,可用于多个组,每组多个标签
//兼容IE内核/Firefox火狐/Google谷歌等浏览器
//参数:当前标签ID后缀数字,样式class名称组(未触发时样式|触发时样式),标题ID组,内容ID组

发布时间:2016年1月13日 | 评论:1 | 浏览: | 标签:Javascript  JS控制DIV  切换标签页  显示隐藏DIV  JS选项卡  JS特效  

前端脚本

JS实现上传前预览图片,兼容IE/FF/谷歌

JS实现上传前预览图片,兼容IE/FF/谷歌

<script type="text/javascript">
//制作:凌陈亮www.lingchenliang.com(QQ:57404811)
//上传前预览图片,兼容IE内核/Firefox火狐/谷歌浏览器
//参数:文件域对象,预览DIV对象ID,预览IMG对象ID
function imgpreview(objfile,divid,imgid){
 var url=objfile.value; //获取文件域值
 if(url!=""){
  if(!url.match(/.jpg|.jpeg|.gif|.bmp|.png/i)){ window.alert('File type must be: .jpg|.jpeg|.gif|.bmp|.png !'); return false; }
  var objimg = document.getElementById(imgid); //获取预览IMG对象
  if(objfile.files && objfile.files[0]){
   //FF火狐下,直接设img属性
   objimg.style.display = "block";
   objimg.style.width = "200px";
   objimg.style.height = "150px";
   if(window.navigator.userAgent.indexOf("Chrome") >= 1 || window.navigator.userAgent.indexOf("Safari") >= 1){
    objimg.src = window.webkitURL.createObjectURL(objfile.files[0]);
   }else{
    objimg.src = window.URL.createObjectURL(objfile.files[0]);
   }
  }else{  

发布时间:2016年1月11日 | 评论:0 | 浏览: | 标签:Javascript  图片预览  文件上传  文件操作  JS特效  

ASP程序

ASP用户登录界面及处理程序代码

ASP用户登录界面及处理程序代码

一个页面实现ASP用户/管理员登录界面及处理程序代码一体化示例:

发布时间:2016年1月7日 | 评论:0 | 浏览: | 标签:用户登录  表单验证  验证用户名  ASP教程  

ASP程序

ASP判断用户/管理员是否登录

ASP判断用户/管理员是否登录

非通用,此自定义函数代码仅供参考,使用时数据库相关代码请自行修改

<%
'验证用户/管理员登录状态
'参数:返回类型(0弹出信息,1返回值[0登录失败,1登录成功]),登录失败跳转页面
function checklogin(typ,url)
 dim f_return : f_return=0 'false
 dim f_username : f_username=request.cookies("admin")("username")
 dim f_password : f_password=request.cookies("admin")("password")
 if len(f_username)<1 or len(f_password)<1 then
  if typ=0 then call alert("非法登录!","javascript:window.parent.frames.document.location.href='" & url & "';") '未登录
  '因后台大多是框架结构,要实现内页退出到登录页时没有头部和左侧框架,则需用
  'window.parent.frames.document.location.href  父框架页面跳转
  'document.location.href  当前页面跳转
 else
  dim f_rs
  set f_rs=conn.execute("select [password] from [admin] where [username]='" & f_username & "'")
  if f_rs.bof=true or f_rs.eof=true then
   if typ=0 then call alert("用户名或密码错误!","javascript:window.parent.frames.document.location.href='" & url & "';") '用户名错误
  else
   if f_rs(0)<>f_password then
    if typ=0 then call alert("用户名或密码错误!","javascript:window.parent.frames.document.location.href='" & url & "';") '密码错误
   else
    f_return=1
   end if
  end if
  set f_rs=nothing
 end if
 if typ<>0 then checklogin=f_return
end function

发布时间:2016年1月7日 | 评论:0 | 浏览: | 标签:用户登录  ASP教程  

前端脚本

JS实现网页计算器

JS实现网页计算器

可兼容IE内核、Firefox火狐、google谷歌等浏览器。

由于文件代码太长,所以直接打包了。

发布时间:2016年1月6日 | 评论:2 | 浏览: | 标签:Javascript  JS特效  

前端脚本

JS实现复选框全选、全不选、反选功能

JS实现复选框全选、全不选、反选功能

<script type="text/javascript">
//【制作:凌陈亮www.lingchenliang.com(QQ:57404811)】
//JS实现复选框全选/全不选/反选
//参数:多选项组名称,功能(all全选和全不选,其它反选),全选按钮名称
function select_allno(id,type,btnid){
 if(id!=null&&id!=""){ //多选项组名称不能为空
  if(document.getElementsByName(id)!=undefined&&document.getElementsByName(id).length>0){
   //getElementsByName函数的作用按名字查找对象,返回一个数组。
   var obj=document.getElementsByName(id);
   if(type=="all"){ //全选、全不选
    if(btnid!=null&&btnid!=""){ //全选按钮名称不能为空
     var btn=document.getElementById(btnid);
     for(var i=0;i<obj.length;i++) obj[i].checked=btn.checked;
    }
   }else{ //反选
    for(var i=0;i<obj.length;i++){
     var e=obj[i];
     if(e.checked==true) e.checked=false
     else e.checked=true
    }
   }
  }
 }
}
</script>

发布时间:2016年1月6日 | 评论:1 | 浏览: | 标签:Javascript  JS特效  

«123456789101112»