筚路蓝缕

不因成就而狂妄、不因失落而气馁、不因欲望而沉重、不因嫉妒而困扰

ASP

一些常用的辅助代码

Venlentine

一些常用的辅助代码～还在添加中~
点击返回上页代码:
<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>
点击打开新窗口
<form>
<p><input TYPE=”button” VALUE=”打开新窗口” ONCLICK=”NewWindow()”></p>
</form>
<script language=”JavaScript”><!–
function NewWindow(){window.open(“http://www.mcmx.com”,””,”height=240,width=340,status=no,location=no,toolbar=no,directories=no,menubar=no”);}
// –></script></body>
删除记录时弹出确认框：
<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=”/” onclick=”javascript:window.close(); return false;”>关闭窗口</a>
清空INPUT且选定
onClick=”Javascript:this.value=”” onFocus=”this.select()” onMouseOver=”this.focus()”
右键屏蔽
<body oncontextmenu=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” onfocus=”this.blur()” onclick=”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=最小化 onclick=hh1.Click()>
<input type=button value=最大化 onclick=hh2.Click()>
<input type=button value=关闭 onclick=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 onclick=”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&&copytoclip==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代码以及背景透明
<object classid=”clsid:D27CDB6E-AE6D-11cf-96B8-444553540000″ codebase=”http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0″ width=”200″ height=”200″>
<param name=”movie” value=”文件”>
<param name=”quality” value=”high”>
<param name=”wmode” value=”transparent”>
<embed src=”images/fish.swf” quality=”high” pluginspage=”http://www.macromedia.com/go/getflashplayer” type=”application/x-shockwave-flash” width=”220″ height=”220″></embed></object>
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、代码很精简
在网上找了几天组合出来的，基本上有这个代码就无忧了
〖警告〗代码中的url不许修改，直接帮我弹，如果修改不提供技术支持和后续服务（开个玩笑）
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>错误!&nbsp;</b>读取地址时出错&nbsp;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 onclick=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 oncontextmenu=self.event.returnValue=false>正在下载软件,请稍等……<br /><font color=#808080>本次连接最长时间(“&JyDownWinClose&”)秒,如果没下载成功请重试</font><br /><br /><a href=http://”&weburl&” target=_blank onclick=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.onload=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 onload=””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 更新数据表记录
判断所填数据是数字型
if not isNumeric(request(“字段名称”)) then
response.write “不是数字”
else
response.write “数字”
end if

分类： ASP

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

这个站点使用 Akismet 来减少垃圾评论。了解你的评论数据如何被处理。

相关文章

开始在上面输入您的搜索词，然后按回车进行搜索。按ESC取消。

返回顶部