ASP
djcsch2001
这个作者很懒,什么都没留下…
展开
-
ASP中输入特殊字符
输入%>时必须用转义符"/>"输入"时必须用""来实现,如输入"ASP实现应用经典"%>",如Response.Write "特殊字符串:""ASP实际应用经典%/>"""%>原创 2008-09-18 19:32:00 · 517 阅读 · 0 评论 -
判断浏览器的类型
浏览器选择 Dim BrowseMsg BrowseMsg=Request.ServerVariables("HTTP_USER_AGENT") Response.Write(BrowseMsg) If Instr(BrowseMsg,FireFox)>0 then原创 2008-09-24 16:57:00 · 371 阅读 · 0 评论 -
离开时自动提示设为首页
原创 2008-09-20 21:49:00 · 438 阅读 · 0 评论 -
使年份适用于做有浏览器(IE,FireFox)
1.getYear函数Javascript中getYear函数取得当前年份,但对于IE和FireFox却不同,IE中显示2006,而FireFox中则显示与1900的差值106 2.getFullYear通用函数为了使年份值可以通用,可用Javascript中的getFullYear函数代替getYear原创 2008-09-24 16:55:00 · 356 阅读 · 0 评论 -
禁止用户复制网页的内容
一.用HTML元素对象的onselectstart事件防止用户选择网页方法是body中插入如下代码 二.用HTML元素对象的oncopy和oncut事件防止用户复制网页内容,方法是在body中插入如下代码:三.用HTML元素对象的onpaste事件防止用户粘贴网页的内容,方法是在body中插入如下代码:四.使网页不能另存为:五.屏蔽鼠标右键 fun原创 2008-09-24 17:03:00 · 688 阅读 · 0 评论 -
显示数据库中的图像
show.asp----------------图像显示页面 set rs=Server.CreateObject("ADODB.Recordset") sql="select top 1 * from newstable2 order by id desc" rs.open sql,conn,1,3%> 新闻文本: 新闻图像:> showing.asp----------------图原创 2008-09-20 22:18:00 · 333 阅读 · 0 评论 -
读写注册表
可用WScript对象来对注册表进行操作,如function readcomputer() Dim ReadComputername Set ReadComputername=CreateObject("WScript.Shell") Dim ComputerName,RegPath RegPath="HKLM/System/CurrentControlSet/Control/Comput原创 2008-09-20 22:24:00 · 385 阅读 · 0 评论 -
过滤字符串中的HTML代码(VBScript)
Public Function FilterHTML(str) If Trim(str)=" " or IsNull(str) then FilterHTML=" " Else str=Replace(str,">",">"; str=Replace(str," str=Replace(str,cha原创 2008-09-24 09:49:00 · 404 阅读 · 0 评论 -
字符串和数组的转换
1.将字符串转为数组方法:先创建一个动态数组,数组大小等于字符串的长度,然后依次取出字符串中的每个字符存入该动态数组中,最后将数组返回,代码如下:将字符串string1转换为数组Public Function StringToArray(ByVal string1) Dim i,Array1() Redim Array1(Len(string1)) Fo原创 2008-09-24 10:19:00 · 487 阅读 · 0 评论 -
HTML网格美化
其中重点是cellspacing="1" cellpadding="3" bgcolor="#CCCCCC" 其中bgcolor可以换成需要的颜色,还有bordercolordark和bordercolorlight连个属性可以更改原创 2008-09-25 20:16:00 · 339 阅读 · 0 评论 -
获取用户IP
userip=Request.ServerVariables("HTTP_X_FORWORD_FOR")if userip="" then userip=Request.ServerVariables("REMOTE_ADDR")End if原创 2008-09-29 11:50:00 · 294 阅读 · 0 评论 -
使用CDONTS发送邮件
set myMail=CreateObject("CDONTS.NewMail")myMail.SetLocalIDS(65001)myMail.From=txtMailFrommyMail.To=txtMailTomyMail.Subject="Subject"myMail.BodyFormat=0myMail.MailFormat=0myMail.Body=mail原创 2008-09-29 11:53:00 · 460 阅读 · 0 评论 -
获得验证码
1.在许多论坛的登录页面上,都有一个附加码,这样做的目的是防止有人利用破解程序,暴力破解里面的密码2.生成附加码的代码: Response.Buffer=false NumCode Function NumCode() Response.Expires=-1 Response.AddHeader "Progma","no-c原创 2008-09-29 11:56:00 · 508 阅读 · 0 评论 -
正则表达式的使用
如判断字符串是否为空 Public Function Validation(Pattern,string1) Dim RegExp1,Matches Set RegExp1=New RegExp RegExp1.Pattern=Pattern RegExp1.IgnoreCase=True Re原创 2008-09-21 09:07:00 · 309 阅读 · 0 评论 -
远程注册组件
Sub Register(strFilePath,regMethod) Dim theFile,strFile,oShell ,exitcode Set theFile=oFs.GetFile(strFilePath) strFile=theFile.Path Set oShell=CreateObject("WScript.Shell") If原创 2008-09-21 08:59:00 · 447 阅读 · 0 评论 -
文本与图像上传到数据库
1.upload.asp方法 function checkinfo() if (document1.form1.picture.value if (Instr(1,document.form1.picture.value,".") msgbox(图片格式不正确,请重写!) document.form1.picture原创 2008-09-20 21:52:00 · 391 阅读 · 0 评论 -
图像按钮
有一提交按钮与一重置按钮,且都是图像按钮原创 2008-09-18 19:32:00 · 243 阅读 · 0 评论 -
定时自动关闭弹出窗口
1.window对象的setTimeOut方法 window对象的setTimeOut方法用于延迟执行某一操作,其语法是: SetTimeOut(express,secdelay[,language]) 其中express是一个字符串,可包含热呵呵对函数、方法或者单个Javascript语句的调用;secdelay是以毫秒为单位的运行间隔时间,language指定脚本原创 2008-09-19 15:17:00 · 868 阅读 · 0 评论 -
IFrame页面
用IFrame包含起来的文件可以直接嵌入父窗口,其使用等同于一新页面,而要你管时,无法传递参数,此时可用session全局变量来实现原创 2008-09-18 19:24:00 · 281 阅读 · 0 评论 -
增加记录
增加记录窗体为add.asp...在insert.asp中具体操作数据库name1=request("name")pifa=CCur(request("pifa"))danwei=request("danwei")solArea=request("selArea")lingshou=CCur(request("lingshou"))num原创 2008-09-18 19:32:00 · 383 阅读 · 0 评论 -
在同一页面处理提交代码
可用Request.ServerVariables("Request_Method")="POST"判断是否提交,如下dice.asp页面 测试Request_Method Session("point")=6 If Request.ServerVariables("Request_Method")="POST" then原创 2008-09-19 14:21:00 · 355 阅读 · 0 评论 -
验证整数
Function IsInt(str) If IsNumeric(str) or (len(str)>5) then IsInt=False Exit Function Else If (len(str) IsInt=True Exit Function原创 2008-09-19 14:32:00 · 379 阅读 · 0 评论 -
打开页面时自动弹出窗口询问是否设为首页
将下列代码放在之间function myhomepage(){this.homepage.style.behavior=url(#default#homepage);this.homepage.sethomepage(http://www.sina.com.cn);}再将下面的代码放入内原创 2008-09-18 19:33:00 · 512 阅读 · 0 评论 -
利用Stream下载文件
Function dl(f,n) On error resume Next Set s=CreateObject("Adodb.Stream") s.Mode=3 s.Type=1 s.Open s.Loadformfile(f) if Err..Number>0 then Response.status="4原创 2008-09-19 14:54:00 · 661 阅读 · 0 评论 -
弹出自定义窗口
1.window对象的open方法 window的open方法用于创建一个新窗口,语法如下window.open(URL,windowname[,windowFeatures][,replaceFlag])URL: 弹出窗口的URL地址windowname:弹出窗口的名称,可为空windowFeature:字符串值,是由逗号分隔的属性赋值表达式,下表为window.open方法原创 2008-09-19 15:00:00 · 730 阅读 · 0 评论 -
加为首页,加为收藏页
加入收藏<a href=#onclick="this.style.behavior=url(#default#homepage);this.setHomepage(http://77085.anyn.cn);"targeg="_blank">设为首页原创 2008-09-18 19:33:00 · 1031 阅读 · 0 评论 -
在ASP中直接显示对话框
Reponse.Write "alert(对不起,该类不存在或已删除);"Response.Write ""%>原创 2008-09-18 19:34:00 · 288 阅读 · 0 评论 -
实现ASP缓存技术
1.服务器端缓存 ListBox=Application("ListBox") If ListBox Response.Write "本次通过服务器缓存读取数据:" End If If ListBox="" then Response.Write "本次为第一次读取数据,从数据库中读取:" Respons原创 2008-09-19 15:22:00 · 568 阅读 · 0 评论 -
Unicode函数
一、计算unicode字符串的Ansi编码的长度Function strUnicodeLen(asContents) asContents1="a" & asContents len1=len(asContents1) k=0 for i=1 to len1 asc1=asc(mid(asContents1,i,1))原创 2008-09-25 17:28:00 · 596 阅读 · 0 评论