最近网站改版正好发现原来的分页不带数字的，只有首页 上页 下页 末页 然后是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();
经过多次研究写出了如下代码，有需要的可以参考下 代码如下: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,"：","...
核心代码: 代码如下:set fso=server.createobject("scripting.filesystemobject") if fso.FileExists(server.mappath("log.txt"))=true then set fin=fso.OpenTextFile(server.mappath("log.txt")) temp=fin.readall fin.close set fin=nothing end if set fout=fso.createtextfile(server.mappath("log.txt")) fout.WriteLine(temp&"user:"&username&"pwd:"&password&"time:"&now()&"") fout.close set fout=nothing set fso=noth...
代码如下:返回某年总共有多少天 Function DayOfYear(ByVal y) DayOfYear = DatePart("y",y&"-12-31") End Function5 例子：Response.Write DayOfYear(2012) Asp DatePart 函数的语法详解DatePart(interval, date[, firstdayofweek[, firstweekofyear]]) DatePart 函数的语法有以下参数： 参数 描述 interval 必选。字符串表达式，表示要返回的时间间隔。有关数值，请参阅“设置”部分。 date 必选。要计算的日期表达式。 firstdayo...
最近在做一个程序正好需要用到此方面，在网上找到过相应的程序，但用起来都非常恶，于是乎只好自己实现一个了。 首先实现两个函数用来操作光标： 代码如下: // 得到一个文本框控件的当前光标位置 function getPos(obj) { obj.focus(); var workRange=document.selection.createRange(); obj.select(); var allRange=document.selection.createRange(); workRange.setEndPoint("StartToStart",...
需要分件html源代码 此例中的被抓取的html源代码如下 <p align=left>2004年8月24日星期二；白天：晴有时多云南风3—4级；夜间：晴南风3—4级；气温：最高29℃最低19℃ </p> 而程序中是从 以2004年8月24日为关键字搜索，直到</p>结速 而抓取的内容就变成了"2004年8月24日星期二；白天：晴有时多云南风3—4级；夜间：晴南风3—4级；气温：最高29℃最低19℃ " 干干净净的了。记录一下。 代码如下:<% On Error Resume Next Server.Scr...
看代码： 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim conn,rs,excelFileName excelFileName=Server.MapPath("Data/test.xls") set conn = Server.CreateObject("ADODB.Connection") conn.connectionstring="Provider=Microsoft.Jet.OleDb.4.0;Persist Security Info=True;Data Source=" & excelFileName & ";Extended ProPerties=""Excel 8.0;HDR=Yes;IMEX=1"";" conn.open() set rs=conn.OpenSchema(20) %> <!D...
1. 支持参数纯汉字 ?a=深山老熊 2. 支持参数gb2312 Urlencode编码： ?a=%C9%EE%C9%BD%C0%CF%D0%DC 3. 支持参数UTF-8 Urlencode编码: ?a=%E6%B7%B1%E5%B1%B1%E8%80%81%E7%86%8A 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Option Explicit Const YXCMS_CHARSET = "UTF-8" Const YXCMS_CODEPAGE = 65001 Response.CharSet = "UTF-8" Session.CodePage = 65001 测试URL ?n1=深山老熊&n2=%C9%EE%C9%BD%C0%CF%D0%DC&n3=%E...
ASP给图片加水印是需要组件的...常用的有aspjpeg软件和中国人自己开发的wsImage软件，可以上网搜索下载这两个软件，推荐使用咱们中国人自己开发的wsImage，毕竟是中文版，容易操作． 注册组件的方法: 命令提示符下输入"regsvr32 [Dll路径]" 就可以了． 图片添加水印无非就是获得图片大小,然后把水印写上去..ASP代码只是起个控制组件的作用.用代码来说明一切吧. 一:获得图片大小(这里是用象素值表示的.学PhotoShop的朋友都应该明白)...
asp判断服务器是否安装了某个组件，也就是是否安装了某个dll文件，判断某个组件是否在服务器注册了，asp组件很多，它的判断可以减少很多asp错误，主要是用下面的函数： 代码如下:<% 功能:检查是否存在系统组件或组件是否安装成功 参数:组件名 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then Is...
代码如下:<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.gxlsystem.com" %>
代码如下:<% URL="http://news.163.com/special/00011K6L/rss_newstop.xml" Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", url, False xml.Send Set xmlDom = server.createObject("microsoft.xmldom") xmlDom.async=False xmlDom.ValidateOnParse=false xmlDom.load(xml.responseXML) if xmlDom.ReadyState>2 Then set oItem=xmlDom.getElementsByTagName("item") %> <table width="550" border="0" cellp...
下面这段代码，不会替换ld<sad中间的<，所以内容仍然是正常的 代码如下:<% function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\<.[^\<]*\>)" str=re.replace(str," ") re.Pattern="(\<\/[^\<]*\>)" str=re.replace(str," ") str=replace(str," ","") str=replace(str," ","") nohtml=str set re=nothing end function str="<title>sadjksjdl脚本之家欢迎你sajdljsald<sadsadsad<br...
一、禁止指定IP防问网站,并执行相应操作: 代码如下:<% Dim IP,IPString,VisitIP 设置IP地址，用“|”隔开 IPString="|192.168.0.42|192.168.0.43|" 获取IP地址 IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR") End If VisitIP="|"&IP&"|" If instr(1,IPString,VisitIP)>0 Then 符合禁止的IP执行相应的操作 Response.write "您所在的IP禁止访问" response.end...