2007年09月_fionahd

12月 11月 10月 09月

转载在VBScript中使用类

前言首先，在我进入实质性主题并解释如何建立类之前，我希望保证你知道“对象”。虽然你可以在程序中使用对象而不用知道其正确的规则，但我并不建议如此！对于对象的初学者，接下来的部分将让你了解其概念及内容。已经了解面向对象编程（OOP）的读者可以跳过这章节。导论 l “对象是什么？”——对象通常代表某种实体，主要是一个变量和函数的集合。

2007-09-25 21:16:00 495

转载 CSS技巧：!important和空格的组合技巧及其他

先温习一下对于IE的box-model的破解 IE box-model这个臭名昭著的bug存在于IE6/Win以前的每一只版本，这个虫子直到tantak发布了流传最为广泛的那个hack才开始被驯服。 http://www.tantek.com/CSS/Examples/boxmodelhack.html IE5.X/win对box-model的解析是一样的，他们认为wi

2007-09-25 21:06:00 889

转载 CSS布局中!important的用法

在IE和其他(Mozilla、Opera等)浏覽器裏顯示的效果常常會偏差2px。這是因爲IE對盒之間距離的解釋的bug造成的。一個技巧提示幫我們找到了解決的方法：用!important。!important是CSS1就定義的語法，作用是提高指定樣式規則的應用優先權。語法格式{ sRule!important }，即寫在定義的最後面，如：例:box{color:red !important;

2007-09-25 21:04:00 1184

转载 print screen

1、代替屏幕截图软件按下Print Screen键，将会截取全屏幕画面。用鼠标点击“开始→程序→附件→画图”，将会打开“画图”程序，点击该窗口中的“编辑→粘贴”菜单，这时会弹出一个“剪贴板中的图像比位图大，是否扩大位图？”对话框，点击“是”，就会将该截取的图片粘贴到其中。再按下Ctrl+S

2007-09-25 21:03:00 1148

转载 Request.ServerVariables获取环境变量

//杨义贤总结Request.ServerVariables("HTTP_X_FORWARDED_FOR") 透过代理服务器取得客户端的真实IP地址，有些用此方法读取到的仍然是代理服务器的IP。还有一点需要注意的是：如果客户端没有通过代理服务器来访问，那么取到的值将是空的。Request.ServerVariables("Url") 返回服务器地址Request.ServerVaria

2007-09-25 20:15:00 397

转载华为软件编程规范和范例

=====[ 排版 ]===== ¹1-1 ：程序块要采用缩进风格编写，缩进的空格数为4 个说明：对于由开发工具自动生成的代码可以有不一致。 ¹1-2 ：相对独立的程序块之间、变量说明之后必须加空行示例：如下例子不符合规范。if (!valid_ni(ni)){ ... // program code}repssn_ind = ssn

2007-09-25 20:09:00 538

转载 asp连接数据库的方法(全)

MySQL "Driver={mysql};database=yourdatabase;uid=username;pwd=yourpassword;option=16386;"asp连接数据库的方法(全)ADO相关知识在ASP中，用来存取数据库的对象统称ADO（Active Data Objects），主要含有三种对象：Connection、Recordset 、Command Conn

2007-09-25 20:07:00 563

转载 Meta标签详解

　　您的个人网站即使做得再精彩，在“浩瀚如海”的网络空间中，也如一叶扁舟不易为人发现，如何推广个人网站，人们首先想到的方法无外乎以下几种：　　　　●　在搜索引擎中登录自己的个人网站　　　　●　在知名网站加入你个人网站的链接　　●　在论坛中发帖子宣传你的个人网站　　很多人却忽视了HTML标签META的强大功效，一个好的META标签设计可以大大提高你的个人网站被搜索到的可能性，有兴趣吗，谁我来

2007-09-25 20:03:00 392

转载实现文本打印打印机属性设置

Printer 对象常数打印机颜色模式常数值描述 vbPRCMMonochrome 1 单色输出 vbPRCMColor 2 彩色输出双面打印常数值描述 vbPRDPSimplex 1 单面打印 vbPRDPHorizontal 2 双面水平打印 vbPRDPVertical 3 双面垂直打印打印方向常数值描述 vbPRORPortrait 1 文档打印以纸的窄边作顶

2007-09-25 20:00:00 3014

原创一页上显示多个图片自动切换

% dim i,j,pic,pagenum if cint(request("id"))0 then sql="select * from news where type=0 order by orders,id desc" else sql="select * from news where id="&cint(request("id")) end i

2007-09-24 23:51:00 1313

原创文本分页（待修改）

% dim totaltext,templinenum,pnum dim a,b,c dim w,h,pagecounter function pagetext(str) w = 43 h = 17 totaltext = split(str,"") templinenum = 0 pagecounter = 1

2007-09-24 23:31:00 420

原创打印时按需要自动缩放文本尺寸且强制换行

Dim mark As Single Dim g As Graphics = e.Graphics Dim str As String Dim i As Integer Dim temp() As String Dim myfix As Drawing2D.Matrix = New Drawing2D.Matrix Dim size As SizeF Dim

2007-09-24 23:22:00 987