asp实训报告

时间：2024.4.28

ASP实训报告

题目：

专业计算机班级 08网络姓名陈和龙学号12号实习地点机房三室指导教师高卫斌

一、实验任务：完成论坛网站的制作

二、实训目的：

目的在于加深对网站开发的理解，掌握使用asp语言进行编程和用Dreamweaver制作网页的基本方法，提高开发网站实际操作的能力。通过本课程的实训使学生掌握ASP编程的方法和设计过程，从而可以培养学生独立思考、分析项目的能力以及理论联系实际地进行项目的设计及实现能力。实训后学生应掌握以下几点：熟练ASP脚本编程、ASP组件使用、ASP数据访问控制、ASP应用系统设计。

三、实验要求：

积极利用机房、网络资源，积极了解网页设计的前景，学会用ASP和HTML进行网络编程以及Dreamweaver中各种菜单的使用，具备一定的网站开发能力。

四、实验过程与记录：

1.绘制网页的总体设计框图。下图仅供参考:

2、每个页面实现的功能（补充）

Index.asp：主页

Index_article：静态主页面，其中<iframe>内调用wenzhang.sap这个文章内容利用ID来传输文章名，点击文章时页面跳转到showwz.asp这个新页面来显示所选的；

Index_picture.asp：利用dreamweaver自带的图片查看器制作的flash图片相册

Index_music.asp：把数据库的音乐连接到前台，暂时实现不了跳转到另一页面播放音乐只能跳到下载音乐页面。

Index_message.asp：显示留言板，与文章页面类似，都是调用，。

Index_about me.asp：简单的静态页面

add.asp：留言板信息添加由这个实现，

admin.asp：后台登录

left.asp：左框架，存放后台导航，单击about me 跳转到admin me.asp,里面修改个人信息。单击文章管理，跳转到showwz.asp文章显示，其中可点击修改，添加,，和浏览。分别跳转到wenzhang_edi.asp，wenzhang_write，和showwz.asp。单击图片管理跳转到admin_load.asp图片上传，删除与修改为pic.asp

。单击音乐管理与留言板都类似。，

3、数据库设计（补充，）例如：

1、用户表：

4、代码实现（动态功能部分，）

admin.asp：

<!--

function form1_onsubmit()

{

if (document.form1.adm.value=="")

{

alert("请输入用户名！")

document.form1.adm.focus()

return false

}

else if(document.form1.pws.value=="")

{

alert("请输入密码！")

document.form1.pws.focus()

return false

}

-->

</script>

Message.asp：

'-------------------------定义clearHTMLCode函数，清除从数据库里来的html纪录-------------

function clearHTMLCode(art_content)

dim reg

set reg = new RegExp

reg.Pattern = "<[^>]*>"

reg.Global = true

clearHTMLCode = reg.Replace(art_content, "")

end Function

<% Response.Expires = -1

Response.ExpiresAbsolute = Now()-1

Response.cachecontrol = "no-cache"%>

<html>

</style>

function Cbg(obj, objColor)

{

obj.style.backgroundColor=objColor

}

</SCRIPT>

set rs=server.CreateObject("adodb.recordset")

sql="select * from dy_message order by id DESC"

rs.open sql,conn,1,1

'----------------------------------------页码--------------------------------------------

page=request.QueryString("page")

if IsNumeric(page) then

page=cint(page)

if page<1 then page=1

else

page=1

end if

everypage=5

rs.pagesize=everypage

if rs.bof and rs.eof then

response.write "<BR> <p align='center' class='STYLE3'>数据库中无纪录..." & allrows & "</p>"

response.end

else

page_count=rs.pagecount

rs.AbsolutePage=page

do while not rs.eof and j<rs.pagesize

'-----------------------------------------------------------------------------------------------

<% ly=rs("ly") %>

<% hf=rs("hf") %>

<% id=rs("id")

'-----------------------------------------------------------------------------------------------

<tr>

if session("pass")<>""then %>

<% else %>

<% end if %> </td>

</tr>

<br />

<SCRIPT type=text/javascript

src="jquery.js"></SCRIPT>

function Reply<%=rs("id")%>()

{

$("#Reply<%=rs("id")%>").slideToggle('slow', function() {

window.scrollBy(0,0);

});

}

</SCRIPT>

if session("pass")<>""then %>

<% else %>

<% end if %>

</td>

</tr>

<tr>

<td style="DISPLAY: none" id=Reply<%=rs("id")%> height="20" colspan="2" bgcolor='#E6F1FB' >

</td>

</form>

<tr>

if rs("yd")<>""then %>

end if

</table>

j=j+1

rs.movenext

loop

end if

if page=>8 then

Response.Write"<a href=index.asp?page=1>第一页</a>"

else

Response.Write" "

end if

<%for j=page-4 to page-1%>

<%if j>0 then%>

<%end if%>

<%next%>

for j=page to page+4

<% if j<=page_count then%>

<%if j=page then%>

<%=j%>

<%else%>

<%end if%>

<% next

<%if page<page_count then%>

</strong><a href="index.asp?page=<%=page+1%>">下一页</a>

<%else%>

<%end if%>

</span></div>

wenzhang.asp：

<!--

function wi2(url) { //v2.0

window.open(url,"news","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=580,height=570,left=20,top=15");

}

//-->

</SCRIPT>

<% set rs=server.CreateObject("adodb.recordset")

sql="select * from dy_wenzhang order by dy_id desc"

rs.open sql,conn,1,1

if rs.eof and rs.bof then%>

<td align="center">当前没有文章！！<%if session("colser")="colser" then%>

</tr></table>

<%else

page=request.querystring("page")

rs.PageSize = 15

if Not IsEmpty(page) then

if Not IsNumeric(page) then

page=1

else

Page = cint(page)

end if

if Page > rs.PageCount then

rs.AbsolutePage = rs.PageCount

elseif Page <= 0 then

rs.AbsolutePage = 1

else

rs.AbsolutePage = Page

end if

else

rs.AbsolutePage=1

end if

Page = rs.AbsolutePage%>

pic.asp：

<%else

page=request.querystring("page")

rs.PageSize = 12

if Not IsEmpty(page) then

if Not IsNumeric(page) then

page=1

else

Page = cint(page)

end if

if Page > rs.PageCount then

rs.AbsolutePage = rs.PageCount

elseif Page <= 0 then

rs.AbsolutePage = 1

else

rs.AbsolutePage = Page

end if

else

rs.AbsolutePage=1

end if

Page = rs.AbsolutePage%>

<%dim i

i=1

do while not rs.eof%>

<tr><%for j=1 to 4

if rs.eof then

exit for

end if%>

<td bordercolorlight="#FFFFFF" bgcolor="#4EAAEA"><a target="_blank" href="showpic.asp?id=<%=rs("dy_id")%>" target="_blank">

<img src="<%=rs("dy_content")%>" width="142" height="117" border="0"<br>

<!--

function suredo(src,q)

{

var ret;

ret = confirm(q);

if(ret!=false)window.location=src;

}

//-->

</script>

</td>

<%rs.movenext

i=i+1

<%if i>rs.pagesize then exit do

loop

end if%>

</table>

Admin_load.asp：

<!--

function form1_onsubmit()

{

if (document.form1.dy_title.value=="")

{

alert("请输入图片主题！")

document.form1.dy_title.focus()

return false

}

else if(document.form1.dy_content.value=="")

{

alert("没有图片路径！")

document.form1.dy_content.focus()

return false

}

-->

</script>

<%if request.Form("sub")="sub1" then

dy_title=request.Form("dy_title")

dy_content=request.Form("dy_content")

if dy_title="" or dy_content="" then%>

alert("不能为空！")

history.go(-1)

</script>

else

set rs=server.CreateObject("adodb.recordset")

sql="select * from dy_load"

rs.open sql,conn,3,3

rs.addnew

rs("dy_title")=dy_title

rs("dy_content")=dy_content

rs.update

%><script language="JavaScript">

alert("图片上传成功！")

window.location.href("pic.asp")

</script>

rs.close

set rs=nothing

conn.close

set conn=nothing

end if

music.asp：

<!--

function wi2(url) { //v2.0

window.open(url,"news","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=580,height=570,left=20,top=15");

}

//-->

</SCRIPT>

<% set rs=server.CreateObject("adodb.recordset")

sql="select * from music order by dy_id desc"

rs.open sql,conn,1,1

if rs.eof and rs.bof then%>

<td align="center">当前没有音乐！！

<%if session("陈霞")="陈霞" then%>

<%end if%></td>

</tr></table>

<%else

page=request.querystring("page")

rs.PageSize = 15

if Not IsEmpty(page) then

if Not IsNumeric(page) then

page=1

else

Page = cint(page)

end if

if Page > rs.PageCount then

rs.AbsolutePage = rs.PageCount

elseif Page <= 0 then

rs.AbsolutePage = 1

else

rs.AbsolutePage = Page

end if

else

rs.AbsolutePage=1

end if

Page = rs.AbsolutePage%>

<td colspan="5">总共<%=rs.recordcount%>首音乐

<%if session("xiaociwei")="xiaociwei" then%>

<%end if%></td>

For i = 1 to rs.PageSize

if rs.EOF then

Exit For

end if

%><Ahref="javascript:wi2('showwz.asp?id=<%=rs("dy_id")%>','','width=580,height=570')"><%=ubb(th(rs("dy_title")))%>......</a><%if session("xiaociwei")="xiaociwei" then%>   

<!--

function suredo(src,q)

{

var ret;

ret = confirm(q);

if(ret!=false)window.location=src;

}

//-->

</script>

<%end if%><font color="#009900">浏览<font color="#FF6633"><%=rs("dy_hit")%></font>次</font></td>

rs.movenext

end if

call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)

rs.close

set rs=nothing

conn.close

set conn=nothing %></td>

</tr>

</table>

Admin_me.asp：

<!--

function form1_onsubmit()

{

if (document.form1.dy_name.value=="")

{

alert("请输入name！")

document.form1.dy_name.focus()

return false

}

else if(document.form1.dy_place.value=="")

{

alert("请输入籍贯！")

document.form1.dy_place.focus()

return false

}

else if(document.form1.dy_fav.value=="")

{

alert("请输入你的爱好！")

document.form1.dy_fav.focus()

return false

}

else if(document.form1.dy_date.value=="")

{

alert("请输入出生日期")

document.form1.dy_date.focus()

return false

}

else if(document.form1.dy_oicq.value=="")

{

alert("请输入你oicq！")

document.form1.dy_oicq.focus()

return false

}

else if(document.form1.dy_good.value=="")

{

alert("请输入你的擅长！")

document.form1.dy_good.focus()

return false

}

else if(document.form1.dy_gy.value=="")

{

alert("请输入你的座右铭！")

document.form1.l_jshao.focus()

return false

-->

</script>

<%set rs=server.CreateObject("adodb.recordset")

sql="select * from dy_me"

rs.open sql,conn,3,3

if rs.eof and rs.bof then%>

houtai.asp：

<%end if if request.Form("sub1")="sub1" then

dy_name=request.Form("dy_name")

dy_sex=request.Form("sex")

dy_place=request.Form("dy_place")

dy_oicq=request.Form("dy_oicq")

dy_date=request.Form("dy_date")

dy_fav=request.Form("dy_fav")

dy_good=request.Form("dy_good")

dy_gy=request.Form("dy_gy")

rs.addnew

rs("dy_name")=dy_name

rs("dy_sex")=dy_sex

rs("dy_place")=dy_place

rs("dy_oicq")=dy_oicq

rs("dy_date")=dy_date

rs("dy_fav")=dy_fav

rs("dy_good")=dy_good

rs("dy_gy")=dy_gy

rs.update

%><script language="JavaScript">

alert("添加成功！")

window.location.href("main.htm")

</script>

<%end if%>

<% if request.Form("sub2")="sub2" then

dy_name=request.Form("dy_name")

dy_sex=request.Form("sex")

dy_place=request.Form("dy_place")

dy_oicq=request.Form("dy_oicq")

dy_date=request.Form("dy_date")

dy_fav=request.Form("dy_fav")

dy_good=request.Form("dy_good")

dy_gy=request.Form("dy_gy")

rs("dy_name")=dy_name

rs("dy_sex")=dy_sex

rs("dy_place")=dy_place

rs("dy_oicq")=dy_oicq

rs("dy_date")=dy_date

rs("dy_fav")=dy_fav

rs("dy_good")=dy_good

rs("dy_gy")=dy_gy

rs.update

%><script language="JavaScript">

alert("更新成功！")

window.location.href("main.htm")

</script>

<%end if

rs.close

set rs=nothing

conn.close

set conn=nothing%>

<%p=request("user")

session("yonghu")=p

set rs=Server.CreateObject("ADODB.Recordset")

set conn=Server.CreateObject("ADODB.Connection")

conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db1.mdb"))

sql="select * from biao1 where user='"&p&"'"

rs.Open sql,conn,1,3%>

<form name="form1" action="upuser1.asp?id=<%=rs("id")%>" method="post"><pre>

密码：<input name="text2" type="text" value= "<%=rs("pass")%>">

</form>

五、结论与心得体会：

通过这次实训。我加深对网站开发的理解，掌握使用asp语言进行编程和用Dreamweaver制作网页的基本方法，提高开发网站实际操作的能力。通过本课程的实训我掌握ASP编程的方法和设计过程，从而可以培养独立思考、分析项目的能力以及理论联系实际地进行项目的设计及实现能力。熟练ASP脚本编程、ASP组件使用、ASP数据访问控制、ASP应用系统设计。

更多相关推荐：

Asp实训报告: 西京学院经济系动态网站建设与开发实训报告专业及班级电子商务1002班姓名李聪学号10020xx058指导老师范桂龄报告完成时间20xx年6月14日Asp实训报告一实训目的1通过设计ASP的一些页面让我增多了对A...
ASP bbs学习论坛实训报告: 烟台南山学院计算机与电气自动化学院动态网页制作ASPNET实训报告20xx20xx学年第1学期姓名学号20xx410专业计算机科学与技术班级计科指导教师动态网页制作ASPNET实训报告
Asp实训报告: 西京学院经济系动态网站建设与开发实训报告专业及班级电子商务1001班姓名高严严学号10020xx002指导老师范桂龄报告完成时间20xx年6月14号Asp实训报告宋体二号加粗一实训目的宋体四号加粗1通过验证或设...
asp课程实训报告: ASP.NET2.0实用课程课程设计说明书设计题目：网上购书系统专业：电子商务班级学号：姓名：指导教师：20##年06月24日教务处印制设计内容：建立一个全面完整的电子商务网站，需要有数据库的支持，有注册页，登…
asp 实训(实习)报告: 集中实践报告课程名称：网站建设及B/S程序设计集中实践内容：迅捷体育用品购物网站集中实践时间及地点：20##年6月10日-20##年6月21日2号楼实训教室集中实践目的：该实训课程面向网站开发师岗位，培养从事一…
asp实训小结: Asp实训小结不知不觉又过了一个星期了这次实训总的下来感觉不易经过一周的实习我感觉做购物网站的每一个过程都是非常的复杂与繁琐所以一定要养成细心做事的习惯这样才可能做出一样成功的作品经过实习使我比较全面系统的了解...
计算机实训报告-asp-实训一: 东莞塘厦理工学校实训指导书《ASP程序设计》之一实训项目名称：常用HTML标记的使用实训目的：掌握常用HTML标记的使用方法实训设备：电脑实训内容与步骤：1、打开dw，新建一个网页，保存名为test1.htm2…

asp网页实训报告111: 陕西国防工业职业技术学院VisualBasic课程实训报告题目魅力陕西专业软件技术班级软件310119姓名学号35310119指导老师实训时间530610实训地点成绩软件教研室制陕西国防工业职业技术学院SHAA...
计算机实训报告-asp-实训二: 东莞塘厦理工学校实训指导书ASP程序设计之二实训项目名称段落和文字标记的使用实训目的掌握网页中如何设置段落及文字的大小对齐方式颜色等操作实训设备电脑实训内容与步骤1标题字体大小标记新建一个网页名字保存为test...
计算机实训报告-asp-实训四: 东莞塘厦理工学校实训指导书ASP程序设计之四实训项目名称图片的处理实训目的掌握图片的插入大小处理作为背景等图片处理方法实训设备电脑实训内容与步骤1打开dw新建一个网页保存名为test4htm2打开页面设置属性把...
asp表单提交实训报告: asp实训报告授课班级学生姓名一实训目的学习并掌握表单页面的设计及提交代码if语句二实训所涉及的知识点1requestform语句的使用2表单的三个重要属性设置3if语句4输出语句responsewrite5时...

mapgis 矢量化报告: 1实验目的11常用数字化软件Mapgis的认识和使用12理解地图数字化的原理和方法13使用数字化软件Mapgis对栅格地形图进行屏幕跟踪数字化的操作包括等高线水系道路陡崖陡坎居民地注记高程点等的矢量化2实验准备...

热门关注

《ASP[1].net网络编程》实训报告模板

NET生产实习报告