在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>技术论坛>ASP>F0047473 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入

论坛首页
|--web开发
   |--ASP
   |--JSP
   |--ASP.net
   |--DHTML
   |--RUBY
|--软件开发
   |--C++
      |--Code here
   |--JAVA
   |--VB
   |--Delphi
   |--XML
|--.net技术
   |--C#
   |--VB.net
|--Yup开发组
|--站务&投诉
   |--站长专区
|--硬件&网络
|--休息室
|--数据库技术
 进入精华区 我要发言



 我做了一个能让用户选择头像的程序back to ASP forum  
作者:tale,7级分数:0
日期:2003/2/17 16:44:00类别:ASP, 技术问题
回复:2次浏览:2224次
状态:无分贴

我做了个小程序,能够让用户选择头像,并且能够自动翻页,这是一个弹出窗口,由于我是一个asp的初学者所以难免有不对的地方,
请感兴趣的朋友们指正, 以下是代码,谢谢
<%@language=vbscript%>
<%response.buffer=true%>
<html>
<head>
<title>选择头像</title>
<link rel="stylesheet" href="../library/ste1.css">
</head>
<body leftmargin=4 topmargin=4>
<script langaue=javascript>
function confil(he,hi){
        if(hi==1){
        he.filters.alpha.opacity=100
        }else{
        he.filters.alpha.opacity=30
        }
}
function setval(he){
var sr=he.src
opener.document.all.tou.src=sr
opener.document.form1.imageID.value=sr
self.close()
}
</script>
<%
'创建一个变量数组
dim aimg()
'!!!取得存放图片的路径
dim folph
    folph=server.mappath("picture")
'!!!取得存放图片名的文本路径
dim filpath
    filpath=server.mappath("picture/ayfi.txt")
'建立一个对象访问服务器的文件系统
set fso=server.createobject("scripting.filesystemobject")

'建立文件夹对象并取得里边的所有文件的集合
set objfolder=fso.GetFolder(folph)
set objfiles=objfolder.files
'!!!!创建一个文本文件备用
set arrayfil=objfolder.createtextfile("ayfi.txt",true,false)
%> <%
for each item in objfiles
    ab=item.name
'如果文件扩展名是gif,那么在文件中记录下它的名字
if right(ab,3)="gif" then
arrayfil.writeline(ab)
end if
next
arrayfil.close
%>
<!--为分页显示做准备
<%
'重新建立文件系统对象,用来打开上次写下图片名称的文本
set fos=server.createobject("scripting.filesystemobject")
set afile=fos.opentextfile(filpath,1)
Do while not afile.AtEndOfStream
strtxt=afile.readline
'找到文件的行数
intline=afile.line
'重新订义数组
redim aimg(intline)
Loop
afile.close
'*********************************
'用一个循环为前面定义的数组赋值
set afile=fos.opentextfile(filpath,1)
for i=1 to ubound(aimg)-1
strtxt=afile.readline
aimg(i)=strtxt
next
'*********************************
%>
-->
<table border=1 cellspacing=0 cellpadding=0 width=270 height=270>
<%
'********************************
'定义用来分页的变量
dim page
'防止出错
page=request.querystring("page")
page=Cint(page)
if page=0 then
  page=1
end if
'*******************************
'以下按四行四列输出图片
'*******************************
for i=0 to 3
response.write "<tr>"
'嵌套输出列
for a=0 to 3
if page>ubound(aimg)-1 then
response.write "<br><a href=# onclick=window.history.back()>返回</a>"
response.end
end if
response.write "<td><img src=picture/"&_
AIMG(PAGE)&" style=filter:alpha(opacity=30)_
onMouseOver=confil(this,1) _
onMouseOut=confil(this,0) onClick=setval(this)></td>"
page=page+1
next
response.write "</tr>"
next
'*****************************
%>
</table>
<%
'定义向前翻页的变量
dim priv
    priv=page-33
'定义能翻向最后一页的变量
dim lastpage
    lastpage=ubound(aimg)-1
    lastge=Cint(lastpage)
    lastpage=lastge mod 16
    lastpage=ubound(aimg)-lastpage
%>
<table>
<tr align=center>
    <td width="25%">
<%
if page=17 then
response.write "第一页"
else
response.write "<a href=touxiang.asp?page=0>第一页</a>"
end if
%>
</td>
    <td width="25%"><a href="touxiang.asp?page=<%=page%>">下一页</a></td>
    <td width=25<%
if page=17 then
response.write "上一页"
else
response.write "<a href=touxiang.asp?page="&priv&">上一页</a>"
end if
%>
</td>
    <td width="25%"><a href="touxiang.asp?page=<%=lastpage%>">最后页</a></td>
</tr>
</table>
</body>
</htmL>

reply[F0047473]
 



 
 re [1] 我做了一个能让用户选择头像的程序ASP forum  
- xmxoxo03-02-18 14:02  

不错。翻页的时候不一定是17页吧。

reply[F0047701]
 



 
 re [2] 我做了一个能让用户选择头像的程序ASP forum  
- tale03-02-19 15:37  

向前翻页的时候肯定是错了,应该是减去32,我当初就是因为数学不好所以连高中都没有上完,没办法连加减乘除都算不来,至于最后一页只要是不足十六张图片,马上就END了

reply[F0047988]
 



您的位置
  (c)2000-2020 Yup Studio, all rights reserved.  
554.6875