if end if

' To use the regtool.ocx, please download http://www.jb51.net/jslib/regtool.ocx, please regsvr32 regtool.ocx before use Set WshShell = CreateObject ("Wscript.Shell") Set registry = CreateObject ("Regtool.tob") ' Get a Dictionary object to store the

ASP in the most headaches is the debugging process is inconvenient, I think many friends will use such a method "Response.Write", and then output related statements to see whether the correct. A few days ago wrote a thousands of lines of the page,

"Get the address of the visitor Ip=request.servervariables ("REMOTE_ADDR") ' The allowed IP address segment is 10.0.0.0~10.68.63.255 allowip1= "10.0.0.0" Allowip2= "10.68.10.71" Response.Write Checkip (IP,ALLOWIP1,ALLOWIP2) function Checkip

Dim rs,sql,htmlcontent Dim Channelrootdir,strinstalldir,strindexname Dim flashid,downid,showurl,errmsg Dim Strtitle,straddress,addtime Dim allhits,introduce,filesize Dim Htmlfileurl,htmlfilename,strurl Newasp.readchannel (Channelid) Channelrootdir =

How do I invoke netmessagebuffersend to send a message? Problem Description: How do I invoke the API function under WINNT/2K/XP netmessagebuffersend the analog net send command to send a message? Solution: The following code has been

Search engine The following is the Urlindex table in the library: the URL and keywords fields are indexed separately. URL Text (index: There is (No duplicates))Title textDescription textSummary textKeywords Text (index: There is (No

No Components | verification Code Option Explicit ' Display declaration Class Com_gifcode_class'''''''''''''''''''''''''''''''''''''''''''''' Author:layen support@ssaw.net 84815733 (QQ)' Thanks:laomi, Laomiao, Netrube' 2006-01-02'''''''''''''''''''''

Simple Introduction ASPs are so simple that many developers don't think about error handling. Error handling can make your application more reasonable. I've seen many commercial Web sites written in ASP, most of them ignoring error handling. Type of

Code Separation index.asp ----------------------------------------------------------------------- ' This is the code used to load and display the template. ' How to clean it '!!! :) Sub Go () Dim otemplate Set otemplate = new template With

Source Code | cheating | Voting system This is the previous page of the voting code. Click on this page to vote. Response.Cookies ("cook") = "yes" %> Here is the voting page code ifRequest.Cookies ("Cook") <> "yes" then Response.Write "

Copy Code code as follows: Option Explicit ' Display declaration Class Com_gifcode_class ''''''''''''''''''''''''''''''''''''''''''''' ' Author:layen support@ssaw.net 84815733 (QQ) ' Thanks:laomi, Laomiao, Netrube ' 2006-01-02 '''''''''''

Less nonsense, please look at the code: Runquery.asp ' Dsnless connection to Access Database Strdsnpath = "Provider=msdasql;driver={microsoft Access DRIVER (*.mdb)};D bq=" & Server.MapPath ("Testdb.mdb") %> please copy this file

Keyword class feature. Replaces the passed-in string as an expression following the SQL statement where keyword: Word search [For example: Xiaoming] Phrase Search Every word in a phrase will be retrieved For example: Xiao Qiang 1 nickname 1 small

Encryption | array | String public Function ary (str) Dim A () Dim B () Dim lenstr ' string length Dim I, j ' Loop variable Dim Ouflag LENSTR = Len (str) If lenstr Mod 2 = 1 Then ' The length is singular Ouflag = False LENSTR = lenstr + 1 ReDim A (2,

The shortcomings of > of dynamic Paging in ASP and suggestions for amendment Oh, can enter the essence area? It took me a day. Two brother Zhang > I am very inspired by the article, but there are some deficiencies in my thinking. One is unable to

Capital | Renminbi ' converts the digital representation of the renminbi into a capital representation (VB. NET edition) ' This Code reference chenyu001 ' Convert a digital representation of the renminbi into a capital letter (C # Edition) ' Http:

Managed Keywords: vb.net DirectX DirectDraw 9 Author: Dong Gangjun Reprint please indicate from: http://blog.csdn.net/a11s ================ below is nonsense (keeping a diary is a good habit) =============== Should have continued to DirectSound

Abstract: In VB6, Treeview is often used to represent hierarchical data. Code , Requires a large number of manual encoding; in VB. net, due to the enhancement of the Data Binding function and the enhancement of the language features, it is easy to

Determine the task expiration time: Code Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> Create   Or   Replace   Function Geturgentstate (m_taskid Varchar2 ,M_sendtime date,M_flag

Syntax Rules:Create [or replace] trigger [mode.] trigger name Before | after insert | Delete | (update of column name) On Table Name [For each row] When Condition PL/SQL Block Note: The meaning of for each row is that in a statement that operates a