将以下代码放到一个单独的页面checkcode.asp <% Option Explicit Response.buffer=true Call Com_CreatValidCode("validateCode")Sub Com_CreatValidCode(pSN) 禁止缓存 Response.Expires = -9999 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" Response.ContentType = "Image/BMP"RandomizeDim i, ii, iiiConst cOdds = 2 杂点出现的机率 Const cAmount = 10 文字数量 Const cCode = "...
WEB开发经常用到各个主流浏览器的userAgent信息，我们来看看asp如何来获取呢 使用范例一<% dim a a = Browsr if InStr( a, "MSIE" ) then browser is Internet Explorer else browser is some other type... end if %> ASP Source Code:<% Private Function Browsr()Browsr = Request.ServerVariables("HTTP_USER_AGENT") End Function %> 范例二： ASP获取当前浏览器UA的方法：<% dim ua ua=Request.ServerVariables("HTTP_USER...
Microsoft VBScript 编译器错误 错误 缺少语句 ActiveServerPages,ASP0126(0x80004005)-->找不到包含文件 MicrosoftOLEDBProviderforODBCDrivers(0x80040E21)-->sql语句出错(数据类型不匹配或表名(字段名)错误或表处于编辑状态，或表不存在于conn打开的数据库中) MicrosoftOLEDBProviderforODBCDrivers(0x80040E14)-->sql语句出错(字段名错误,或数据类型不匹配) MicrosoftOLEDBProviderforODBCDrivers(0x80040E07)-->sql语句出...
代码如下: Function GetTable(Table,Where,Order,OrderSort,curpage, pagesize,MiniJson) Author : nigou 使用方法 : Response.Write GetTable(Table表名,Where条件,Order主键(必须),OrderSort(asc,desc),curpage当前页, pagesize每页条数,MiniJson是否输出为miniUI格式) dim i, j ,rs if OrderSort="" Then OrderSort="asc" if Where="" Then Where="asc" Set Rs=Server.CreateObject("adodb.recordset") if...
NO.1--建立一个XML数据库data.xml <?xml version="1.0"?> <records> <record> <name>caca</name> <qq>154222225</qq> <email>root@3ney.com</email> </record> <records>NO.2--建立对象CreateObject 建立data.xml的对象先 set xmldoc=server.createobjcet("microsoft.xmldom") xmldoc.load(server.mappath("data.xml")NO.3--选定节点SelectNode 你想操作哪个Node,必须定位到这个节点是不是,先看看这个data.xml有几个Node?? 用一个递...
ASP通过函数来实现替换、保存远程图片，完成自动采集图片、提取图片的功能，函数中自动判断重复图片，智能分析链接路径，并转成成相对的图片地址保存在你指定的网站目录中，我们可将此函数用在后台的编辑器中，当你复制了含有图片的内容后，本代码会自动帮你上传图片。同时本代码也是采集程序中的重要处理函数，函数代码如下：Function ReplaceSaveRemoteFile(ConStr,strInstallDir,strChannelDir,SaveTf,TistUrl) If ConStr="$Fal...
现在的这个项目需要用asp做定时邮件发送，好多人都说asp没有这样的功能。 其实我在以前的一篇文章已经做过详细的解释了，不过那个是定时任务，基本思路是一样的。 参考：ASP中实现执行定时任务的方法 这里我们使用JMail组件的方式来做，邮件的内容为单个网页，可以自由定制。 下面我们看看定时邮件发送的代码：代码如下: Function getHTTPPage(url) dim objXML set objXML=createobject("MSXML2.SERVERXMLHTTP.3.0") 调...
asp检查ip地址是否为私有/内网ip地址源代码。 内网/私有IP地址网段如下，还有127开头的回环地址: 10.0.0.0-10.255.255.255 172.16.0.0—172.31.255.255 192.168.0.0-192.168.255.255 实现代码：<% function IpToNumber(ip)IP地址转为数字arr=split(ip,".")IpToNumber=256*256*256*clng(arr(0))+256*256*clng(arr(1))+256*clng(arr(2))+clng(arr(3)) end function function IsPrivateIp(ip)判断给定的IP地址是否内网/私有ip地址if i...
在百度找的几个asp sha1（vbs写的）加密结果和asp.net的sha1加密结果不一样，asp.net sha1加密完后是40位，网上找的asp sha1加密是64位，还以为asp.net做了截取（如网上的asp的md5机密和asp.net位数不一样，是做了截取的问题），但是asp的64位加密结果并没有包含asp.net的40位结果，看来找到的版本和asp.net的加密算法不一样。 最后还是靠翻墙用google找到了一个js版本的sha1加密代码结合asp使用后结果和asp.net的sha1加密一模一...
代码如下:<%@ Language=VBScript %><%Response.Expires =0 %> <DOCTYPE html public=-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd> <HTML xmlns="http://www.w3.org/1999/xhtml"> <HEAD> <META http-equiv="Content-Type" content="text/html; charset=gb2312"> </META> <TITLE> 测试毫秒 </TITLE> </HEAD> <BODY> <SCRIPT RUNAT="SERVER" LANGUAGE="JSCRIPT"> var d = new...
代码如下:<%@Language="VBScript" CodePage="65001"%><%**********************************************注意事项ASP文件需要以UTF-8的格式保存,否则乱码.以下两行代码是为了通过微信接口验证的。response.write request("echostr")response.end**********************************************dim signature 微信加密签名dim timestamp 时间戳dim nonce 随机数dim echostr 随机字符串...
今天在做一个页面的时候，因为几百个文件，不可能一个一个的手工修改，因为中间就路径的id需要修改下，有一定的规律性，所以想了一下，感觉asp比较简单，php也一样的原理，vbs与js就稍微麻烦了点，因为文本过多，不能这么多都document.write吧。批量生成肯定离不开for循环，这里简单的介绍下，大家看了就明白了。 代码如下:<%dxy=1for i=1 to 300%>第<%=dxy%>个：<br><object codebase="http://download.macromedia.com/pub/shockw...
MVC下： 后台代码： 代码如下:public ActionResult sys(string page) { if (page == null) { string sql = "select top 15 * from dingdinfo ORDER BY dingdh desc"; ViewData["ds"] = dr.resultSet(sql, "dingdinfo"); } if (page != null) { int pageSL = Convert.ToInt32(page); string sql = "select top 15 * from dingdinfo where id not in (select top " + (pageSL - 1) * 15 + " id from dingdinfo order by dingdh desc...
最近网站改版正好发现原来的分页不带数字的，只有首页 上页 下页 末页 然后是select的跳转，都是以前比较流行的，而现在比较流行的是数字分页在中间，正好研究并分享下，需要的朋友可以参考下效果： 国外的核心代码：代码如下:<% digg style pagination script in asp.. written by Moazam... http://www.gxlsystem.com/2007/03/30/asp-digg-style-pagination-script/ function getPaginationString(page, totalitems, limit, adja...
代码如下:using MySql.Data.MySqlClient; MySqlConnection conn = new MySqlConnection("server=(local);database=abc;uid=;pwd="); conn.Open(); MySqlCommand com = new MySqlCommand("select * from tb_xxjj",conn); MySqlDataReader dr = com.ExecuteReader(); dr.Read(); TB_xxjj.Text = dr["title"].ToString(); content.Text = dr["content"].ToString();