点击返回上页代码:
<form> <p><input TYPE="button" VALUE="返回上一步" ONCLICK="history.back(-1)"></p> </form> |
弹出警告框代码:
<form> <p><input TYPE="button" VALUE="弹出警告框" ONCLICK="AlertButton()"></p> </form> <script language="JavaScript"><!-- function AlertButton(){window.alert("要多多光临呀!");} // --></script>
|
点击打开新窗口
删除记录时弹出确认框:
<script LANGUAGE="VBSCRIPT"> a=msgbox("真的要删除该记录吗?",1,"注意") if a=1 then location="Dodelete.asp?id=<%=id%>" //指向执行删除的页面Dodelete.asp else history.go(-1) end if </script>
|
关闭打开的窗口
<a href="/" οnclick="javascript:window.close(); return false;">关闭窗口</a>
|
清空INPUT且选定
onClick="Javascript:this.value=''" onFocus="this.select()" onMouseOver="this.focus()"
|
右键屏蔽
<body οncοntextmenu=self.event.returnValue=false>
|
连串英文自动换行的解决方法 IE5.5
style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word" 你可修改为指定的大小如 200px
|
图片“重置”按钮
<script language="jscript"> function myreset() { document.login.reset(); document.login.focus();} </script> <img src="image/reclear.gif" width="69" height="20" style="cursor:hand" οnfοcus="this.blur()" οnclick="myreset()">
|
画细线表格
<table style="border-collapse: collapse">
|
状态栏信息
<form> <p><input TYPE="button" VALUE="状态栏信息" ONCLICK="StatusButton()"></p> </form> <script language="JavaScript"><!-- function StatusButton(){window.status="要多多光临呀!";} // --></script>
|
最小化、最大化、关闭窗口
<object id=hh1 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11"> <param name="Command" value="Minimize"></object> <object id=hh2 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11"> <param name="Command" value="Maximize"></object> <OBJECT id=hh3 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"> <PARAM NAME="Command" VALUE="Close"></OBJECT>
<input type=button value=最小化 οnclick=hh1.Click()> <input type=button value=最大化 οnclick=hh2.Click()> <input type=button value=关闭 οnclick=hh3.Click()> 本例适用于IE
|
隐藏状态栏里出现的LINK信息
<a href="http://"; onMouseOver="window.status='none';return true">梦想天空</a>
|
文本框自动滚动条
<textarea name=words rows=18 cols=26 style="border:1 solid #000000;background-color:white; font-size:9pt; width:188; overflow:auto" wrap=hard></textarea>
|
全选并复制
<FORM name=test><INPUT οnclick="javascript:HighlightAll('test.select1')" type=button value=全选并复制><BR><TEXTAREA name=select1 rows=3 cols=46>你好,欢迎您的光临!</TEXTAREA> </FORM> <SCRIPT language=Javascript> <!--
var copytoclip=1
function HighlightAll(theField) { var tempval=eval("document."+theField) tempval.focus() tempval.select() if (document.all&©toclip==1){ therange=tempval.createTextRange() therange.execCommand("Copy") window.status="Contents highlighted and copied to clipboard!" setTimeout("window.status=''",1800) } } //--> </SCRIPT>
|
屏蔽JAVASCRIPT错误
<script language="JavaScript"> <!-- function killErrors(){ return true; } window.onerror = killErrors; --> </script>
|
关闭子窗口时刷新父窗口
<script language="JavaScript"> <!-- self.opener.location.reload(); window.close() --> </script>
|
背景色变换
<form><p><input TYPE="button" VALUE="背景色变换" onClick="BgButton()"></p> </form> <script>function BgButton(){ if (document.bgColor=='#00ffff') {document.bgColor='#ffffff';} else{document.bgColor='#00ffff';} } </script>
|
检查一段字符串是否全由数字组成
<script language="Javascript"><!-- function checkNum(str){return str.match(//D/)==null} alert(checkNum("1232142141")) alert(checkNum("123214214a1")) // --></script>
|
判断是否是字符
if (/[^/x00-/xff]/g.test(s)) alert("含有汉字");
|
点击刷新代码:
<form> <p><input TYPE="button" VALUE="刷新按钮一" ONCLICK="ReloadButton()"></p> </form> <script language="JavaScript"><!-- function ReloadButton(){location.href="allbutton.htm";} // --></script>
|
让层不被控件复盖代码:
<div z-Index:2><object xxx></object></div> # 前面 <div z-Index:1><object xxx></object></div> # 后面 <div id="Layer2" style="position:absolute; top:40;width:400px; height:95px;z-index:2"><table height=100% width=100% bgcolor="#ff0000"><tr><td height=100% width=100%></td></tr></table><iframe width=0 height=0></iframe></div> <div id="Layer1" style="position:absolute; top:50;width:200px; height:115px;z-index:1"><iframe height=100% width=100%></iframe></div>
|
让层的相对定位
<div id="Layer1" style="position:relative; left:0px; top:0px; width:0px; height:0px;z-index:1"> <div id="Layer2" style="position:absolute; left:500px; top:0px; width:220px; height:220px; z-index:1"> 内容 </div></div>
|
Flash代码以及背景透明
Windows Media Player 播放器
<OBJECT id=MediaPlayer1 style="LEFT: 0px; VISIBILITY: visible; POSITION: absolute; TOP: 0px;z-index:2" codeBase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701standby=
Loading type=application/x-oleobject height=300 width=320 classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6 VIEWASTEXT> <PARAM NAME="URL" VALUE="地址">
<param name="AudioStream" value="-1"> <param name="AutoSize" value="0"> <param name="AutoStart" value="-1"> <param name="AnimationAtStart" value="0"> <param name="AllowScan" value="-1"> <param name="AllowChangeDisplaySize" value="-1"> <param name="AutoRewind" value="0"> <param name="Balance" value="0"> <param name="BaseURL" value> <param name="BufferingTime" value="5"> <param name="CaptioningID" value> <param name="ClickToPlay" value="-1"> <param name="CursorType" value="0"> <param name="CurrentPosition" value="-1"> <param name="CurrentMarker" value="0"> <param name="DefaultFrame" value> <param name="DisplayBackColor" value="0"> <param name="DisplayForeColor" value="16777215"> <param name="DisplayMode" value="0"> <param name="DisplaySize" value="4"> <param name="Enabled" value="-1"> <param name="EnableContextMenu" value="-1"> <param name="EnablePositionControls" value="0"> <param name="EnableFullScreenControls" value="0"> <param name="EnableTracker" value="-1"> <param name="InvokeURLs" value="-1"> <param name="Language" value="-1"> <param name="Mute" value="0"> <param name="PlayCount" value="1"> <param name="PreviewMode" value="0"> <param name="Rate" value="1"> <param name="SAMILang" value> <param name="SAMIStyle" value> <param name="SAMIFileName" value> <param name="SelectionStart" value="-1"> <param name="SelectionEnd" value="-1"> <param name="SendOpenStateChangeEvents" value="-1"> <param name="SendWarningEvents" value="-1"> <param name="SendErrorEvents" value="-1"> <param name="SendKeyboardEvents" value="0"> <param name="SendMouseClickEvents" value="0"> <param name="SendMouseMoveEvents" value="0"> <param name="SendPlayStateChangeEvents" value="-1"> <param name="ShowCaptioning" value="0"> <param name="ShowControls" value="-1"> <param name="ShowAudioControls" value="-1"> <param name="ShowDisplay" value="0"> <param name="ShowGotoBar" value="0"> <param name="ShowPositionControls" value="-1"> <param name="ShowStatusBar" value="-1"> <param name="ShowTracker" value="-1"> <param name="TransparentAtStart" value="-1"> <param name="VideoBorderWidth" value="0"> <param name="VideoBorderColor" value="0"> <param name="VideoBorder3D" value="0"> <param name="Volume" value="70"> <param name="WindowlessVideo" value="0"> </OBJECT>
|
RealPlayer 播放器
<object id=video1 classid=" clasid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA" width=320 height=240 align="middle"> <param name="controls" value="inagewindow"> <param name="console" value="chicp1"> <param name="autostar" value="true"> <param name="src" value="地址"> <embed src="地址" type="audio/x-pn-realaudio-plugin" console="chip1" controls="imagewindow" width=320 height=240 autostart=true align="middle"> </embed> </object>
|
【经典弹窗】刺穿MYIE|24小时同一ip弹一次|无须body加载|精简代码
【优点】
1、刺穿MYIE 2、24小时同一ip弹一次 3、不需要在body中onload加载 4、代码很精简
在网上找了几天组合出来的,基本上有这个代码就无忧了
function Get(){ var Then = new Date() Then.setTime(Then.getTime() + 24*60*60*1000) var cookieString = new String(document.cookie) var cookieHeader = "Cookie1=" var beginPosition = cookieString.indexOf(cookieHeader) if (beginPosition != -1){ } else { document.cookie = "Cookie1=POPWIN;expires="+ Then.toGMTString() var focusid=setTimeout("focus();var popAd=window.showModelessDialog('http://www.jue.cn/pop.html','dis','');",1000); window.focus(); } }Get();
pop.html为
<script language="JavaScript"> <!-- function openWindow2(URL,Name,features) { //v2.0 window.open(URL,Name,features); } openWindow2('http://www.jue.cn','pop','resizable,scrollbars,location, top=0'); //--> setTimeout('window.close();', 0); </script>
|
惊云作弊下载页代码
<!--#include file="admin/config.asp"-->
<% html="<title>"&webname&"</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><style>body{font-size:9pt;line-height:140%}</style><body>" error="<meta http-equiv='Refresh' content='2; URL=./index.htm'>"&html&"<b>错误! </b>读取地址时出错 2秒后自动<a href=./index.htm>返回首页</a>..."
if request("id")="" or request("no")="" then response.write error response.end end if
MDBpath="admin/"%> <!--#include file="admin/mdb_path_down.asp"--> <% set rs=server.CreateObject("ADODB.RecordSet") rs.open "select hits,hy from down where id="&request("id"),conn,1,3 if not rs.eof then hy=rs("hy") rs("hits")=rs("hits")+1 rs.update else rs.close set rs=nothing conn.close set conn=nothing response.write error response.end end if rs.close
rs.open ("select * from down where id="&request("id")&""),conn,1,1 if not rs.eof then ttid=rs("tid") id=rs("id") cxn=rs("cxn") cxv=rs("cxv") end if rs.close
sql="select [file],http from downfile where downid="&request("id")&" and downno="&request("no") 'response.write sql rs.open sql,conn,1,1 if not rs.eof then fileurl = rs("file") if trim(rs("http"))<>0 then set rs1=server.createobject("adodb.recordset") sql="select * from serverhttp where id="&rs("http") rs1.open sql,conn,1,1 if not rs1.eof then fileurl=rs1("http")&fileurl end if rs1.close set rs1=nothing end if else rs.close set rs=nothing conn.close set conn=nothing response.write error response.end end if rs.close
'会员软件 if JyDownUser="1" and hy>0 then 'JyDownUserDj=request.cookies("JyDownUserDj") JyDownUserDj=session("JyDownUserDj") if hy="1" then hydj="普通会员" if hy="2" then hydj="高级会员" if JyDownUserDj="" then JyDownUserDj=-1 else JyDownUserDj=cint(JyDownUserDj) end if if JyDownUserDj<hy-1 then response.write "<meta http-equiv='Refresh' content='20; URL=admin/login.asp'>"&html&"<li>你不能下载该["&hydj&"]软件!<p><li>如果你是"&hydj&",请先<a href=admin/login.asp target=_black οnclick=window.close()>登陆</a>后再下载..." response.end else if JyDownUserShow="1" then response.write html&"本软件下载地址:<a href="&fileurl&">"&fileurl&"</a>" response.end end if end if end if '检查来路 if JyDownUrl="1" then server_vv=len(Request.ServerVariables("SERVER_NAME")) server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv) server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv) if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then response.write("<script>location.href='soft/"&request("id")&".htm'</script>") response.end end if end if '高级防作弊 if JyDownWin="1" then Response.cookies("JyDownFileUrl")=fileurl response.write("<script>window.open(""about:<title>正在下载软件,请稍等... - "&webname&"</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><style>body{font-size:9pt;line-height:140%}</style><body><body οncοntextmenu=self.event.returnValue=false>正在下载软件,请稍等......<br><font color=#808080>本次连接最长时间("&JyDownWinClose&")秒,如果没下载成功请重试</font><br><br><a href=http://"&weburl&" target=_blank οnclick=window.close()>"&webname&"</a><p align=right><a href=JavaScript:window.close()>[关闭窗口]</a> <br><br><meta http-equiv='Refresh' content='0; URL="&fileurl&"'></script>limit='0:"&JyDownWinClose+1&"';if(document.images){var parselimit=limit.split(':');parselimit=parselimit[0]*60+parselimit[1]*1}function beginrefresh(){if(!document.images)return;parselimit-=1;cursec=parselimit;window.status=cursec+'秒后断开连接';setTimeout('beginrefresh()',1000)}window.οnlοad=beginrefresh;setTimeout('window.close();',"&JyDownWinClose&"000);<//script>"","""",""width=290,height=128,resizable=no,scrollbars=no,status=yes,toolbar=no,menubar=no,location=no"");location.href='about:<body οnlοad=""window.close()"">';</script>") response.end end if '转向连接 response.write "<title>"&cxn&""&cxv&" - 下载地址</title><div align=""center""><center><IFRAME MARGINHEIGHT=0 MARGINWIDTH=0 FRAMEBORDER=0 WIDTH=648 HEIGHT=500 SCROLLING=NO SRC=""http://www.axin.net/ads/Ads_Soft_Text.htm""></iframe></center></div><meta http-equiv='Refresh' content='5; URL="&fileurl&"'>" %>
|
ASP编程常用的代码
--------------------------------------------------------------------------------
1. ASP与Access数据库连接:
<% 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 %>
|
2. ASP与SQL数据库连接:
<% dim conn set conn=server.createobject("ADODB.connection") con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称 %>
|
建立记录集对象:
set rs=server.createobject("adodb.recordset") rs.open SQL语句,conn,3,2
|
3. SQL常用命令使用方法:
(1) 数据记录筛选:
sql="select * from 数据表 where 字段名=字段值 order by 字段名 " sql="select * from 数据表 where 字段名 like ‘%字段值%‘ order by 字段名 " sql="select top 10 * from 数据表 where 字段名 order by 字段名 " sql="select * from 数据表 where 字段名 in (‘值1‘,‘值2‘,‘值3‘)" sql="select * from 数据表 where 字段名 between 值1 and 值2"
|
(2) 更新数据记录:
sql="update 数据表 set 字段名=字段值 where 条件表达式" sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"
|
(3) 删除数据记录:
sql="delete from 数据表 where 条件表达式" sql="delete from 数据表" (将数据表所有记录删除)
|
(4) 添加数据记录:
sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)" sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表)
|
(5) 数据记录统计函数:
AVG(字段名) 得出一个表格栏平均值 COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计 MAX(字段名) 取得一个表格栏最大的值 MIN(字段名) 取得一个表格栏最小的值 SUM(字段名) 把数据栏的值相加
引用以上函数的方法:
sql="select sum(字段名) as 别名 from 数据表 where 条件表达式" set rs=conn.excute(sql)
用 rs("别名") 获取统的计值,其它函数运用同上。
|
(5) 数据表的建立和删除:
CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… )
例:CREATE TABLE tab01(name varchar(50),datetime default now())
DROP TABLE 数据表名称 (永久性删除一个数据表)
|
(6) 记录集对象的方法:
rs.movenext 将记录指针从当前的位置向下移一行 rs.moveprevious 将记录指针从当前的位置向上移一行 rs.movefirst 将记录指针移到数据表第一行 rs.movelast 将记录指针移到数据表最后一行 rs.absoluteposition=N 将记录指针移到数据表第N行 rs.absolutepage=N 将记录指针移到第N页的第一行 rs.pagesize=N 设置每页为N条记录 rs.pagecount 根据 pagesize 的设置返回总页数 rs.recordcount 返回记录总数 rs.bof 返回记录指针是否超出数据表首端,true表示是,false为否 rs.eof 返回记录指针是否超出数据表末端,true表示是,false为否 rs.delete 删除当前记录,但记录指针不会向下移动 rs.addnew 添加记录到数据表末端 rs.update 更新数据表记录
判断所填数据是数字型
Code: [Copy to clipboard] if not isNumeric(request("字段名称")) then response.write "不是数字" else response.write "数字" end if
|
|