博文
设置XP自动登录(2006-08-03 12:14:00)
摘要：单击“开始/运行”，输入
rundll32 netplwiz.dll,UsersRunDll
弹出窗口即可进行相关设置......
这个周末，我入了DotNet的门……(2006-07-16 17:01:00)
摘要： 因为提前休息了两天，所以这个周末我加班，老实说我宁愿周末来上班，因为几乎不会有什么事情，可是平常就不同，整天都会东奔西走忙个不停。
人人都说net学起来很简单，可是我也曾试着去学习，却摸不着头脑，明明知道Microsoft Visual Studio .NET 2003是很好用的开发工具，可是我却拿着不知从何下手。真是郁闷之极呀！
实在是沉不住气了，暗下决心一定要开始学net了，就从VSnet2003学起。网上这方面的入门（教程）书籍少得可怜。平常都习惯了在网上找Visual Studio 教程，可是怎么也找不到个好的，可恶……
也不知道怎么样还是转去了MSDN，我直接开始演练，http://msdn.microsoft.com/library/chs/vsintro7/html/vsstartpage.asp，两天时间，从头到尾学习了开发一个例子的过程，对net也有个大体的掌握，心中窃喜，记之。......
自动识别URL网址(2006-07-14 16:38:00)
摘要：用ASP读取数据库内容显示时，如何让其中的网址自动识别成活动链接的。有人知道吗？感谢帮助。......
FSO删除文件函数(2006-06-27 13:22:00)
摘要：<% '文件删除函数 function deletefile(filename) if filename<>"" then set fso=server.CreateObject("scripting.filesystemobject") if fso.FileExists(filename) then fso.DeleteFile filename Response.Write "<script>alert('该文件已删除');</script>" else Response.Write "<script>alert('该文件不存在');</script>" end if end if end function
strfile=server.MapPath("txt/aa.txt") deletefile(strfile) %>......
让图片链接窗口自适应图片大小(2006-06-25 12:13:00)
摘要：<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>让图片链接窗口自适应图片大小 - 51windows.Net</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body><SCRIPT LANGUAGE="JavaScript"><!--function ShowImg(url){var hplus = 30if(window.navigator.userAgent.indexOf("SV1") != -1){ hplus = hplus + 20;} newwin = window.open("about:blank","","width=1,height=1,left=2,top=2") newwin.document.write ('<html><title>显示图片</title><head><meta http-equiv=Content-Type content="text/html; charset=gb2312"></head><body style="border:0px;margin:0px;" onkeydown=if(event.keyCode==27){window.close()}><center><img title="点击关闭窗口" onclick="window.close()" style="cursor:hand;" border="0" src="'+url+'" align="absmiddle" hspace="0" vspace="0" onload="self.resizeTo((this.offsetWidth+10),(this.offsetHeight+'+hplus+'));"></center></body>&......
客户端IP地址判断,可以做很多事哦!(2006-06-25 03:05:00)
摘要：比如禁止某地区的人访问网页。
<% '海南IP段'=================================='61.186.0.0 - 61.186.37.255'202.100.199.0 - 202.100.255.255'203.207.176.0 - 203.207.176.255'210.014.199.0 - 210.014.199.255'210.014.244.0- 210.014.244.255'210.014.255.0 - 210.014.255.255'210.37.0.0 - 210.37.255.255'210.053.207.135 - 210.053.207.136'210.72.56.0 - 210.72.56.255'211.97.96.0 - 211.97.103.255'211.163.89.0 - 211.163.89.255'218.77.128.0 - 218.77.230.255'218.138.160.0 - 218.138.160.255 '==================================
function IP2Num(sip) dim str1,str2,str3,str4 dim num IP2Num=0 if isnumeric(left(sip,2)) then str1=left(sip,instr(sip,".")-1) sip=mid(sip,instr(sip,".")+1) str2=left(sip,instr(sip,".")-1) sip=mid(sip,instr(sip,".")+1) str3=left(sip,instr(sip,".")-1) str4=mid(sip,instr(sip,".")+1) num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4) IP2Num = num end ifend function
func......
用CSS实现防止大图片撑大表格(2006-06-08 14:12:00)
摘要：
table-layout语法：table-layout : auto | fixed 取值：auto : 默认值。默认的自动算法。布局将基于各单元格的内容。表格在每一单元格内所有内容读取计算之后才会显示出来 fixed : 固定布局的算法。在这种算法中，表格和列的宽度取决于 col 对象的宽度总和，假如没有指定，则会取决于第一行每个单元格的宽度。假如表格没有指定宽度( width )属性，则表格被呈递的默认宽度为 100% 。 说明：设置或检索表格的布局算法。你可以通过此属性改善表格呈递性能。此属性导致IE以一次一行的方式呈递表格内容从而提供给信息用户更快的速度。此属性依据此下顺序使用其中一种方式布置表格栏宽度：使用 col 或 colGroup 对象的宽度( width )属性信息。使用表格第一行内的单元格的宽度( width )信息。依据表格列数等分表格宽度。而不考虑表格内容的实际宽度。 假如单元格的内容超过了列宽度，内容将会被换行。假如无法换行，则内容会被裁切。假如此属性被设置为 fixed ，则 overflow 能够被用于控制处理溢出单元格( td )宽度的内容。假如表格行高度被指定了，那么换行的内容如果超出了指定表格行高度也会在纵向上被裁切。设置此属性值为 fixed ，有助于提高表格性能。对于长表格效果尤其显著。设置表格行高可以进一步提高呈递速度，浏览器不需要检测行内每一个单元格内容去确定行高就可以开始解析以及呈递。此属性对于 currentStyle 对象而言是只读的。对于其他对象而言是可读写的。对应的脚本特性为 tableLayout 。 示例：table { table-layout: fixed; }word-wrap语法：word-wrap : normal | break-word 取值：normal : 默认值。允许内容顶开指定的容器边界 break-word : 内容将在边界内换行。如果需要，词内换行( word-break )也将发生 说明：设置或检索当当前行超过指定容器的边界时是否断开转行。此属性仅作用于有布局的对象，如块对象。内联要素要使用该属性，必须先设定对象的 height 或 width 属性，或者设定 position 属性为 absolute ，......
ASP获得真实IP地址(2006-06-04 13:27:00)
摘要：<% dim userip,userip2 userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") userip2 = Request.ServerVariables("REMOTE_ADDR") if userip = "" then response.write "<font color=white face=宋体 size=2>" &"你的真实IP是："&userip2&" ^_^"&"</font>" else response.write "<font color=white face=宋体 size=2>" &"你的真实IP是："&userip&" ^_^"&"</font>" end if %>......
ASP连接ACCESS数据库用(2006-06-04 13:13:00)
摘要：<% '==================说明========================'2006-06-04整理'风轻轻 Yang2jun@msn.com 43180150%><%Option ExplicitResponse.Buffer = true%><%Dim Conn,ConnStr,DBPathDBPath = "../admin/data/db.mdb"'数据库加有密码时用'=============================================='ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& Server.MapPath(DBPath) &";Jet OLEDB:Database Password=*****"'==============================================ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& Server.MapPath(DBPath)On Error Resume NextSet Conn = Server.CreateObject("ADODB.Connection")Conn.Open ConnStrIf Err Then Err.Clear Conn.Close Set Conn = Nothing '调试时用 '===================开始==================== 'Response.Write("数据库链接出错，请检查链接字符串。") 'Response.End()'Else 'Response.Write("数据库链接成功！") 'Response.End() '===================结束===========......
用adodb及Dictionary向数据库插入数据(2006-05-25 17:37:00)
摘要：非常方便,特别是用在很多内容的时候.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="inc/conn.asp" --><!--#include file="inc/md5.asp" --><% Dim oDic,oRs,oKeyset oDic = Server.CreateObject("Scripting.Dictionary")for each oKey in Request.Form oDic.add oKey,trim(request.Form.item(oKey))next'根据实际需要重新设置集合中的值'更改adminpsw的值oDic.item("adminpsw") = md5(oDic.item("adminpsw")) '删除无用的值，一定要删除，否则会出错oDic.remove "Submit"oDic.remove "cpsw"set oRs = server.CreateObject("adodb.recordset")with oRs .open "admin",conn,3,3 .addnew for each oKey in oDic .Fields(oKey) = oDic.item(oKey) next .update .closeend with%>
......