第一篇:asp总结
生成静态页面的代码:
<%
dim xmlHttp,os, PersonNum
'定义xmlhttp
function GetXmlText(Url)
dim GetXmlHttp
set GetXmlHttp=server.Createobject(“Microsoft.XMLHTTP”)GetXmlHttp.open “Get”,url,false,“",”“
GetXmlHttp.Send
'GetXmlText=GetXmlHttp.Responsetext
GetXmlText=GetXmlHttp.ResponseBody
set GetXmlHttp=Nothing
end function
'转换为字符
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject(”adodb.stream“)objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
'保存文件
Sub SaveToFile(strBody,File)
Dim objStream
Set objStream = Server.CreateObject(”ADODB.Stream“)With objStream
.Type = 2
.Open
.Charset = ”GB2312“
.Position = objStream.Size
.WriteText = strBody
.SaveToFile Server.MapPath(File),2
.Close
End With
Set objStream = Nothing
End Sub
%>
<% dim k
k=0
'set rs=server.createobject(”adodb.recordset“)
'sql=”select ComId FROM CompanyTbl order by Comid desc“
'rs.open sql,conn,1,1
'PersonNum = rs.recordcount
'
do while k<10
Randomize
ComId=int(rnd*1000)
%>
<%SaveToFile
BytesToBstr(GetXmlText(”“%>
<%
'rs.movenext
k=k+1
loop
'rs.close()
'Set rs=Nothing
'Qsite.ShowMsg ”成功生成企业(“&PersonNum &”)份“ , ”../sitesys/muban1.asp“
%>
加载数据库代码:
<%
response.expires=0
response.buffer=true
session.timeout=30
dim conn
dim char_str(20)
sub OpenDataConn()
dim connstr
connstr = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“
connstr = connstr & Server.MapPath(”../data/qhousedb.asp“)
'response.write connstr
set conn=Server.CreateObject(”AdoDb.Connection“)
conn.Open connstr
end sub
sub CloseDataConn()
'conn.close
set conn=Nothing
end sub
%>
插入记录语句的执行1:
sql=”insert into news(topic,q1,fromw,sort,comment)values(“&topic&”,“&q1&”,“&fromw&”,'“&sort&”',“&comment&”)“
opendataconn
conn.execute sql
response.redirect”news_del.asp“
修改语句的执行2:
sql=”updatenews set topic=“&topic&”,q1=“&q1&”,fromw=“&fromw&”,sort='“&sort&”',DNT=now(),comment=“&comment&” where newsid=“&newsid&”“
删除语句的执行3:
<%
opendataconn
ids=split(request(”newsid“),”,“)
for i=0 to ubound(ids)
tt=trim(ids(i))
set rs=server.createobject(”adodb.recordset“)
'rs.open”select * from news where newsid=“&tt&”“,conn,1,1
'If Not Rs.Eof Then
'imgname=Split(Trim(Rs(”imgname“)),”,“)
' For m=0 to ubound(imgname)
'If len(imgname(m))>12 then
'set fso=Server.CreateObject(”Scripting.FileSystemObject“)
' fso.deleteFile Server.MapPath(”../pic/“&imgname(m))
'Set fso=Nothing
' end if
'Next
' End if
'rs.close
sql=”select * from news where newsid=“&tt&”“
rs.open sql,conn,1,1
if not rs.eof then
conn.execute ”delete from news where newsid=“&tt&”“
rs.close
set rs=nothing
end if
conn.execute”delete from news where newsid=“&tt&”“
next
response.redirect”news_del.asp“
closedataconn
%>
输出语句的执行4:
<%
strSql=”select top 12 * from news where sort=1 order by dnt desc“set rs=Server.CreateObject(”ADODB.RecordSet“)
rs.open strSql,conn,3,3
do while not rs.eof%>
<%
Rs.MoveNext
Loop
Rs.Close %>
Session.timeout=100
失效时间!
把文件写入txt中
<%
dim fs,fname,f,t,x
set fs=Server.CreateObject(”Scripting.FileSystemObject“)公共的部分
'set fname=fs.CreateTextFile(”textads.txt“,true)
'fname.WriteLine(”我是伟!!“&year(now())&”-“&month(now())&”-“&day(now())&”“)
'fname.Close
'set fname=nothing
'set fs=nothing是写入文件中
set t=fs.OpenTextFile(”textads.txt“,1,false)
x=t.ReadLine 张小
x=replace(x,”,“,”我是张小伟“)
t.close
Response.Write(”“& x &”")读出里面的内容 %>
第二篇:ASP总结
ASP 课 程 设 计 总 结系别:信息工程系 班级:09大计一班 学号:52 姓名:张明
通过这次课程设计,我拓宽了知识面,锻炼了能力,综合素质得到了提高。课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程.通过理论与实际的结合、人与人的沟通,进一步提高思想觉悟。尤其是观察、分析和解决问题的实际工作能力,以便培养成为能够主动适应社会主义现代化建设需要的高素质的复合型人才。作为整个学习体系的有机组成部分,课程设计虽然安排在连续两周进行,但并不具有绝对独立的意义。它的一个重要功能,在于运用学习成果,检验学习成果。运用学习成果,把课堂上学到的系统化的理论知识,尝试性地应用于实际设计工作,并从理论的高度对设计工作的现代化提出一些有针对性的建议和设想。检验学习成果,看一看课堂学习与实际工作到底有多大距离,并通过综合分析,找出学习中存在的不足,以便为完善学习计划,改变学习内容与方法提供实践依据。对我们计算机专业的专科生来说,实际能力的培养至关重要,而这种实际能力的培养单靠课堂教学是远远不够的,必须从课堂走向实践。这也是一次预演和准备毕业设计工作。通过课程设计,让我们找出自身状况与实际需要的差距,并在以后的学习期间及时补充相关知识,为求职与正式工作做好充分的知识、能力准备,从而缩短从校园走向社会的心理转型期。
回顾起此次asp课程设计,至今我仍感慨颇多,的确,从拿到老师给我们的题目,然后老师简单的阐述我们该做些什么,该完成些什么的时候,我就觉得这个课程设计是很有挑战的,因为我知道平时自
己学的知识不是很牢固,这些做起来肯定很棘手。事实验证了我的想法。在整整两星期的日子里,可以说得是苦多于甜,由于对相关知识所学甚少,可以说做起设计来是一片茫然。在设计的过程中遇到问题,可以说得是困难重重,遇到过各种各样的问题,同时在设计的过程中发现了自己的不足之处,对以前所学过的知识理解得不够深刻,掌握得不够牢固。看着那些陌生的代码和程序,真的不知道该怎么办。但是最后还是我们组其他成员帮助了我。在他们做的差不多的情况下,我在帮忙整理和美化,并试着去看懂代码,在这期间我也弄懂了不少问题和知识。由于自己并没多少知识,别人可以说是通过此次课程设计巩固了以前所学过的知识,而且学到了很多在书本上所没有学到过的知识,而我呢,只能说是从这次课程设计中重新审视了自己,终于发现自己对所学知识的严重不足,这也给我提了个醒,没知识终究将是一事无成。
不过通过这次课程设计我也明白了很多事理。它使我懂得了理论与实际相结合是很重要的,只有理论知识是远远不够的,只有把所学的理论知识与实践相结合起来,从理论中得出结论,才能真正为社会服务,从而提高自己的实际动手能力和独立思考的能力。
课程设计达到了专业学习的预期目的。在两个星期的课程设计之后,我们普遍感到不仅实际动手能力有所提高,更重要的是通过对汇编语言重大功能的了解,进一步激发了我们对专业知识的兴趣,并能够结合实际存在的问题在专业领域内进行更深入的学习。在课程设计过程中,收获知识,提高能力的同时,我也学到了很多人生的哲理,懂得怎么样去制定计划,怎么样去实现这个计划,并掌握了在执行过程中怎么样去克服心理上的不良情绪。因此在以后的生活和学习的过程中,我一定会把课程设计的精神带到生活中,不畏艰难,勇往直前!
第三篇:ASP操作Excel技术总结
ASP操作Excel技术总结
目录
一、环境配置
二、ASP对Excel的基本操作
三、ASP操作Excel生成数据表
四、ASP操作Excel生成Chart图
五、服务器端Excel文件浏览、下载、删除方案
六、附录
正文
一、环境配置
服务器端的环境配置从参考资料上看,微软系列的配置应该都行,即:
1.Win9x+PWS+Office
2.Win2000 Professional+PWS+Office
3.Win2000 Server+IIS+Office
目前笔者测试成功的环境是后二者。Office的版本没有特殊要求,考虑到客户机配置的不确定性和下兼容特性,建议服务器端Office版本不要太高,以防止客户机下载后无法正确显示。
服务器端环境配置还有两个偶然的发现是:
1.笔者开发机器上原来装有金山的WPS2002,结果Excel对象创建始终出现问题,卸载WPS2002后,错误消失。
2.笔者开发ASP代码喜欢用FrontPage,结果发现如果FrontPage打开(服务器端),对象创建出现不稳定现象,时而成功时而不成功。扩展考察后发现,Office系列的软件如果在服务器端运行,则Excel对象的创建很难成功。
服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”,则进入COM组件配置界面,选择Microsoft Excel后点击属性按钮,将三个单选项一律选择自定义,编辑中将Everyone加入所有权限。保存完毕后重新启动服务器。
客户端的环境配置没发现什么特别讲究的地方,只要装有Office和IE即可,版本通用的好象都可以。
二、ASP对Excel的基本操作
1、建立Excel对象
set objExcelApp = CreateObject(“Excel.Application ”)
objExcelApp.DisplayAlerts = false
不显示警告
objExcelApp.Application.Visible = false
不显示界面
2、新建Excel文件
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
3、读取已有Excel文件
strAddr = Server.MapPath(“.”)
objExcelApp.WorkBooks.Open(strAddr & “TempletTable.xls ”)
set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
4、另存Excel文件
objExcelBook.SaveAs strAddr & “TempTable.xls ”
5、保存Excel文件
objExcelBook.Save
(笔者测试时保存成功,页面报错。)
6、退出Excel操作
objExcelApp.Quit
一定要退出
set objExcelApp = Nothing
三、ASP操作Excel生成数据表
1、在一个范围内插入数据
objExcelSheet.Range(“B3:k3 ”).Value = Array(“67 ”, “87 ”, “5 ”, “9 ”, “, ”45 “, ”54 “, ”54 “, ”10 “)
2、在一个单元格内插入数据
objExcelSheet.Cells(3,1).Value= ”Internet Explorer “
3、选中一个范围
4、单元格左边画粗线条
5、单元格右边画粗线条
6、单元格上边画粗线条
7、单元格下边画粗线条
8、单元格设定背景色
9、合并单元格
10、插入行
11、插入列
四、ASP操作Excel生成Chart图
1、创建Chart图
objExcelApp.Charts.Add
2、设定Chart图种类
objExcelApp.ActiveChart.ChartType = 97
注:二维折线图,4;二维饼图,5;二维柱形图,51
3、设定Chart图标题
objExcelApp.ActiveChart.HasTitle = True
objExcelApp.ActiveChart.ChartTitle.Text = ”A test Chart “
4、通过表格数据设定图形
objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range(”A1:k5 “),1
5、直接设定图形数据(推荐)
objExcelApp.ActiveChart.SeriesCollection.NewSeries
objExcelApp.ActiveChart.SeriesCollection(1).Name = ”= “ ”333 “ ” “
objExcelApp.ActiveChart.SeriesCollection(1).Values = ”={1,4,5,6,2} “
6、绑定Chart图
objExcelApp.ActiveChart.Location 1
7、显示数据表
”7 “, ”45 objExcelApp.ActiveChart.HasDataTable = True
8、显示图例
objExcelApp.ActiveChart.DataTable.ShowLegendKey = True
五、服务器端Excel文件浏览、下载、删除方案
浏览的解决方法很多,“Location.href=”,“Navigate”,“Response.Redirect”都可以实现,建议用客户端的方法,原因是给服务器更多的时间生成Excel文件。
下载的实现要麻烦一些。用网上现成的服务器端下载组件或自己定制开发一个组件是比较好的方案。另外一种方法是在客户端操作Excel组件,由客户端操作服务器端Excel文件另存至客户端。这种方法要求客户端开放不安全ActiveX控件的操作权限,考虑到通知每个客户将服务器设置为可信站点的麻烦程度建议还是用第一个方法比较省事。
删除方案由三部分组成:
A:
同一用户生成的Excel文件用同一个文件名,文件名可用用户ID号或SessionID号等可确信不重复字符串组成。这样新文件生成时自动覆盖上一文件。
B:
在Global.asa文件中设置Session_onEnd事件激发时,删除这个用户的Excel暂存文件。
C:
在Global.asa文件中设置Application_onStart事件激发时,删除暂存目录下的所有文件。
注:建议目录结构
Src 代码目录
Templet 模板目录
Temp 暂存目录
六、附录
出错时Excel出现的死进程出现是一件很头疼的事情。在每个文件前加上“On Error Resume Next”将有助于改善这种情况,因为它会不管文件是否产生错误都坚持执行到“Application.Quit”,保证每次程序执行完不留下死进程。
.
正在导入Excel表 请稍等..... |
第四篇:asp 专题
三、简答题与程序设计题
编写程序计算112+ 122+132+…+232的值。在个人主页上添加时间信息,并判断下午、晚上,上午和夜间,并分别给出问候:下午好、晚上好、上午好和夜里好。
编写函数返回x和y的立方和,并举例调用。
在ASP中,VBScript有多种控制程序流程语句,如If…Then, Select… Case,For … Next, Do … Loop, Exit等语句。请为这五个语句分别写一段使用的代码。
请看如下代码<%TestString=“Test”TestATestBResponse.write TestStringSub TestA()TestString=“TestA”End SubSub TestB()Dim TestStringTestString=“TestB”End Sub%>这段代码执行后,运行结果是什么?并解释一下为什么?
编写一个星期的函数GetWeek(aDate)返回“星期
一、星期
二、星期三...” 用ASP输出九九乘法口决表的网页输出如下:1*1=11*2=2 2*2=41*3=3 2*3=6 3*3=9...要求编写一个完整的ASP文件
2010-12-10 15:43 最佳答案 第一题: <% dim j:j=0 for i=112 to 232 step 10 j=i+j next response.write j %>
第二题: <% dim mytime:mytime=hour(now())if mytime>=0 then response.write “夜间好” if mytime>=8 then response.write “上午好” if mytime>=12 then response.write “下午好” if mytime>=18 then response.write “晚上好” %>
第三题: <% Response.Write “23和45的立方和是:” &getSum(23,45)
function getSum(a,b)
getSum=a^3+b^3 end function %>
第四题:
1>
if...then
for example:
Dim Color, MyVar
Sub ChangeBackground(Color)
MyVar = lcase(Color)
If myvar=“red” then
document.bgColor = “red”
elseif myvar= “green”
document.bgColor = “green”
elseif myvar= “blue”
document.bgColor = “blue”
Else response.write(“选择另一种颜色”)
End if
End if
End Sub
2>select..case
for example:
Dim Color, MyVar
Sub ChangeBackground(Color)
MyVar = lcase(Color)
Select Case MyVar
Case “red”
document.bgColor = “red”
Case “green” document.bgColor = “green”
Case “blue”
document.bgColor = “blue”
Case Else
MsgBox “选择另一种颜色”
End Select
End Sub 3> For…next
比如实现一个循环输出记录
For i=1 to rs.recordcount If rs.eof then
Rs(“title”)Rs.movenext End if Next 4> Do … Loop
以上例类似,实现重复显出记录 If not rs.eof then
i=1
do while not rs.eof
rs(“title”)
rs.movenext
i=i+1
loop
end if
第五题:
运行结果是:testA 原因是:testA所附值的是一个全局变量TestString testB因为有Dim TestString这句定义,所以它所附值的只是一个局部变量。第六题:
function GetWeek(aDate)if isdate(aDate)then GetWeek=weekdayname(WeekDay(aDate))end if end function response.Write GetWeek(“2002/1/3”)第七题: 方法1:
<%=j&“*”&i&“=”&j*i%> <%next%> | <%=“ ”%> <%next%> |
第五篇:ASP心得体会
ASP.NET学习体会
ASP学习心得
一、准备工作
首先,学习ASP要有些基本的编程知识.最好先学过点VB JAVA最好因为ASP不是一门编程语言而是一个WEB编程框架.他是利用脚本(vbscript javascript)语言做为编程语言的.如果你不会他们那么至少得会点C.C也不会的话建议你先学下C,虽然并不是一定要先学过编程语言,但是学他对这个的学习是有莫大的好处的.
在ASP.NET中,整张Web页是放在一张大表单里面的。如:
文档为doc格式
声明:本文内容由互联网用户自发贡献自行上传,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任。如果您发现有涉嫌版权的内容,欢迎发送邮件至:645879355@qq.com 进行举报,并提供相关证据,工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。
ASP心得体会
ASP.NET定岗实习总结 经过三个月的实习,初步掌握了ASP.NET动态网页开发Web应用,感觉ASP.NET网站建设和维护不是很简单,其中不仅要应用各种方面的知识还要对所学的知识学会变通......
学习ASP
学习ASP. NET 技术框架的心得和体会 经过一学期对ASP. NET这门课程的学习,让我们学习到很多东西,这门课程向学生全面的介绍了ASP. NET3.5动态网站开发需要的基本技术,包括配置......
ASP心得体会
ASP.NET心得体会 经过两个多月的学习和上课听讲,初步掌握了ASP.NET动态网页制作的一些简单的知识和基本常识,也能从老师讲的基本知识中应用一下上课所学到的知识,感觉ASP.NET网......
asp刷新页面实现方式总结
网页刷新代码-刷新页面实现方式总结篇 自动刷新页面的实现方法总结: 1) 10表示间隔10秒刷新一次 2) window.location.reload(true); 如果是你要刷新某一个iframe就把wind......
如何学习ASP
如何学习ASP.NET? 如果你已经有较多的面向对象开发经验,跳过以下这两步: 第一步 掌握一门.NET面向对象语言,C#或VB.NET。 我强烈反对在没系统学过一门面向对象语言的前提下去学AS......
ASP实习报告
新疆农业职业技术学院《网络管理与维护》 实习报 告部门:信息技术学院 专业:计算机网络技术 班级: 06网络 姓名: 康杨 指导教师:傅峰实习报告 一、实习时间2010年 05 月 17 日......
办公自动化论文:办公自动化 ASP
办公自动化论文:办公自动化 ASP 【中文摘要】随着我国教育事业的蓬勃发展和教育体制改革的不断深入,高校日常管理的工作效率问题越来越受到教育界所重视,作为新兴的民办高校......
ASP课程教学大纲
《ASP.NET》课程教学大纲 一、课程的性质 ASP.NET课程是计算机软件,计算机网络及相关专业的专业核心课程,本课程是在学生学习了《C++》、《C#》、《数据库》及相关图像处理软......