html调用asp边疆,[求助]怎么实现ASP在HTML中调用

下面是文章显示的代码:

信息列表

dim conn

dim connstr

dim totalPut

dim CurrentPage

dim TotalPages

dim i,j

dim sql

dim rs

on error resume next

'打开数据库

set rs=server.createobject("adodb.recordset")

'定义每页文章显示数

const MaxPerPage=10

if not isempty(request("page")) then

currentPage=cint(request("page"))

else

currentPage=1

end if

sql="select * from news order by 置顶 desc,id desc"

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

rs.open sql,conn,3,2

if rs.eof and rs.bof then

response.write "

还没有任何文章

else

'数据库中文章数totalput

totalPut=rs.recordcount

if currentpage<1 then

currentpage=1

end if

'统计总页数currentpage

if (currentpage-1)*MaxPerPage>totalput then

if (totalPut mod MaxPerPage)=0 then

currentpage= totalPut \ MaxPerPage

else

currentpage= totalPut \ MaxPerPage + 1

end if

if currentPage=1 then

showContent

showpage totalput,MaxPerPage,"qtlist.asp"

else

if (currentPage-1)*MaxPerPage

rs.move (currentPage-1)*MaxPerPage

dim bookmark

bookmark=rs.bookmark

showContent

showpage totalput,MaxPerPage,"qtlist.asp"

else

currentPage=1

showContent

showpage totalput,MaxPerPage,"qtlist.asp"

end if

sub showContent

'选择显示数据库内容

内　　　　　容

发文单位

发文时间

签收状态

签收情况

i=0

j=0

do while not rs.eof

　 target="_blank"> "　" then%>

签收完毕

签收中

" target="_blank">签收详情

'当显示记录大于maxperpage时结束这页

i=i+1

j=j+1

if i>=MaxPerPage then exit do

rs.movenext

loop

end sub

function showpage(totalnumber,maxperpage,filename)

'求出当总共的页数

dim n

if totalnumber mod maxperpage=0 then

n= totalnumber \ maxperpage

else

n= totalnumber \ maxperpage+1

end if

response.write "

>>分页 "

'显示页数链接的条件

if CurrentPage<2 then

response.write "首页上一页 "

else

response.write "首页 "

response.write "上一页 "

end if

if n-currentpage<1 then

response.write "下一页尾页"

else

response.write "

response.write ">下一页

尾页"

end if

response.write " 页次："&CurrentPage&"/"&n&"页"

response.write " 共"&totalnumber&"篇文章 "&maxperpage&"篇文章/页"

response.write " 转到："

response.write ""

response.write "　　管理登陆

end function

rs.close

set rs=nothing

conn.close

set conn=nothing

html调用asp边疆,[求助]怎么实现ASP在HTML中调用相关推荐

python把模块装到文件夹中_把模块有关联的放在一个文件夹中在python2中调用文件夹名会直接失败在python3中调用会成功，但是调用不能成功的解决方案...
把模块有关联的放在一个文件夹中在python2中调用文件夹名会直接失败在python3中调用会成功,但是调用不能成功解决办法是: 在该文件夹下加入空文件__init__.py python2会把 ...
把模块有关联的放在一个文件夹中在python2中调用文件夹名会直接失败在python3中调用会成功，但是调用不能成功的解决方案...
把模块有关联的放在一个文件夹中在python2中调用文件夹名会直接失败在python3中调用会成功,但是调用不能成功解决办法是: 在该文件夹下加入空文件__init__.py python2会把 ...
HTML调用Java函数或语句,在动态THML语句中调用JS函数传递带空格参数的问题
刚刚遇到一个问题,调用js函数的参数里带空格,造成调用失败的问题. 部分代码如下: html+=" "; //name中如果有空格就是调用失败 html+=" " ...
c#调用c语言的自定义函数,[转]在C#中调用C语言函数（静态调用Native DLL，Windows Microsoft.Net平台）...
对于不太了解.Net的人,如果想要了解.Net,我必须给他介绍P/Invoke.P/Invoke是什么呢?简单地说,就是在.Net中调用本地代码(Native code)的一种解决方案.所谓" ...
teststand调用python模块_TestStand 基本知识[10]--在序列中调用代码模块之--LabVIEW
在TestStand调用外部代码模块时,使用频率最高的就是LabVIEW VI. 下面调用TestStand Demo程序,可以看到如下图: 1. 添加LabVIEW Action步骤,并创建或者加载 ...
Html跨页面调用函数,一个cshtml如何在另一个cshtml中调用一个函数？
在webmatrix中,我在App_Data中创建了一个带有许多公共静态函数的DAL.cshtml. 我想从其他文件夹中的另一个.cshtml页面调用它们. 我现在得到了编译器错误消息:CS0103 ...
android 调用系统下载apk,如何在自己的App中调用Android系统自带的安装/卸载程序...
AppUtils里面写了如何安装和卸载apk(这段代码出自这里:点击打开链接~),这里的安装和卸载调用的是Android本身的一个安装卸载,所以可能页面不会太优雅,并不符合商业App的期望,如果要做到 ...
汇编语言调用c语言ads,ADS1.2 在汇编代码中调用C函数
EDA365欢迎您登录! 您需要登录才可以下载或查看,没有帐号?注册 x , U) b) }+ U8 \" d/ v( \$ ~ T对于ARM体系来说,不同语言撰写的函数之间相互调用( ...
twig调用PHP函数,php – 如何在Symfony2 Twig模板中调用静态函数
您无法在twig模板中直接调用PHP.您需要创建一个过滤器或函数来执行您正在查找的内容. $twig = new Twig_Environment($loader, $params); $twigFu ...

html调用asp边疆,[求助]怎么实现ASP在HTML中调用

html调用asp边疆,[求助]怎么实现ASP在HTML中调用相关推荐

最新文章

热门文章