| 动感首页更新实现之六 ------ 首页删除篇 |
| delete.asp
'表示下文要使用VB脚本!
<%@ LANGUAGE="VBSCRIPT" %>
'密码验证
<%
if request.cookies("adminok")="" then
response.redirect "login.asp"
end if
'读入数据库链接!
<!--#include file="articleconn.asp"-->
'删除数据库内容的语句
<%
…… |
|
| 动感首页更新实现之五 ------ 首页管理篇 |
| manage.asp
'管理页同首页显示篇差不多，这里阿喔只介绍如何连接删除链！
'见尾页
<%
if request.cookies("adminok")="" then
response.redirect "login.asp"
end if
%>
<!--#include file="articleconn.asp"-->
<html>
<head>
<meta http-equiv=&q…… |
|
| 动感首页更新实现之四 ------ 首页显示篇 |
| index.asp
'读入数据库链接!
<!--#include file="articleconn.asp"-->
<html>
<%
'每页最大显示数为20
const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim typename
dim keyword
keyword=trim(request("keyword"))
if…… |
|
| 动感首页更新实现之三 ------ 数据库链接篇 |
| articleconn.asp
'由于几乎每一个页面都用到数据库,把数据库作为一个独立的页包括在内
'可以不必重复输入!
'如:<!--#include file="articleconn.asp"-->
'可在需要数据库链接的页面打入这一句话,避免重复输入相同的内容
'使程序复杂化!
<%
dim conn
dim connstr
on error resume next
…… |
|
| 动感首页更新实现之二 ------ 首页保存篇 |
| savearticle.asp
'同上这也是安全的保证！
<%
if request.cookies("adminok")="" then
response.redirect "login.asp"
end if
%>
<%
'判断字符段是否为空!如果不加判断会对保存数据库造成影响！
if request.form("txttitle")="" then
response.write "…… |
|
| 动感首页更新实现之一 ------ 首页添加篇 |
| addarticle.asp
<%
'判断是否是管理者
if request.cookies("adminok")="" then
'如果不是回到管理员入口login.asp
response.redirect "login.asp"
end if
'如果是继续运行
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; cha…… |
|
| 完整的访问统计程序(三 应用篇) |
| /*
原创：豆腐
请大家在转载和使用的时候不要修改这里
*/
/*
static.asp
保存统计数据
*/
<!--#include file="staticFunc.asp"-->
<%
userid=request.querystring("userid")
InsertData userid
%>
document.write('<a href="http://www.yourHost.com/static/show.asp?…… |
|
| 完整的访问统计程序（二 程序篇） |
| /*
原创：豆腐
请大家在转载和使用的时候 保留这条信息
*/
/* dbcn.asp
创建数据库连接的 公用程序
*/
<%
function OpenConn()
'创建数据库连接
dim ConnStr
dim uid
dim pwd
dim db
uid="BBC"
pwd="BBC"
db="BBC"
Softserver=&…… |
|
| 完整的站点访问统计系统（一：数据库篇） |
| /*
原创：豆腐
请大家在转载和使用的时候保留这条信息
*/
1.数据库结构
/*访问统计历史表，每一次访问都在这个表生成一条记录*/
CREATE TABLE [AccessStat] (
[AutoID] [int] IDENTITY (1, 1) NOT NULL ,
[UserID] [varchar] (5) NULL ,
[VisitTime] [datetime] NULL ,
[IPAddr] [varchar] (18) NULL ,…… |
|
| 支持中文的无组件文件上传:upload.inc |
| 文件名：upload.inc
说明：支持中文的无组件文件上传ASP函数，由于ASP不支持二进制写入文件，所以存成文件时必须使用组件，本函数只提供截取上传文件的数据，可以写入到数据库。
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Function GetUpload(FormData)
Dim DataStart,DivStr,DivLen,DataSize,FormFieldData
…… |
|
| 支持中文的无组件文件上传:示例 |
| 文件：uploadtest.asp
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<form method="post" name="form1" …… |
|
| 对数据库中的记录用上一条下一条显示（三） |
| 三、Bookmark/MoveNext/MovePrevious例子
让我们看一个ASP程式码当中使用Bookmark/MoveNext/MovePrevious做到上一条下一条功能的例子。
譬如ASP程式码rs15.asp如下：
<%
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DBQ="& Server.MapPath("ntopsamp.mdb"…… |
|
| 对数据库中的记录用上一条下一条显示（二） |
| 二、用Bookmark（书签）
Bookmark（书签）对RecordSet的一条记录做一个记号。
使用时先移动到那条资料，然后给予Bookmark属性一个名称，即书签记号的名称，当要回到该条记录时，将Bookmark 属性设为所设定书签记号的名称即可。
Bookmark例子
如何使用Bookmark（书签）呢？让我们看一个於ASP程式码当中使用Bookmark的例子…… |
|
| 对数据库中的记录用上一条下一条显示（一） |
| 若要让RecordSet移动到上一条下一条的位置，让我们先学会以下RecordSet对象的属性和方法：
BOF属性：当前游标指到RecordSet的第一条记录。
EOF属性：当前游标指到RecordSet的最后一条记录。
Move方法：移动游标到RecordSet中的某一个记录。
AbsolutePosition属性：当前游标在RecordSet中的位置。
bookmark（书签）…… |
|
| 不能ASP图像组件来生成图像的ASP计数器程序(三) |
| data1(3,2,0)=0
data1(3,2,1)=0
data1(3,2,2)=0
data1(3,2,3)=0
data1(3,2,4)=0
data1(3,2,5)=0
data1(3,2,6)=0
data1(3,2,7)=1
data1(3,1,0)=0
data1(3,1,1)=1
data1(3,1,2)=1
data1(3,1,3)=1
data1(3,1,4)=1
data1(3,1,5)=1
data1(3,1,6)=1
data1(3,1,7)=1
data1(4,0,0)=0
data1(4,0,1)=0
data1(4,0,2)=0
data1(4,0,3…… |
|
| 不能ASP图像组件来生成图像的ASP计数器程序(二) |
| -----------------------counter.asp---------------------
<%user=request.querystring("user")%>
<!--#include file="header"-->
<%
set fsFilesys=CreateObject("Scripting.FileSystemObject")
set myText=fsFilesys.OpenTextFile(Server.MapPath("/explorer/")…… |
|
| 不能ASP图像组件来生成图像的ASP计数器程序(一) |
| 这是我去年编的一个ASP程序，那时用惯了C语言，所以对Basic反而忘了，但由于觉得ASP很热门，所以试着编了这个程序，程序没经过优化，代码很长，主要是数据那时候不知道该怎么用：) 别笑我，因为现在我会用啦!!
这是个简单的计数器申请系统，采用文本，所以只要是支持ASP的空间就都可以测试!!
其中TXT目录放的是所有人的计数…… |
|
| ASP技术在论坛中的运用(八)（吐血推荐！！！！） |
| 使用Session来保持对斑竹的身份验证，这必须要求客户端浏览器的cookie被打开了。因为Session是通过cookie来实现的。在这儿，把看板ID赋给Session变量beenthere，表明斑竹已经通过了身份验证。在后面的每个版务处理的页面中，都要检查beenthere是否和相应的看版ID相符。
url="boardmanager.a…… |
|
| ASP技术在论坛中的运用(七)（吐血推荐！！！！） |
| 这儿或许是我们这个论坛的核心之所在，但它实现起来也没有什么特别的地方。还是那些老东西：表单处理，数据库查询，在用ASP把他们有机的结合起来。
当进入了文章审阅模式（前面提到的板务处理）之后，最为首要的内容，应该是对斑竹的身份进行验证了。下面来看看斑竹登陆页面：
…… |
|
| ASP技术在论坛中的运用(六)（吐血推荐！！！！） |
| 文章发表模块只有两个页面，一个是前面提到的用来提供输入表单的submit.asp，还有一个是用来处理表单输入的subresult.asp。前面的那个页面很简单，基本上就是一个HTML表单，没有什么好讲的，下面来看看subresult.asp的内容：
< html>
< head>
…… |
|
| « ‹ [2][3][4][5][6][7] › » 20条/页 共130条 |
