寅老大，关于ASP的求救！超急的！(页 1) - ASP - 中国教程网论坛学习交流平台

doremi123 发表于 2008-4-16 23:15

寅老大，关于ASP的求救！超急的！

寅老大，我的毕业论文做了个ASP的同学录，但是我弄了很久都没有办法吧照片上传，上传的话都是提示没有连接，
救救我吧！我快要答辩了，....可以的话请尽快跟我联系好吗？？？不尽感谢！！！
QQ： 61063456

kevinxiong 发表于 2008-4-17 00:07

呵呵~~我不是寅老大!!!
不过就你这个问题描述的好像一点都不清楚!!!
提示没有连接?
没有连接什么?jcwcn.com@

doremi123 发表于 2008-4-17 18:13

提示找不到网页
正在查找的网页可能已被删除、重命名或暂时不可用。
以下是我的代码！
<%
dim pictype,ordername

pictype=request("type")
if pictype="" then
pictype="school"

end if

if pictype="school" then
ordername="校园相册"
elseif pictype="class" then
ordername="班级相册"
end if

dim totalPages,currentPage
currentPage=request.querystring("page")
stats=ordername
%>
<HTML><HEAD><TITLE><%=SchoolmateName%>——<%=ordername%></TITLE>
<META http-equiv=Content-pictype content="text/html; charset=gb2312">
<link href="txl.css" type="text/css" rel="stylesheet">
<script language="JavaScript" src="script/jsfun.js"></script>
</HEAD>
<BODY topmargin="0" leftmargin="0">
<br><br>

<table width=85% bgcolor=<%=TableborderColor%>  cellspacing=0 border=0 align=center>
<tr>
         <td>

<table cellpadding=6 cellspacing=1 border=1 width=100% bgcolor=<%=TableborderColor%> bordercolor=<%=TableborderColor%> bordercolorlight=<%=TablebodyColor1%>  bordercolordark=<%=TablebodyColor1%>>
<tr bgcolor=<%=TablebodyColor1%>>
<td colspan=5 valign=top width=350 align=center> >> <B><%=ordername%></B> <<
<font face=宋体>        </font></td>
<td>相册中照片数：<%=allphotoes()%></td>
</tr>
<tr bgcolor=<%=TabletitleColor%>>
<td align=center><b>照片说明</b></td>
<td align=center><b>提供者</b></td>
<td align=center><b>照片类型</b></td>
<td align=center><b>照片大小</b></td>
<td align=center><b>点击次数</b></td>
<td align=center><b>上载时间</b></td>
</tr>
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
if pictype="school" then
sql="select picid,remark,filename,filesize,type,name,visitcount,datetime "&_
"from [photo] where classid=0 order by  picid desc"
elseif pictype="class" then
sql="select photo.*,student.realname from [photo],[student] where photo.classid="&clsid&_
" and student.userid=photo.name order by  picid desc"
end if

rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr bgcolor=<%=TableBodyColor2%>>
<td colspan=9>　　目前还没有照片.</td>
</tr>
<%
else
rs.pagesize=20
totalpages=rs.pagecount
if currentpage="" then currentpage=1
if not isNumeric(currentpage) then
currentpage=1
elseif Cint(currentpage)>totalpages then
currentpage=totalpages
end if
currentpage=Cint(currentpage)
rs.absolutepage=currentpage

for i=1 to 20
if rs.eof then exit for
%>
<tr bgcolor=<%=TablebodyColor2%>>
<td valign=top> <a  href="javascript:openScript('viewphoto.asp?id=<%=(rs("picid"))%>',300,200)"><img src=images/<%=right(rs("filename"),3)%>.gif border=0 align=absmiddle hspace=2><%=htmlencode(rs("remark"))%></a></td>
<td align=center>
<%
if pictype="school" then %>
<a href="javascript:openScript('profile.asp?name=<%=htmlencode(rs("name"))%>',420,320)"><%=htmlencode(rs("name"))%></a>
<%elseif pictype="class" then
response.write rs("realname")
end if
%>
</td>
<td align=center><%=rs("type")%></td>
<td align=center><%=rs("filesize")\1024%>KB</td>

<td align=center>

<%=rs("visitcount")%>

</td>
<td align=center><%=rs("datetime")%></td>
</tr>
<%
rs.movenext
next
end if
rs.close
set rs=nothing

function allphotoes()

if pictype="school" then
tmprs=conn.execute("Select count(picid) from [photo] where classid=0")
elseif pictype="class" then
tmprs=conn.execute("Select count(picid) from [photo] where classid="&clsid)
end if

allphotoes=tmprs(0)
set tmprs=nothing
if isnull(allphotoes) then allphotoes=0
end function

%>

doremi123 发表于 2008-4-17 18:20

页面是有显示图片的但是就是打不开，一点进去就提示找不到网页
正在查找的网页可能已被删除、重命名或暂时不可用。
同时也不可上传图片，上传图片时，点击上传就边得什么都没有了，整个页面全白了！

kevinxiong 发表于 2008-4-17 22:49

呵呵
提示得很清楚了
肯定是你的提交页面有问题了
注意你的文件名和文件路径
看你上面的页面我觉得有点奇怪~~~
你那里没有form表单的么?jcwcn.com@

doremi123 发表于 2008-4-18 10:57

o !我知道啊！那个问题已经解决了！可以连接上了，而且可以看到了！
但是还有一个问题就是上传不了图片，你可以加我吗？我今晚10：30左右会在Q上!

页: [1]

中国教程网论坛's Archiver

寅老大，关于ASP的求救！超急的！