网站地图 首页 我的微博 技术文章 生活百态 情感人生 杂烩精选 我的作品 留言板
 
各国语言:Translate Page To German Tranlate Page To Spanish Translate Page To French Translate Page To Italian Translate Page To Japanese Translate Page To Korean Translate Page To Portuguese Translate Page To Chinese Translate Page To Russian Translate Page To Dutch
 
 
 商业合作
 建站,改车商业合作大门向你敞开!
关键字标签:兰傲工作室,魔术表演邓影,模特赵文诺,韩素媛,天使恋睡衣,家居114,湛江网站建设,汽配改装,PU包围,际力斯,车友会,电脑DIY,家居招商代理,动画设计,短信群发,QQ生活通,演员出租,百姓网发布
 信息检索
关键字:
类  型:   
 文章分类
  ·技术(37)
  ·生活(101)
  ·情感(24)
  ·杂烩(20)
  ·作品(9)
 推荐文章
 美女模特儿赵文诺加入巨星训练班..
 diy心形鸡蛋
 十一武汉旅游之八:湖北省博物馆..
 《非诚勿扰》主题曲《往前一步》..
 十一武汉旅游之七:长江夜游
 十一武汉旅游之六:辛亥革命博物..
 十一武汉旅游之五:黄鹤楼二
 十一武汉旅游之四:黄鹤楼一
 十一武汉旅游之三:归元寺
 十一武汉旅游之二:月湖,古琴台..
 十一武汉旅游之一:起程
 漫画:狗子
 郁闷时很好用的发泄工具
 逃跑的小猫
 Designasyl创意组合家具设计
 雅力士改装包围
 史上最欠扁的小猫,很可爱
 暴强!!15多GB的视频压锁到63.5..
 珠海广东科学技术职业学院 我的..
 烟火(剧场版)
 文章评论
 加油
 文诺,加油哦,希望有更多的作品..
 希望有更多的作品,加油
 漂亮漂亮,支持
 不错,支持
 真的很不错哦,挺漂亮的
 顶一下!
 加油哦 文章写得还好呢 我来抢..
 纯灌水
 看过
 RSS订阅
 
  ASP编程代码总结   作者:本站原创 2008-8-20 14:38:59  

1.不使用IFRAME就可以出现右侧和下方出现滚动条的效果
<SPAN style="OVERFLOW-Y: scroll; DISPLAY: block; OVERFLOW-X: scroll; WIDTH: 250px; HEIGHT: 100px; TEXT-ALIGN: left">
<TABLE cellSpacing=0 cellPadding=0 width=250 border=0>
<TBODY>
<TR>
<TD class=rr vAlign=top align=left bgColor=#ffffff height=100>测试数据...复制可以查看 </TD>
</TR>
</TBODY>
</TABLE>
</SPAN>

2.获取来访客户的IP地址及来源页面
dim userip '声明存储IP地址的变量
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
'dim url '声明存储来源页面的变量
url = request.servervariables("http_referer")

3.截取标题一定长度的代码
function gotTopic(str,strlen)
    if str="" then
        gotTopic=""
        exit function
    end if
    dim l,t,c, i
    str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
    l=len(str)
    t=0
    for i=1 to l
          c=Abs(Asc(Mid(str,i,1)))
          if c>255 then
               t=t+2
          else
               t=t+1
          end if
          if t>=strlen then
               gotTopic=left(str,i) & ".."
               exit for
         else
               gotTopic=str
         end if
    next
    gotTopic=replace(replace(replace(gotTopic,chr(34),"&quot;"),">","&gt;"),"<","&lt;")
end function

4.去除HTML函数的代码
Function GetTextFromHtml(strHtml)
        Dim strPatrn    ' 建立变量
            strPatrn="<.*?>"
        Dim regEx ' 建立变量
        Set regEx = New RegExp  ' 建立正则表达式。
        regEx.Pattern = strPatrn    ' 设置模式
        regEx.IgnoreCase = True   ' 设置是否区分字符大小写
        regEx.Global = True    ' 设置全局可用性
        GetTextFromHtml = regEx.Replace(strHtml,"") ' 执行搜索
        GetTextFromHtml = replace(GetTextFromHtml,"&nbsp;"," ")
End Function

  标签:ASP   分类:技术 | 浏览量:3495 | 评论:1   
  Lexus  [2009-4-14 17:06:00]  
Good site, admin.
Edwardzz回复:  2009-4-15 9:50:49
Thank you!
昵称:    *
邮箱:    方便交流
内容:    *
验 证 码:    *  看不清,请换一张 
 
 
 
 
Site and content: © 2009 edwardzz.cn    All Rights Reserved    ICP:09044183
QQ : 56530082      Email : edwardzzcai#163.com   feedsky  :