全国各大医院排名 专科:ASP技巧集锦4

HTML文件标记






<%
graphic="images/learnaspiconmain.gif"
HW = ReadImg(graphic)
Response.Write graphic & " Dimensions: " & HW(0) & "x" & HW(1)
& "
"
response.write "response.write height=""" & HW(0) & """
response.write width=""" & HW(0) & "">"
%>

The library that is included is:

<%
Dim HW

Function AscAt(s, n)
AscAt = Asc(Mid(s, n, 1))
End Function

Function HexAt(s, n)
HexAt = Hex(AscAt(s, n))
End Function

Function isJPG(fichero)
If inStr(uCase(fichero), ".JPG") <> 0 Then
isJPG = true
Else
isJPG = false
End If
End Function

Function isPNG(fichero)
If inStr(uCase(fichero), ".PNG") <> 0 Then
isPNG = true
Else
isPNG = false
End If
End Function

Function isGIF(fichero)
If inStr(uCase(fichero), ".GIF") <> 0 Then
isGIF = true
Else
isGIF = false
End If
End Function

Function isBMP(fichero)
If inStr(uCase(fichero), ".BMP") <> 0 Then
isBMP = true
Else
isBMP = false
End If
End Function

Function isWMF(fichero)
If inStr(uCase(fichero), ".WMF") <> 0 Then
isWMF = true
Else
isWMF = false
End If
End Function

Function isWebImg(f)
If isGIF(f) Or isJPG(f) Or isPNG(f) Or isBMP(f) Or isWMF(f)
Then
isWebImg = true
Else
isWebImg = true
End If
End Function

Function ReadImg(fichero)
If isGIF(fichero) Then
ReadImg = ReadGIF(fichero)
Else
If isJPG(fichero) Then
ReadImg = ReadJPG(fichero)
Else
If isPNG(fichero) Then
ReadImg = ReadPNG(fichero)
Else
If isBMP(fichero) Then
ReadImg = ReadPNG(fichero)
Else
If isWMF(fichero) Then
ReadImg = ReadWMF(fichero)
Else
ReadImg = Array(0,0)
End If
End If
End If
End If
End If
End Function

Function ReadJPG(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(167), 4)
HW(0) = HexToDec(HexAt(s,3) & HexAt(s,4))
HW(1) = HexToDec(HexAt(s,1) & HexAt(s,2))
ts.Close
ReadJPG = HW
End Function

Function ReadPNG(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(24), 8)
HW(0) = HexToDec(HexAt(s,3) & HexAt(s,4))
HW(1) = HexToDec(HexAt(s,7) & HexAt(s,8))
ts.Close
ReadPNG = HW
End Function

Function ReadGIF(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(10), 4)
HW(0) = HexToDec(HexAt(s,2) & HexAt(s,1))
HW(1) = HexToDec(HexAt(s,4) & HexAt(s,3))
ts.Close
ReadGIF = HW
End Function

Function ReadWMF(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(14), 4)
HW(0) = HexToDec(HexAt(s,2) & HexAt(s,1))
HW(1) = HexToDec(HexAt(s,4) & HexAt(s,3))
ts.Close
ReadWMF = HW
End Function

Function ReadBMP(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(24), 8)
HW(0) = HexToDec(HexAt(s,4) & HexAt(s,3))
HW(1) = HexToDec(HexAt(s,8) & HexAt(s,7))
ts.Close
ReadBMP = HW
End Function

Function isDigit(c)
If inStr("0123456789", c) <> 0 Then
isDigit = true
Else
isDigit = false
End If
End Function

Function isHex(c)
If inStr("0123456789ABCDEFabcdef", c) <> 0 Then
isHex = true
Else
ishex = false
End If
End Function

Function HexToDec(cadhex)
Dim n, i, ch, decimal
decimal = 0
n = Len(cadhex)
For i=1 To n
ch = Mid(cadhex, i, 1)
If isHex(ch) Then
decimal = decimal * 16
If isDigit(c) Then
decimal = decimal + ch
Else
decimal = decimal + Asc(uCase(ch)) - Asc("A")
End If
Else
HexToDec = -1
End If
Next
HexToDec = decimal
End Function
%>

常用的javascript function
file://=========================================
// 输入数据检验
// 检验空值
function funCheckEmpty(m_Text) {
var strTmp=m_Text
if (strTmp == null || strTmp == "") {
return false
}
return true
}

file://检验内容的长度
function funTextLenCheck(m_Text) {
var strText=m_Text
for(i=0;i<=strText.length-1;i++){
if (strText.charCodeAt(i)>=256){
return strText.length * 2
}
}
return strText.length
}

file://检验长度
function funCheckLen(m_Len,m_Text) {
if (funTextLenCheck(m_Text)> m_Len) {
return false
}
return true
}

file://检验是否为数字
function funCheckNumber(m_Text) {
var strTmp=m_Text
if (isNaN(strTmp)) {
return false
}
return true
}

file://检验日期是否合法
function funcheckDate(m_Year,m_Month,m_Day){
file://根据月先取得最大日期
var maxDay
if (m_Month==2) {
maxDay=28
if (m_Year % 4 ==0) {
maxDay=29
}
} else {
if (m_Month<=7){
if (m_Month % 2 ==0){
maxDay=30
}else{
maxDay=31
}
}else{
if (m_Month % 2 ==0){
maxDay=31
}else{
maxDay=30
}
}
}
if (m_Day>maxDay){
return false
}
return true
}

file://读取Cookies信息
function GetCookie(strCookName){
var arvCookies=document.cookie.split("; ")
for(var i=0;i< arvCookies.length; i++) {
var arvOneCookie=arvCookies[i].split("=")
if (strCookName==arvOneCookie[0]){
return unescape(arvOneCookie[1])
}
}
return ""
}

file://替换字符串中的非法字符
function Replace_Text(text){
var strTmp=text
strTmp=strTmp.replace("@", "＠")
strTmp=strTmp.replace("?", "？")
strTmp=strTmp.replace("&", "＆")
strTmp=strTmp.replace("‘", "‘")
strTmp=strTmp.replace("<", "〈")
strTmp=strTmp.replace(">", "〉")
return strTmp

}

function Check_PassWord(text){
var strTmp=text
if (strTmp.indexOf("‘")>-1){
return "‘"
}
if (strTmp.indexOf("?")>-1){
return "?"
}
if (strTmp.indexOf("&")>-1){
return "&"
}
if (strTmp.indexOf("<")>-1){
return "<"
}
if (strTmp.indexOf(">")>-1){
return ">"
}
return ""

}

function Check_Url(text){
var strTmp=text
if (strTmp.indexOf("‘")>-1){
return false
}
return true
}

file://焦点控制
function document.onkeydown(){
var e = event.srcElement;
if (event.keyCode == 13 && e.tagName == "INPUT" && e.type == "text"){
event.keyCode = 9;
}

}

<% response.write "
1.oncontextmenu="window.event.returnvalue=false"将彻底屏蔽鼠标右键
no可用于table
2.取消选取、防止复制
3.onpaste="returnfalse"不准粘贴
4.oncopy="returnfalse;"oncut="returnfalse;"防止复制
5.ie地址栏前换成自己的图标
6.可以在收藏夹中显示出你的图标
7.关闭输入法
8.永远都会带着框架

9.防止被人frame

10.网页将不能被另存为
11.onclick="window.location=view-source:+ http://www.csdn.net/";;;;>
12.怎样通过asp的手段来检查来访者是否用了代理
<%ifrequest.servervariables("http_x_forwarded_for")<>""then
response.write"您通过了代理服务器，"&_
"真实的ip为"&request.servervariables("http_x_forwarded_for")
endif
"%>
<% response.write"
13.取得控件的绝对位置
file://javascript

functiongetie(e){
vart=e.offsettop;
varl=e.offsetleft;
while(e=e.offsetparent){
t+=e.offsettop;
l+=e.offsetleft;
}
alert("top="+t+"\nleft="+l);
}

file://vbscript

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

functioncc()
{
vare=event.srcelement;
varr=e.createtextrange();
r.movestart(character,e.value.length);
r.collapse(true);
r.select();
}


15.判断上一页的来源
asp:
request.servervariables("http_referer")
java script:
document.referrer
16.最小化、最大化、关闭窗口









本例适用于ie
17.
<%
定义数据库连接的一些常量
constadopenforwardonly=0游标只向前浏览记录，不支持分页、recordset、bookmark
constadopenkeyset=1键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、recordset、bookmark
constadopendynamic=2动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(access不支持)。
constadopenstatic=3静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动
constadlockreadonly=1锁定类型，默认的，只读，不能作任何修改
constadlockpessimistic=2当编辑时立即锁定记录，最安全的方式
constadlockoptimistic=3只有在调用update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
constadlockbatchoptimistic=4当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的
constadcmdtext=&h0001
constadcmdtable=&h0002
" %>
18.网页不会被缓存
htm网页



或者
asp网页
response.expires=-1
response.expiresabsolute=now()-1
response.cachecontrol="no-cache"
php网页
header("expires:mon,26jul199705:00:00gmt");
header("cache-control:no-cache,must-revalidate");
header("pragma:no-cache");

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

20.获得一个窗口的大小
document.body.clientwidth,document.body.clientheight

21.怎么判断是否是字符
if(/[^\x00-\xff]/g.test(s))alert("含有汉字");
elsealert("全是字符");
22.textarea自适应文字行数的多少


23.日期减去天数等于第二个日期

functioncc(dd,dadd)
{
file://可以加上错误处理
vara=newdate(dd)
a=a.valueof()
a=a-dadd*24*60*60*1000
a=newdate(a)
alert(a.getfullyear()+"年"+(a.getmonth()+1)+"月"+a.getdate()+"日")
}
cc("12/23/2002",2)

24.选择了哪一个radio

functioncheckme()
foreachobinradio1
ifob.checkedthenwindow.alertob.value
next
endfunction

style
barcode


25.获得本页url的request.servervariables("")集合
response.write"variablesvalue"
foreachobinrequest.servervariables
response.write""&ob&""&request.servervariables(ob)&""
next
response.write""
26.
本机ip<%=request.servervariables("remote_addr")%>
服务器名<%=request.servervariables("server_name")%>
服务器ip<%=request.servervariables("local_addr")%>
服务器端口<%=request.servervariables("server_port")%>
服务器时间<%=now%>
iis版本<%=request.servervariables"server_software")%>
脚本超时时间<%=server.scripttimeout%>
本文件路径<%=server.mappath(request.servervariables("script_name"))%>
服务器cpu数量<%=request.servervariables("number_of_processors")%>
服务器解译引擎<%=scriptengine&"/" & scriptenginemajorversion &"." & scriptengineminorversion & "." & scriptenginebuildversion%>
服务器操作系统<%=request.servervariables("os")%>
27.enter键可以让光标移到下一个输入框

28.检测某个网站的链接速度：
把如下代码加入区域中:

tim=1
setinterval("tim++",100)
b=1
varautourl=newarray()
autourl[1]="< src="pic/url.gif" align=absmiddle border=0> www.njcatv.net"
autourl[2]="javacool.3322.net"
autourl[3]="< src="pic/url.gif" align=absmiddle border=0> www.sina.com.cn"
autourl[4]="www.nuaa.edu.cn"
autourl[5]="< src="pic/url.gif" align=absmiddle border=0> www.cctv.com"
functionbutt(){
document.write("")
for(vari=1;idocument.write("=》=》
")
document.write("")
}
butt()
functionauto(url){
document.forms[0]["url"+b].value=url
if(tim>200)
{document.forms[0]["txt"+b].value="链接超时"}
else
{document.forms[0]["txt"+b].value="时间"+tim/10+"秒"}
b++
}
functionrun(){for(vari=1;i ")}/">http://";;;;;+autourl+")>")}
run()

29.各种样式的光标
auto：标准光标
default：标准箭头
hand：手形光标
wait：等待光标
text：i形光标
vertical-text：水平i形光标
no-drop：不可拖动光标
not-allowed：无效光标
help：?帮助光标
all-scroll：三角方向标
move：移动标
crosshair：十字标
e-resize
n-resize
nw-resize
w-resize
s-resize
se-resize
sw-resize
1.本地无缓存，每次自动刷新
response.expires=0
response.addheader"pragma","no-cache"
response.addheader"cache-control","private"
2.修改contenttype并下载gif等格式
<%
functiondl(f,n)
onerrorresumenext
sets=createobject("adodb.stream")
s.mode=3
s.type=1
s.open
s.loadfromfile(server.mappath(f))
iferr.number>0then
response.writeerr.number&":"&err.description
else
response.contenttype="application/x-gzip"
response.addheader"content-disposition:","attachment;filename="&n
response.binarywrite(s.read(s.size))
endif
endfunction
calldl("012922501.gif","t1.gif")
%>

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

20.获得一个窗口的大小
document.body.clientwidth,document.body.clientheight
document.body.offsetwidth,document.body.offsetheight
有时还需要知道window.screentop,window.screenleft
21.怎么判断是否含有汉字
if(escape(str).indexof("%u")!=-1)alert("含有汉字");
elsealert("全是字符");
22.textarea自适应文字行数的多少
ie5.5+可以用overflow-y:visible


23.日期减去天数等于第二个日期

functioncc(dd,dadd)
{
file://可以加上错误处理
vard=newdate(dd.replace("-","/"))
d.setdate(d.getdate()+dadd)
alert(d.getfullyear()+"年"+(d.getmonth()+1)+"月"+d.getdate()+"日")
}
cc("2002-2-28",2)