31种asp、js函数收藏 代码很实用

程序代码

'*******************************************************************
'检测是否是手机浏览
'*******************************************************************
<%
if instr(request.ServerVariables("HTTP_USER_AGENT"),"Mozilla")=0 then
response.redirect "/wap" '如果客户端为手机访问,则进入/wap目录
else
response.redirect "https://www.doczj.com/doc/3411483403.html," '如果客户端不是手机访问,则进入指定地址
end if
%>



程序代码
'*******************************************************************
'取得IP地址
'*******************************************************************
Function Userip()
Dim GetClientIP
'如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法
GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then
'如果客户端没用代理，应该用Request.ServerVariables("REMOTE_ADDR")方法
GetClientIP = Request.ServerVariables("REMOTE_ADDR")
end if
Userip = GetClientIP
End function




程序代码
'*******************************************************************
' 弹出对话框
'*******************************************************************
Sub alert(message)
message = replace(message,"'","\'")
Response.Write ("")
End Sub



程序代码
'*******************************************************************
' 返回上一页，一般用在判断信息提交是否完全之后
'*******************************************************************
Sub GoBack()
Response.write ("")
End Sub
　


程序代码
'*******************************************************************
' 重定向另外的连接
'*******************************************************************
Sub Go(url)
Response.write ("")
End Sub



程序代码
'*******************************************************************
' 指定秒数重定向另外的连接
'*******************************************************************
sub GoPage(url,s)
s=s*1000
Response.Write ""
end sub



程序代码
'*******************************************************************
' 判断数字是否整形
'*******************************************************************
function isInteger(para)
on error resume next
dim str
dim l,i
if isNUll(para) then
isInteger=false
exit function
end if
str=cstr(para)
if trim(str)="" then
isInteger=false
exit function
end if
l=len(str)
for i=1 to l
if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
isInteger=false
exit function
end if
next
isInteger=true
if err.number<>0 then err.clear
end function



程序代

码
'*******************************************************************
' 获得文件扩展名
'*******************************************************************
function GetExtend(filename)
dim tmp
if filename<>"" then
tmp=mid(filename,instrrev(filename,".")+1,len(filename)-instrrev(filename,"."))
tmp=LCase(tmp)
if instr(1,tmp,"asp")>0 or instr(1,tmp,"php")>0 or instr(1,tmp,"php3")>0 or instr(1,tmp,"aspx")>0 then
getextend="txt"
else
getextend=tmp
end if
else
getextend=""
end if
end function



程序代码
' *----------------------------------------------------------------------------
' * 函数：CheckIn
' * 描述：检测参数是否有SQL危险字符
' * 参数：str要检测的数据
' * 返回：FALSE：安全 TRUE：不安全
' * 作者：
' * 日期：
' *----------------------------------------------------------------------------
function CheckIn(str)
if instr(1,str,chr(39))>0 or instr(1,str,chr(34))>0 or instr(1,str,chr(59))>0 then
CheckIn=true
else
CheckIn=false
end if
end function



程序代码
' *----------------------------------------------------------------------------
' * 函数：HTMLEncode
' * 描述：过滤HTML代码
' * 参数：--
' * 返回：--
' * 作者：
' * 日期：
' *----------------------------------------------------------------------------
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")

fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "

")
fString = Replace(fString, CHR(10), "
")

HTMLEncode = fString
end if
end function



程序代码
'*----------------------------------------------------------------------------
' * 函数：HTMLcode
' * 描述：过滤表单字符
' * 参数：--
' * 返回：--
' * 作者：
' * 日期：
' *----------------------------------------------------------------------------
function HTMLcode(fString)
if not isnull(fString) then
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "

")
fString = Replace(fString, CHR(34), "")
fString = Replace(fString, CHR(10), "
")
HTMLcode = fString
end if
end function



so cool 菜单(Jave)

程序代码

>>>---------我想分页！--这么长的文章，在这里来个分页多好啊！哈哈----------<<<
《几个常用的ASP代码&FSO》
1.获得系统时间:
<%=now()%>

2.取得来访用的IP:
<%=request.serverVariables("remote_host")%>

3.获得系统,浏览器版本:


4.去除IE混动条:



5.进入网站,跳出广告:


6.随机数:
<%randomize%>
<%=(int(rnd()*n)+1)%>
N为可改变数

7.向上混动代码:
hhhhhhhhhhhhhhhhhhh

8.自动关闭网页:


11.ACCESS数据库连接:
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
'更改数据库名字
db="data/dvBBS5.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>

12.SQL数据库连接:
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
connstr="driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>

13.用键盘打开网页代码:


这里是Ctrl+Enter和Alt+S的代码 自己查下键盘的ASCII码再换就行

14.让层不被控件复盖代码:
＃ 前面
＃ 后面



15.动网FLASH广告代码:


16.VBS弹出窗口小代码:


16.使用FSO修改文件特定内容的函数
function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String)
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function

17.使用FSO读取文件内容的函数
function FSOFileRead(filename)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function

18.使用FSO读取文件某一行的函数
function FSOlinedit(filename,lineNum)
if linenum < 1 then exit function
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
FSOlinedit = temparray(lineNum-1)
end if
end if
end function

19.使用FSO写文件某一行的函数
function FSOlinewrite(filename,lineNum,Linecontent)
if linenum < 1 then exit function
dim fso,f,temparray,tempCnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
temparray(lineNum-1) = lineContent
end if
tempcnt = join(temparray,chr(13)&chr(10))
set f = fso.createtextfile(server.mappath(filename),true)
f.write tempcnt
end if
f.close
set f = nothing
end function

20.使用FSO添加文件新行的函数
function FSOappline(filename,Linecontent)
dim fso,f
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),8,1)
f.write chr(13)&chr(10)&Linecontent
f.close
set f = nothing
end function

21.读文件最后一行的函数
function FSOlastline(filename)
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename

)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
FSOlastline = temparray(ubound(temparray))
end if
end function
>>>---------我想分页！--这么长的文章，在这里来个分页多好啊！哈哈----------<<<
1. oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键

no

可用于Table

2. 取消选取、防止复制

3. onpaste="return false" 不准粘贴

4. oncopy="return false;" oncut="return false;" 防止复制

5. IE地址栏前换成自己的图标

6. 可以在收藏夹中显示出你的图标

7. 关闭输入法

8. 永远都会带着框架


9. 防止被人frame


10. 网页将不能被另存为


11. onclick="window.location = "view-source:"+ "https://www.doczj.com/doc/3411483403.html,"">

12.删除时确认
删除

13. 取得控件的绝对位置
//Javascript


//VBScript


14. 光标是停在文本框文字的最后



15. 判断上一页的来源
javascript :
document.referrer

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

put type=button value=最大化 onclick=hh2.Click()>

本例适用于IE

17.屏蔽功能键Shift,Alt,Ctrl


18. 网页不会被缓存



或者

19.怎样让表单没有凹凸感？

或


20.

&的区别？

(division)用来定义大段的页面元素，会产生转行
用来定义同一行内的元素，跟

的唯一区别是不产生转行
是ns的标记，ie不支持，相当于

21.让弹出窗口总是在最上面:


22.不要滚动条?
让竖条没有:


让横条没有:


两个都去掉？更简单了



23.怎样去掉图片链接点击后，图片周围的虚线？


24.电子邮件处理提交表单

25.在打开的子窗口刷新父窗口的代码里如何写？
window.opener.location.reload()

26.如何设定打开页面的大小

打开页面的位置

27.在页面中如何加入不是满铺的背景图片,拉动页面时背景图不动


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


29. 获得一个窗口的大小
document.body.clientWidth; document.body.clientHeight

30. 怎么判断是否是字符
if (/[^/x00-/xff]/g.test(s)) alert("含有汉字");
else alert("全是字符");

31.TEXTAREA自适应文字行数的多少
<br>

相关主题

• asp常用代码大全
• 常用库函数大全
• 常用js代码大全
• 常用js代码

文本预览

相关文档

• JS使用代码大全
• ASP代码大全
• asp常用代码大全
• ASP函数大全
• 常用经典SQL语句大全完整版
• DW代码大全
• ASP实用大全
• 常用js代码大全
• html代码大全 很全
• 网页设计代码大全
• flash常用脚本代码大全
• JAVASCRIPT 经典代码大全
• dw常用代码
• 40个经典网页代码
• javascript常用代码大全
• 常用代码
• Flash常用按钮代码大全
• asp错误代码大全
• 淘宝常用代码大全
• 常用经典SQL语句大全完整版

最新文档

• 幼儿园小班科学《小动物过冬》PPT课件教案
• 2021年春新青岛版(五四制)科学四年级下册 20.《露和霜》教学课件
• 自然教育课件
• 小学语文优质课火烧云教材分析及课件
• (超详)高中语文知识点归纳汇总
• 高中语文基础知识点总结(5篇)
• 高中语文基础知识点总结(最新)
• 高中语文知识点整理总结
• 高中语文知识点归纳
• 高中语文基础知识点总结大全
• 超详细的高中语文知识点归纳
• 高考语文知识点总结高中
• 高中语文知识点总结归纳
• 高中语文知识点整理总结
• 高中语文知识点归纳
• 高中语文知识点归纳(大全)
• 高中语文知识点总结归纳(汇总8篇)
• 高中语文基础知识点整理
• 化工厂应急预案
• 化工消防应急预案(精选8篇)