鞠勇鸿的技术专栏

在提交页面中验证session("GetCode")@CodePage="65001"%>  Call Com_CreatValidCode("GetCode") Sub Com_CreatValidCode(pSN)      禁止缓存     Response.Expires = -9999      Response.AddHeader "Pragma","no-cache"   

recordset.Open Source, ActiveConnection, CursorType, LockType, Options参数Source   可选，变体型，计算 Command 对象的变量名、SQL 语句、表名、存储过程调用或持久 Recordset 文件名。ActiveConnection   可选。变体型，计算有效 Connection 对象变量名；或字符串，包

代码有点多，下载：http://download.youkuaiyun.com/source/337848另外程序还有点Bug，还没来得及改，如果谁完善一下，别忘了发给我一份（jyh_jack@163.com）by 鞠勇鸿conn.asp 内容：dim connset conn=server.createobject("adodb.connection")connString="Driver=

var winName=(Math.round(Math.random()*1000)).toString(); //生成新开窗口的名字，可不防止总是在同名窗口中提交window.open("",winName);document.QueryForm.target=winName;document.QueryForm.action="Query.asp";document.QueryForm.

dim adoconnset adoconn=server.createobject("adodb.connection")connString="Driver={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("knddb06.mdb")adoconn.open connStringset adoxCatalogx=server.

document.QueryForm.QueryText.value=document.QueryForm.QueryText.value.replace(/^/s*/,"");//去左空格document.QueryForm.QueryText.value=document.QueryForm.QueryText.value.replace(//s*$/,"");//去右空格

window.clipboardData.getData("Text");                                 //获得剪贴版的文字   window.clipboardData.setData("Text","你的内容");           //文本加入到剪贴板   window.clipboardData.clearData();                

StrSearch = "jack" 查询字符串Dim conn As New ADODB.ConnectionconnStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:/a.mdb"conn.Open connStrDim rs As New ADODB.Recordsetsql = "select top 1 * from

 function getType(num)   getType=num   select case num     case "202" :       getType="文本"     case "203" :       getType="备注"     case "3" :       getType="长整型"     case "2" :       getType="整型" 

  From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))   Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))   if mid(From_url,8,len(Serv_url))  Serv_url then   response.write "非法链接！" 防止盗链 

  如果我们知道一个静态文件的实际路径如：http://www.xx.com/download/51windows.pdf，如果服务器没有作特别的限制设置，我们就可以毫不费力的把它下载下来！当网站提供51Windows.pdf下载时，怎么样才能让下载者无法得到他的实际路径呢！本文就来介绍如何使用ASP来隐藏文件的实际下载路径。      　　我们在管理网站文件时，可以把扩展名一样的文件放在同一

dim conn dim dbpath set conn=server.createobject("adodb.connection") dbpath=Server.mappath("data/data.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & dbpathdmlSql="Create table Tab

str="010-65321478 13116782417"dim regExSet regEx=New RegExpregEx.Pattern="/d{11}"regEx.Global=true 全部匹配str=regEx.Replace(str,"手机")regEx.Pattern="/d{3}-/d{8}"str=regEx.Replace(str,"座机")msgbox(str)

在页面的头部加入相应的代码便可。UTF-8简体中文繁体中文美国/加拿大英语日文韩文俄文

 图形生成文件checkcode.asp： <% 调用CreateSafeCode 过程 Call CreateSafeCode() 定义CreateSafeCode 过程 Sub CreateSafeCode () AddHeader 方法用于增加带有一个要发送到客户应用程序的特殊的HTTP头 Response.AddHeader "

 实际上，在web开发中，cookie仅仅是一个文本文件，当用户访问站点时，它就被存储在用户使用的计算机上，其中，保存了一些信息，当用户日后再次访问这个站点时，web可以将这些信息提取出来。 尽管现在听起来cookie没有什么激动人心的，但实际上利用它，你能实现许多有意义的功能！比如说：你可以在站点上放置 一个调查问答表，询问访问者最喜欢的颜色和字体，然后根据这些定制用户的web界面。并且，你还可

当定义了 Text 的 height 属性时，在 Text 中输入的文字都不是垂直居中的，不过你可以添加CSS来控制它，让输入的文字垂直居中，使网页更完美。 #text { height:20px; vertical-align:middle; line-height:20px; /*line-height must

page_top.aspscript language=javascript> /* Example ---------------------- var pg = new showPages(pg); pg.pageCount = 12; //定义总页数(必要) pg.argName = p; //定义参数名(可选,缺省为page) pg.printHtml(); //显示页数 

ACCESS所有类型为： Big Integer、Binary、Boolean、Byte、Char、Currency、Date/Time、Decimal、Double、Float、GUID、Integer、Long、Long Binary (OLE Object)、Memo、Numeric、Single、Text、Time、TimeStamp 以及 VarBinary。常用的几种：Date/T

access+ASP方法一:db="data/data.mdb"Set conn = Server.CreateObject("ADODB.Connection")connstr="Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath(db)conn.Open connstraccess+ASP方法二:db="data

Function getRnd(i As Integer) As Integer 取1-i之间的随机数一个  Randomize  getRnd = Int(Rnd() * i + 1)End FunctionFunction getAllRnd(Counter As Integer, jishu As Integer) As Integer()取Counter个1-jishu之间的随机数

asp:On Error Resume NextSet adox = Server.CreateObject("Adox.Catalog")adox.Create "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath("oyleme.mdb")Set adox= Nothing%> VB添加工程－引用

script type="text/javascript"> function cl() { window.opener=null; window.open("",_self,""); //加上这一句，对IE7有效window.close(); } script> head> body> input type="button" onclick="cl()" value="close">

 -------------------------------------------------------------------- Microsoft ADO Copyright (c) 1996-1998 Microsoft Corporation. ADO constants include file for VBScript----------------

MD5.asp 文件内容Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Private m_lOnBits(30)Private m_l2Power(30)Dim Md5OLDPrivate Function LShift(lValue, iS

CheckCode.js   /*getCheckCode(elementId)生成验证码，将在Id为elementId的HTML元素的innerHTML中写入HTML图片源码CheckCodeOK("用户输入的验证码") 返回true，即为通过验证*/var imgFolderPath="images/CheckCode/";  //存放路径var fileExt=".gif

ASCII码 键盘 ASCII 码 键盘 ASCII 码 键盘 ASCII 码 键盘 27

不同的ContentType 会影响客户端所看到的效果.默认的ContentType为 text/html 也就是网页格式.代码如: 显示的为网页,而 则会显示html原代码.以下为一些常用的 ContentTypeGIF images JPEG images TIFF images MICROSOFT WORD document R

这套验证码与网上流传的验证多少有点不同。这里的图片是单张分开、单张生成的，便于修改、代码简单。很适合我这样的菜鸟使用。writeCheckCode.asp  通过本文件实现写图片功能，可以定义图片所以路径、文件名等****----参数设定----****imgFolderPath="images/CheckCode/"  **存放路径fileExt=".gif"  **文件扩展名

1 在ASP程序后加个特殊符号，能看到ASP源程序　　受影响的版本：　　win95+pws　　IIS3.0　　98+pws4 不存在这个漏洞。　　IIS4.0以上的版本也不存在这个漏洞。　　问题描述：　　这些特殊符号包括小数点，%81, ::$DATA。比如：http://someurl/somepage.asp.http:// someurl/somepage.asp%81http:// som

HTML  　　META   HTTP-EQUIV="pragma"   CONTENT="no-cache">       　　META   HTTP-EQUIV="Cache-Control"   CONTENT="no-cache,   must-revalidate">       　　META   HTTP-EQUIV="expires"   CONTENT="MON,   11

Function SafeRequest(ParaName,ParaType) --- 传入参数 --- ParaName:参数名称-字符型 ParaType:参数类型-数字型(1表示以上参数是数字，0表示以上参数为字符) Dim ParaValue ParaValue=Request(ParaName) If ParaType=1 then If not isNumeric(ParaV

script LANGUAGE="javascript">//定义当前是否大写的状态var CapsLockValue=0;var check;function setVariables() {tablewidth=630;  // logo width, in pixelstableheight=20;  // logo height, in pixelsif (navigator.appN

html xmlns="http://www.w3.org/1999/xhtml">head>meta http-equiv="Content-Type" content="text/html; charset=gb2312" />title>60刷新本页title>script type="text/javascript">var t;t=60;function shua(){    t=t

Function FormatHTML(fString)     If fString"" Then         fString = trim(fString)         fString = replace(fString, ";", "；")     分号过滤         fString = replace(fString, "--", "——") --过滤        

C#（WEB）DataTable输出CSV文件（通用函数）