· 使用了imagelib组件!
<%
site_id=Request.QueryString("site_id")
if isempty(site_id) then
Response.End
end if
Set Sistema = CreateObject("Scripting.FileSystemObject")
set ILIB = server.createobject...
· My Experiences with ASP+ PDC bitsNow that the ASP+ sdk "pre-beta" has been released to the masses. Many people are scrambling to get it installed and start to play with C#, ASP+ and many other toys that come with the SDK. Being the webmaster of ASPFree, I've had ...
· <%@ LANGUAGE = "VBScript"ENABLESESSIONSTATE = False %><%'Here we request the numeric percentages(%) of'discount, ie: 2, 5, 10, 20, etc.:percent_discount = "10"'For multiplication, let's see if we need to'add a zero after the decimal:If Len(percent...
· Using ASP and HTML Meta TAGS To Make A Dynamic Delay MessageThis is a little trick to display a timed message to the user after doing some sort of task. By mixing some creative ASP with a simple HTML META Refresh you can display a message to a user for a specified period of t...
· <HTML><head><%Set obJS = Server.CreateObject("MSWC.BrowserType")If obJS.javascript = TRUE Then'Look for a version of Internet Explorer that supports ActiveX (i.e., one that's'running on a platform other than Mac or Windows 3.1) or a browser th...
· <%host=lcase(request.servervariables("HTTP_HOST"))SELECT CASE host' Just change the CASE to your domainsCASE "www.designbliss.com.au"' Below is the redirect commandresponse.redirect "au/"CASE "designbliss.com.au"response.redirect &qu...
· function IsValidEmail(email)dim names, name, i, c'Check for valid syntax in an email address.IsValidEmail = truenames = Split(email, "@")if UBound(names) <> 1 then IsValidEmail = false exit functionend iffor each name in names if Len(name) <= 0 then ...