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