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

小锋 — 2008-12-13 11:27

小锋堂 ( http://www.jackfeng.com/ ) :

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

阅读全文

合并记录集并删除

小锋 — 2008-07-21 11:30

小锋堂 ( http://www.jackfeng.com/ ) :

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

Min的话保留最小的

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

asp回车 vbcrlf

小锋 — 2008-07-20 22:26

小锋堂 ( http://www.jackfeng.com/ ) :

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

Request.ServerVariables参考

小锋 — 2008-06-27 10:01

小锋堂 ( http://www.jackfeng.com/ ) :

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地址。

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

小锋 — 2008-06-12 22:05

小锋堂 ( http://www.jackfeng.com/ ) :

ASP/Visual Basic代码

Function DRexPage(Str)
Dim RegEx
If IsNull(Str) Or Str="" Then Exit Function
Set RegEx=New RegExp
RegEx.IgnoreCase=True
RegEx.pattern="(\&)?page=(\d)+"
DRexPage=regEx.replace(Str,"") '(Str,"$1")
Set RegEx=Nothing
End Function

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

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

小锋 — 2008-06-12 11:14

小锋堂 ( http://www.jackfeng.com/ ) :

转(柳永法)

ASP/Visual Basic代码

'/*=========================================================================
' * Intro 研究网页编码很长时间了，因为最近要设计一个友情链接检测的VBS脚本，而与你链接的人的页面很可能是各种编码，以前采取的方法是：如果用GB2312查不到再用UTF-8查，再找不到证明对方没有给你做链接虽然不是100%正确，但也差不多了，这两种编码用的人比较多，偶然间在收藏夹里的一个地址看到的一个思路，终于可以在采集文章时自动判断网页的编码了。因为研究过程中这个问题困扰很久，虽然现在觉得简单了，想必很多人还在找，所以把这三个函数贴出来。
' * FileName GetWebCodePage.vbs
' * Author yongfa365
' * Version v2.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/GetWebCodePage.vbs.html
' * MadeTime 2008-01-29 20:55:46
' * LastModify 2008-01-30 20:55:46
' *==========================================================================*/
Call getHTTPPage("http://www.baidu.com/")
Call getHTTPPage("http://www.google.com/")
Call getHTTPPage("http://www.yongfa365.com/")
Call getHTTPPage("http://www.cbdcn.com/")
Call getHTTPPage("http://www.csdn.net/")
'得到匹配的内容，返回数组
'getContents(表达式，字符串，是否返回引用值)
'msgbox getContents("a(.+?)b", "a23234b ab a67896896b sadfasdfb" ,True)(0)
Function getContents(patrn, strng , yinyong)
'by www.yongfa365.com 转载请保留链接，以便最终用户及时得到最新更新信息
On Error Resume Next
Set re = New RegExp
re.Pattern = patrn
re.IgnoreCase = True
re.Global = True
Set Matches = re.Execute(strng)
If yinyong Then
For i = 0 To Matches.Count -1
If Matches(i).Value<>"" Then RetStr = RetStr & Matches(i).SubMatches(0) & "柳永法"
Next
Else
For Each oMatch in Matches
If oMatch.Value<>"" Then RetStr = RetStr & oMatch.Value & "柳永法"
Next
End If
getContents = Split(RetStr, "柳永法")
End Function
Function getHTTPPage(url)
On Error Resume Next
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
xmlhttp.Open "Get", url, False
xmlhttp.Send
If xmlhttp.Status<>200 Then Exit Function
GetBody = xmlhttp.ResponseBody
'柳永法(www.yongfa365.com)在此的思路是,先根据返回的字符串找，找文件头，如果还没有的话就用GB2312,一般都能直接匹配出编码。
'在返回的字符串里看，虽然中文是乱码，但不影响我们取其编码，
GetCodePage = getContents("charset=[""']*([^"",']+)", xmlhttp.ResponseText , True)(0)
'在头文件里看编码
If Len(GetCodePage)<3 Then GetCodePage = getContents("charset=[""']*([^"",']+)", xmlhttp.getResponseHeader("Content-Type") , True)(0)
If Len(GetCodePage)<3 Then GetCodePage = "gb2312"
Set xmlhttp = Nothing
'下边这句在正式使用时要屏蔽掉
WScript.Echo url & "-->" & GetCodePage
getHTTPPage = BytesToBstr(GetBody, GetCodePage)
End Function
Function BytesToBstr(Body, Cset)
On Error Resume Next
Dim objstream
Set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write Body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
End Function
'/*=========================================================================
' * Intro 研究网页编码很长时间了，因为最近要设计一个友情链接检测的VBS脚本，而与你链接的人的页面很可能是各种编码，以前采取的方法是：如果用GB2312查不到再用UTF-8查，再找不到证明对方没有给你做链接虽然不是100%正确，但也差不多了，这两种编码用的人比较多，偶然间在收藏夹里的一个地址看到的一个思路，终于可以在采集文章时自动判断网页的编码了。因为研究过程中这个问题困扰很久，虽然现在觉得简单了，想必很多人还在找，所以把这三个函数贴出来。
' * FileName GetWebCodePage.vbs
' * Author yongfa365
' * Version v2.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/GetWebCodePage.vbs.html
' * MadeTime 2008-01-29 20:55:46
' * LastModify 2008-01-30 20:55:46
' *==========================================================================*/
Call getHTTPPage("http://www.baidu.com/")
Call getHTTPPage("http://www.google.com/")
Call getHTTPPage("http://www.yongfa365.com/")
Call getHTTPPage("http://www.cbdcn.com/")
Call getHTTPPage("http://www.csdn.net/")
'得到匹配的内容，返回数组
'getContents(表达式，字符串，是否返回引用值)
'msgbox getContents("a(.+?)b", "a23234b ab a67896896b sadfasdfb" ,True)(0)
Function getContents(patrn, strng , yinyong)
'by www.yongfa365.com 转载请保留链接，以便最终用户及时得到最新更新信息
On Error Resume Next
Set re = New RegExp
re.Pattern = patrn
re.IgnoreCase = True
re.Global = True
Set Matches = re.Execute(strng)
If yinyong Then
For i = 0 To Matches.Count -1
If Matches(i).Value<>"" Then RetStr = RetStr & Matches(i).SubMatches(0) & "柳永法"
Next
Else
For Each oMatch in Matches
If oMatch.Value<>"" Then RetStr = RetStr & oMatch.Value & "柳永法"
Next
End If
getContents = Split(RetStr, "柳永法")
End Function
Function getHTTPPage(url)
On Error Resume Next
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
xmlhttp.Open "Get", url, False
xmlhttp.Send
If xmlhttp.Status<>200 Then Exit Function
GetBody = xmlhttp.ResponseBody
'柳永法(www.yongfa365.com)在此的思路是,先根据返回的字符串找，找文件头，如果还没有的话就用GB2312,一般都能直接匹配出编码。
'在返回的字符串里看，虽然中文是乱码，但不影响我们取其编码，
GetCodePage = getContents("charset=[""']*([^"",']+)", xmlhttp.ResponseText , True)(0)
'在头文件里看编码
If Len(GetCodePage)<3 Then GetCodePage = getContents("charset=[""']*([^"",']+)", xmlhttp.getResponseHeader("Content-Type") , True)(0)
If Len(GetCodePage)<3 Then GetCodePage = "gb2312"
Set xmlhttp = Nothing
'下边这句在正式使用时要屏蔽掉
WScript.Echo url & "-->" & GetCodePage
getHTTPPage = BytesToBstr(GetBody, GetCodePage)
End Function
Function BytesToBstr(Body, Cset)
On Error Resume Next
Dim objstream
Set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write Body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
End Function

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

小锋 — 2008-05-26 16:40

小锋堂 ( http://www.jackfeng.com/ ) :

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

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

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

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

SQL中Like的一般用法

小锋 — 2008-05-09 17:27

小锋堂 ( http://www.jackfeng.com/ ) :

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]%'

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

（转）MSSQL查询优化

小锋 — 2008-05-08 10:19

小锋堂 ( http://www.jackfeng.com/ ) :

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

阅读全文

限制图片超出范围

小锋 — 2008-05-07 16:38

小锋堂 ( http://www.jackfeng.com/ ) :

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

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

ASP/Visual Basic代码

"width:960px;"><%=rs("content")%>

大鸟哥给的一段检测是否数字代码简单

小锋 — 2008-04-29 14:37

小锋堂 ( http://www.jackfeng.com/ ) :

刚在写asp呵呵碰到检测数字的了以前用了javascript现在用起来不会了太久没玩asp了

(*^__^*) 嘻嘻……刚好大鸟哥给我丢了一段Function来IsInt返回Boolean 是数字就是True啦

ASP/Visual Basic代码

Function IsInt(Str)
Dim Re
Set Re = New RegExp
Re.Global = True
Re.IgnoreCase = False
Re.MultiLine = False
Re.Pattern = "^[1-9]{1}[0-9]*$"
IsInt=Re.Test(Str)
Set Re=Nothing
End Function

Asp中的获取当前页面！

小锋 — 2008-04-28 13:22

小锋堂 ( http://www.jackfeng.com/ ) :

刚在玩asp 碰到当前页面因为是二级目录所以当前页面获取的不够好只能用split来进行分组了

ASP/Visual Basic代码

Dim NowUrl,ArrNowUrl
NowUrl =request.ServerVariables("url")
ArrNowUrl =Split(NowUrl,"/")
RealUrl =ArrNowUrl(UBound(ArrNowUrl))

丢一个sql语法

小锋 — 2008-04-27 00:49

小锋堂 ( http://www.jackfeng.com/ ) :

select into 和 insert into select 两种表复制语句select * into destTbl from srcTbl

insert into destTbl(fld1, fld2) select fld1, 5 from srcTbl………………

阅读全文

很不错的缩略图AspJpeg代码

小锋 — 2008-02-11 03:00

小锋堂 ( http://www.jackfeng.com/ ) :

轻松实现缩略图的一段代码刚处理到这部分就给贴上来了

阅读全文

form提交没反应【已解决】

小锋 — 2008-01-23 16:26

小锋堂 ( http://www.jackfeng.com/ ) :

这个是前天前天碰到的问题了。由于最近比较忙
都没有把一些特殊的情况给记载下来~ 现在腾出点时间来写写

阅读全文

html 图片缩小比例

小锋 — 2008-01-23 15:05

小锋堂 ( http://www.jackfeng.com/ ) :

算是一个html的小技巧只设置宽度不设置高度就能按比例缩小哦~~~

我也是刚刚碰到问题才发现的！

图片附件:

实现html伪静态竟然那么简单

小锋 — 2007-11-22 16:08

小锋堂 ( http://www.jackfeng.com/ ) :

把:www.44721.cn/movie.asp?id=123
伪静态为:www.44721.cn/movie.asp?123.html

阅读全文

asp循环行数问题

小锋 — 2007-11-08 01:41

小锋堂 ( http://www.jackfeng.com/ ) :

感谢大鸟哥哥的指导总算走出了这个循环的禁区
一直以来都很头疼Asp里面的多行或者多列循环
今天算是有收获了以下代码贴出来为自己留念一下

阅读全文

不客气哦直接看你源码

小锋 — 2007-11-07 03:28

小锋堂 ( http://www.jackfeng.com/ ) :

直接看你的html源文件
就相当于查看源文件一样有的网站限制了右键
限制了查看源文件这个效果很好！

阅读全文

if语法完整和不完整结构

小锋 — 2007-11-05 18:04

小锋堂 ( http://www.jackfeng.com/ ) :

哥哥 17:57:30
If sortid = 1 Then Response.write "化妆品类"
这是一个完整的
哥哥 17:57:41
语法结构已经完了
哥哥 17:58:02
当然就不能再继续写else或者elseif了
谢谢大鸟哥给出的解释

阅读全文

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

合并记录集 并删除

asp回车 vbcrlf

Request.ServerVariables参考

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

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

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

SQL中Like的一般用法

（转）MSSQL查询优化

限制图片超出范围

大鸟哥给的一段检测是否数字代码 简单

Asp中的获取当前页面！

丢一个sql语法

很不错的缩略图AspJpeg代码

form提交没反应 【已解决】

html 图片缩小比例

实现html伪静态竟然那么简单

asp循环行数问题

不客气哦直接看你源码

if语法完整和不完整结构

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

合并记录集并删除

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

大鸟哥给的一段检测是否数字代码简单

form提交没反应【已解决】