注册 登陆
浏览模式: 标准 | 列表 分类: ASP

Html中 类似Excel窗口冻结的功能

Written by 小锋 on 08-12-13 11:27 AM

Html中 表单title头固定的CSS实现,类似于Excel中窗口冻结的功能，能很好的增强易用性(转)

» 阅读全文

Filed under: ASP 0 Comments 497 Views

合并记录集 并删除

Written by 小锋 on 08-07-21 11:30 AM

DELETE FROM Tables WHERE ID NOT IN (SELECT Min(ID) FROM Tables GROUP BY Name)

Min的话 保留最小的

或者保留最大 那就改成Max即可

Tags: sql语法

Filed under: ASP 1 Comments 1319 Views

asp回车 vbcrlf

Written by 小锋 on 08-07-20 10:26 PM

在源文件里面打开一看没回车 用&vbcrlf就能解决回车问题

Filed under: ASP 0 Comments 894 Views

Request.ServerVariables参考

Written by 小锋 on 08-06-27 10:01 AM

request.ServerVariables("Url")
返回服务器地址

Request.ServerVariables("Path_Info")
客户端提供的路径信息

Request.ServerVariables("Appl_Physical_Path")
与应用程序元数据库路径相应的物理路径

Request.ServerVariables("Path_Translated")
通过由虚拟至物理的映射后得到的路径

Request.ServerVariables("Script_Name")
执行脚本的名称

Request.ServerVariables("Query_String")
查询字符串內容

Request.ServerVariables("Http_Referer")
请求的字符串內容

Request.ServerVariables("Server_Port")
接受请求的服务器端口号

Request.ServerVariables("Remote_Addr")
发出请求的远程主机的IP地址

Request.ServerVariables("Remote_Host")
发出请求的远程主机名称

Request.ServerVariables("Local_Addr")
返回接受请求的服务器地址

Request.ServerVariables("Http_Host")
返回服务器地址

Request.ServerVariables("Server_Name")
服务器的主机名、DNS地址或IP地址

Request.ServerVariables("Request_Method")
提出请求的方法比如GET、HEAD、POST等等

Request.ServerVariables("Server_Port_Secure")
如果接受请求的服务器端口为安全端口时，则为1，否则为0

Request.ServerVariables("Server_Protocol")
服务器使用的协议的名称和版本

Request.ServerVariables("Server_Software")
应答请求并运行网关的服务器软件的名称和版本

Request.ServerVariables("All_Http")
客户端发送的所有HTTP标头，前缀HTTP_

Request.ServerVariables("All_Raw")
客户端发送的所有HTTP标头,其结果和客户端发送时一样，没有前缀HTTP_

Request.ServerVariables("Appl_MD_Path")
应用程序的元数据库路径

Request.ServerVariables("Content_Length")
客户端发出內容的长度

Request.ServerVariables("Https")
如果请求穿过安全通道（SSL），则返回ON如果请求来自非安全通道，则返回OFF

Request.ServerVariables("Instance_ID")
IIS实例的ID号

Request.ServerVariables("Instance_Meta_Path")
响应请求的IIS实例的元数据库路径

Request.ServerVariables("Http_Accept_Encoding")
返回內容如：gzip,deflate

Request.ServerVariables("Http_Accept_Language")
返回內容如：en-us

Request.ServerVariables("Http_Connection")
返回內容：Keep-Alive

Request.ServerVariables("Http_Cookie")
返回內容如：nVisiT%

2DYum=125;ASPSESSIONIDCARTQTRA=FDOBFFABJGOECBBKHKGPFIJI;ASPSESSIONIDCAQQTSRB=LKJJPLABABILLPCOGJGAMKAM;ASPSESSIONIDACRRSSRA=DK

HHHFBBJOJCCONPPHLKGHPB

Request.ServerVariables("Http_User_Agent")
返回內容：Mozilla/4.0(compatible;MSIE6.0;WindowsNT5.1;SV1)

Request.ServerVariables("Https_Keysize")
安全套接字层连接关键字的位数，如128

Request.ServerVariables("Https_Secretkeysize")
服务器验证私人关键字的位数如1024

Request.ServerVariables("Https_Server_Issuer")
服务器证书的发行者字段

Request.ServerVariables("Https_Server_Subject")
服务器证书的主题字段

Request.ServerVariables("Auth_Password")
当使用基本验证模式时，客户在密码对话框中输入的密码

Request.ServerVariables("Auth_Type")
是用户访问受保护的脚本时，服务器用於检验用户的验证方法

Request.ServerVariables("Auth_User")
代证的用户名

Request.ServerVariables("Cert_Cookie")
唯一的客户证书ID号

Request.ServerVariables("Cert_Flag")
客户证书标誌，如有客户端证书，则bit0为0如果客户端证书验证无效，bit1被设置为1

Request.ServerVariables("Cert_Issuer")
用户证书中的发行者字段

Request.ServerVariables("Cert_Keysize")
安全套接字层连接关键字的位数，如128

Request.ServerVariables("Cert_Secretkeysize")
服务器验证私人关键字的位数如1024

Request.ServerVariables("Cert_Serialnumber")
客户证书的序列号字段

Request.ServerVariables("Cert_Server_Issuer")
服务器证书的发行者字段

Request.ServerVariables("Cert_Server_Subject")
服务器证书的主题字段

Request.ServerVariables("Cert_Subject")
客户端证书的主题字段

Request.ServerVariables("Content_Type")
客户发送的form內容或HTTPPUT的数据类型

Request.ServerVariables("HTTP_X_FORWARDED_FOR")
可以获得位于代理（网关）后面的直接IP，当然必须这个代理支持


一些被隐藏起来的Request.ServerVariables参数：
Request.ServerVariables("NUMBER_OF_PROCESSORS")
Request.ServerVariables("OS")
Request.ServerVariables("WINDIR")
Request.ServerVariables("TEMP")
Request.ServerVariables("TMP")
Request.ServerVariables("ComSpec")
Request.ServerVariables("Os2LibPath")
Request.ServerVariables("Path")
Request.ServerVariables("PATHEXT")
Request.ServerVariables("PROCESSOR_ARCHITECTURE")
Request.ServerVariables("PROCESSOR_IDENTIFIER")
Request.ServerVariables("PROCESSOR_LEVEL")
Request.ServerVariables("PROCESSOR_REVISION")


本机ip:<%=request.servervariables("remote_addr")%>
服务器名:<%=Request.ServerVariables("SERVER_NAME")%>
服务器IP:<%=Request.ServerVariables("LOCAL_ADDR")%>
服务器端口:<%=Request.ServerVariables("SERVER_PORT")%>
服务器时间:<%=now%>
IIS版本:<%=Request.ServerVariables("SERVER_SOFTWARE")%>
脚本超时时间:<%=Server.ScriptTimeout%>
本文件路径:<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
服务器CPU数量:<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
服务器解译引擎:<%=ScriptEngine & "/"& ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服务器操作系统:<%=Request.ServerVariables("OS")%>
支持的文件类型：<%=Request.ServerVariables("HTTP_Accept")%>
访问的文件路径：<%=Request.ServerVariables("HTTP_url")%>
用户代理的信息：<%=Request.ServerVariables("HTTP_USER_AGENT")%>



Request.ServerVariables变量意义. http代理相关知识
Request.ServerVariables["HTTP_VIA"]---------可以获得用户内部的ip
Request.ServerVariables["HTTP_X_FORWARDED_FOR"]---------可以知道代理服务器的服务器名以及端口
Request.ServerVariables["REMOTE_ADDR"]--发出请求的远程主机的IP地址。

Tags: request

Filed under: ASP 1 Comments 1175 Views

ASP正则函数 大鸟哥给的好东西

Written by 小锋 on 08-06-12 10:05 PM

ASP/Visual Basic代码
  1. Function DRexPage(Str)   
  2. Dim RegEx   
  3. If IsNull(Str) Or Str="" Then Exit Function  
  4. Set RegEx=New RegExp   
  5.     RegEx.IgnoreCase=True  
  6.     RegEx.pattern="(\&)?page=(\d)+"  
  7.     DRexPage=regEx.replace(Str,"")  '(Str,"$1")   
  8.     Set RegEx=Nothing  
  9. End Function  

在分页系统里面用到的把page后面得东西都给丢掉

Tags: 正则, 函数, 替换

Filed under: ASP 0 Comments 899 Views

Asp采集文章时网页编码问题

Written by 小锋 on 08-06-12 11:14 AM

转(柳永法)

ASP/Visual Basic代码
  1. '/*=========================================================================      
  2. ' * Intro       研究网页编码很长时间了，因为最近要设计一个友情链接检测的VBS脚本，而与你链接的人的页面很可能是各种编码，以前采取的方法是：如果用GB2312查不到再用UTF-8查，再找不到证明对方没有给你做链接虽然不是100%正确，但也差不多了，这两种编码用的人比较多，偶然间在收藏夹里的一个地址看到的一个思路，终于可以在采集文章时自动判断网页的编码了。因为研究过程中这个问题困扰很久，虽然现在觉得简单了，想必很多人还在找，所以把这三个函数贴出来。      
  3. ' * FileName    GetWebCodePage.vbs      
  4. ' * Author      yongfa365      
  5. ' * Version     v2.0      
  6. ' * WEB         http://www.yongfa365.com      
  7. ' * Email       yongfa365[at]qq.com      
  8. ' * FirstWrite  http://www.yongfa365.com/Item/GetWebCodePage.vbs.html      
  9. ' * MadeTime    2008-01-29 20:55:46      
  10. ' * LastModify  2008-01-30 20:55:46      
  11. ' *==========================================================================*/      
  12.      
  13.      
  14. Call getHTTPPage("http://www.baidu.com/")      
  15. Call getHTTPPage("http://www.google.com/")      
  16. Call getHTTPPage("http://www.yongfa365.com/")      
  17. Call getHTTPPage("http://www.cbdcn.com/")      
  18. Call getHTTPPage("http://www.csdn.net/")      
  19.      
  20.      
  21. '得到匹配的内容，返回数组      
  22. 'getContents(表达式，字符串，是否返回引用值)      
  23. 'msgbox getContents("a(.+?)b", "a23234b ab a67896896b sadfasdfb" ,True)(0)      
  24.      
  25. Function getContents(patrn, strng , yinyong)      
  26. 'by www.yongfa365.com 转载请保留链接，以便最终用户及时得到最新更新信息      
  27.     On Error Resume Next     
  28.     Set re = New RegExp     
  29.     re.Pattern = patrn      
  30.     re.IgnoreCase = True     
  31.     re.Global = True     
  32.     Set Matches = re.Execute(strng)      
  33.     If yinyong Then     
  34.         For i = 0 To Matches.Count -1      
  35.             If Matches(i).Value<>"" Then RetStr = RetStr & Matches(i).SubMatches(0) & "柳永法"     
  36.         Next     
  37.     Else     
  38.         For Each oMatch in Matches      
  39.             If oMatch.Value<>"" Then RetStr = RetStr & oMatch.Value & "柳永法"     
  40.         Next     
  41.     End If     
  42.     getContents = Split(RetStr, "柳永法")      
  43. End Function     
  44.      
  45. Function getHTTPPage(url)      
  46.     On Error Resume Next     
  47.     Set xmlhttp = CreateObject("MSXML2.XMLHTTP")      
  48.     xmlhttp.Open "Get", url, False     
  49.     xmlhttp.Send      
  50.     If xmlhttp.Status<>200 Then Exit Function     
  51.     GetBody = xmlhttp.ResponseBody      
  52.     '柳永法(www.yongfa365.com)在此的思路是,先根据返回的字符串找，找文件头，如果还没有的话就用GB2312,一般都能直接匹配出编码。      
  53.     '在返回的字符串里看，虽然中文是乱码，但不影响我们取其编码，      
  54.     GetCodePage = getContents("charset=[""']*([^"",']+)", xmlhttp.ResponseText , True)(0)      
  55.     '在头文件里看编码      
  56.      If Len(GetCodePage)<3 Then GetCodePage = getContents("charset=[""']*([^"",']+)", xmlhttp.getResponseHeader("Content-Type") , True)(0)      
  57.     If Len(GetCodePage)<3 Then GetCodePage = "gb2312"     
  58.     Set xmlhttp = Nothing     
  59.     '下边这句在正式使用时要屏蔽掉      
  60.     WScript.Echo url & "-->" & GetCodePage      
  61.     getHTTPPage = BytesToBstr(GetBody, GetCodePage)      
  62. End Function     
  63.      
  64.      
  65. Function BytesToBstr(Body, Cset)      
  66.     On Error Resume Next     
  67.     Dim objstream      
  68.     Set objstream = CreateObject("adodb.stream")      
  69.     objstream.Type = 1      
  70.     objstream.Mode = 3      
  71.     objstream.Open     
  72.     objstream.Write Body      
  73.     objstream.Position = 0      
  74.     objstream.Type = 2      
  75.     objstream.Charset = Cset      
  76.     BytesToBstr = objstream.ReadText      
  77.     objstream.Close     
  78.     Set objstream = Nothing     
  79. End Function     
  80.   
  81. '/*=========================================================================   
  82. ' * Intro       研究网页编码很长时间了，因为最近要设计一个友情链接检测的VBS脚本，而与你链接的人的页面很可能是各种编码，以前采取的方法是：如果用GB2312查不到再用UTF-8查，再找不到证明对方没有给你做链接虽然不是100%正确，但也差不多了，这两种编码用的人比较多，偶然间在收藏夹里的一个地址看到的一个思路，终于可以在采集文章时自动判断网页的编码了。因为研究过程中这个问题困扰很久，虽然现在觉得简单了，想必很多人还在找，所以把这三个函数贴出来。   
  83. ' * FileName    GetWebCodePage.vbs   
  84. ' * Author      yongfa365   
  85. ' * Version     v2.0   
  86. ' * WEB         http://www.yongfa365.com   
  87. ' * Email       yongfa365[at]qq.com   
  88. ' * FirstWrite  http://www.yongfa365.com/Item/GetWebCodePage.vbs.html   
  89. ' * MadeTime    2008-01-29 20:55:46   
  90. ' * LastModify  2008-01-30 20:55:46   
  91. ' *==========================================================================*/   
  92.   
  93.   
  94. Call getHTTPPage("http://www.baidu.com/")   
  95. Call getHTTPPage("http://www.google.com/")   
  96. Call getHTTPPage("http://www.yongfa365.com/")   
  97. Call getHTTPPage("http://www.cbdcn.com/")   
  98. Call getHTTPPage("http://www.csdn.net/")   
  99.   
  100.   
  101. '得到匹配的内容，返回数组   
  102. 'getContents(表达式，字符串，是否返回引用值)   
  103. 'msgbox getContents("a(.+?)b", "a23234b ab a67896896b sadfasdfb" ,True)(0)   
  104.   
  105. Function getContents(patrn, strng , yinyong)   
  106. 'by www.yongfa365.com 转载请保留链接，以便最终用户及时得到最新更新信息   
  107.     On Error Resume Next  
  108.     Set re = New RegExp   
  109.     re.Pattern = patrn   
  110.     re.IgnoreCase = True  
  111.     re.Global = True  
  112.     Set Matches = re.Execute(strng)   
  113.     If yinyong Then  
  114.         For i = 0 To Matches.Count -1   
  115.             If Matches(i).Value<>"" Then RetStr = RetStr & Matches(i).SubMatches(0) & "柳永法"  
  116.         Next  
  117.     Else  
  118.         For Each oMatch in Matches   
  119.             If oMatch.Value<>"" Then RetStr = RetStr & oMatch.Value & "柳永法"  
  120.         Next  
  121.     End If  
  122.     getContents = Split(RetStr, "柳永法")   
  123. End Function  
  124.   
  125. Function getHTTPPage(url)   
  126.     On Error Resume Next  
  127.     Set xmlhttp = CreateObject("MSXML2.XMLHTTP")   
  128.     xmlhttp.Open "Get", url, False  
  129.     xmlhttp.Send   
  130.     If xmlhttp.Status<>200 Then Exit Function  
  131.     GetBody = xmlhttp.ResponseBody   
  132.     '柳永法(www.yongfa365.com)在此的思路是,先根据返回的字符串找，找文件头，如果还没有的话就用GB2312,一般都能直接匹配出编码。   
  133.     '在返回的字符串里看，虽然中文是乱码，但不影响我们取其编码，   
  134.     GetCodePage = getContents("charset=[""']*([^"",']+)", xmlhttp.ResponseText , True)(0)   
  135.     '在头文件里看编码   
  136.      If Len(GetCodePage)<3 Then GetCodePage = getContents("charset=[""']*([^"",']+)", xmlhttp.getResponseHeader("Content-Type") , True)(0)   
  137.     If Len(GetCodePage)<3 Then GetCodePage = "gb2312"  
  138.     Set xmlhttp = Nothing  
  139.     '下边这句在正式使用时要屏蔽掉   
  140.     WScript.Echo url & "-->" & GetCodePage   
  141.     getHTTPPage = BytesToBstr(GetBody, GetCodePage)   
  142. End Function  
  143.   
  144.   
  145. Function BytesToBstr(Body, Cset)   
  146.     On Error Resume Next  
  147.     Dim objstream   
  148.     Set objstream = CreateObject("adodb.stream")   
  149.     objstream.Type = 1   
  150.     objstream.Mode = 3   
  151.     objstream.Open   
  152.     objstream.Write Body   
  153.     objstream.Position = 0   
  154.     objstream.Type = 2   
  155.     objstream.Charset = Cset   
  156.     BytesToBstr = objstream.ReadText   
  157.     objstream.Close   
  158.     Set objstream = Nothing  
  159. End Function  

Tags: 编码问题, 采集, 采集编码

Filed under: ASP 0 Comments 977 Views

Asp 生成需要注意的一个问题

Written by 小锋 on 08-05-26 4:40 PM

1. 你不能直接输出<% %>这种东西。你可以将其分开，比如 "<"&"%" 这样，或者直接转义

2. 如果要在response.write 里面输出双引号，那必须要偶数个，

比如你要输出 " 那你应该response.write """"

3.换行可以用vbcrlf(*^__^*) 嘻嘻……asp我还是嫩菜青呢 这个是大鸟哥教的

Tags: 生成, 生成页面, 页面生成, 页面

Filed under: ASP 2 Comments 1615 Views

SQL中Like的一般用法

Written by 小锋 on 08-05-09 5:27 PM

like的运用场合主要在模糊查询的时候,一般以查询字符串居多,这里据一些例子来说他的一般用法:

例1，查询name字段中包含有“明”字的。 　　

select * from table1 where name like '%明%' 　

这里不要使用*来代替,一般在使用0个或者任意个字符构成的字符串的时候最好使用%

不过在首或尾使用可以相互替换,如果在头尾同时使用的话,就必须要使用%　

例2，查询name字段中以“李”字开头。 　　

select * from table1 where name like '李*' 　

或者

select * from table1 where name like '李%' 　

例3，查询name字段中含有数字的。 　　

select * from table1 where name like '%[0-9]%' 　　

例4，查询name字段中含有小写字母的。 　　

select * from table1 where name like '%[a-z]%' 　　

例5，查询name字段中不含有数字的。 　　

select * from table1 where name like '%[!0-9]%'

补充一点,?或者_表示单个字符

Tags: sql, like, 用法, sql用法, like用法

Filed under: ASP 1 Comments 1503 Views

（转）MSSQL查询优化

Written by 小锋 on 08-05-08 10:19 AM

很不错的一个mssql查询优化的文章 内容丰富 有进行对数据库操作的朋友不要错过 转(Readlog.cn)

» 阅读全文

Tags: mssql, 查询优化, 优化, 查询

Filed under: ASP 0 Comments 1103 Views

限制图片超出范围

Written by 小锋 on 08-05-07 4:38 PM

刚在写asp的时候碰到数据库里面的图片地址是没有<br>进行换行的 直接输出的话会撑破表格

然后想到div有一个宽度的设置 就试了试呵呵还真成功了~~~成功限制了图片的宽度..

ASP/Visual Basic代码
  1. <div style="width:960px;"><%=rs("content")%></div>  

Tags: 限制图片, 超过范围, 范围, 超出

Filed under: ASP 0 Comments 1070 Views

Total:52123456Next ›