- 博客(25)
- 资源 (6)
- 收藏
- 关注
原创 VB打印功能全代码
Private Sub Image5_Click() 打印报表 Dim i As Integer Dim pageleft As Integer Dim pageheader As Integer Dim pagefooter As Integer Dim pageright As
2006-04-27 18:59:00 6492 3
原创 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,
2006-04-27 18:18:00 1894
转载 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
2006-04-27 16:51:00 1811
原创 退出程序时渐隐的效果
在窗体中放个TIMER控件,并设置其INTERVAL属性为4000 然后代码如下: Option Explicit Private Const AW_BLEND = &H80000 Private Const AW_HIDE = &H10000 Private Declare Function AnimateWindow Lib "user32" (By
2006-04-27 15:19:00 872
原创 用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
2006-04-27 15:01:00 1869
转载 WEB打印的相关技术分析
《WEB打印的相关技术分析》 现有的Web打印控制技术分成几种方案 自定义控件完成打印 利用IE自带的WebBrowser控件实现打印 利用第三方控件实现打印 以下主要谈前两个方面的内容 一、 自定义控件方式
2006-04-27 00:50:00 844
原创 ASP利用WebBrowser实现Web打印的分析
WebBrowser是IE内置的浏览器控件,无需用户下载。本文档所讨论的是有关IE6.0版本的WebBrowser控件技术内容。其他版本的IE应该也支持。与其相关的技术要求有:打印文档的生成、页面设置、打印操作的实现等几个环节。本文以asp为例,但是他可以容易的移植到其他web技术中。 一、WebBrowser控件 二、WebBrowder控件的方法//打印WebBrowser1.
2006-04-27 00:18:00 1114 1
原创 用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
2006-04-26 23:27:00 873
转载 渐隐式仿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
2006-04-21 14:19:00 962
转载 仿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
2006-04-21 13:36:00 1030
转载 检查并自动调整屏幕分辨率为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
2006-04-19 08:58:00 1684
转载 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
2006-04-19 08:36:00 3493 1
转载 表格特效代码
1. 两种细线表格做法源码如下: 表格边线为1,线色为黑,行线色为白。 表格边线为0,间距为1,背景色为黑,行背景色为白。 2. 立体表格源码如下: it365cn it365cn it365cn it365cn cnbruce cnbruce cnbruce cnbruce 表格边线为1,间隔为0
2006-04-17 22:53:00 884
转载 可输入的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
2006-04-16 12:01:00 923
转载 微软建议的ASP性能优化28条守则
技巧 1:将经常使用的数据缓存在 Web 服务器上 技巧 2:将经常使用的数据缓存在 Application 或 Session 对象中 技巧 3:将数据和 HTML 缓存在 Web 服务器的磁盘上 技巧 4:避免将非敏捷的组件缓存在 Application 或 Session 对象中 技巧 5:不要将数据库连接缓存在 Application 或 Session 对象中 技巧
2006-04-11 17:26:00 1005
原创 如何保存输入的段落格式?
str1=string(rs("message"))str2=replace(str1,chr(13),"")str3=replace(str2," "," ")response.write str3%>此方法可用于保存前,也可以用于保存后。当然是比较精简的,还有更多的ASCII码转换成HTML标记。chr(13):回车chr(10):换行在VB里面可以用vbcrlf代表上面
2006-04-09 23:41:00 979
原创 通用防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
2006-04-07 17:51:00 1269
原创 限制表单中输入单引号
function check(){ var txt=document.form1.textfield.value.split("").join(""); document.form1.textfield.value=txt} 比较简单,对付只会用黑客工具的所谓的“高手”可以了。但,你要限制页面的复制、托、选、等等,因为这只是检测了onkeyup事件。代码到本博客
2006-04-07 16:59:00 1124
转载 SQL注入攻击的原理及其防范措施
ASP编程门槛很低,新手很容易上路。在一段不长的时间里,新手往往就已经能够编出看来比较完美的动态网站,在功能上,老手能做到的,新手也能够做到。那么新手与老手就没区别了吗?这里面区别可就大了,只不过外行人很难一眼就看出来罢了。在界面的友好性、运行性能以及网站的安全性方面是新手与老手之间区别的三个集中点。而在安全性方面,新手最容易忽略的问题就是SQL注入漏洞的问题。用NBSI 2.0对网上的一些A
2006-04-07 15:35:00 828
原创 解决SQL Injection漏洞的一个函数
函数Function CheckInput(str,strType) 函数功能:过滤字符参数中的单引号,对于数字参数进行判断,如果不是数值类型,则赋值0 参数意义: str ---- 要过滤的参数 strType ---- 参数类型,分为字符型和数字型,字符型为"s",数字型为"i" Dim strTmp strTmp
2006-04-07 15:23:00 1079
原创 如何向SQL数据库中提交单引号数据
sql中,insert into yourTable(f1,f2) values(100,abc)字符串数据是用单引号包在外面的,如果插入的数据中包含单引号,就需要处理,你可以将单引号替换成两个单引号,在sql中连续两个单引号就表示一个单引号字符。 例如insert into yourTable(f1,f2) values(100,abc)表示插入新记
2006-04-07 15:11:00 1665
原创 用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
2006-04-06 12:36:00 2606
原创 用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
2006-04-05 14:55:00 1933
原创 JAVASCRIPT全功能!
刚刚在网上发现的,个人感觉比较全,所以拿来给兄弟们分享一下.. //打开模式对话框 function doSelectUser(txtId) { strFeatures="dialogWidth=500px;dialogHeight=360px;center=yes;middle=yes ;help=no;status=no;scroll=no"; var url
2006-04-05 12:32:00 1559
税控发票开票软件发票信息数据接口规范V5.0
2023-03-18
管理WINDOWS服务的两个小程序InstSrv、Srvany
2014-05-17
ACCESS数据库二进制图片转换导出工具
2009-10-30
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人