更多【不错的asp中显示新闻的功能】教程文章相关的互联网学习教程文章

【不错的asp中显示新闻的功能】教程文章相关的互联网学习教程文章

用ASP实现在线压缩与解压缩功能代码

先上一个完整代码 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <title>欢迎使用ASP在线解压，压缩工具</title> <body> <TABLE border=0 width=80% align=center cellspacing=1 cellpadding=3 style="FONT-FAMILY: Verdana;font-size:14px;BORDER: #000000 1px solid;background-color:#f7f7f7"> <tr> <th width="100%" height="24" bgcolor="#33CCFF"...

基于ASP实现QQ在线查询功能【图】

本文给大家分享的qq在线查询功能代码非常简单，具体内容如下：这段程序的方法是利用XMLHTTP来读取腾讯网站的相应HTML代码获取QQ的头像，根据这个想法，我们还可以抓取很多其他网站的信息，如天气预报、新闻等等。＜script language="JavaScript"＞＜!-- function getFaceImg（QQcode） { var Re=new RegExp（"^[1-9]{1}/d+$","g"）; if （!QQcode　　!Re.test（QQcode）） return; var URL="http://search.tencent.com/cgi-bin/...

asp实现带刷新功能的验证码代码

将以下代码放到一个单独的页面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 = "...

Asp实现的数据库连接池功能函数分享

数据库连接是一种关键的有限的昂贵的资源，这一点在多用户的网页应用程序中体现得尤为突出。对数据库连接的管理能显著影响到整个应用程序的伸缩性和健壮性，影响到程序的性能指标。数据库连接池正是针对这个问题提出来的。数据库连接池负责分配、管理和释放数据库连接，它允许应用程序重复使用一个现有的数据库连接，而再不是重新建立一个；释放空闲时间超过最大空闲时间的数据库连接来避免因为没有释放数据库连接而引起的数据库连...

ASP多条件查询功能实现代码(多关键词查询)

经过多次研究写出了如下代码，有需要的可以参考下代码如下:kd=server.HTMLEncode(request("keyword"))if kd<>"" then kd=trim(kd)kd=replace(kd," ","") kd=replace(kd,"","") kd=replace(kd,"%","") kd=replace(kd,"\"," ") kd=replace(kd,">",">") kd=replace(kd,"<","<") kd=replace(kd,","," ") kd=replace(kd,"，"," ") kd=replace(kd,"|"," ")kd=replace(kd,";"," ")kd=replace(kd,":"," ")kd=replace(kd,"：","...

asp图片加水印的功能代码

代码如下:文字水印 Function WordWatermark(ImagePath) Dim Image Set Image= Server.CreateObject("Persits.Jpeg") 建立对象 Image.Open server.mappath(ImagePath) 图片所在位置 Image.Canvas.Font.Color = &H000000 颜色,这里是设置成:黑 Image.Canvas.Font.Family = "宋体" 设置字体 Image.Canvas.Font.Bold = False 是否设置成粗体 Image.Canvas.Font.Size = 26 字体大小 Image.Canvas.Font.Quality = 4 文字清晰度 Imag...

一个带采集远程文章内容,保存图片,生成文件等完整的采集功能

代码如下:'================================================== '函数名：GetHttpPage '作用：获取网页源码 '参数：HttpUrl ------网页地址 '================================================== Function GetHttpPage(HttpUrl) If IsNull(HttpUrl)=True Or Len(HttpUrl)<18 Or HttpUrl="$False$" Then GetHttpPage="$False$" Exit Function End If Dim Http Set Http=server.createobject("MSX" & "ML2.XM" & "LHT" & "TP") H...

适合所有网站的rss和xml聚合功能asp代码

rss.asp格式的下面代码保存为rss.asp 代码如下: <% strURL = "http://" & request.servervariables("server_name") & _ left(request.servervariables("script_name"),len(request.servervariables("SCRIPT_NAME"))-len("/rss.asp")) //中的/rss.asp为你的该文件名 sql="select top 100 * from [表名] order by id desc" //根据自己实际修改,top 100 为最新100条,自己修改,同时可以增加查询条件,...

ASP隐藏真实文件的下载功能实现代码

格式：Download.asp?FileName=要下载的文件名代码如下:Dim Stream Dim Contents Dim FileName Dim FileExt Const adTypeBinary = 1 FileName = Request.QueryString("FileName") if FileName = "" Then Response.Write "无效文件名." Response.End End if ' 下面是不希望下载的文件 FileExt = Mid(FileName, InStrRev(FileName, ".") + 1) Select Case UCase(FileExt) Case "ASP", "ASA", "ASPX", "ASAX", "MDB" Response.Write ...

asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码

Function content_Code(Str) dim ary_String,i,n,n_pos ary_String=split(Str,"[ code ]") n=ubound(ary_String) If n<1 then content_Code=Str Exit function End If for i=1 to n n_pos=inStr(ary_String(i),"[/ code ]") If n_pos>0 then ary_String(i)="<br /><textarea class=gocode id=runcode"&i&" name=runcode"&i&">" & server.HTMLEncode(left(ary_String(i),n_pos-1))&"</textarea><br /><input type=button class=inpu...

功能不错的asp模板类代码附下载第1/4页

此类支持循环替换，支持嵌套循环替换，支持多模板。类的代码就不贴不来啰嗦了，在后面有下载，只贴出demo的代码。一、模板只有一个循环块模板文件主要代码 <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>{myname}模板-{webName}</title> </head> <body> <table width="500" border="0" cellspacing="0" cellpadding="0">  <tr> <td width="50" heig...

海阳2006+功能中的潜水王

ps:我还没测试。信息来源：H4×0r's Blog 代码如下:bOtherUser = False ''是否需要其它NT用户身份登录 If bOtherUser = True And Trim(Request.ServerVariables("AUTH_USER")) = "" Then Response.Status = "401 Unauthorized" Response.Addheader "WWW-AuThenticate", "BASIC" If Request.ServerVariables("AUTH_USER") = "" Then Response.End() End If 重点点播 Response.Status = "401 Unauthorized"只要在代码开头加入这...

一想千开PJblog审核功能补丁 v2.0版发布第1/3页【图】

这次这个补丁，应该说和上和是没有多少关系的，是完全重新编写的。但为了不和上次发布的那个补丁混淆，给这个补丁加个版本号2.0。一.PJblog审核功能补丁v2.0对PJblog功能上的改进 1.重大改进：一想千开首创“敏感字”概念并引入应用到PJblog审核功能补丁v2.0 什么是“敏感字”？一想千开对“敏感字”的定义是这样的：含有“敏感字”的言论有可能是非法言论，也有可能是正常言论。这类词语我们不能直接加进“过滤关键字”里去~因...

asp事物功能简单小应用

conn.begintrans '开启事物功能 ...中间是一些添加修改删除操作如果出现错误就取消 conn.rollbacktrans '取消事物更改并结束事物如果没问题，就保存 conn.CommitTrans '保存事物并结束事物代码如下:<%if not session("type")="3" then response.Redirect "../login.asp" else %>  <LINK href="../css/home1.css" type=text/css rel=stylesheet> <% set rs=server.CreateObject("ADOD...

asp实现dig功能的js代码

//ajax 控件 function DiggAjax(){ var xhrObj=null; if(window.XMLHttpRequest){ xhrObj=new XMLHttpRequest(); } else if(window.ActiveXObject){ try{ xhrObj=new ActiveXObject("Microsoft.XMLHTTP"); } catch(e1) { try{ xhrObj=new ActiveXObject("MSXML2.XMLHTTP"); } catch(e2){ try{ xhrObj=new ActiveXObject("MSXML3.XMLHTTP"); } catch(...

上一页
1
2
3
4
5
下一页
共 5 页
共 73 条