ASP的下一页连接代码怎么编程？

做分页代码有两种方法 一是做 <a> 链接来做 二是用 JAVASCRIPT 来做 下面我提供一段用<a> 的代码 不懂可以问我 每页<%=rspagesize%>条   共<%=rsrecordcount%>条  页次：<font color=red><%=page%></font>/<%=rspagecount%>   跳转到<input type="text" style="height:16px;width:30px;" name="page" value="<%=page+1%>" class="form"><input type="image" src="images/icon_gogif" align="absmiddle" name="go" value="跳转">   <a href="action=mingxi&userid=<%=userid%>&keywords=<%=serverurlencode(keywords)%>&page=1"><img src="images/icon_pre_02gif" alt="首页" border="0" align="absmiddle"></a> <% if page=1 and rspagecount<>page and rspagecount<>0 then%> <a href="action=mingxi&userid=<%=userid%>&keywords=<%=serverurlencode(keywords)%>&page=<%=cstr(page+1)%>"><img src="images/icon_nextgif" alt="下一页" border="0" align="absmiddle"></a> <% end if %> <% if rspagecount>1 and rspagecount=page then %> <a href="action=mingxi&userid=<%=userid%>&keywords=<%=serverurlencode(keywords)%>&page=<%=cstr(page-1)%>"><img src="images/icon_pregif" alt="上一页" border="0" align="absmiddle"></a> <%end if%> <% if page<>1 and rspagecount<>page then%> <a href="action=mingxi&userid=<%=userid%>&keywords=<%=serverurlencode(keywords)%>&page=<%=cstr(page-1)%>"><img src="images/icon_pregif" alt="上一页" border="0" align="absmiddle"></a> <a href="action=mingxi&userid=<%=userid%>&keywords=<%=serverurlencode(keywords)%>&page=<%=cstr(page+1)%>"><img src="images/icon_nextgif" alt="下一页" border="0" align="absmiddle"></a> <% end if%> <a href="action=mingxi&userid=<%=userid%>&keywords=<%=serverurlencode(keywords)%>&page=<%=rspagecount%>"><img src="images/icon_next_02gif" alt="尾页" border="0" align="absmiddle"></a>

使用JS实现单击连接保存
2种形式都可以
第一种：
<script>
function SaveAs5(imgURL)
{
var oPop = windowopen(imgURL,"","width=1, height=1, top=5000, left=5000");
for(; oPopdocumentreadyState != "complete"; )
{
if (oPopdocumentreadyState == "complete")break;
}
oPopdocumentexecCommand("SaveAs");
oPopclose();
}
</script>
<img src="t_screenshot_17616jpg" id="DemoImg" border="0" onclick="SaveAs5(thissrc)">
第二种：
<script>
function SaveAs5(imgURL)
{
var oPop = windowopen(imgURL,"","width=1, height=1, top=5000, left=5000");
for(; oPopdocumentreadyState != "complete"; )
{
if (oPopdocumentreadyState == "complete")break;
}
oPopdocumentexecCommand("SaveAs");
oPopclose();
}
</script>
<img src="/t_screenshot_17616jpg" style="border:0px;point:hand;" onclick="SaveAs5(thissrc)" title="点击保存">

分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:

新手,我想知道ASP中怎么实现下载啊,最还有代码,简单点的,是不是用什么组件啊 加入在我的机子上D://影片名 怎么通过网站下载下来啊

我装IIS的时候 已经装了FTP站点 下面有个"默认FTP站点" 下面还有个:"默认 SMTP 虚拟服务器" 这个是干什么用的是发邮件用的吗平时用"网站"多点下面的两个没有太理会,今天想搞清楚尤其是怎么把文件放在我的机子里,然后编代码,做连接,别人可以从网上下载我的资源谢谢,代码介绍下

解析:

你说的是对的，SMTP是邮件服务器。

至于你说让别人下载文件的话，你可以把下载文件放在网站目录里，然后把文件的相对地址写在链接中就可以了。

ResponseOutput "<li><a href=""" & aLinkdownurl & """>" & aLinkTitle & "</a>"
应该:
ResponseOutput "<li><a href=" & aLinkdownurl & ">" & aLinkTitle & "</a>"
<!--% Next %-->
应该:
<% Next %> 否则不是ASP标记

给你个参考例子吧
connectionasp里的代码是:
<%
set conn=servercreateobject("adodbconnection")
connopen "provider=microsoftjetoledb40;data source="&serverMapPath("studentmdb")
%>
2yanzhengasp里的代码是:
<!--#include file="connectionasp"-->
<%
dim zhanghao,mima
zhanghao=request("zhanghao")
mima=request("mima")
if zhanghao="" then
%>
<script language=javascript>
alert("帐号为空");
locationhref="dengluasp"
</script>
<% end if %>
<% if mima="" then
%>
<script language=javascript>
alert("密码为空");
locationhref="dengluasp"
</script>
<% end if %>
<%set rs=servercreateobject("adodbrecordset")
rsopen "select from student where zhanghao='"&zhanghao&"'",conn,1,3
if not rseof then
if mima=rs("mima") then
session("zhanghao")=zhanghao
Responsewrite("<script>locationhref('indexasp')</script>" )
else
responsewrite ("<script>alert('用户密码错误');locationhref('dengluasp')</script>")
end if
end if
if rseof then
responsewrite ("<script>alert('用户帐号错误');locationhref('dengluasp')</script>")
end if
set rs=nothing
rsclose
%>
二、
connasp
　
<%
Set conn=ServerCreateObject("ADODBConnection")
connstr="DBQ="+servermappath("hahamdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (mdb)}"
connOpen connstr
%>
　
indexasp
　
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 401 Transitional//EN" ">如果user表存在并且设计好。
假设字段分别为id，name，classname
那么如下代码即可。
name=request("name")
classname=request("classname")
set rs=servercreateobject("adodbrecordset")
rsopen "select from user",conn,1,3
rsaddnew
rs("name")=name
rs("classname")=classname
rsupdate
rsclose
html的表单部分，用你的那2个文本框来输入就可以了。name和classname可以根据你自己的需要来改名。
多动手，祝你成功。

---