ASP即Active Server Pages,是MicroSoft公司开发的服务器端脚本环境,可用来创建动态交互式网页并建立强大的web应用程序。当服务器收到对ASP文件的请求时,它会处理包含在用于构建发送给浏览器的HTML(Hyper Text Markup Language,超文本置标语言)网页文件中的服务器端脚本代码。除服务器端脚本代码外,ASP文件也可以包含文本、HTML(包括相关的客户端脚本)和com组件调用。
如下代码: ================================================== <% If FormatDateTime(now(),2) = FormatDateTime(rs(\"time\"),2) Then
演示效果: 代码下载: 点击下载
set connXls = Server.CreateObject(\"ADODB.Connection\") connXls.ConnectionString=\"Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source=\"&Server.MapPath(\"database/Test.xlsx\
<!--#include file=\"conn.asp\" --> <!--#include file=\"inc/cart.asp\" --> <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-trans
演示效果: 代码下载: 点击下载
cart.asp <%@LANGUAGE=\"VBSCRIPT\" CODEPAGE=\"65001\"%> <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">
<% \'========================== \'购物车类 类名:UserCart \'作者:Cosiray \'基本原理:此类用服务器Session变量保存商品数据,商品用一个数组表示.此类里面保存了三中商品价格.
<!--#include file=\"../inc/conn.asp\" --> <% dim rs,sql,id,title,url,strTemp id=Request.QueryString(\"id\")
主要要文件有: Index.html 实现功能,一个文本框,输入内容并实现提示 search.asp 查询功能,让文本框输入的内容在数据库中查询,然后返回给客户端
dim sContent,tempContent,pgCount,pageStr,currentPage currentPage=Request.QueryString(\"page\") if currentPage=\"\" Then 
Dim xlWorkSheet Dim xlApplication Set xlApplication = Server.CreateObject(\"Excel.Application\") xlApplication.Visible = False
FSO文件(File)对象属性  DateCreated 返回该文件夹的创建日期和时间  DateLastAccessed 返回最后一次访问该文件的日期和时间 
<!--#include file=\"inc/conn.asp\"--> <% Set rstSchema = conn.OpenSchema(20) Do Until rstSchema.EOF \'遍历数据库表
功能背景:当用户输入用户名时,判断数据表中用户名是否已经存在。 技术手段:ajax异步请求。
文件夹pic_1下有1.xls和1.xls 清空文件夹: <% dim path Sub EmptyFolder(filespec)  Dim fso  Set fso = CreateObject(\"Scripting.FileSystemObject\") 
Function getCode(iCount)      Dim arrChar      Dim j,k,strCode      arrChar = \"1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ\"
要用ASP来操作SQLite数据库,先在服务器上安装SQLite的ODBC驱动程序,可到这个站点上下载安装:
\'清除HTML格式 Function RemoveHTML(strText) Dim RegEx Set RegEx = New RegExp RegEx.Global = True \'清除HTML标签
因为制作的需要写了这样一个简单的函数,重定向可以是指定的页.也可以是前一页!
\'获取当前Url参数的函数  Function GetUrl()  Dim ScriptAddress,Servername,qs  ScriptAddress = CStr(Request.ServerVariables(\"SCRIPT_NAME\")) 
Public Function GetNewFileName() dim ranNum dim dtNow dtNow=Now() randomize ranNum=int(90*rnd)+10 GetNewFileName=year(dtNow) & right(\"0\" & month(dtNow),2) & right(\"0\" & day(dtNow),
\'按标识手动分页 function manualPage(str) pages=request.QueryString(\"page\") contentstr=split(str,\"{$page$}\")
<%  Function SaveRemoteFile(LocalFileName,RemoteFileUrl)  SaveRemoteFile=True  dim Ads,Retrieval,GetRemoteData 
<%  strconnection=\"driver={mysql odbc 3.51 driver};database=weste_net;server=localhost;uid=root;password=\"
做ASP开发常常需要用到一些小功能,这些功能通常我们都会封装成函数来使用,本教程提供了许多我们经常用到的ASP函数。 
\'code要检测的代码 \'leixing html 或者ubb \'nopic 代码没有图片时默认值 function toppic(code,leixing,nopic)
1.Access数据库的DSN-less连接方法:  set adocon=Server.Createobject(\"adodb.connection\") adoconn.Open\"Driver={Microsoft Access Driver(*.mdb)};DBQ=\"& _
<% \'申明变量 Dim valName Dim arrName Dim objConn Dim connStr If Request.Form(\"mySubmit\") = \"确定\" Then
1、截断标题的函数 <%Function CutTitle(Title,TLen) If len(Title)>TLen Then CutTitle=Left(Title,TLen)&\"..\"
Array()  函数返回一个数组  表达式 Array(list)  允许数据类型: 字符,数字均可