冷月葬花魂 发表于 2015-2-3 23:37:29

ASP编程:ASP生成静态网页,进修CASE的用法,和...

优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件静态|掌握|网页   <form action="calscore.asp?action=do" method="post" name=form1> ... </form>


<!--#include file="connect.asp"-->
<% if session("logstatus")<>1 then %>
<p align="center">
<font size="5" ><b>你还没有登录,没有权力阅读本页,请先<a href="login.asp">登录</a>!</b></font></p>
<%
else
'读取login.htm附带的SubjectNo、StudentID及Name参数值
Subject=Request("Subject")
StudentID=Request("StudentID")
Name=Request("Name")

******** 途径和文件的创立 ********************************************************************
'格局化日期
Function format(date)
format=datepart("yyyy",date)&"年"&datepart("m",date)&"月"&datepart("d",date)&"日 "&formatdatetime(date,vbshorttime)
End Function
dim fmonth,fday,fhour,fminute,fsecond
fmonth=month(date)
if len(month(date))<2 then fmonth="0"&month(date) end if
fday=day(date)
if len(day(date))<2 then fday="0"&day(date) end if
fhour=hour(now())
if len(hour(now()))<2 then fhour="0"&hour(now()) end if
fminute=minute(now())
if len(minute(now()))<2 then fminute="0"&minute(now()) end if
fsecond=second(now())
if len(second(now()))<2 then fsecond="0"&second(now()) end if
newspath=year(date)&fmonth&fday
newsurl=fhour&fminute&fsecond
putdate=format(now())

if request("action")="do" then

path=server.MapPath("kaoshi") /.界说的一个文件
set fso=server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(path)=false then
fso.CreateFolder(path)
end if
path=path&"/"&newspath
if fso.FolderExists(path)=false then
fso.CreateFolder(path)
end if
path=path&"/"&newsurl&".shtml" /.生成SHTML页面

set ts=fso.OpenTextFile(path,2,true,-2)

******** 生成HTML页面 ***********************************************************************
ts.writeline"<html>"
ts.writeline"<head>"
ts.writeline"<title>"&name&""
ts.writeline","&subject&""
ts.writeline" - 成就了局</title>"
ts.writeline"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
ts.writeline"<link rel=""stylesheet"" href=""css.css"" type=""text/css"">"
ts.writeline"</head>"
ts.writeline""

ts.writeline"<body bgcolor=""#FFFFFF"" text=""#000000"">"
ts.writeline"<table width=""100%"">"
ts.writeline"<tr>"
ts.writeline"<td width=""100%"">"
ts.writeline"<h2>"
ts.writeline""&Name&""
ts.writeline",你的测验成就以下表:</h2>"

dim score
score=0
sqlt="select * from 考题类型"
rst.open sqlt,conn,1,1
do while not rst.eof
tn=rst("id")
tname=rst("name")

ts.writeline"<b>"
ts.writeline""&tname&""
ts.writeline"</b><br><br>"

sql="Select * From "&Subject&" where 标题类型="&tn&" order by 标题序号"
rs.open sql,conn,2,2
while not rs.eof
answer=rs("准确谜底")
select case rs("标题类型")
case 1:
selection=Request("No"&rs("标题序号"))
ts.writeline rs("标题序号")
ts.writeline"、"&selection&"<br>"
case 2:
selection=""
for n=1 to 4
if not Request("No"&rs("标题序号")&"-"&n)="" then
selection=selection&Request("No"&rs("标题序号")&"-"&n)
end if
next
ts.writeline rs("标题序号")
ts.writeline" 、"&selection&"<br>"
case 3:
selection=Request(rs("选择项1"))
ts.writeline rs("标题序号") </p>只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天

不帅 发表于 2015-2-4 03:53:38

还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。

飘飘悠悠 发表于 2015-2-4 20:31:44

我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.

柔情似水 发表于 2015-2-9 09:30:54

交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。

爱飞 发表于 2015-2-20 14:20:27

Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)

透明 发表于 2015-3-6 18:17:25

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。

山那边是海 发表于 2015-3-7 19:51:18

接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。

简单生活 发表于 2015-3-15 12:38:25

我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。

小魔女 发表于 2015-3-22 00:53:42

我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。

灵魂腐蚀 发表于 2015-3-22 18:11:50

另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)

海妖 发表于 2015-3-25 12:50:02

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。

老尸 发表于 2015-4-4 21:53:21

Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")

蒙在股里 发表于 2015-4-7 22:33:18

完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。

再现理想 发表于 2015-4-21 03:52:06

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

飘灵儿 发表于 2015-4-22 09:29:19

另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)

仓酷云 发表于 2015-4-26 18:38:19

学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:

金色的骷髅 发表于 2015-4-28 16:58:45

完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。

小女巫 发表于 2015-4-28 22:06:06

他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。

变相怪杰 发表于 2015-5-1 12:11:52

多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。

冷月葬花魂 发表于 2015-5-2 19:24:51

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
页: [1]
查看完整版本: ASP编程:ASP生成静态网页,进修CASE的用法,和...