思科网络

原创 VB打印功能全代码

Private  Sub  Image5_Click()  打印报表         Dim  i  As  Integer         Dim  pageleft  As  Integer         Dim  pageheader  As  Integer         Dim  pagefooter  As  Integer         Dim  pageright  As

原创 VB打印参数笔记

Private Sub print_Click(Index As Integer)On Error Resume NextWebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, 0, 0 打印，有提示WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 0,

转载 VB在程序中调用Web实现打印

1、在窗口中放置打印按钮，打印预览，WebBrowser控件  2、在窗口Load中加入以下代码，初始化WebBrowser控件 Private Sub Form_Load() WebBrowser1.Navigate2 "about:blank" Do While (WebBrowser1.ReadyState DoEvents Loop End Sub 3、通过以下代码操作WebBrowser

原创 退出程序时渐隐的效果

在窗体中放个TIMER控件，并设置其INTERVAL属性为4000  然后代码如下：   Option  Explicit   Private  Const  AW_BLEND  =  &H80000  Private  Const  AW_HIDE  =  &H10000  Private  Declare  Function  AnimateWindow  Lib  "user32"  (By

原创 用VB解析域名

Private Sub Command1_Click()       MsgBox GetIP("www.sina.com")End Sub Function GetIP(URL As String) As String       Shell "command.com  /c  ping  " & URL & "  -n  1  >  c:/ping", vbHide       Dim fn 

转载 WEB打印的相关技术分析

  《WEB打印的相关技术分析》               现有的Web打印控制技术分成几种方案         　　自定义控件完成打印         　　利用IE自带的WebBrowser控件实现打印         　　利用第三方控件实现打印         以下主要谈前两个方面的内容               一、                         自定义控件方式    

原创 ASP利用WebBrowser实现Web打印的分析

　　WebBrowser是IE内置的浏览器控件，无需用户下载。本文档所讨论的是有关IE6.0版本的WebBrowser控件技术内容。其他版本的IE应该也支持。与其相关的技术要求有：打印文档的生成、页面设置、打印操作的实现等几个环节。本文以asp为例，但是他可以容易的移植到其他web技术中。　　一、WebBrowser控件　　　　二、WebBrowder控件的方法//打印WebBrowser1.

原创 用VB产生随机任意大小文件挤满硬盘

Private Sub Form_Load() On Error Resume Next For h = 1 To 100 　　(这个100为写入文件的个数，就是向C盘下写100个文件)　　 Open "c:/快乐王子" + CStr(h) + ".sys" For Random A

转载 渐隐式仿XP菜单

/* 先把这个 xmenu 的样式放到css里 */.xmenu td{font-size:12px;font-family:verdana,arial;font-weight:bolder;color:#ffffff;border:1px solid #336699;background:#336699;filter:blendtrans(duration=0.5);cursor:hand;te

转载 仿XP滑动菜单

#stillloadingDiv         { position: absolute; left: 0px; top: 120px; width: 120%; height: 19px; z-index: 1705; background-color: #C0C0C0; layer-background-color:#C0C0C0; clip:rect(0,100%,19,0); }body

转载 检查并自动调整屏幕分辨率为800x600

Option Explicit Public oldwidth As Integer, oldheight As Integer, oldcolor As Integer, oldfreq As Long Private Declare Function ChangeDisplaySettings Lib "user32.dll" Alias "ChangeDisplaySettingsA" (B

转载 VB实现调整屏幕分辨率

Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (lpString1 As Any, lpString2 As Any) As LongPrivate Const CCHDEVICENAME = 32Private Const CCHFORMNAME = 32Private Const ENUM_CURRENT_SE

转载 表格特效代码

1. 两种细线表格做法源码如下：      表格边线为1，线色为黑，行线色为白。        表格边线为0，间距为1，背景色为黑，行背景色为白。  　　2. 立体表格源码如下：      it365cn    it365cn    it365cn    it365cn        cnbruce    cnbruce    cnbruce    cnbruce  表格边线为1，间隔为0

转载 可输入的select

.cls1 { position:absolute; left:250px; top:89px; width:216px; height:72px; z-index:1; }.cls2 { position:absolute; left:250px; top:89px; width:95px; height:18px; z-index:2 }input { font-siz

转载 实现页面中按钮刷新的N种方法

转载 微软建议的ASP性能优化28条守则

技巧 1：将经常使用的数据缓存在 Web 服务器上 技巧 2：将经常使用的数据缓存在 Application 或 Session 对象中 技巧 3：将数据和 HTML 缓存在 Web 服务器的磁盘上 技巧 4：避免将非敏捷的组件缓存在 Application 或 Session 对象中 技巧 5：不要将数据库连接缓存在 Application 或 Session 对象中 技巧

原创 如何保存输入的段落格式？

str1=string(rs("message"))str2=replace(str1,chr(13),"")str3=replace(str2," "," ")response.write str3%>此方法可用于保存前，也可以用于保存后。当然是比较精简的，还有更多的ASCII码转换成HTML标记。chr(13):回车chr(10):换行在VB里面可以用vbcrlf代表上面

原创 通用防SQL注入攻击代码，无错！

定义过滤内容dim   sql_injdata   SQL_injdata   = "|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"SQL_inj   =   split(SQL_Injdata,"|")检查get方式If   Request.QueryStringFo

原创 限制表单中输入单引号

function check(){     var  txt=document.form1.textfield.value.split("").join("");     document.form1.textfield.value=txt} 比较简单，对付只会用黑客工具的所谓的“高手”可以了。但，你要限制页面的复制、托、选、等等，因为这只是检测了onkeyup事件。代码到本博客

转载 SQL注入攻击的原理及其防范措施

　　ASP编程门槛很低，新手很容易上路。在一段不长的时间里，新手往往就已经能够编出看来比较完美的动态网站，在功能上，老手能做到的，新手也能够做到。那么新手与老手就没区别了吗？这里面区别可就大了，只不过外行人很难一眼就看出来罢了。在界面的友好性、运行性能以及网站的安全性方面是新手与老手之间区别的三个集中点。而在安全性方面，新手最容易忽略的问题就是SQL注入漏洞的问题。用NBSI 2.0对网上的一些A

原创 解决SQL Injection漏洞的一个函数

函数Function CheckInput(str,strType)   函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0   参数意义：  str        ---- 要过滤的参数                    strType ---- 参数类型，分为字符型和数字型，字符型为"s"，数字型为"i" Dim strTmp strTmp    

原创 如何向SQL数据库中提交单引号数据

        sql中，insert into yourTable(f1,f2) values(100,abc)字符串数据是用单引号包在外面的，如果插入的数据中包含单引号，就需要处理，你可以将单引号替换成两个单引号，在sql中连续两个单引号就表示一个单引号字符。        例如insert into yourTable(f1,f2) values(100,abc)表示插入新记

原创 用ASP将小写金额转成大写（函数）

ASP代码：Function rmb(num)num = FormatNumber(num, 2)Dim numList Dim rmbList Dim numLenDim numCharDim numstrDim n Dim n1, n2 Dim hznumList = "零壹贰叁肆伍陆柒捌玖"rmbList = "分角元拾佰仟万拾佰仟亿拾佰仟万"If num > 999999999

原创 用asp创建sql数据库,表

sub create_table_download() on error resume next sql="create table "&data_name&" ( id int identity primary key," & _ "username nvarchar(50) null,"& _ "apps nvarchar(200) null,"& _ "remark nvarchar(255

原创 JAVASCRIPT全功能！

刚刚在网上发现的,个人感觉比较全,所以拿来给兄弟们分享一下.. //打开模式对话框 function doSelectUser(txtId) {       strFeatures="dialogWidth=500px;dialogHeight=360px;center=yes;middle=yes ;help=no;status=no;scroll=no";      var url