在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000103 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章

跟我学做在线调查(四)

跟我学做在线调查(三)

跟我学做在线调查(二)

跟我学做在线调查(一)

跟我学做树型菜单(四)

跟我学做树型菜单(三)

跟我学做树型菜单(二)

跟我学做树型菜单(一)

2yup漂流祈愿瓶大家一齐做(四)

2yup漂流祈愿瓶大家一齐做(二)
发表文章
2yup漂流祈愿瓶大家一齐做(三)

作者:8chinaasp     提交人:8chinaasp     发布时间:03-02-19     文章类型:原创     浏览量:1878
参考链结:http://    
关键字:祈愿|跟我学
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000103]


《2yup漂流祈愿瓶大家一齐做》(三)


'***************************************************************
(接上讲 七 的第一后面)
----------------------------------------------------------------
以下内容是:1、设定区。2、参数处理。3、通用函数。
请将他们分别放到第一讲(四)“站点的页面设计”指定的位置,真实放置
版面是在第二讲的(七)“站点网页制作”的步骤1内的顶上和下角。
------------------------------------------------------------------


二、(步骤3)依照(一)和构架建立设定区。

  构建设置区主要是根据(一)功能和要求的第14点要求,现在将他们完成如下:
<%
'**************************
'*****  设定区部分  *****
'**************************

'================= 基本设定 ===============
max      = 7                    '每页显示数
ListNum  = 16                  '边上列表数目
rate    = 2                    '管理或搜索时瓶子流速
User    = "8chinaasp"          '管理用户名
PassWord = "8chinaasp"          '管理密码
PageTitle= "2YUP漂流祈愿瓶"    '网页名称
homepage = "2yup.com"          '主页网址,不用加http://
MyWeb    = "ASP中文网"          '主页名称
imgType  = ".gif"              '不用改
picPath  = "pic/"              '图片档案夹路径
path    = "Pic/wishBoard.mdb"  '数据库路径(为安全请更改)
'================= 连接设定 ===============
'左边链接'[注意:“||”是分割符],这是产生自定义链接的设定
'引用通用函数中的 MyLinks(LinkArr)就可以产生。
'说明:排序应该是 [链接名称]||[链接说明]||[链接网址]中间使用分割符“||”

L1 = "主页||ASP中文网||http://"&homepage&""
L2 = "文档||文档中心||http://www.2yup.com/asp/article/"
L3 = "论坛||ASP论坛||http://www.2yup.com/asp/"
%>


<%
'****************************
'*****  参数处理部分  *****
'****************************
''================参数处理================
'获取数值
keyword  = Trim(Request("k"))
howfind  = Trim(Request("h"))
Cpage    = Trim(Request("Page"))
Action  = Trim(request("Action"))
id      = Trim(request("id"))
UserName = Session("User")
'管理或退出
If Action = "exit" Then
  Call logout()
End if
'连结数据库
Call opendb(conn,path)
'处理登入和删除
Select Case Action
  '登入
  Case "login2"
    Call login2
  '删除
  Case "del"
    Call delWish()
    '消掉id才不会为显示已删瓶子而出错
  id = ""
End Select

'==== 处理数据库 ====
'求取搜索数据
if keyword <> "" then
  findData = " and "&howfind&" like '%"&checkStr(keyword)&"%'"
end if
'求取单个祈愿数据
if id <> "" then     
  findData = findData & " and id = "&id&""
end if
'设定读写模式
LockType = 1
if inStr(Action,"Save") or inStr(Action,"detail") then
LockType = 3
end if
'进行数据库查寻
sql="select * from wish where Pass = True "&findData&" order by date desc"
Call changetable (conn,sql,rs,LockType)
'瓶子总数
num = rs.recordcount

'==== 无数据处理 ====
IF rs.EOF THEN
  '设定没有数据时的提示内容
  if id = "" and keyword = "" then
  Msgs = "<b>恭 喜 您 将 成 为 第 一 个 许 愿 人 !</b>"
  else
  Msgs = "<b>没 有 您 要 找 的 许 愿 瓶 !</b>"
  end if
END IF
%>


三、(步骤4)依照(四)和构架编写通用函数。
  其实这个步骤和下一个步骤5--“编写各部位程式”,是不能截然分开的,
  明显的通用函数可以直接使用和在这步中动手编写,但是有的则需要到下
  一步的时候结合副程式的编写才能正确的写出来。现在我将我们这个祈愿
  瓶程序里使用到的通用函数都写在下面,如果有错误的,或是不清楚的可
  以提出来。
<%
'**********************************
'*****  通用数据库函数部分  *****
'**********************************

'*******************************************************************
'打开数据库
sub opendb(connect,path)
set connect=server.CreateObject("adodb.connection")
connect.open "provider=microsoft.jet.oledb.4.0; " _
&"data source="&server.MapPath(path)
end sub

'*******************************************************************
'查询或更改数据库
function changetable(conn,sql,rs,LockType)
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1,LockType
end function

'*******************************************************************
'关闭数据库
sub closedb(connect)
connect.close
set connect=nothing
end sub

'*******************************************************************
'关闭临时表
sub closetable(rs)
if Rs.state = 1 then
Rs.Close
Set Rs=Nothing
end if
end sub

'*******************************************************************
'过滤非法字符
function checkStr(str)
if isnull(str) then
checkStr = ""
exit function
end if
checkStr=replace(str,"'","''")
end function

'*******************************************************************
'生日换算成年龄
function MyAge(Birthday)
MyAge = DateDiff("yyyy",Birthday,Date)
end function

'*******************************************************************
'年龄换算成生日
function Mybday(Age)
Mybday = DateAdd("yyyy",-Age,Date)
end function

'*******************************************************************
'产生连接
Sub MyLinks(LinkArr)
MakeLink = Split(LinkArr,"||")
MyLink = "<A HREF='"&MakeLink(2)&"' TITLE='"&MakeLink(1)&"'>"&MakeLink(0)&"</A>"
Response.Write MyLink
End Sub

'*******************************************************************
'错误提示
Sub prompt(LoginMsg,ToUrl)
Response.Write "<script  language='JavaScript'>alert" _
&"('"&LoginMsg&"');"&ToUrl&"</script>"
End Sub
%>

关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
xmxoxo        2003/2/19 15:00:00
very good!
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2020 Yup Studio, all rights reserved.  
382.8125