delinsql的专栏

原创 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)

原创 北京招聘workplace实施工程师

有兴趣的加我MSN [email protected] 详谈 

原创 TABLE

原创 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&"

原创 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

原创 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    

原创 MS WEB SKILL OK

 oooooooooooooooooooooooooo

原创 ACCSEE

 難道連password ,memo都是access2003的關鍵字?這個白癡微軟

原创 WEB SKILL

原创 SharpDevelop 最新版

http://osdn.dl.sourceforge.net/sourceforge/sharpdevelop/SharpDevelop_2.1.0.2201_Beta3.msi 

原创 WEB SKILL 2

 MicroSoft home page from blue to red skill:一:在父窗体中打开链接, 子窗体里添加:在父窗体中打开链接  二:关闭时刷新父窗体, 子窗体里添加: 三:子窗体向父窗体传递参数, 子窗体里添加:function Import(getvalues) {   window.opener.form1.getxt.value=getvalues;  wind

原创 WEB SKILL HOT KEY

function onkey(){  if (event.keyCode==13)    alert("OK");    // b1_onclick()}//--> 

原创 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

原创 Font Size

 self.moveTo(0,0)self.resizeTo(screen.availWidth,screen.availHeight)//-->function pp(){close();}               網頁技巧        .style2 {color: #0000CC}-->                     網頁技巧篇：　　　　　　　　　　　　　　　　　　　　　

原创 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; 

原创 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

原创 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

原创 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

原创 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