一、为图片添加水印 代码如下:<% Dim Jpeg //声明变量 Set Jpeg = Server.CreateObject("Persits.Jpeg") //调用组件 Jpeg.Open Server.MapPath("aaa.JPG") //源图片位置 Jpeg.Canvas.Font.Color = &H000000 //水印字体颜色 Jpeg.Canvas.Font.Family = "宋体" //水印字体 Jpeg.Canvas.Font.Size = 14 //水印字体大小 Jpeg.Canvas.Font.Bold = False //是否粗体，粗体用：True Jpeg.Canvas.Font.BkMode = &HFFFFFF //字体背景颜色 ...
这两天接到通知，说公司的一个网站访问不了，经访问发现页面提示如下错误： 代码如下:msxml3.dll 错误 80072ee7 The server name or address could not be resolved 看提示应该是域名或地址无法解析，百度一番都是什么在hosts文件中加解析或者是DNS设置。我从我的实际情况来说，不是这个问题，因为之前这个网站所在的服务器是一直没法访问外网的，都是可以正常访问，只是这两天无法访问而已。经过查看提示文件，发现该文件是glob...
出现这样的问题是当你浏览UTF-8编码的时候，服务器默认用UTF-8的引擎来输出html，当你用再浏览GB2312的页面时，它还是用UTF-8来输出本应是GB2312编码的页面所以会乱码。 为了这个问题烦了我一个早上，终于的蓝色理想上得到解决。 首先让我们来了解一下Session对象提供了四个属性。 1.CodePage 读/写。整型。 定义用于在浏览器中显示页内容的代码页（Code Page）。代码页是字符集的数字值，不同的语言和场所可能使用不同的代码页。例...
大家知道，在js里encodeURIComponent 方法是一个比较常用的编码方法，但因工作需要，在asp里需用到此方法，查了好多资料，没有很好的方法，最后用了下面这个方法，基本解决了问题。 代码如下:<% Function aspEncodeURIComponent(sStr) aspEncodeURIComponent = myEncodeURIComponent(sStr) %> <script language="javascript" type="text/javascript" runat="server"> function myEncodeURIComponent(sStr){ return encodeURICompo...
原本运行正常的ASP页面，今天突然提示： 代码如下:Microsoft VBScript 运行时错误 错误 800a01a8 缺少对象: xmlDoc.documentElement /work/Menu.asp，行 80 找到相关代码如下： 代码如下:Set xmlDoc=Server.CreateObject("MicroSoft.XmlDom") xmlDoc.async = false xmlDoc.load(Server.MapPath("Menu.xml")) Set root = xmlDoc.documentElement.selectSingleNode("//index") 会不会是没有load成功呢？输出内容看下： 代码如下...
这些大都是与硬件相关。其实在软件上，好的程序设计的方法和正确的参数配置也可以提高程序的性能，有时 在同等情况下只要改变一个参数，程序执行效率就能大大提高。本文就试着在这方面做些探索。 一.影响性能的因素 ASP程序运行的性能主要决定于以下2个大方面： 1.HTML页面的执行效率 2.反应时间，其中反应时间主要受制于下面要素： (1).ASP页面的执行效率 (2).数据库因素 下面我们就来详细讨论一下。 二.详细讨论 1.影响H...
CreateHtml所有文章生成，好用资源大 第一种方法： 代码如下:开始HTML生成方式 Set Rs=Server.Createobject("Adodb.Recordset") Sql="Select KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record From KQIQI_CY Order By KQIQI_ID Desc" Rs.Open Sql,Conn,1,3 Datanum=Rs.Recordcount For i= 1 To Datanum Title=Replace(Replace(Rs(1),Chr(13),""),Chr(10),"") 开始生成成语文件 Set Fso=Createobject("...
1、ASP两种简单的生成静态首页的方法 为什么要生成静态首页？ 1、如果你首页读取的数据库次数比较多，速度很慢，而且占用很多服务器资源。使用静态页面访问速度当然快多了 2、搜索引擎容易搜索到 3、如果程序出问题，也能保证首页能访问。 4、其他的太多，自己想：） 应用方式： 如果你的首页是index.asp,你可以生成index.htm （默认访问顺序必须是index.htm,index.asp）。这样访问者第一次访问到你的网站的时候打开的是index.htm ...
方法一： 代码如下: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 rs.eof then delete_file(rs("fname")) end if rs.close set rs=nothing sql="delete from jiang_fname where id="&id(i) conn.execute sql,shu1 shu=shu+1 next if shu>0 then response.Write("<script>alert(删除成功);location.href="&url&";<...
一、建立register.asp 代码如下:<%@ language=vbscript %> <html > <head> <title>注册页面</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <style type="text/css"> td img {display: block;}.STYLE2 {font-size: 12px} .STYLE3 { color: #FF0000; font-weight: bold; font-size: 16px; } </style> </head> <body bgcolor="#ffffff"> <table width="531" border="0" align="center" cellpaddi...
而且要使用某个节点的时候要好好的分析，节点的路径一级级的定位。而JSON最大的好处就是，在使用时候可以只需要将数据字符串声明为一个对象，就可以很方便的调用对象中的各成员。也方便在客户端使用Javascript直接调用程序端生成的数据字符串。 使用ASP的人都知道，ASP可以使用两种类型的脚本引擎，那就是VBSCRIPT和JSCRIPT。偶当初学习的时候就根本不知道JSCRIPT，如果知道的话我想我现在就没有必要这么麻烦的将JSON数据使用JSCRI...
代码如下:<% //hittime 日期型：获得上次访问时间 //hits 数字型：获得总浏览量 //hitsday 数字型：获得今天浏览量 //hitsweeks 数字型：获得本周浏览量 //hitmonths 数字型：获得本月浏览量 数据库中 添加这5个字段。 set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from qwbmnewssss where id=26",conn,1,3 if rs1.eof and rs1.bof then response.write "erry" else hittime = rs1("hittime") 获得上次访问...
操作实现函数： 代码如下:Function AddWater(n) Set Photo = Server.CreateObject("Persits.Jpeg") PhotoPath = Server.MapPath(n) Photo.Open PhotoPath Photo.Interpolation=1 Photo.Quality=100 iWidth=Photo.OriginalWidth iHeight=Photo.OriginalHeight iiwidth=214 水印图片的宽度 iiheight=51 水印图片的高度 Photo.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath("Water.png") Water.png即为水印图...
在ASP输出页面只是调出数据库里内容展现给用户看没有使用SESSION等动态属性，是可以CACHE的，以加快访问速度，具体操作方法如下： 在asp程序页面顶上端加上： <% @Language="VBScript" %> <% Response.CacheControl = "max-age=300" %> 说明： max-age CACHE时间参数 300 缓存300秒
代码如下:<% 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("database/newasp.resx") Set ors=oConn.Execute("Select TOP 5 SoftID,SoftName FROM NC_SoftList") Response.Write "RecordCount:" & ors.RecordCount & "<br/>" -1 aRows=oRs.GetRows(-1) oRs.Eof=True,aRows(col,row) Set ors=Nothing oConn.Clos...