...

asp 常用的字符串处理函数 asp 常用的字符串处理函数 Class Cls_Fun Private x,y,ii '============================== '函 数 名：AlertInfo '作 用：错误显示函数 '参 数：错误提示内容InfoStr，转向页面GoUr...

asp 简单数据库连接类 asp 简单数据库连接类 Class Cls_DB Private ConnStr Private DBpath,DBLink,DBi '============================== '函 数 名：DB_Conn '作 用：数据库连接函数 '参 数： '===========================...

...

解决IE8下无法使用编辑器的方法 解决IE8下无法使用编辑器的方法。具体修改方法如下： 打开根目录下的editor.asp，找到以下代码 if (element.YUSERONCLICK) eval(element.YUSERONCLICK 'anonymous()'); 修改...

ASP中的ArrayList类[数组常用函数] 使用方法如下： 程序代码 % dim arr : set arr=new ArrayList arr.add a : arr.add b : arr.add c Response.Write arr.count br for i=0 to arr.count-1 Response.Write arr.item(i) br next set arr=n...

Asp开发中常见错误提示及其意义说明 MicrosoftVBScript语法错误(0800A03E9)＞内存不足 MicrosoftVBScript语法错误(0800A03EA)＞语法错误 MicrosoftVBScript语法错误(0800A03EB)＞缺少?: MicrosoftVBScript语法错误...

asp调用二级分类 代码 % dim conn dim connstr dim db db=../data/1du.asp Set conn = Server.CreateObject(ADODB.Connection) connstr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Server.MapPath(db) conn.Open connstr sub closedatabase() co...

...

asp完整登陆代码 % option explicit '强制浏览器重新访问服务器下载页面，而不是从缓存读取页面 Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.Cache...

asp 特殊字符屏蔽代码 function strreplace(str) if str = then strreplace = str else strreplace = replace(str,','') end if end function 检测数字函数 function check_num(str) dim i For i = 1 To Len(str) if Asc(Mid(str, i, 1)) 48 or...

...

...

asp html代码转安全ascii代码 function DoTrimProperly(str, nNamedFormat, properly, pointed, points) dim strRet strRet = Server.HTMLEncode(str) strRet = replace(strRet, vbcrlf,br) strRet = replace(strRet, vbtab,) if (LEN(strRet) nNamedF...

...

asp ubb代码转换成html代码 Function Ubb2Html(str, showemot, showimg) ON ERROR RESUME NEXT if Not str then exit function tmpstr=uNobwab str=UbbStr(str,url) str=UbbStr(str,quote) str=UbbStr(str,color) str=UbbStr(str,size) str=UbbStr(str...

asp html转成html编码程序 function htmlencode2(str) dim result dim l if isNULL(str) then htmlencode2= exit function End if l=len(str) result= dim i for i = 1 to l select case mid(str,i,1) case result=result+lt; case result=result+gt; c...

...

一、治标方法： IE7以上版本其实把文件上传是否发送完整的本地路径做成一个选项，在IE的Internet选项中可以设置。如下图： 1、Internet安全选项： 2、完整路径选项设置： 由于默认是禁...

...