魅力博客-一些常用的辅助代码

form>
<p><input TYPE="button" VALUE="返回上一步" ONCLICK="history.back(-1)"></p>
</form>

弹出警告框代码:

点击打开新窗口

删除记录时弹出确认框：

关闭打开的窗口

清空INPUT且选定

onClick="Javascript:this.value=''" onFocus="this.select()" onMouseOver="this.focus()"

右键屏蔽

连串英文自动换行的解决方法 IE5.5

style="LEFT: 0px; WIDTH: 100%; Word-WRAP: break-word" 你可修改为指定的大小如 200px

图片“重置”按钮

画细线表格

状态栏信息

最小化、最大化、关闭窗口

隐藏状态栏里出现的LINK信息

文本框自动滚动条

全选并复制

<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>

</SCRIPT>

屏蔽JAVASCRIPT错误

关闭子窗口时刷新父窗口

背景色变换

<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>

检查一段字符串是否全由数字组成

判断是否是字符

if (/[^/x00-/xff]/g.test(s)) alert("含有汉字");

点击刷新代码:

让层不被控件复盖代码:

让层的相对定位

Flash代码以及背景透明

Windows Media Player 播放器

RealPlayer 播放器

【经典弹窗】刺穿MYIE24小时同一ip弹一次无须body加载精简代码

【优点】

1、刺穿MYIE
2、24小时同一ip弹一次
3、不需要在body中onload加载
4、代码很精简

在网上找了几天组合出来的，基本上有这个代码就无忧了

惊云作弊下载页代码

<%
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/"%>

<%
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 更新数据表记录

判断所填数据是数字型

Code: [Copy to clipboard]
if not isNumeric(request("字段名称")) then
response.write "不是数字"
else
response.write "数字"
end if

返回顶部

魅力博客

魅力Linux|魅力空间|魅力博客|学习Linux|ubuntu日记|电脑教程|手机软件

一些常用的辅助代码