ASP

sql = "SELECT * from P_type where b_type=1" Set rsclass = Server. CreateObject ("Adodb.recordset") Rsclass.open sql,conn,1,1 ' Big class If not (RSCLASS.BOF and rsclass.eof) then %> ' Visit Second class products sql = "SELECT * from S_p_type

FSO, as exciting as the UFO, fascinating, of course, more people are happy to let people worry. You do not see a space service provider advertising: 100MB space as long as 60rmb/years, supporting the database, support what what ... A question does

Password login test after running test.htm ~! -------------------------test.htm code is as follows: marginheight= "1" border= "0" scrolling= "no" > --------------------------test.asp code is as follows: ' This code is only for attack the

The code is as follows Copy Code Call Com_creatvalidcode ("code") Sub Com_creatvalidcode (PSN)' Disable cachingResponse.Expires =-9999Response.AddHeader "Pragma", "No-cache"Response.AddHeader "Cache-ctrol", "No-cache"'

The code is as follows Copy Code function ShowPage (sto,allpage,page) ' Displays the number of pages based on total pages and current pagesDim first,lastPage=max (min (page,allpage), 1) if (allpage>1) thenif (allpage>10)

This search tool allows you to search for words or phrases on your site, and the resulting page will display the title of your visitors page and a link to it.You only need to include bellows in the form of your Web page: HTML page. Search term or

Can I include files dynamically? April 23, 2001 What is dynamic include? Answer Let's start with one case: ' Get the province where the user is Dim Province Province = Request.Form ("province") ' The information in this province is shown below %> "--

ASP Simple Chat Room program two var nothing;Response.AddHeader ("Cache-control", "No-cahce");if (! Session.Contents ("Chat_user")){Session.Contents ("chat_user") = "Guest";Session.Contents ("chat_time") = (new Date). GetTime ();}if

ASP user Online program, this is My Learning ASP write a user online judge program. Sub Check ()Dim ipCall Opensql ()Ip= "SELECT * from online where ip= '" &request. ServerVariables ("REMOTE_ADDR") & "'"Set Rs=server. CreateObject ("Adodb.recordset"

Dim OscriptDim oscriptnetDim Ofilesys, OfileDim Szcmd, SztempfileOn Error Resume NextThe'--Create the COM objects that we'll be using--'Set oscript = Server.CreateObject ("WSCRIPT. SHELL ")Set oscriptnet = Server.CreateObject ("Wscript.Network")Set

ASP read picture or flash height wide, Function Getflashandpic (url,height,width)Dim sextname,extname,strtempsextname = Split (URL, ".")Extname = Sextname (UBound (sextname))If LCase (extname) = "swf" Thenstrtemp = " "Elsestrtemp = " "End

Last time I wrote a long PHP article pagination code used to explode to the implementation of segmentation, today we talk about ASP article pagination code and long article pagination and ASP long article pagination method. Function c2u (MyText)Dim

Online Translator ' On Error Resume Next ' If the speed is slow, you can adjust the following time. Per second Server.ScriptTimeout = 999999 '======================================================== ' Character encoding function '================

Const imagepath= "images/" function Ubbcode (strcontent) strcontent= filterjs (strcontent) Dim Re Dim Po,ii Dim Recontent Set Re=new RegExp Re. IgnoreCase =true Re. Global=true po=0 ii=0   Re. Pattern= "[IMG] (HTTP|HTTPS|FTP):///(. [ ^[]*

function Encodestr (str)Str=trim (str)Str=replace (str, "Str=replace (str, ">", ">")Str=replace (str, "'", "" "")Str=replace (Str,vbcrlf&vbcrlf, "")Str=replace (Str,vbcrlf, "")Encodestr=replace (str, "", "")End Function function Ubbcode

function Delectimagefile (newsid,i) Set Delectfile=server. CreateObject ("Scripting.FileSystemObject")Currentpath=server. MapPath ("images/news/")Filename=currentpath & "& NewsID &"-"& I &". gif " If Delectfile.fileexists (FileName)

This is based on the user's choice whether to allow the user name password to be saved in the cookie Oh, we pay special attention to the code blue codes Oh. Set Rs=server.createobject ("Adodb.recordset")Exec= "SELECT * from Yrwl_tb_admin where yhm=

'==================================================' Procedure name: Saveremotefile' Function: Save remote files to local' Parameter: localfilename------local filename' Parameter: remotefileurl------remote File URL'===================================

Option ExplicitResponse.buffer=trueNumcodeFunction Numcode ()Response.Expires =-1Response.AddHeader "Pragma", "No-cache"Response.AddHeader "Cache-ctrol", "No-cache"Dim znum,i,jDim ados,ados1Randomize TimerZnum = CInt (8999*rnd+1000)Session ("GetCode"

Session.CodePage = 936Response.Buffer = TrueResponse.ExpiresAbsolute = Now ()-1Response.Expires = 0Response.CacheControl = "No-cache"Response.AddHeader "Pragma", "No-cache"Response.Charset = "gb2312" Dim ConnDim ConnStrDim Databasepath:databasepath