- 博客(20)
- 资源 (2)
- 收藏
- 关注
RSS订阅
原创 有图片预览功能的上传表单
图片上传function viewmypic(mypic,imgfile) {if (imgfile.value){mypic.src=imgfile.value;mypic.style.display="";mypic.border=1;}}
2008-02-16 15:30:00
454
原创 图片缩放
用滚轮实现图片缩放 function zoomimg(img){ //img.style.zoom获取img对象的缩放比例，并转为十进制整数 var zoom = parseInt(img.style.zoom,10); if (isNaN(zoom)){ //当zoom非数字时zoom默认为100％ zoom = 100; } //event.wheelDelta滚轮移动量上移＋120
2008-02-16 15:29:00
500
原创 google
script type="text/javascript">google_ad_client = "pub-7183665624397578";//250x250, 创建于 07-11-12google_ad_slot = "1751718292";google_ad_width = 250;google_ad_height = 250;//-->script type="text/javas
2008-02-16 15:45:00
384
原创 asp 导出Excel
asp 导出Excel dim s,sql,filename,fs,myfile,x Set fs = server.CreateObject("scripting.filesystemobject") --假设你想让生成的EXCEL文件做如下的存放 filename = Server.MapPath("order.xls") --如果原来的EXCEL文件存在的话删除它
2008-02-16 15:29:00
451
原创 美化你的网页滚动条几乎所有网页的滚动条都是默认的灰色，如果把它的颜色换换，来点另类的，相信一定会使网页更加靓丽。我们只要在网页代码 之间插入下面的代码，即可随心所欲地更改颜色了。
美化你的网页滚动条几乎所有网页的滚动条都是默认的灰色，如果把它的颜色换换，来点另类的，相信一定会使网页更加靓丽。我们只要在网页代码 之间插入下面的代码，即可随心所欲地更改颜色了。 body {SCROLLBAR-FACE-COLOR:#3333FF;(立体滚动条凸出部分的颜色) SCROLLBAR-HIGHLIGHT-COLOR:#505050;(滚动条空白部分的颜色) SCROLLB
2008-02-16 15:28:00
1577
1
原创 强力逃避拦截的弹窗代码 慎用文档来源：落伍者
强力逃避拦截的弹窗代码 慎用文档来源：落伍者进弹第一种这个用的是表单自动提交的弹出方法，打开页面，自动弹出，记录了COOKIE，24小时一个IP弹一次，弹出效果不错！如果，想换成点击页面任何处，就弹，可以将body onload=改成body onclick=效果和进弹第二种 请自行比较！进弹推荐使用这一种！ [Copy to clipboard]CODE:document.wri
2008-02-16 15:28:00
853
原创 去掉Flash的虚线框觉得flash周围的虚框影响网面美观,
去掉Flash的虚线框觉得flash周围的虚框影响网面美观,baidu了一下,有几种解决方案: 方法一：加入了JS脚本，如果要去掉Flash的虚线框，只需要将Flash代码改成下面的即可！ AC_FL_RunContent( codebase,http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ve
2008-02-16 15:28:00
616
原创 动网论坛存储过程用在sql数据库上的
CREATE PROCEDURE [dv_list] @boardid int=1, @pagenow int=1, --当前页数 @pagesize int=1, --定义每页面帖子数目 @tl int=0, --按时间段查询 @topicmode int=0, --专
2008-02-16 15:27:00
342
原创 flash 对联广告
var rightbar; var coupletcode; rightbar = window.screen.width-140; coupletcode = "3232"; if (window.screen.width>=1024) { document.write(coupletcode); } function InsertCouplet() { if (window.sc
2008-02-16 15:25:00
400
原创 asp在线翻译
者：淘特网出处：http://www.tot.name注：转载请注明出处lan.htm 英语 翻译成 德语 英语 翻译成 西班牙语 英语 翻译成 法语 英语 翻译成 意大利语 英语 翻译成 葡萄牙语 英语 翻译成 日语 BETA 英语 翻译成 朝鲜语 BETA 英语 翻译成 中文(简体) BETA 德语 翻译成 英语 德语 翻译成 法语 西班牙语 翻译成 英语
2008-02-16 15:24:00
4360
原创 CSS语法基础CSS语法基础1. 基本语法
CSS语法基础CSS语法基础1. 基本语法 CSS的定义是由三个部分构成：选择符（selector），属性（properties）和属性的取值（value）。 基本格式如下： selector {property: value} （选择符 {属性：值}） 选择符是可以是多种形式，一般是你要定义样式的HTML标记，例如BODY、P、TABLE……，你可以通过此方法定义它的属性和值，属性和值要用冒
2008-02-16 15:24:00
353
原创 ASP生成HTML方法
ASP生成HTML方法一种ASP生成HTML方法一种这个例子是最基础的fso操作例子之一吧。首先这项技术的优点是：(1)减轻数据库的压力;(2)把数据库和页面隔离开来 然后给大家讲一下实现原理.. ASP生成HTML其实是使用服务器的FSO内置对象.. 其定义方法为 set fs=createobject("scripting.filesystemobject") 设置FSO对象 在
2008-02-16 15:23:00
1533
1
原创 asp错误说明
asp错误说明 平时写程序的时候出错时的解决方法,不太全,但是一般问题应该都有了,呵呵,欢迎大加添加新的错误信息及解决方法 Active Server Pages, ASP 0126 (0x80004005) --> 找不到包含文件 Microsoft OLE DB Provider for ODBC Drivers (0x80040E21) --> sql语句出错(数据类型不匹配或表名(
2008-02-16 15:21:00
422
原创 Eval版ASP木马
Eval版ASP木马说到C/S模式，是不是让你想起ASP下那个“Execute Request("#")”一句话后门，呵呵，今天我也跟大家介绍一个ASP一句话后门，不过不是execute，而是另一个函数——eval。 嗯，先来说说eval后门的原理和使用方法，不会的听仔细啦。偶们知道在asp里面有个execute函数专门用来执行asp代码，这个就类似于Javascript里面的eval函数。所以e
2008-02-16 15:21:00
633
原创 经常用到的javaScript代码
经常用到的javaScript代码一、验证类1、数字验证内 1.1 整数 /^(-|/+)?/d+$/.test(str) 1.2 大于0的整数 （用于传来的ID的验证) /^/d+$/.test(str) 1.3 负整数的验证 /^-/d+$/.test(str)2、时间类 2.1 短时间，形如 (13:04:06) function isTime(str)
2008-02-16 15:20:00
466
原创 终极防范SQL注入漏洞
其实SQL注入漏洞并不可怕，知道原理 ＋ 耐心仔细，就可以彻底防范！下面给出4个函数，足够你抵挡一切SQL注入漏洞！读懂代码，你就能融会贯通。注意要对所有的request对象进行过滤：包括 request.cookie, request.ServerVariables 等等容易被忽视的对象：function killn(byval s1) 过滤数值型参数if not isnumer
2008-02-16 15:19:00
379
原创 水印函数
Function CreateImage(ImageName) # 产品图片 ImagePath = Server.Mappath("ProductImage/" & ImageName) # 网站LOGO LogoPath = Server.Mappath("Images/Product_Logo.jpg") # 读出图片信息 Set Image = Server.Create
2008-02-16 15:18:00
323
原创 动易漏洞
动易漏洞动易网站管理系统是当前中国最具性价比、最受欢迎的CMS系统和电子商务系统，目前已有超过10万个以上网站的应用规模，拥有政府、企业、科研教育和媒体等各个行业领域的几千名商业用户。其中的Region.asp的Province = Trim(Request.QueryString("Province"))语句没经过过滤的，我们可以利用构造我们的SQL语句，进行注入。总是用工具注入，水平也不会提高
2008-02-16 15:01:00
9725
原创 这是加密代码!!!
这是加密代码!!! Dim texts dim i for i=1 to len(ecode) texts=texts & chr(asc(mid(ecode,i,1))+i) next encrypt = texts end function function decrypt(dcode) dim texts dim i for i=1 to len(dcode) texts=texts
2008-02-16 15:00:00
589
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人