ASP知识盘点

01.asp

'1、请在你的个人主页上添加时间显示信息，显示当天的日期、时间及星期几。

<html>

<head>

</head>

<body>

Response.Write Date() & " " & Time()

Select Case Weekday(Date())

case 1

Response.Write "星期日"

case 2

Response.Write "星期一"

case 3

Response.Write "星期二"

case 4

Response.Write "星期三"

case 5

Response.Write "星期四"

case 6

Response.Write "星期五"

case 7

Response.Write "星期六"

End Select

</body>

</html>

02.asp

<%'2、请编写函数能够随机产生从a到b之间的随机数，并举例调用。%>

<html>

<head>

</head>

<body>

'随机函数如下：

function Rndab(a,b)

Randomize Time() '初始随机种子，否则每次产生的值都是一样的

Rndab=Int(b-a+1)*Rnd()+a

end function

Response.Write "产生一个10到20之间的随机数："& Rndab(10,20)

</body>

</html>

03.asp

'3、请开发一个页面，让用户通过下拉列表框选择自己想要访问新浪、搜狐还是网易网站，用户提交选择结果后自动打开该网站。

<html>

<head>

</head>

<body>

function gotoPage()

dim site

site=siteLink.value

if site="新浪" then

window.location="http://www.sina.com"

elseif site="网易" then

window.location="http://www.163.com"

elseif site="搜狐" then

window.location="http://www.sohu.com"

else site="百度"

window.location="http://www.baidu.com"

end if

end function

</script>

</select>

</body>

</html>

04.asp

'4、请开发一个页面，显示来访者的IP地址。并判断：如果IP地址以202.112开头，

'则显示欢迎信息；否则显示为非法用户，并终止执行程序。

<html>

<head>

</head>

<body>

dim ip

ip=request.ServerVariables("REMOTE_ADDR")

if left(ip,7)="202.112" then

response.Write("??????!")

elseif left(ip,5)="127.0" then

response.Write("??ip???:"&ip&",??????!")

else

end if

</body>

</html>

05.asp

'5、请开发一个页面，其中可以输入姓名和年龄，并选择有效期为1周、1月或1年。

'提交表单后将姓名和年龄保存到Cookie中，并按选择设置有效期。

<html>

<head>

</head>

<body>

response.Write "当前cookies中的姓名是：" & request.Cookies("user")("username")

if Request.Form("username")<>"" and Request.Form("age")<>"" then

Response.Cookies("user")("username")=Request.Form("username")

response.cookies("user")("age")=Request.form("age")

response.cookies("user").expires=DateAdd("d",Request.Form("validity"),Date())

end if

姓名：<input type="text" name="username"><br>

年龄：<input type="text" name="age"><br>

请选择cookie有效期：

<input type="radio" name="validity" value="7">一周   

<input type="radio" name="validity" value="30">一月   

<input type="radio" name="validity" value="365">一年   

</form>

</body>

</html>

06.asp

'6、编写一个能防止用户自我刷新的计数器。

<html>

<head>

</head>

<body>

if session("flat")<>1 then

application.Lock()

application("visitCount")=application("visitCount")+1

Application.UnLock()

session("flat")=1

end if

Dim visitCount

visitCount=Application("visitCount")

Response.Write "您是第" & visitCount & "位访问本站"

</body>

</html>

07.asp

'7、编程实现一个聊天室。要求在发言显示区能显示发言用户的用户名、IP、发言时间、心情及发言内容。

<html>

<head>

</head>

<body>

姓名：<input type="text" name="username"><br>

发言内容：<br><textarea name="say" rows="10" cols="40">请输入内容...</textarea><br>

</form>

if trim(request.Form("username"))<>"" and trim(request.Form("say"))<>"" and trim(request.Form("say"))<>"请输入内容..." then

Dim say

say="IP为：" & request.ServerVariables("REMOTE_ADDR") & "<br>" & request.Form("username") & "<br>" & Now() & "说：" & request.Form("say") & "<br><br>"

application.Lock()

application("strChat")=application("strChat") & say

application.UnLock()

response.Write application("strchat")

end if

</body>

</html>

08.asp

'8、在线投票客户端应用的实现。具体要求是：在在线投票模块的客户端界面中，

'网站用户可选择投票主题进行投票，选择投票主题后，可选择投票选项进行提交，

'并可浏览该主题的投票结果。一个网络用户只可以对一个主题投一次票，防止同一用户多次投票。

<html>

<head>

</head>

<body>

你喜欢看的电影：<br>

<input type="radio" name="movie" value="水世界">水世界  

<input type="radio" name="movie" value="大侦探福尔摩斯">大侦探福尔摩斯  

你喜欢听的音乐：<br>

<input type="radio" name="music" value="菊花台">菊花台  

<input type="radio" name="music" value="吻别">吻别  

<input type="radio" name="music" value="披着羊皮的狼">披着羊皮的狼  <br>

</form>

if request.QueryString("movie")<>"" and request.QueryString("music")<>"" then

response.Write("只能同时选择一个主题进行投票！")

elseif isempty(request.QueryString("movie")) and isempty(request.QueryString("music")) then

response.Write("投票选择不能为空！")

else

dim ip(30),i,flat

i=0

flat=0

while i<30 and flat=0

if application(ip(i))<>request.ServerVariables("REMOTE_ADDR") then

application.Lock()

application(ip(i))=request.ServerVariables("REMOTE_ADDR")

application.UnLock()

response.Write("投票成功")

flat=1

else

response.Write("你已经投过票了，投票无效")

flat=1

end if

i=i+1

wend

end if

</body>

</html>

Db.mdb Access数据库

数据库表

查询

广告文件

09.asp

09a.asp

'9、请编程实现用户注册模块。该模块所具备的功能如下：

'①用户注册表单页面，主要负责收集用户的信息，并对用户输入的信息进行简单的有效性验证；

'②能对用户提交的数据进行必要的有效性验证；

'③能将符合要求的用户数据添加到程序数据库中；

'④能对用户提交验证后的数据反馈结果。

<html>

<head>

</head>

function check_info()

if form1.username.value="" then

msgbox("用户名不能为空")

check_info=0

elseif form1.password.value="" then

msgbox("密码不能为空")

check_info=0

elseif form1.email.value="" then

msgbox("email不能为空")

check_info=0

else

end if

end function

</script>

<body>

用户名：<input type="text" name="username"><br>

密码：<input type="password" name="password"><br>

性别：<input type="radio" name="sex" value="男" checked>男  

e-mail:<input type="text" name="email"><br>

</form>

if request.Form("username")<>"" And request.Form("password")<>"" then

dim username,password,sex,email

username=request.Form("username")

password=request.Form("password")

sex=request.Form("sex")

email=request.Form("email")

dim conn,strConn

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

'strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db.mdb")

strConn="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("db.mdb")

conn.Open strConn

Dim strSql

strSql="insert into user(username,password,sex,email) values('"&username&"','"&password&"','"&sex&"','"&email&"')"

conn.execute(strSql)

response.Redirect "09b.asp"

end if

</body>

</html>

09b.asp

<html>

<head>

</head>

<body>

用户名：<input type="text" name="username"><br>

密码：<input type="password" name="password"><br>

</form><br>

if IsEmpty(session("username")) then

session("username")=""

elseif session("username")="" then

dim username,password

username=trim(request.Form("username"))

password=trim(request.Form("password"))

dim sql,conn,rs

sql="select * from user where username='"&username&"'"

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

'strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db.mdb")

strConn="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("db.mdb")

conn.open strConn

Set rs=conn.execute(sql)

if rs.eof then

response.Write "<br>登录失败</body></html>"

response.End()

elseif rs("password")<>password then

response.Write "<br>登录失败</body></html>"

response.End()

else

session("username")=username

response.Write "<br>登录成功</body></html>"

end if

else

end if

</body>

</html>

10.asp

10a.asp

'10、向指定的数据表中添加一条完整的记录，要求用两种方法实现。（说明：其中数据表由自己设定）

<html>

<head>

</head>

<body>

function check_info()

if form1.username.value="" then

msgbox "用户名不能为空"

check_info=0

elseif form1.password.value="" then

msgbox "密码不能为空"

check_info=0

elseif form1.email.value="" then

msgbox "email地址不能为空"

check_info=0

else

chck_info=1

end if

end function

</script>

用户名：<input type="text" name="username"><br>

密码：<input type="password" name="password"><br>

性别：

<input type="radio" name="sex" value="男" checked>男  

email:<input type="text" name="email"><br>

<input type="submit" value="提交">  

</form>

if not isempty(request.Form("username")) then

dim username,password,sex,email

username=trim(request.Form("username"))

password=trim(request.Form("password"))

sex=request.Form("sex")

email=trim(request.Form("email"))

dim conn,strConn

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

strConn="Driver={Microsoft Access Driver (*.mdb)};Dbq=" &server.MapPath("db.mdb")

conn.open strConn

dim strSql

strSql="insert into user(username,password,sex,email) values('"&username&"','"&password&"','"&sex&"','"&email&"')"

conn.execute(strSql)

response.Write "已向user表中了写入了"

response.Write(username)

end if

</body>

</html>

10b.asp

'10、向指定的数据表中添加一条完整的记录，要求用两种方法实现。（说明：其中数据表由自己设定）

<html>

<head>

</head>

<body>

function check_info()

if form1.username.value="" then

msgbox "用户名不能为空"

check_info=0

elseif form1.password.value="" then

msgbox "密码不能为空"

check_info=0

elseif form1.email.value="" then

msgbox "email地址不能为空"

check_info=0

else

chck_info=1

end if

end function

</script>

用户名：<input type="text" name="username"><br>

密码：<input type="password" name="password"><br>

性别：

<input type="radio" name="sex" value="男" checked>男  

email:<input type="text" name="email"><br>

<input type="submit" value="提交">  

</form>

if not isempty(request.Form("username")) then

dim username,password,sex,email

username=trim(request.Form("username"))

password=trim(request.Form("password"))

sex=request.Form("sex")

email=trim(request.Form("email"))

dim conn,strConn

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

'strConn="Driver={Microsoft Access Driver (*.mdb)};Dbq=" &server.MapPath("db.mdb")

'strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.Mappath("db.mdb")

'conn.open strConn

conn.Open "aspdb"

strSql="insert into user(username,password,sex,email) values('"&username&"','"&password&"','"&sex&"','"&email&"')"

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

rs.open strSql,conn,1,1

response.Write "已向user表中了写入了"

response.Write(username)

end if

</body>

</html>

11.asp

11a.asp

'11、假设某数据表中存在"删除"这一字段，请编程实现使得"删除"记录时需要输入密码，

'密码正确才能修改。

<html>

<head>

</head>

sub DelCheck(Byval username)

password = inputbox("密码提示：123456","请输入密码","",700,600)

if password="123456" then

window.location="11b.asp?username="&username

else

msgbox("密码错误")

window.location="11a.asp"

end if

end sub

</script>

<body>

if isempty(request.Form("username")) then

dim conn

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

conn.Open "aspdb"

strSql="select username,password,sex,email from user"

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

rs.open strSql,conn,1,1

<tr><th>用户名</th><th>密码</th><th>性别</th><th>email</th><th>删除</th></tr>

do while not rs.eof

<tr>

</tr>

rs.MoveNext

loop

end if

</table>

</center>

</body>

</html>

11b.asp

<html>

<head>

</head>

<body>

<tr><th>用户名</th><th>密码</th><th>性别</th><th>email</th></tr>

'if isempty(request.Form("username")) then

dim conn,username

username=request.QueryString("username")

response.Write "删除"&username&"成功<br>"

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

conn.Open "aspdb" '直接使用数据源

strSql1="delete from user where username='"&username&"'"

conn.execute(strSql1)

strSql2="select username,password,sex,email from user"

'set rs=server.CreateObject("ADODB.Recordset")

set rs=conn.execute(strSql2)

do while not rs.eof

<tr>

</tr>

rs.MoveNext

loop

'end if

</table>

</center>

</body>

</html>

12.asp

'功能：实现将满足用户条件的数据从相应的数据表中找出来，

'并以表格的形式显示到Web页面。（说明：要求用参数查询实现）

'author:罗维

'日期：2011-10-29

<html>

<head>

</head>

<body>

请输入查找的姓名：<input type="text" name="username">

</form>

if request.form("username")<>"" then

dim conn,strConn

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

'strConn="Driver={Microsoft Access Driver (*.mdb)};Dbq="&server.MapPath("db.mdb")

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db.mdb")

conn.Open strConn

dim cmd

set cmd=server.CreateObject("ADODB.Command")

cmd.ActiveConnection=conn

dim prmName,prmType,prmDirection,prmSize,prmValue

prmName="varUsername"

prmType=200 '200表示变长字符串

prmDirection=1

prmSize=10

prmValue=request.form("username")

dim prm

set prm=cmd.CreateParameter(prmName,prmType,prmDirection,prmSize,prmValue)

cmd.Parameters.Append(prm) '把prm参数对象添加到参数集

dim rs

cmd.CommandType=4 '表示查询指令是查询名

cmd.CommandText="qryByUsername"

Set rs=cmd.execute()

do while not rs.eof

response.Write "用户名：<b>"&rs("username") &"</b> "

response.Write "密码：<b>"&rs("password") &"</b> "

response.Write "性别：<b>"&rs("sex") &"</b> "

response.Write "email：<b>"&rs("email") &"</b> "

rs.moveNext

loop

end if

</center>

</body>

</html>

14.asp

'14、请开发一个简单的在线考试程序，包括3道单选题和3道多选题。

'单击"交卷"按钮后就可以根据标准答案在线评分。要求将试题和答

'案都存放到数据库中，从数据库中读出；学生在线完成后，将成绩保

'存回数据库。（提示：可能需要两张数据表，分别用来保存题目和成绩）

<html>

<head>

</head>

<body>

<html>

<BODY>

'以下连接数据库，建立一个Connection对象实例conn

Dim conn,strConn

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

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db.mdb")

conn.Open strConn

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

'以下建立Recordset对象实例rs，注意SQL语句中要用到上面获取的排序字段

Dim rs,strSql

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

'下面先查找出单选的题目

strSql ="Select ID,Title,selectA,selectB,selectC,selectD,rightAnswer,type From Test where type='单选' Order By ID "

rs.Open strSql,conn,1 '注意参数设置为键盘指针

Dim i 'i表示题目数

i=1

while not rs.eof

response.write rs("Title")

<br><input type="radio" name="q<%=i%>" value="A">A.<%=Server.HtmlEncode(rs("selectA"))%>

<br><input type="radio" name="q<%=i%>" value="B">B.<%=Server.HtmlEncode(rs("selectB"))%>

<br><input type="radio" name="q<%=i%>" value="C">C.<%=Server.HtmlEncode(rs("selectC"))%>

<br><input type="radio" name="q<%=i%>" value="D">D.<%=Server.HtmlEncode(rs("selectD"))%>

<br><input type="hidden" name="Answer<%=i%>" value="<%=rs("rightAnswer")%>">

i=i+1

rs.moveNext

wend

rs.close

'下面先查找出多选的题目

strSql ="Select ID,Title,selectA,selectB,selectC,selectD,rightAnswer,type From Test where type='多选' Order By ID "

rs.Open strSql,conn,1

while not rs.eof

response.write rs("Title")

<br><input type="checkbox" name="q<%=i%>" value="A">A.<%=Server.HtmlEncode(rs("selectA"))%>

<br><input type="checkbox" name="q<%=i%>" value="B">B.<%=Server.HtmlEncode(rs("selectB"))%>

<br><input type="checkbox" name="q<%=i%>" value="C">C.<%=Server.HtmlEncode(rs("selectC"))%>

<br><input type="checkbox" name="q<%=i%>" value="D">D.<%=Server.HtmlEncode(rs("selectC"))%>

<br><input type="hidden" name="Answer<%=i%>" value="<%=rs("rightAnswer")%>">

i=i+1

rs.moveNext

wend

rs.close

<p>

请输入您的姓名<input type="text" name="userName" >  <input type="submit" value="交卷">

</form>

'如果提交了表单，就执行下面的判断语句

If Trim(Request.Form("userName"))<>"" Then

Dim Grade '分数（单选答案：BCACD；多选答案：CD\ABCD\AD\B\ACD）

Grade=0

Dim j

j=1

While j<i 'j表示当前是第几道题目，i表示总题目数。

If Request.Form("q"&j)=Request.Form("Answer"&j) Then

Grade=Grade+10

End If

j=j+1

Wend

'下面把该人的分数存到成绩表中。

strSql="insert into score(userName,score) values('"&Request.Form("userName")&"',"&Grade&")"

conn.execute(strSql)

Response.Write "<font color='red'>您的分数为" & Grade & "</font>"

End If

set rs=nothing

conn.close:set conn=nothing

</BODY>

</HTML>

</body>

</html>

16.asp

'16、编写asp程序，在指定文件夹下新建一个名为test.txt的文件，并向其中写入5行文字，

'然后将该文件的第三行写入另一个新的文件test1.txt中。

<html>

<head>

</head>

<body>

<p>

要求：向一个文件夹中创建一个test1.txt文件，并写入5行文字，<br>

再将test1.txt中的第3行文字写入第二个文件夹中创建的test2.txt

</p>

请指定文件夹的绝对或相对路径：<br>

第一个文件夹：<input type="text" name="path1" value=".\folder1"><br>

第二个文件夹：<input type="text" name="path2" value=".\folder2"><br>

</form><br>

if request.Form("flat") then

dim fso

set fso=server.CreateObject("Scripting.FileSystemObject")

dim fld1,fld2

fld1=server.MapPath(request.Form("path1"))

response.Write(fld1&"<br>")

fld2=server.MapPath(request.Form("path2"))

fso.CreateFolder fld1

fso.Createfolder fld2

dim fle1,fle2,fle3

set fle1=fso.CreateTextFile(fld1&"\test1.txt",true)

set fle2=fso.CreateTextFile(fld2&"\test2.txt",true)

fle1.writeline("这是第一行")

fle1.writeline("这是第二行")

fle1.writeline("这是第三行")

fle1.writeline("这是第四行")

fle1.writeline("这是第五行")

fle1.close

response.Write("已经成功建立第一个文件，并写入了五行文字！<br>")

set fle3=fso.OpenTextFile(fld1&"\test1.txt",1,true) '第二个参数1:只读、2:只写、3:读写，第三个参数true表示可以覆盖

while fle3.Line<>3

fle3.SkipLine

wend

fle2.writeline(fle3.readline)

response.Write("已成功向第二个文件写入了第一个文件的第三行文字<br>")

fle3.close

fle2.close

end if

</body>

</html>

18.asp

'18、请制作一个页面，判断用户的浏览器版本。如果是IE5.0以下版本，

'就提示用户更新自己的浏览器软件。

<html>

<head>

</head>

<body>

dim bc

set bc=server.CreateObject("MSWC.BrowserType")

response.Write("<br>浏览器的类型："&bc.Browser)

response.Write("<br>浏览器的版本："&bc.Version)

response.Write("<br>支持cookie否："&bc.Cookies)

response.Write("<br>支持Java小程序否："&bc.JavaApplets)

response.Write("<br>支持VBScript否："&bc.VBScript)

response.Write("<br>")

If UCase(Trim(bc.Browser))="IE" and cint(bc.Version)<5 Then

response.write "您的浏览器版本太低，请更新！"

End If

</body>

</html>

19.asp

'19、请自己编程实现广告轮显效果。（提示：使用随机函数，但是注意不同广告的出现概率）。

<html>

<head>

</head>

'这段语句显示广告图片

'首先产生一个10以内的随机整数

Dim NumTemp

Randomize Timer '该语句用于初始化随机种子，否则每次产生的值都一样

NumTemp = Int((10 * Rnd()) + 1)

'根据该整数显示相应的图片，并加上超链接

Select Case Numtemp

Case 0,1,2,3

Response.Write "<a href='http://blog.163.com/luowei505050@126/' target='_blank'><img width='300' height='70' border='2' src='advimages/163.png'></a>"

Case 4,5,6

Response.Write "<a href='http://www.cnblogs.com/luowei010101/' target='_blank'><img width='300' height='70' border='2' src='advimages/cnblogs.png'></a>"

Case 7,8,9

Response.Write "<a href='http://hi.baidu.com/' target='_blank'><img width='300' height='70' border='2' src='advimages/baidu.png'></a>"

End Select

</center></body>

</html>

19b.asp

if request.QueryString("url")<>"" then

response.Redirect(request.QueryString("url"))

end if

<html>

<head>

<title>第19题(用组件实现广告轮转)</title>

</head>

<body>

<h1>第19题(用组件实现广告轮转)</h1>

dim id

set ad=server.CreateObject("MSWC.AdRotator")

ad.Border=2

ad.Clickable=true

ad.TargetFram="_blank"

response.Write(Ad.GetAdvertisement("adver.txt"))

</body>

</html>

adver.txt

redirect 19b.asp

width 300

height 70

border 1

advimages/163.gif

http://www.168.com

网易主页

advimages/baidu.gif

http://www.baidu.com

百度主页

advimages/cnblogs.gif

http://www.cnblogs.com

博客园主页