书签 分享 收藏 举报 版权申诉 / 20

类型《网站建设》课程实验报告.docx

  • 文档编号:15167754
  • 上传时间:2023-07-02
  • 格式:DOCX
  • 页数:20
  • 大小:238.12KB

记支出

统计

F-Spenging

<

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

<%

'是否登陆成功的标识

ifsession("loginstate")<>"ok"then

reponse.write(""

endif

%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

无标题文档

body,td,th{

font-size:

16px;

color:

#F36;

}

body{

background-color:

#0F6;

}

记支出

名称

金额

日期

所属分类

娱乐

备注

 

 

Login.asp

<%

ifsession("loginState")<>"ok"then

'没有登录

%>

用户管理登陆

用户名:

密码:

<%

else

%>

欢迎您:

<%=session("realname")%>,退出

<%

endif

%>

Logincheck.asp

--#includefile="conn.asp"-->

<%

'第一步,获取登录的用户名与密码

username=request.Form("txtUsername")'获得用户名

password=request.Form("txtPassword")'获得密码

'第二步,查询

sql="select*from[user]where[username]='"&username&"'and[password]='"&password&"'"

setrs=server.CreateObject("adodb.recordset")

rs.opensql,conn,1,1

ifnotrs.eofthen'判断有没有数据

'有

'通过对象session来记录登录状态

session("loginState")="ok"

session("realname")=rs("realname")'从数据表中把realname字段的值赋值给session变量

response.Redirect("index.asp")'跳转回index.asp

else

'没有

response.Write("")

endif

%>

F-incom

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

<%

'是否登陆成功的标识

ifsession("loginstate")<>"ok"then

reponse.write(""

endif

%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

无标题文档

body,td,th{

font-size:

16px;

color:

#F09;

font-weight:

bold;

}

body{

background-color:

#3FF;

}

记收入

名称

金额

日期

所属分类

娱乐

备注

 

 

F-Count

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

<%

'是否登陆成功的标识

ifsession("loginstate")<>"ok"then

response.Write("")

endif

%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

无标题文档

--#includefile="connf.asp"-->元

body,td,th{

font-size:

16px;

color:

#F00;

}

body{

background-color:

#6FF;

}

基于web的个人理财系统

欢迎您:

XXX,退出

记收入记支出统计

支出统计

序号

支出的名称

金额

此支出记录的时间

此支出所属分类

说明

<%

dimi

i=1

sql="select*fromspendingorderbyidasc"

setrs=server.CreateObject("adodb.recordset")

rs.opensql,connf,1,1

whilenotrs.eof

%>

<%=rs("ID")%>

<%=rs("name1")%>

<%=rs("amount")%>

<%=rs("createtime")%>

<%=rs("memo")%>

<%=rs("class1")%>

<%

i=i+1

rs.movenext

wend

%>

支出小计:

--#includefile="spending.asp"-->元

收入统计

序号

收入的名称

金额

此收入记录的时间

此收入所属分类

说明

<%

举报
举报
版权申诉
版权申诉
word格式文档无特别注明外均可编辑修改;预览文档经过压缩,下载后原文更清晰! 立即下载
配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
网站建设 网站 建设 课程 实验 报告
提示  冰点文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:《网站建设》课程实验报告.docx
链接地址:https://www.bingdoc.com/p-15167754.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2


收起
展开