ASP

First method: This is the code that deletes the picture of the word segment. Simple, because the picture field already exists in the Bookpic field of the database table. Copy Code code as follows: Fileid=trim (Request ("Fileid")) '

Copy Code code as follows: Dim fso,objfolder,objfiles Dim filelist Set fso=server.createobject ("Scripting. FileSystemObject ") Set Objfolder=fso. GetFolder (server. MAPPATH ("thumbs")) Set Objfiles=objfolder.files ' The filename of the

Copy Code code as follows: function Astro (birth) Astro= "" If birth= "" or not IsDate (birth) Then Exit function Birthmonth=month (birth): If BirthmonthBirthday=day (birth): If BirthdayBirth=trim (Birthmonth & Birthday) ' Reforming month,

Yesterday I saw an anti-capture software on the Internet, said acquisition only access to the current page, will not visit the Web page pictures, JS, and so on, today suddenly thought, through the dynamic program and JS access to record the IP of

Copy Code code as follows: function Getbot () ' Query spider Dim s_agent Getbot= "" S_agent=request.servervariables ("Http_user_agent") ' critical judgment statement If InStr (1,s_agent, "Googlebot", 1) >0 Then getbot= "Google"

Copy Code code as follows: Set studentinstance = Createstudent () If not IsNull (studentinstance) Then Response.Write ("StudentID:" &studentinstance.) studentid& "") Response.Write ("Studentname:" &studentinstance.) studentname& "") End If

Copy Code code as follows: '/* Function name: zxj_replacehtml clearhtml '/* Function language: VBScript Language '/* Function: Clear file HTML Format function '/* Pass parameters: Content (note: What needs to be cleared) '/* Function Author:

function GetCache, the desired cache is automatically created. Copy Code code as follows: Function GetCache (Funsname,isreset,isarr,timeinfo) ' funsname-need to cache the content, here to enter a function name ' isreset– Update [value:

Language.xml Copy Code code as follows: Simplified Chinese SimpilifiedChinese images Traditional Chinese TraditionalChinese imagesBig5 ddd Sl.asp Copy Code code as

' Processing receive paging parameters, display page number is also default first ' Page This parameter is to let the variable Pagenum to show the first also get value: 0 If Request ("page") = "" Then Pagenum=0 ' Here is the page connection

Secondary codeClick to return to the previous page code: Copy Code code as follows: Pop-up warning Box code: [Ctrl + A All SELECT Note: If the need to introduce external JS

Copy Code code as follows: Dim p, Ppic, ID, body, mycache Randomize P=int ((3*rnd) +1) Id= request.querystring ("id") Httpurl= "http://sms.2e7.net/cute cartoon 0" &p& ". gif" Set Mycache = new cache Mycache.name = "Picindex" &id If

code from the Internet, and slightly modified some places, its practical is the cache class. Save code for, for example, pic.asp Use: Yun_qi_img/log.gif Not only is 163, in fact, is a lot of anti-theft pictures can be this realization. '

1. Please build a database in SQL Server name:house run the following script in house if exists (select * from sysobjects where id = object_id (n´[dbo].[ City]´) and OBJECTPROPERTY (ID, N´isusertable´) = 1) drop table [dbo]. [City] Go if exists

One technique: Improving the efficiency of using the request collection Accessing an ASP collection to extract a value is a time-consuming process that takes up computational resources. Because this operation contains a series of searches for the

'============================================================= ' Thank you for using the utility function program developed by the ASP001 studio ' HTTP://WWW.ASP001.NET ' ============================================================= ' ASP001 studio

============================================================= ' Thank you for using the utility function program developed by the ASP001 studio ' HTTP://WWW.ASP001.NET ' ============================================================= ' ASP001 studio

Online Three-level menu is much more but the code is more annoying, I should say this is more intuitive: ' must be connected to the database first, needless to say. ' Database structure ' Category 1 Table name: A field: Id,name Description: ID The

Copy Code code as follows: Function Makegroup (Teams () as String) as String ' function function: Randomly grouping 32 teams in a teams array. (Note: Teams array subscript starting from 0) ' The variable definition of the function. ' It's

Here's the code: Copy Code code as follows: On Error Resume Next Dim objXmlHttp, XML Set XML = Server.CreateObject ("Microsoft.XMLHTTP") Xml. Open "Get", "http://chanye.finance.sina.com.cn/yj/2005-01-05/236914.shtml", False Xml. Send