亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

蟲蟲首頁| 資源下載| 資源專輯| 精品軟件
登錄| 注冊(cè)

CreateObject

  • Geoprocessor Programming Model Use CreateObject to create a Spatial Reference, a Value Table, or

    Geoprocessor Programming Model Use CreateObject to create a Spatial Reference, a Value Table, or a FieldInfo Object

    標(biāo)簽: Geoprocessor CreateObject Programming Reference

    上傳時(shí)間: 2013-12-23

    上傳用戶:天涯

  • VB6.0動(dòng)態(tài)加載ActiveX控件漫談

    熟悉VB的朋友對(duì)使用ActiveX控件一定不會(huì)陌生,眾多控件極大地方便了編程,但唯一的缺陷是不能動(dòng)態(tài)加載控件,必須在設(shè)計(jì)時(shí)通過引用,將控件放置在窗體上。VB6.0已能夠解決該問題,只是幫助中沒有明確說明,并且沒有描述到一些關(guān)鍵功能,由于以前的版本中可以動(dòng)態(tài)創(chuàng)建進(jìn)程外服務(wù):如果對(duì)象是外部可創(chuàng)建的,可在 Set 語句中用 New 關(guān)鍵字、CreateObject 或 GetObject 從部件外面將對(duì)象引用賦予變量。如果對(duì)象是從屬對(duì)象,則需使用高層對(duì)象的方法,在 Set 語句中指定一個(gè)對(duì)象引用:

    標(biāo)簽: ActiveX 6.0 VB 動(dòng)態(tài)加載

    上傳時(shí)間: 2014-01-26

    上傳用戶:taa123456

  • <%@ LANGUAGE="VBSCRIPT" %> <!--#include file="conn.asp" --> <% ProductClass_2=requ

    <%@ LANGUAGE="VBSCRIPT" %> <!--#include file="conn.asp" --> <% ProductClass_2=request("ProductClass_2") set rs=server.CreateObject("adodb.recordset") sqltext="select * from Product" if request("Product_Name")<>"" then sqltext=sqltext &" where Product_Name like %"& request("Product_Name") &"% " else sqltext=sqltext &" where Product_Name like %"& "" &"% " end if if request("Product_Class")<>"" then sqltext=sqltext &" and Class_1 like %"& request("Product_Class") &"% " end if

    標(biāo)簽: ProductClass lt LANGUAGE VBSCRIPT

    上傳時(shí)間: 2013-11-25

    上傳用戶:wl9454

  • <%@ LANGUAGE="VBSCRIPT" %> <!--#include file="conn.asp"--> <% set rs=server.create

    <%@ LANGUAGE="VBSCRIPT" %> <!--#include file="conn.asp"--> <% set rs=server.CreateObject("adodb.recordset") sqltext="select * from RegUser where UserId= " & request.form("uid") & " " rs.open sqltext,co

    標(biāo)簽: lt LANGUAGE VBSCRIPT include

    上傳時(shí)間: 2013-12-08

    上傳用戶:yuanyuan123

  • 一個(gè)瀏覽縮小圖的組件

    一個(gè)瀏覽縮小圖的組件,專為像創(chuàng)建在線相冊(cè)薄等以網(wǎng)絡(luò)為基礎(chǔ)的應(yīng)用程序開發(fā)服務(wù)。 name:www.chinaz.com sn:48958-77556-02411 name:chinaz sn:71316-48529-38722 安裝的時(shí)候 填入name:后面的用戶名 例如 www.chinaz.com 然后在程序?qū)? Set jpg = Server.CreateObject("Persits.Jpeg") jpg.RegKey = "48958-77556-02411"

    標(biāo)簽:

    上傳時(shí)間: 2014-01-03

    上傳用戶:aa17807091

  • asp實(shí)現(xiàn)限制一個(gè)ip只能訪問一次的方法

    asp實(shí)現(xiàn)限制一個(gè)ip只能訪問一次的方法 <%  '/////////////////////////////////////////////////////  '// //  '//作用:一個(gè)IP地址只允許訪問本頁一次 //  '//引用:<!-- #include file="Check_Ip.asp" --> //  '// //  '/////////////////////////////////////////////////////    'Response.Charset = 936 '設(shè)置輸出編碼為簡(jiǎn)體中文  'Response.Buffer = false '關(guān)閉緩沖區(qū)    Dim Fso,ts,IpList,Cfs    '設(shè)置Cookies函數(shù)  Function SetCookie()  Response.Cookies("IsBrow") = "Brow" Response.Cookies("IsBrow").Expires = Date+365  End Function    '記錄IP地址函數(shù)  Function WriteIp(FileName, IpAddress)  Set Fso = Server.CreateObject("Scripting.FileSystemObject")  Set ts = Fso.OpenTextFile(Server.MapPath(FileName),8,true)  ts.WriteLine IpAddress  ts.Close  Set ts = Nothing  Set Fso = Nothing  End Function    '讀取IP地址函數(shù)  Function ReadIpList(FileName)  Set Fso = Server.CreateObject("Scripting.FileSystemObject")  If Not Fso.FileExists(Server.MapPath(FileName)) Then  CreateFile("Iplist.txt")  Exit Function  End If    Set ts = Fso.OpenTextFile(Server.MapPath(FileName))  Iplist = ts.ReadAll  ts.Close  Set ts = Nothing  Set Fso = Nothing  ReadIpList = Iplist  End Function    '創(chuàng)建文件函數(shù)  Function CreateFile(FileName)  Set Fso = Server.CreateObject("Scripting.FileSystemObject")  Set Cfs = Fso.CreateTextFile(Server.MapPath(FileName))  Cfs.Close  Set Cfs = Nothing  Set Fso = Nothing  End Function    '關(guān)閉當(dāng)前IE窗口函數(shù)(注:IE6下通過,其他瀏覽器未測(cè)試)  Function CloseWindow()  'Response.Write "<script>window.location='javascript:window.opener=null;window.close();'</script>"  Response.Redirect "http://www.baidu.com" End Function    Ip = Request.ServerVariables("REMOTE_ADDR") '獲取瀏覽者IP地址    Cookie = Request.Cookies("IsBrow") '獲取當(dāng)前Cookies  'Response.Write Cookie    If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then  Response.Write "本站不允許使用代理訪問" Response.End()  Else  If Cookie = "Brow" Then  CloseWindow()  Else  If Instr(ReadIpList("Iplist.txt"),Ip) <>0  Then  CloseWindow()  Else  WriteIp "Iplist.txt" , Ip  End If  SetCookie()  End If  End If  %>

    標(biāo)簽: asp 訪問

    上傳時(shí)間: 2016-07-14

    上傳用戶:helei0915

主站蜘蛛池模板: 新化县| 平果县| 江永县| 千阳县| 凤冈县| 盘山县| 凤冈县| 隆子县| 枣强县| 沂源县| 义马市| 曲周县| 龙江县| 明水县| 乐至县| 三穗县| 白玉县| 吐鲁番市| 嘉峪关市| 津市市| 阿克苏市| 天镇县| 梨树县| 朝阳县| 洪雅县| 西吉县| 河北区| 秀山| 调兵山市| 望江县| 阜宁县| 宣恩县| 老河口市| 十堰市| 淮阳县| 筠连县| 同德县| 格尔木市| 宁河县| 阳东县| 天台县|