asp中获取当前页面的地址与参数的函数代码
实现代码如下:Function getCurrentUrl() On Error Resume Next Dim strTemp If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strT
实现代码如下:Function getCurrentUrl() On Error Resume Next Dim strTemp If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strT
实现代码如下:'===================================== '获得文件后缀 '===================================== Function Get_Filetxt(ByVal t0) Dim t1 IF Len(t0)":Err.Cle
实现代码如下:'============================== '格式化HTML,SDCMS加强版 '============================== Function Nohtml(ByVal t0) IF Len(t0)=0 Or IsNull(t0) Then Noh
实现代码如下:'===================================== '转换内容,防止意外 '===================================== Function Content_Encode(ByVal t0) IF IsNull(t0) Or Len
文件名称:ByVal.aspByRef.asp具体代码:运行结果:56结论:注意:子程序TestBy(ByVal T)中T变量声明方式是ByVal运行结果子程序没有影响到A的值注意:子程序TestBy(ByRef T)中T变量的声明方式是ByRef运行结果A的值通过子程序发生了改变看完了,上面的比较
实现代码如下:'===================================== '获取内容中所有图片 '===================================== Function Get_ImgSrc(ByVal t0) Dim t1,Regs,Matches,Matc
实现代码如下: " '-1 aRows=oRs.GetRows(-1) 'oRs.Eof=True,aRows(col,row) Set ors=Nothing oConn.Close() Set oConn=Nothing If IsArray(aRows) Then Response.Write
下面的代码是从kesion系统扒下的,确实不错,支持utf8格式。实现代码如下:'================================================ '函数名:URLDecode '作 用:URL解码 '=================================
判断服务器是否安装了某种asp组件,比较常用的代码如下:实现代码如下: 调用方法如: 实现代码如下:
在ASP输出页面只是调出数据库里内容展现给用户看没有使用SESSION等动态属性,是可以CACHE的,以加快访问速度,具体操作方法如下: 在asp程序页面顶上端加上: 说明: max-age CACHE时间参数 300 缓存300秒