- 博客(19)
- 收藏
- 关注
原创 Response.ContentType = "application/vnd.ms-excel"
Response.ContentType = "application/vnd.ms-excel" dim pj(6),aa(6),bb(6),cc(6),dd(6),ee(6),ff(6),gg(6),hh(6),ii(6),jj(6),kk(6),lll(6)function chanshow(sssss)if trim(sssss)="1900/1/1" or trim(sssss)
2007-03-08 17:15:00 5651
原创 OPENCLOSE
function changetype(yyyymmdd)yyyy=year(yyyymmdd)mm=month(yyyymmdd)dd=day(yyyymmdd)if len(mm)=1 thenmm=0&mmend ifif len(dd)=1 thendd=0&ddend ifif len(dd&"/"&mm&"/"&yyyy)changetype=""elsechangetype=dd&"
2007-03-02 14:28:00 823
原创 notes sql
Option PublicUselsx "*LSXODBC"Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim Conn As Variant Dim EmpRS As Variant Dim DBConStr As String Dim SQLCmd As St
2007-02-06 14:46:00 1115
原创 NEW WEB SKILL OK
set rss=server.CreateObject("adodb.recordset")sql="select pinpai from pinpai order by id"rss.Open sql,cn,1,1do while not rss.eof%> > rss.movenext loop set rss=nothing
2007-02-06 14:41:00 601
原创 SharpDevelop 最新版
http://osdn.dl.sourceforge.net/sourceforge/sharpdevelop/SharpDevelop_2.1.0.2201_Beta3.msi
2007-01-09 23:37:00 948
原创 WEB SKILL 2
MicroSoft home page from blue to red skill:一:在父窗体中打开链接, 子窗体里添加:在父窗体中打开链接 二:关闭时刷新父窗体, 子窗体里添加: 三:子窗体向父窗体传递参数, 子窗体里添加:function Import(getvalues) { window.opener.form1.getxt.value=getvalues; wind
2006-12-29 16:17:00 1838
原创 WEB SKILL HOT KEY
function onkey(){ if (event.keyCode==13) alert("OK"); // b1_onclick()}//-->
2006-12-29 15:57:00 727
原创 ASP无组件上载,带进度条,多文件上载。。 is error , i modify it then OK...............
ASP无组件上载,带进度条,多文件上载。。 is error , i modify it then OK............... Example.asp%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>此例子文档编码都是UTF-8,如果是其他编码的系统,请将编码转换为相应的编码,不然表单获取数据可能会乱码Dim objUpload,optDim xml
2006-12-29 15:30:00 4710 2
原创 Font Size
self.moveTo(0,0)self.resizeTo(screen.availWidth,screen.availHeight)//-->function pp(){close();} 網頁技巧 .style2 {color: #0000CC}--> 網頁技巧篇:
2006-12-29 12:30:00 859
原创 MS WEB SKILL
//self.moveTo(-10,-10)//self.moveTo(0,0) //self.moveTo(-5,-5)//self.resizeTo(screen.availWidth+10,screen.availHeight+10)function doFAQline() { var srcId, srcElement, targetElement;
2006-12-29 12:17:00 1248
原创 Convert.htm Excel
function next(){location.href="cs2.asp"} body { font-size: 12px;}.itm{ FONT-SIZE: 12px; COLOR: navy; FONT-FAMILY: 新細明體, 細明體}.itmRed{ FONT-SIZE:12px; COLOR:red; FONT-FAMILY:新細明體, 細明體}.style5
2006-12-29 08:54:00 641
原创 ASP CHAT
disable=0 開關此頁面if trim(request.ServerVariables("REMOTE_ADDR"))"172.16.3.0" and trim(request.ServerVariables("REMOTE_ADDR"))response.redirect("http://itd016")end if%>window.close();response.endend
2006-12-28 16:43:00 609
原创 Notes WINAPI
Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypeDeclare Function ClipCursor& Lib "user32" (lpRect As RECT)Sub Click(Source As Button) Dim x As rect x.left=400 x.top=400 x.righ
2006-12-28 16:40:00 532
原创 Notes Connect SQL
REMOTE EXECUTESub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim Conn As Variant Dim EmpRS As Variant Dim DBConStr As String Dim SQLCmd As String Dim NewUs
2006-12-28 16:36:00 633
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人