根据IP地址自动判断转向分站的代码

ggp asp 2013-06-27 296 次浏览
Function getIpvalue(clientIP)? 得到客户端 的IP转换成长整型,返回值getIpvalue On Error Resume Next Dim strIp, array_Ip strIp=0 array_Ip = Split(clientIP,".") If UBound(array_Ip)<>3 Then getIpvalue=0 Exit Function End If For i=0 To 3 strIp=strIp+(CInt(array_Ip(i))*(256^(3-i))) Next getIpvalue=strIp If Err Then getIpvalue=0 End Function   ? clientIP=request.ServerVariables("REMOTE_HOST") IpValue=getIpvalue(clientIP) strSql="select top 1 City from [Ipaddress]? where "&IpValue&" 阅读全文...

ASP实现多域名同一空间的处理实例

ggp asp 2013-06-27 361 次浏览
以这两个域名为例: http://www.rdxx.com/ http://web.rdxx.com/   这两个域名都是绑在同一个空间上,但会跳到不同的目录,不是在IIS设置上实现的,只是一小段ASP代码,哈,。。。给出代码大家看看,虽然不是什么高深的东西,但挺实用的。   Code: 以下是引用片段:   <%   取得HTTP输入的值并付值到HTOST中   host=lcase(request.servervariables("HTTP_HOST"))   ‘开始条件跳转   SELECT CASE host    如果HOST的值是web.rdxx.com/就选择事件case"web.rdxx.com/"的命令   CASE "web.rdxx.com/"    Below is th 阅读全文...

返回远程动态页面执行后的静态HTML代码

ggp asp 2013-06-27 395 次浏览
想返回远程动态页面执行后的静态HTML代码然后用邮件发出去!下面是远程获取内容的代码: content=getHTTPPage("http://www.google.net") ? response.write?content ? function?getHTTPPage(url)? ?on?error?resume?next? ?dim?http? ?set?http=Server.createobject("Msxml(标准化越来越近了)2.xml(标准化越来越近了)HTTP")? ?Http.open?"GET",url,false? ?Http.send()? ?if?Http.readystate<>4?then?exit?function? ?getHTTPPage=bytes2BSTR(Http.responseBody)? ?set?http=nothing ?if?err.number<>0?then?err.Clear?? end?f 阅读全文...

用ASP编写一个简单的搜索引擎程序

ggp asp 2013-06-27 394 次浏览
用ASP编写一个简单的搜索引擎程序 下面是库中URLINDEX表:URL和Keywords字段分别添加了索引. ?URL ????????? 文本 (索引:有(无重复)) Title ?????????? 文本 Description?文本 Summary??? 文本 Keywords ? 文本(索引:有(无重复)) doquery.asp ?<HTML><HEAD><TITLE>简单搜索引擎</TITLE></HEAD> <BODY BGCOLOR=#ffffff MARGINWIDTH="0" MARGINHEIGHT="0" LEFTMARGIN=0 TOPMARGIN=0> <FORM METHOD="post" ACTION="doquery.asp?act=search"> ?Query: <INPUT TYPE="Text" NAME="Quer 阅读全文...

ASP调用oracle存储过程

ggp asp 2013-06-27 338 次浏览
下面的代码将为您实例:用ASP去调用Oracle(大型网站数据库平台)的存储过程: <!--#include file="incpublic.asp"--> <!--#include file="incconn.asp"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title></title> </head> <body> <% ----------------------------------- dim sp_common Set sp_common = Server.CreateObject("ADODB.Command") ?with sp_common????? ? .ActiveConnection = conn? ? .CommandText = "cd_updat 阅读全文...

利用AspJpeg组件实现远程图片保存

ggp asp 2013-06-27 352 次浏览
ASPJPEG组件相信大家都听说过吧,可是用ASPJPEG远程保存图片你会么?下面就让我们来看一下网友提供的这段代码吧: <% **********Csdn技术区-coolbird88提供完整代码,感谢netdust提供核心代码********* Server.ScriptTimeOut=99999 savepath="upfiles/" 图片保存路径,可以根据自己的需要,进行修改,如没有创建此文件夹,系统将自动创建 imgpath=request("imgpath") if imgpath="" then response.write "<form name=mofeiform method=post action=><input type=text name=imgpath size=35> <input type=submit name=Subm 阅读全文...

用asp实现同一网站不同目录绑定不同域名

ggp asp 2013-06-27 317 次浏览
同一网站不同目录绑定不同域名相信有不少人有这种需求吧?下面让我们来看一下具体的应用代码分析: <% select case request.servervariables("http_host") case "knowsky.com" Server.Execute("index.html") case "code.knowsky.com" Server.Execute("ut/index.html") case "font.knowsky.com" Server.Execute("utxiazai/index.html") case "moban.knowsky.com" Server.Execute("ut30/index.html") case "pages.knowsky.com" Server.Execute("ut30xiazai/index.html") case "sucai.knowsky.com" Server.Execute("ut20/index.html") ca 阅读全文...

讲解在线压缩和解压缩的ASP实现方法

ggp asp 2013-06-27 327 次浏览
在线压缩/在线解压缩是一个很实用的东东,今天就为大家实例讲解一下如何用ASP来实现: <% ’\\\\\\\\\\\\\\ ’ ’????1.?c:windowssystem32cmd.exe ’???????拷贝把本文件所在的路径 ’ ’????2.?把?c:programwinrar ar.exe ’???????拷贝把本文件所在的路径?并改名为WinRAR.exe ’ ’\\\\\\\\\\\\\\ ’ ’????compressPath(byVal?s) ’????压缩文件的路径?|?字符串变体 ’ ’????decompressPath(byVal?s) ’????解压缩文件的文件夹?|?字符串变体 ’ ’????compress ’????在线压缩 ’ ’????decompress ’????在线解压缩 ’ ’????POWER?BY?MIRACLE?(BLUEDES 阅读全文...

用ASP实现刷新一次换一张图片

ggp asp 2013-06-27 393 次浏览
看到别人网站中每次刷新都能看到不同的广告图片,是不是很羡慕啊?没关系啦,下面我们就来看一下如何用ASP实现刷新一次换一张图片: <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%@response.Buffer=false%> <% ’用ASP实现刷新一次换一张图片 ’代码设计 BY ICEWORLD ’说明: ’1:可以不加参数实现刷新一次换一次图片,也可以用index.asp?img=图片名字来显示指定的网页 ’2:同上面的代码,加入了错误处理 ’由于本人学习ASP时间不长,有错误的话,还希望高手不吝赐教 imagepath=server.MapPath("image") ’定义图片的文件夹 n 阅读全文...

区别中英文控制输出字符串的长度

ggp asp 2013-06-27 370 次浏览
函数在下面,是方法是: strvalue("复请Email通知如果不填写则取注册Email",26) 这里26是指26个英文字母,也就是13个汉字 function strlen(str) dim p_len p_len=0 strlen=0 if trim(str)<>"" then p_len=len(trim(str)) for xx=1 to p_len if asc(mid(str,xx,1))<0 then strlen=int(strlen) + 2 else strlen=int(strlen) + 1 end if next end if end function function strvalue(str,lennum) dim p_num dim i if strlen(str)<=lennum then strvalue=str else p_num=0 x=0 do while not p_num > lennum-2 x=x+1 if asc( 阅读全文...
回顶部