| 在一个ASP页面停留的多少时间的程序 |
| ASP Source Code:
----------------------------------------------------------------------
<% If Request.QueryString("time") = "" Then %>
You haven't clicked on the link below yet.<BR>
<% Else %>
You spent <%= DateDiff("s", Request.QueryString("…… |
|
| 一些ASP小源程序 |
| 嘻嘻,虽然是英文的,但是很简单,我想大家都能看懂^-^
Active Server Pages
Password Script
<%
Sub FormInput() %>
<form method=post action="logon.asp">
<center>
<H1>Generic Logon</H1>
User Name:<input type=text size=20 name=username>
…… |
|
| 制作一个个人搜索引擎（源码） |
| <%
Response.Buffer=True
'
' OneFile Search Engine (ofSearch v1.0)
' Copyright ?000 Sixto Luis Santos <[email protected]>
' All Rights Reserved
'
' Note:
' This program is freeware. This program is NOT in the Public Domain.
' You can freely use this program in your own site.
'
' You cannot re…… |
|
| Haneng.com的简单留言板制作源程序例子 |
| default.asp
-------------------------------
<HTML><BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<B>This is my guestbook. Use this form to submit your greeting:</B><BR>
<FORM METHOD="POST" ACTION="write.asp">
<INPUT NAME="…… |
|
| 日历源程序 |
| 加亮显示当天，能够选取某天显示，并能够加入事件。
<%
'*******************************************************
'* ASP 101 Sample Code - http://www.asp101.com *
'* *
'* This code is made available as a service to our *
'* visitors …… |
|
| 制作一个简单的广告系统 |
| by Manohar Kamath
August 9, 1999
Creating a advertisement rotator page is easy - ASP comes with an Adrotator component that's easy to use.
The component, called AdRotator, is installed when you install ASP. The component has been a part of ASP
installation since the first version of ASP.
There a…… |
|
| 动态广告管理程序制作例子 |
| By Wayne Berry
This Issue
Many sites that are content specific depend on banner advertisement for revenue. Such is the case for 15
Seconds. A banner is displayed at the top of the page for every page viewed. Clients usually buy a set
number of banner impressions and these impressions are rotated …… |
|
| 广告播放和跟踪系统的制作 |
| 作者： Christopher Miller
转载： ASP精品屋 钱丰云
首先你需要一个数据库放置你的广告，我们共用了2个表： blBanners 和 tblVendors表：
tblBanners结构表如下:
bID - auto number (广告ID)
bBanner - text (图像文件)
bUsedViews - number (# 标准的广告显示次数)
bTotalViews - number (# of impressions the vendor…… |
|
| 把句子的第一个字母转化为大写 |
| <%
dim txtFname
txtFName = "steve schofield"
txtFName = UCase(Left(txtFName,1)) & Mid(txtFName,2)
response.write txtFname
%>
To call the function:
mynewvar = myfunc(txtFname)
Function syntax
function myfunc(a)
myfunc = ucase(left(a,1)) & lcase(mid(a,2))
end functio…… |
|
| 用ASP发送HTML格式的邮件 |
| <%
Dim objMail
Set objMail = CreateObject("CDONTS.Newmail")
objMail.TO = "[email protected]"
objMail.From = "[email protected]" '在这里可以选择你要发送去那里的地址
objmail.Subject = "HTML EMAIL!"
objMail.MailFormat = cdoMailFormatMime…… |
|
| 使用<meta>标签的ASP源程序例子 |
| utils/Init.asp
<%
// ============================================
// NOTE: all source code downloaded from CoverYourASP was written by
// James Shaw (unless stated otherwise), and is copyright (c) 2000 by
// James Shaw. You may use this source code on your web sites, but
// please don't publ…… |
|
| 利用自己开发的vc组件结合asp实现网上实时搜索 |
| 最近有人问怎么用asp来得到别的网站的网页，并分析后利用它的数据，纯asp是做不到这点的，所以我用vc做了个http组件，很简陋，不如asphttp，因为时间问题我暂时没有做post方法，只能用get方法，但要应付象yahoo，新浪等大的搜索引擎还是绰绰有余的。利用这个组件向这些站发送请求，然后用asp分析并得到其中有用的数据，…… |
|
| 一个用vc开发的域名查询组件（源代码及说明） |
| 最近经常见到有人问如何在asp中查询域名是否被注册，所以写了这个组件，主要原理就是向gopher站点的whois服务器发送whois请求，由于没有太多时间，所以很简陋，目前只能实现向cnnic查询，并且返回的信息没有进行处理，如果你要用的话，清在asp里自己处理一下吧。以后如果有时间将加上过及域名的查询功能。其实最主要的目的还…… |
|
| 用ASP开发一个在线考试程序（九） |
| 数据库的连接
为了运行这个应用程序我使用了global.asa 。运行global.asa 文件的细节在以前的文章- Using Global.asa Correctly 有详细描述。
< SCRIPT LANGUAGE=VBScript RUNAT=Server >
Sub Application_OnStart
dbPath = "DBQ=" & Server.Mappath("onlinetest.mdb")
dbConnect…… |
|
| 用ASP开发一个在线考试程序（八） |
| 我将数据库命名为onlinetest.mdb。数据库中的表格数取决于主题或科目数。现在我们总共有5个表格：
● loginuser
● paper
● details
● tblHTML
● tblDHTML
loginuser表结构
字段名 数据类型 描述
Id Auto Number 主关键字
Username Text 成员名字
Useremail Text 成员的电子邮件地址
Password Text 成员的口令…… |
|
| ：用ASP开发一个在线考试程序（七） |
| Result.asp
这一页的主要目的是显示结果，同时将这些结果插入数据库以备将来参考。
for each item in Request.Form
sql_check = "select Count(*) from "&subject&" where answer ='" & Request.Form(item) & "'"
Set RS_check = Application("Conn").Execute…… |
|
| 用ASP开发一个在线考试程序（六） |
| 测验代码
Exam.asp 提供一系列的题目和以单选按钮为格式的选项。为了使测验更具挑战性，还要有时间限制。我设置了一个装载时自动启动的时钟，将其时间设为20秒。剩余的时间在屏幕底部的状态窗口中显示。时间因素同题目个数一样可以改变。为了在每次会员想要参加考试时,都从数据库中选择不同的题目，我使用了随机函数。在…… |
|
| 用ASP开发一个在线考试程序（五） |
| Redirect.asp
这一页将用户送到实际生成题目和选项的ASP页。如果数据库中没有所选择的特定主题的任何题目，就显示错误信息和返回连接。
首先：
id = Request.QueryString ("section")
调用查询字符串部分，将值存入变量 id中。
然后：
SQL = "select tbl_name from paper where id="&id
Set RS…… |
|
| 用ASP开发一个在线考试程序（四） |
| 2000-09-08· 编译青苹果电脑工作室·yesky
Checkuser.asp
在应用程序的开始，访问者键入了他们的口令之后，他们的细节被指向了一页，如sendregister.asp,来检验一下具体
的用户名和口令在数据库中是否存在。
sql_check = "select count(*) from loginuser where username ='" & _
username &am…… |
|
| 用ASP开发一个在线考试程序（三） |
| Sendregister.asp
这一页从register.asp 中取得表单域的内容，将它们插入数据库中。要注意用户名必须是唯一的。所以，首先查询要
验证输入的用户名是否已经存在。如果是的话，用户被重新引回register.asp 页，并被要求选择另一个用户名。如果用户
名是新的，输入的内容就被传递给数据库。
sql_findmember = "selec…… |
|
| « ‹ [1][2][3][4][5].. › » 20条/页 共130条 |
