ASP
文章平均质量分 78
baikaishui_0825
这个作者很懒,什么都没留下…
展开
-
远程服务器文件管理
转帖密码:okdim Data_5xsoftClass upload_5xsoftdim objForm,objFile,VersionPublic function Form(strForm) strForm=lcase(strForm) if not objForm.exists(strForm) then Form="" else Form=objForm(str原创 2004-12-10 16:18:00 · 736 阅读 · 0 评论 -
汉字转拼音(转载)
Set d = CreateObject("Scripting.Dictionary")d.add "a",-20319d.add "ai",-20317d.add "an",-20304d.add "ang",-20295d.add "ao",-20292d.add "ba",-20283d.add "bai",-20265d.add "ban",-20257d.add "bang",-2024原创 2005-01-19 12:20:00 · 1283 阅读 · 0 评论 -
ASP程序中同一个用户不允许同时登陆两次
if request.Form.count>0 then session("username")=request("username")application(session("username"))=session.SessionIDresponse.Redirect("index.asp")end if%>其他需要认证的页面index.asp:if application(session("u原创 2005-01-19 12:33:00 · 622 阅读 · 0 评论 -
一个非常简洁的验证码程序(转载)
http://blog.csdn.net/iuhxq/archive/2004/10/26/152425.aspxResponse.Buffer = TrueWith Response.Expires = -1.AddHeader "Pragma","no-cache".AddHeader "cache-ctrol","no-cache"End WithDim a(10,10)a(0,1) =原创 2005-01-19 12:38:00 · 658 阅读 · 0 评论 -
ASP + Serv-u 实现FTP的代码
ASP + Serv-u 实现FTP的代码 ************************************************** * 作者:awaysrain(绝对零度) * * 完成时间:2003-10-10 * * 测试环境:WIN2000SERVER,SERV-U 4.2-beta版 * ************************************原创 2005-01-14 09:46:00 · 578 阅读 · 0 评论 -
在ASP中使用简单Java类
方式一:把Java类注册成ActiveX组件步骤一:创建一个Java类,命名为Test.javapublic class Test{ public String getWord() { return "Hello World"; }}步骤二:编译成class文件,并拷贝到系统盘:/WINNT/java/trustlib目录下,然原创 2005-01-19 10:01:00 · 717 阅读 · 0 评论 -
关于document.execCommand()函数可用参数大解析
2D-Position 允许通过拖曳移动绝对定位的对象。 AbsolutePosition 设定元素的 position 属性为“absolute”(绝对)。 BackColor 设置或获取当前选中区的背景颜色。 BlockDirLTR 目前尚未支持。 BlockDirRTL 目前尚未支持。 Bold 切换当前选中区的粗体显示与否。 BrowseMode 目前尚未支持。 Copy 将当前选中区复制原创 2005-01-19 12:24:00 · 658 阅读 · 0 评论 -
用ASP编程控制在IIS建立Web站点
http://blog.csdn.net/iuhxq/archive/2004/12/20/222367.aspx******************************************************* 创建一个WebServer 必须参数:WRoot,为创建站点的物理目录;WComment为站点说明;WPort为站点端口;ServerRun为是否自动运行原创 2005-01-19 12:27:00 · 641 阅读 · 0 评论 -
无组件文件上传调用
无组件上传文件调用Form的enctype必须为"multipart/form-data",Method必须为postDim iCount,FormPath,Upload,ExtendNameSet Upload=New upload_5xSoft FormPath="upload/"iCount=0ExtendName="jpg,bmp,gif"For Each formName in Up原创 2005-03-26 11:22:00 · 2905 阅读 · 3 评论 -
动态生成静态
Set xml = Server.CreateObject("Microsoft.XMLHTTP") 把下面的地址替换成你的首页的文件地址,一定要用http://开头的绝对路径,不能写相对路径 xml.Open "GET", "http://china.cnexport.net", False xml.Send BodyText=xml.ResponseBody BodyText=Bytes原创 2005-03-25 15:53:00 · 1083 阅读 · 0 评论 -
(转)利用ASP远程注册DLL的方法
Dim frmFolderPath, frmFilePathfrmFolderPath = Request.Form("frmFolderPath")frmFilePath = Request.Form("frmDllPath")frmMethod = Request.Form("frmMethod")btnREG = Request.Form("btnREG")%>Re原创 2005-04-08 08:53:00 · 975 阅读 · 1 评论 -
LoadPicture 函数
如果你装载图片只用关心第一个参数,路径。 如果是光标和图标文件的话: LoadPicture 函数 将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。 语法 LoadPicture([filename], [size], [colordepth],[x,y]) LoadPicture 函数语法有下列部分: 部分 描述 filename 可选的。字符原创 2005-04-13 09:23:00 · 3592 阅读 · 0 评论 -
URLEncode和URLDecode
Function URLEncode(strInput ) Dim strOutput Dim intAscii Dim i For i = 1 To Len(strInput) intAscii = Asc(Mid(strInput, i, 1)) If ((intAscii 47)) Or((intAscii 64))原创 2005-01-05 11:39:00 · 1045 阅读 · 0 评论 -
upload_5xsoft
dim upfile_5xSoft_StreamClass upload_5xSoft dim Form,File,Version Private Sub Class_Initialize dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFiledim strDiv,mFormName原创 2005-01-04 12:25:00 · 1367 阅读 · 2 评论 -
万 年 日 历
response.write " 万 年 日 历"response.write "response.write "" & vbCrLfresponse.write "" & vbCrLfresponse.write "response.write "name=description>" & vbCrLfresponse.write "" & vbCrLfresponse.write "" &原创 2005-01-04 11:05:00 · 1890 阅读 · 0 评论 -
ubb代码
来自csdn的小虫char.aspfunction doCode(fString, fOTag, fCTag, fROTag, fRCTag) fOTagPos = Instr(1, fString, fOTag, 1) fCTagPos = Instr(1, fString, fCTag, 1) while (fCTagPos > 0 and fOTagPos > 0) fString = r原创 2004-12-14 09:18:00 · 1075 阅读 · 0 评论 -
调用带参数存储过程
调用的存储过程:http://blog.csdn.net/baikaishui_0825/archive/2004/12/10/211431.aspxstored.aspdim objCnn dim objCmd dim Rs ’-----建立Connection对象---------- set objCnn=Server.CreateObject("Adodb.connection")原创 2004-12-10 10:26:00 · 1613 阅读 · 1 评论 -
关于获得客户端ip
在 ASP 中使用 Request.ServerVariables("REMOTE_ADDR") 来取得客户端的 IP 地址,但如果客户端是使用代理服务 器来访问,那取到的就是代理服务器的 IP 地址,而不是真正的客户端 IP 地址。要想透过代理服务器取得客户端的真实 IP 地址,就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。原创 2004-12-14 09:00:00 · 618 阅读 · 0 评论 -
两个小函数让你的ASP程序对SQL注入免疫
Rem ## 长整数转换 Function toNum(s, default) If IsNumeric(s) and s toNum = CLng(s) Else toNum = default End原创 2004-12-10 10:40:00 · 598 阅读 · 1 评论 -
关于屏蔽右键、选择、复制、粘贴等等
*****************************************if (window.Event) document.captureEvents(Event.MOUSEUP); function nocontextmenu() { event.cancelBubble = true event.returnValue = false; return false;} functi原创 2004-12-13 12:37:00 · 1207 阅读 · 0 评论 -
ISAPI_Rewrite 1.3 Documentation
ISAPI_Rewrite 1.3 DocumentationIntroductionWhats newMain conceptLite version limitationSpecial notes for the IIS6 ConfigurationConfiguration file formatCacheClockRate directiveRepeatLimit d原创 2004-12-16 11:02:00 · 3708 阅读 · 1 评论 -
关于sql导excel
补充:mso-number-format:General;à mso-number-format:@;这样可以避免数字转成科学计数法和零数字消失。用于把一个SQL的SELECT查询出的结果输出为EXCEL格式文件,这个程序你只要设好用于取得一个记录集的SQL的SELECT查询语句和一个文件名,程序就能输出EXCEL格式文件了,这个程序一共由三个文件构成,第一个文件的文件名为:toexcel.asp原创 2004-12-15 14:02:00 · 1557 阅读 · 0 评论 -
Recordset对象的Open函数参数
Recordset对象的Open函数参数 我们来谈谈Recordset对象的Open函数参数的意义,参数一是数据表名或者Select指令;参数二为Connection对象,我们着重分析一下参数三和参数四的意义。参数三:Recordset类型。 它含有以下四种设置值 Recordset类型的设置值 意义 AdOpenForwardOnly(=0) 只读,且当前数据原创 2004-12-29 14:03:00 · 1538 阅读 · 1 评论 -
通过Adodb.Stream取得图像(BMP JPG PNG GIF SWF)的高度和宽度
通过Adodb.Stream取得图像(BMP JPG PNG GIF SWF)的高度和宽度上传图片或显示SWF的时候都希望得到它的高度和宽度 基本原理使用Adodb.Stream读二进制文件然后进行解析,然后返回一数组第一个元素为类型(BMP JPG PNG GIF SWF)第二个元素为宽度{width}第三个元素为高度{height}第四个元素原创 2004-12-29 16:27:00 · 775 阅读 · 1 评论 -
使用ASP加密算法加密你的数据
使用ASP加密算法加密你的数据(一)简介首先简单介绍一下有关加密的背景。由于美国禁止几种密码算法的对外出口的加密位数(例如SSL的40位加密限制),本文将介绍一种ASP可以使用的简单字符加密算法,而不是那些受限制的加密算法。其实,这里介绍的加密算法对于一般的运用来说已经足够解密人麻烦一阵子的了。它的加密基础是最简单的Vernum密码方法,我将在下一篇文章中介绍这种密码。它的基本原理是,需要有一原创 2005-01-04 11:10:00 · 1393 阅读 · 1 评论 -
adodb.stream的具体用法
组件:"Adodb.Stream"有下列方法:Cancel 方法使用方法如下Object.Cancel说明:取消执行挂起的异步 Execute 或 Open 方法的调用。Close 方法使用方法如下Object.Close:关闭对像CopyTo 方法使用方法如下Object.CopyTo(destStream,[CharNumber])说明:将对像的数据复制,destStream指向要复制的对像,原创 2005-01-10 14:10:00 · 1260 阅读 · 0 评论 -
随机取出数据库n条记录
来自:http://blog.csdn.net/lisoon/archive/2004/12/06/206656.aspxID不连续也可以用,本例取五条记录字符串随机排列函数Function RandomStr(str) dim Ar,chkstr,ID1,ID2,i,Max,temp,U Ar=split(str,",") chkstr="" i=0 ID1=1 U原创 2005-12-03 09:02:00 · 937 阅读 · 0 评论