首页 / ASP / 一些值得一看的代码asp

一些值得一看的代码asp

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了一些值得一看的代码asp，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含9577字，纯文字阅读大概需要14分钟。

内容图文

Asp中对ip进行过滤限制函数
<%
'获取访问者的地址
ip=Request.ServerVariables("REMOTE_ADDR")
'允许的IP地址段为10.0.0.0～10.68.63.255
allowip1="10.0.0.0"
allowip2="10.68.10.71"
response.write checkip(ip,allowip1,allowip2)
function checkip(ip,allowip1,allowip2)
dim check(4)
checkip=false
ipstr=split(ip,".")
allow1=split(allowip1,".")
allow2=split(allowip2,".")
if cint(allow1(0))>cint(allow2(0)) then
'判断IP地址段是否合法
response.write "IP地址段出错！"
exit function
end if
for i=0 to ubound(ipstr)
if cint(allow1(i))<cint(allow2(i)) then
if cint(allow1(i))=cint(ipstr(i)) then
check(i)=true
checkip=true
exit for
elseif cint(ipstr(i))<cint(allow2(i)) then
check(i)=true
checkip=true
exit for
elseif cint(ipstr(i))>cint(allow2(i)) then
check(i)=false
checkip=false
exit for
else
check(i)=true
checkip=true
end if
end if
end if
elseif cint(allow1(i))>cint(ipstr(i)) or cint(allow1(i))<cint(ipstr(i)) then
check(i)=false
checkip=false
if i<>ubound(ipstr) then
exit for
end if
else
check(i)=true
end if
end if
next
if (check(0)=true and check(1)=true and check(2)=true and check(3)=false) and (cint(allow2(2))>cint(ipstr(2))) then
checkip=true
end if
end function
%>

<%
'列举使用HTML表单提交的所有值
For Each item In Request.Form
     Response.Write Request.Form(item)
Next
%>
列举使用HTML表单提交的所有值

利用ASP得到图片尺寸大小
<%
imgpath="default_22.gif"

set  pp=new  imgInfo
w = pp.imgW(server.mappath(imgpath))
h = pp.imgH(server.mappath(imgpath))
set pp=nothing

response.write "<img src='"&imgpath&"' border=0><br>宽:"&w&";高:"&h

Class  imgInfo
dim  aso
Private  Sub  Class_Initialize
   set  aso=CreateObject("Adodb.Stream")
   aso.Mode=3
   aso.Type=1
   aso.Open
End  Sub
Private  Sub  Class_Terminate
   err.clear
   set  aso=nothing
End  Sub

Private  Function  Bin2Str(Bin)
   Dim  I,  Str
   For  I=1  to  LenB(Bin)
     clow=MidB(Bin,I,1)
     if  ASCB(clow)<128  then
       Str  =  Str  &  Chr(ASCB(clow))
     else
       I=I+1
       if  I  <=  LenB(Bin)  then  Str  =  Str  &  Chr(ASCW(MidB(Bin,I,1)&clow))
     end  if
   Next
   Bin2Str  =  Str
End  Function

Private  Function  Num2Str(num,base,lens)
   dim  ret
   ret  =  ""
   while(num>=base)
     ret  =  (num  mod  base)  &  ret
     num  =  (num  -  num  mod  base)/base
   wend
   Num2Str  =  right(string(lens,"0")  &  num  &  ret,lens)
End  Function

Private  Function  Str2Num(str,base)
   dim  ret
   ret  =  0
   for  i=1  to  len(str)
     ret  =  ret  *base  +  cint(mid(str,i,1))
   next
   Str2Num=ret
End  Function

Private  Function  BinVal(bin)
   dim  ret
   ret  =  0
   for  i  =  lenb(bin)  to  1  step  -1
     ret  =  ret  *256  +  ascb(midb(bin,i,1))
   next
   BinVal=ret
End  Function

Private  Function  BinVal2(bin)
   dim  ret
   ret  =  0
   for  i  =  1  to  lenb(bin)
     ret  =  ret  *256  +  ascb(midb(bin,i,1))
   next
   BinVal2=ret
End  Function

Private  Function  getImageSize(filespec)
   dim  ret(3)
   aso.LoadFromFile(filespec)
   bFlag=aso.read(3)
   select  case  hex(binVal(bFlag))
   case  "4E5089":
     aso.read(15)
     ret(0)="PNG"
     ret(1)=BinVal2(aso.read(2))
     aso.read(2)
     ret(2)=BinVal2(aso.read(2))
   case  "464947":
     aso.read(3)
     ret(0)="GIF"
     ret(1)=BinVal(aso.read(2))
     ret(2)=BinVal(aso.read(2))
   case  "535746":
     aso.read(5)
     binData=aso.Read(1)
     sConv=Num2Str(ascb(binData),2  ,8)
     nBits=Str2Num(left(sConv,5),2)
     sConv=mid(sConv,6)
     while(len(sConv)<nBits*4)
       binData=aso.Read(1)
       sConv=sConv&Num2Str(ascb(binData),2  ,8)
     wend
     ret(0)="SWF"
     ret(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20)
     ret(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20)
   case  "FFD8FF":
     do
       do:  p1=binVal(aso.Read(1)):  loop  while  p1=255  and  not  aso.EOS
       if  p1>191  and  p1<196  then  exit  do  else  aso.read(binval2(aso.Read(2))-2)
       do:p1=binVal(aso.Read(1)):loop  while  p1<255  and  not  aso.EOS
     loop  while  true
     aso.Read(3)
     ret(0)="JPG"
     ret(2)=binval2(aso.Read(2))
     ret(1)=binval2(aso.Read(2))
   case  else:
     if  left(Bin2Str(bFlag),2)="BM"  then
       aso.Read(15)
       ret(0)="BMP"
       ret(1)=binval(aso.Read(4))
       ret(2)=binval(aso.Read(4))
     else
       ret(0)=""
     end  if
   end  select
   ret(3)="width="""  &  ret(1)  &"""  height="""  &  ret(2)  &""""
   getimagesize=ret
End  Function

Public Function  imgW(pic_path)
     Set  fso1  =  server.CreateObject("Scripting.FileSystemObject")
     If (fso1.FileExists(pic_path)) Then
   Set  f1  =  fso1.GetFile(pic_path)
   ext=fso1.GetExtensionName(pic_path)
   select  case  ext
    case  "gif","bmp","jpg","png":
     arr=getImageSize(f1.path)
     imgW = arr(1)
   end  select
   Set  f1=nothing
  else
      imgW = 0
  End if
     Set  fso1=nothing
End  Function

Public Function  imgH(pic_path)
     Set  fso1  =  server.CreateObject("Scripting.FileSystemObject")
  If (fso1.FileExists(pic_path)) Then
   Set  f1  =  fso1.GetFile(pic_path)
   ext=fso1.GetExtensionName(pic_path)
   select  case  ext
    case  "gif","bmp","jpg","png":
     arr=getImageSize(f1.path)
     imgH = arr(2)
   end  select
   Set  f1=nothing
  else
   imgH = 0
  End if
     Set  fso1=nothing
End  Function
End  Class
%>
客户端屏幕分辨率：Request.SERVERVARIABLES("HTTP_UA_PIXELS")

如何判断URL格式是否符合规范？
<% function checkisUrl(tmpString)
      dim c,i      checkisUrl = true      tmpString=Lcase(trim(tmpString))      if left(tmpString,7)<>"http://" then tmpStri ... //"&tmpString      for i = 8 to Len(checkisUrl)            c = Lcase(Mid(tmpString, i, 1))            if InStr("abcdefghijklmnopqrstuvwxyz_-./\", c) <= 0 and not IsNumeric(c) then                  checkisUrl = false                  exit function            end if      next      if Left(tmpString, 1) = "." or Right(tmpString, 1) = "." then            checkisUrl = false            exit function      end if      if InStr(tmpString, ".") <= 0 then            checkisUrl = false            response.Write "f3"            exit function      end if      if InStr(checkisUrl, "..") > 0 then            checkisUrl = false      end if
end function%><%
if checkisUrl(request("u"))=true then      %>恭喜,你的URL通过!<%else      %>对不起,你的URL不合乎规范,请重新检查!<%end if%>

如何利用数据库内容建立一个下拉式列表？

<% myDSN="DSN=xur;uid=xur;pwd=xur"mySQL="select * from authors where AU_ID<100"set conntemp=server.createobject("adodb.connection")conntemp.open myDSNset rstemp=conntemp.execute(mySQL)if rstemp.eof thenresponse.write "噢,数据库为空!"response.write mySQLconntemp.closeset conntemp=nothingresponse.end 　end if%><%do until rstemp.eof %><%rstemp.movenextlooprstemp.closeset rstemp=nothingconntemp.closeset conntemp=nothing' 清空对象%>
'获取用户真实IP函数
Function GetIP()
GetIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If GetIP = "" Then GetIP = Request.ServerVariables("REMOTE_ADDR")
End Function

'获取完整地址栏地址
Function GetUrl()
GetUrl="http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL")
If Request.ServerVariables("QUERY_STRING")<>"" Then GetURL=GetUrl&"?"& Request.ServerVariables("QUERY_STRING")
End Function

'获取本页文件名
Function SelfName()
SelfName = Mid(Request.ServerVariables("URL"),InstrRev(Request.ServerVariables("URL"),"/")+1)
End Function

'获取文件后缀名
Function GetExt(filename)
GetExt = Mid(filename,InstrRev(filename,".")+1)
End Function

'求字符串长度函数
Function GetLength(str)
Dim i,length
For i = 1 to Len(str)
If Asc(Mid(str,i,1))<0 or Asc(Mid(str,i,1))>256 Then
length = length+2
Else
length = length+1
End If
Next
GetLength = length
End Function

'过滤不良字符
Function ChkBadWords(fString)
Dim BadWords,bwords,i
BadWords = "我操|操你|操他|你妈的|他妈的|狗|杂种|屄|屌|王八|强奸|做爱|处女|泽民|法轮|法伦|洪志|法輪"
If Not(IsNull(BadWords) or IsNull(fString)) Then
bwords = Split(BadWords, "|")
For i = 0 to UBound(bwords)
fString = Replace(fString, bwords(i), string(Len(bwords(i)),"*"))
Next
ChkBadWords = fString
End If
End Function

'防止外部提交
Function ChkPost()
Dim URL1,URL2
ChkPost = False
URL1 = Cstr(Request.ServerVariables("HTTP_REFERER"))
URL2 = Cstr(Request.ServerVariables("SERVER_NAME"))
If Mid(URL1,8,Len(URL2))<>URL2 Then
ChkPost = False
Else
ChkPost = True
End If
End Function

'过滤HTML字符函数
Function HTMLEncode(fString)
If Not IsNull(fString) And fString <> "" Then
fString = Replace(fString, "&", "&")
fString = Replace(fString, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString, Chr(32), " ")
fString = Replace(fString, Chr(9), "  ")
fString = Replace(fString, Chr(34), """)
fString = Replace(fString, Chr(39), "'")
fString = Replace(fString, Chr(13), "")
fString = Replace(fString, Chr(10) & Chr(10), "</P><P>")
fString = Replace(fString, Chr(10), "<BR>")
fString = Replace(fString, Chr(255), " ")
HTMLEncode = fString
End If
End Function

'清除HTML标记
Function stripHTML(strHTML)
Dim objRegExp,strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
strOutput = objRegExp.Replace(strHTML,"")
strOutput = Replace(strOutput, "<","<")
strOutput = Replace(strOutput, ">",">")
stripHTML = strOutput
Set objRegExp = Nothing
End Function

内容总结

以上是互联网集市为您收集整理的一些值得一看的代码asp全部内容，希望文章能够帮你解决一些值得一看的代码asp所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/385078.html

来源：【匿名】

【上一篇】3种不同的方法生成文件【下一篇】ASP知识讲座四

更多 ►

【一些值得一看的代码asp】教程文章相关的互联网学习教程文章

asp.net实现的计算网页下载速度的代码

复制代码代码如下:private void getSpeed() { //链接开始时间 DateTime stime = DateTime.Now; //文件 string url = "http://xxx.com/images/test.jpg "; WebRequest myRequest = WebRequest.Create(url); //链接成功 WebResponse myReponse = myRequest.GetResponse(); //取得文件的大小　字节单位 int ii = int.Parse(myRepons...

asp.net 多文件上传，兼容IE6/7/8，提供完整代码下载【图】

最终效果如下：现贴出核心代码如下： aspx里的代码：复制代码代码如下:<div style="text-align: center"> <div style="width: 200px;"> <input type="file" size="50" name="File" /> <span id="upload"></span> <br /> <input type="button" name="button" value="添加文件" onclick="addInput()"> <input type="button" name="button" value="删除文件" onclick="deleteInput()"> </div> <div style="margin: 10px 0 10px 0;wi...

简单高效的asp.net目录树源代码【代码】

前台页面：<%@ Page Language="C#" AutoEventWireup="true" CodeBehind="Default.aspx.cs" Inherits="Tree._Default"%><!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 runat="server"><title>目录树</title><script type="text/javascript" language="javascript" src="MzTreeView10.js"></script...

asp.net直接Response输出WML页面示例代码

复制代码代码如下:protected void Page_Load(object sender, EventArgs e) { Response.ContentType = "text/vnd.wap.wml"; StringBuilder builder = new StringBuilder(); builder.AppendLine("<?xml version=\"1.0\" encoding=\"UTF-8\" ?>"); builder.AppendLine("<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">"); builder.AppendLine("<wml>"); builder.AppendLine("<he...

ASP.NET MVC 排球计分程序（六）HomeController代码和一些解释【代码】

Index Action方法（默认进入的主页）public ActionResult Index(){return View();}AddPerson Action方法（单击主页提交将交到AddPerson里来处理数据，并将队员名字插入数据库） public ActionResult AddPerson(){//获取填入的衣服编号和名字并将其写入数据库//编号idA1 nameA1 SqlHelper.ClearBiaoRen();//插入B的idB1 nameB1..int numsA = 1;//将十二个队员全部插入数据库总共有十二个文本框执行<=12次的循环 ...

asp.net中使用cookie与md5加密实现记住密码功能的实现代码

在做一个前台的登陆和后台的信息审核管理功能时，需要用到记住密码的模块：虽然.net内置了登陆控件，有记住密码的功能，但还是想自己实践一下，以下代码主要应用了COOKIE，包括安全加密的过程等。复制代码代码如下://设置，删除Cookie//provider jb51.net protected void set_cookie() { HttpCookie UserNameCookie = Request.Cookies["UserNameCookie"]; HttpCookie UserPasswordCookie = R...

分享一个ASP.NET开发中经常碰到的小问题，修改好的js代码保存生成后，在运行调试时却还是修改前的代码

记得刚开始学ASP.NET的时候就遇到过这个问题，各种无语，明明本地代码改了，保存生成了N遍，甚至重开VS，清浏览器缓存，都没用，调试起来就还是修改之前的js代码，上网查了半天也没查到解释，倒是有人提同样的问题，但是没人能给出答案。于是那段时间很悲剧的只能每次出现这个问题，就重新建一个Web项目，把代码粘过去...后来我尝试了下把VS升级到了2013，之后似乎就没出现过这个问题了，于是就以为就是VS2010的bug。最近到了一家新...

asp.ne去除html的函数代码

复制代码代码如下:/// <summary> /// 过滤字符串中的html代码 /// </summary> /// <param name="Str"></param> /// <returns>返回过滤之后的字符串</returns> public static string LostHTML(string Str) { string Re_Str = ""; if (Str != null) { if (Str != string.Empty) { string Pattern = "<\\/*[^<>]*>"; Re_Str = Regex.Replace(Str, Pattern, ""); } } return (Re_Str.Replace("\\r\\n", "")).Replace("\\r", ""); } 原...

Asp.net Core的代码移植技巧，半天将SqlSugarORM转成Core【代码】【图】

.net core中有哪些被抛弃的类 1、DataTable DataRow SqlDataAdapter DataRow DataColumn DataColumn虽然这些类不是我ORM核心功能，但是为了保证非Core版本的ORM和Core的语法要一致方便以后升级于是我就有了一个想法将他们复活，打造一个小巧的DataTable，让更多的老程可以方便的移植到Core。///<summary>/// 作者：sunkaixuan /// 创建时间：2016/7/31/// 修改时间：-/// 说明：让.netCore支持DataTable///</summary>publicclass ...

asp也玩三层架构(有源代码)【代码】

实体类<% Class UserInfoPrivate mintIdPublic Property Let UserId(intUserId)mintId = intUserIdEnd Property Public Property Get UserId()UserId=mintIdEnd PropertyPrivate mstrNamePublic Property Let UserName(strName)mstrName = strNameEnd PropertyPublic Property Get UserName()UserName = mstrNameEnd PropertyPrivate mintAgePublic Property Let UserAge(intAge)mintAge=intAgeEnd PropertyPublic Property Get Us...

Aspose Cells 控件如何实现数据过滤（附代码和下载地址）【图】

Aspose Cells 是一款操作和处理以及转换Excel文件的类库，支持.NET和JAVA版，几乎所有Excel能实现的功能，Aspose Cells都可以实现，在Excel中经常会用到数据过滤，通过过滤规则，以达到想要显示的结果，一般过滤都是根据设置的条件，通常是文本、数字或者日期。Aspose Cells控件下载地址：http://www.componentcn.com/kongjianchanpin/yonghujiemian/biaogekongjian/2014-09-16/174.html下面咱们首先介绍，在Excel里是怎么实现数据...

Asp.Net平台下的图片在线裁剪功能的实现代码(源码打包)

1.前台展现实现网上找到这个jquery.Jcrop,稍看了下,发现它提供的效果完全能满足项目需求. 官方网址:http://deepliquid.com/content/Jcrop.html,感兴趣的朋友可去看看. 页面先引用相关样式和脚本: 复制代码代码如下:<link href="Styles/jquery.Jcrop.css" rel="stylesheet" type="text/css" /> <script src="Scripts/jquery-1.4.1.js" type="text/javascript"></script> <script src="Scripts/jquery.Jcrop.js" type="text/javasc...

asp.net ajax 检测用户名是否可用代码

原文 asp.net ajax 检测用户名是否可用代码.net ajax 检测用户名是否可用代码<script type="text/网页特效" src="css教程/jquery-1.3.2.js"></script> <script type="text/javascript"> function judgeusername() { $.ajax({ type:"get", url:"ajaxuserinfomodify.aspx", datatype:"html", data:"username="+$("#txtname").val(), beforesend:function(xmlhttprequest) { $("#showresult").text("正在查询"); //pause(this,100000...

JQuery EasyUI弹出对话框解决Asp.net服务器控件无法执行后台代码的方法【代码】【图】

jquery-easyui是一个基于jquery的图形界面插件，利用easyui可以创建很多好看的网页界面效果，easyui的相关地址是：http://jquery-easyui.wikidot.com/； easyui的中文文档地址是：http://www.easyui.net/，本人也利用easeyUI在做一些页面效果。由于我很喜欢那种弹出的对话框界面，因此在界面中应用了Dialog类来处理一些确认的信息，但在利用中发现，弹出的对话框，不能再继续执行asp.net按钮的后台响应代码。界面如下所示。操作是在...

解密ASP源代码

从网上兴致冲冲地下载了ASP源代码,准备学习研究的时候.一打开文件,天书般的加密代码.很让人郁闷吧 :( 在网上是找到了解密的方法,得一个文件挨一个文件地打开,复制,粘贴,解密,再复制,再粘贴,再保存......如果一个ASP程序有几百个文件??? 解决办法来了..复制代码代码如下:<% @Language="JavaScript" %> <% /* *--------------- decode.asp ----------------- * 功能:遍历某个目录下的所有文件,对加密过的.asp文件 * 进行解密...

ASP - 技术教程分类

ASP 教程 ASP 简介 ASP 安装 ASP 语法 ASP 变量 ASP 程序 ASP 表单 ASP Cookies ASP Session ASP Application ASP #include ASP Global.asa ASP 发送电子邮件 ASP Response ASP Request ASP Application ASP Session ASP Server ASP Error ASP FileSystem ASP Drive ASP File ASP Folder ASP Dictionary ASP ADO ASP Content Rotator AJAX 简介 AJAX ASP AJAX 数据库 ASP 快速参考 ASP 总结 ASP 实例 asp 全部

ASP - 最热教程

查看ASP详细错误提示信息的图文设置方法 asp实现本周的一周时间列表的代码 asp取得数组中的最大值的方法 ASP实现URL编码 asp中把数据导出为excel的2种方法 ASP模拟POST请求异步提交数据的方法 asp 获取access系统表，查询等操作代码 asp实现二进制字符串转换为Unicode字符...asp php jsp的区别有哪些 ASP常用源代码的总结（下）

首页 / ASP / 一些值得一看的代码asp

一些值得一看的代码asp

内容导读

内容图文

内容总结

内容备注

内容手机端

【一些值得一看的代码asp】教程文章相关的互联网学习教程文章

asp.net实现的计算网页下载速度的代码

asp.net 多文件上传，兼容IE6/7/8，提供完整代码下载【图】

简单高效的asp.net目录树源代码【代码】

asp.net直接Response输出WML页面示例代码

ASP.NET MVC 排球计分程序（六）HomeController代码和一些解释【代码】

asp.net中使用cookie与md5加密实现记住密码功能的实现代码

分享一个ASP.NET开发中经常碰到的小问题，修改好的js代码保存生成后，在运行调试时却还是修改前的代码

asp.ne去除html的函数代码

Asp.net Core的代码移植技巧，半天将SqlSugarORM转成Core【代码】【图】

asp也玩三层架构(有源代码)【代码】

Aspose Cells 控件如何实现数据过滤（附代码和下载地址）【图】

Asp.Net平台下的图片在线裁剪功能的实现代码(源码打包)

asp.net ajax 检测用户名是否可用代码

JQuery EasyUI弹出对话框解决Asp.net服务器控件无法执行后台代码的方法【代码】【图】

解密ASP源代码

ASP - 相关标签

ASP - 技术教程分类

ASP - 最新教程

ASP - 最热教程