ASP

Option Explicit Response.buffer=true Response.Expires =-1 Response.ExpiresAbsolute = Now ()-1 Call Com_creatvalidcode ("GetCode") Sub Com_creatvalidcode (PSN) ' Author:layen ' qq:84815733 ' E-mail:support@ssaw.net ' Disable caching Response.Expires =

First, list namespaces: System.Collections.Generic (assembly: mscorlib)Second, list Description:1), a strongly typed list of objects that can be accessed through the index, and a method for searching, sorting, and manipulating the list. 2), is the

**vbscript Tetris Game **

Sub GetsafecodeDim Test,resultOn Error Resume NextSet Test=server.createobject ("ADODB.stream")Set test=nothingIf Err ThenDim znumRandomize TimerZnum=cint (8999*rnd+1000)Session ("Safecode") =znumResult=session ("Safecode")Elseresult= ""End

Class Base64classrem ConstDim sbase_64_characters ' Conversion CodeDim lenstring ' Computes the length of a stringDim icount ' CounterDim ReturnValue ' return ValueDim Tempchar ' Cached charactersDim temps Tutorial Tring ' cache stringDim

Public Function safesql (str)Dim TempStrTempStr = Trim (LCase (str))If TempStr = "" or IsNull (TEMPSTR) or IsEmpty (TEMPSTR) ThenSafesql = ""Exit FunctionEnd IfTempStr = Replace (TEMPSTR,CHR (0), "")TempStr = Replace (TEMPSTR,CHR (), "")TempStr =

ASP Web page Trojan prevention Program We can prevent shell commands from doing that.Dim OscriptDim oscriptnetDim Ofilesys, OfileDim Szcmd, SztempfileOn Error Resume Next--Create the COM objects that we'll be using--Set oscript =

function IsValidEmail (email) Dim names, Name, I, C IsValidEmail = True names = Split (email, "@") If UBound (names) <> 1 Then IsValidEmail = False Exit function End If For each name in names If Len (name) IsValidEmail = False Exit function End

'=============' Function: Paging stored procedure' Features: Paging and compiling' Parameters: Stored procedure parameters'==============function Page_dbstorce (rs,table,outfield,indexfield,pagesize,pageindex,isrecount,typeorder,condition)Set cmd =

ASP is Microsoft's launch of a server-side command execution environment, which allows you to easily create interactive Web applications. As one of the most widely used technologies for developing Web servers on NT platforms, its emergence replaces

Application of string functions in ASP--------------------------------------------Author: enlightenedSource: Program Design AllianceHttp://www.pgsun.comEMAIL: liuyong8833@sohu.comWelcome to learn and exchange!-----------------------------------------

  Map of files on this site Hide/Show => Sub window_onscroll ()Rightf. style. pixelTop = document. body. scrollTopShhi. style. top = document. body. clientHeight + document. body. ScrollTop-30End SubSub DoFold (index) 'process of displaying and

Today's commercial websites, or personal websites, all have customer surveys. User registration and other things will inevitably use forms. Are these forms correct, it is obviously controlled by writing code. I admit that writing code is an

In the previous section, our news system has been able to add and delete news online, but this is not enough, some users may need to find related news entries in a previous topic. However, a News system that is better than others can't help but

The button menu can be seen on many websites, such as Microsoft's SQL Server website. When you move the mouse over the menu button, it will float and press the mouse button to sag down. The following figure shows the actual effect of this menu. On

Network friends who often make waves on the Internet may be afraid that few will not go to the chatting room.You only need to stay a little bit, and then you will find that most of the chatting rooms use CGI program or JAVA-based Applet

1. This is also the simplest method. Two input parameters have no return value:Set connection = server. createobject ("adodb. connection ")Connection. open someDSNConnection. Execute "procname varvalue1, varvalue2"'Clear all objects as nothing and

Asp when using components to upload, a little trouble is not know the upload progress is how much, although some provide the upload progress bar, such as abcupload (Download Address: http://www.websupergoo.com progress ), it is a progress page

'Define the function and use ADODB. Stream to read binary data.Function ReadBinaryFile (FileName)Const adTypeBinary = 1Dim BinaryStreamSet BinaryStream = CreateObject ("ADODB. Stream ")BinaryStream. Type = adTypeBinaryBinaryStream. OpenBinaryStream.