首页 >> 读书频道 >> 电脑 >> 一个功能完善的专栏管理的程序->这是asp.net的第二个应用(二)
 
· 一个功能完善的专栏管理的
· asp+版本简单的留言板
· asp+版本简单的留言板
· asp+版本简单的留言板
· asp+的论坛列表程序&
· asp+的论坛列表程序&
· 用多种方法制作WEB页面
· 用ASP+实现一个简单的
· 读取目录下的所有文件(源
· 用ASP做一个记事本编缉
· 仿照CHINAASP论坛
· 通过ASP与ACCESS
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

一个功能完善的专栏管理的程序->这是asp.net的第二个应用(二)


查看有无更新版本

关键字:ASP实例 2006-9-9

 

我们在上篇文章中,引用了一个函数包文件func.aspx,在这篇文章中,我们详细讲解一下,这个func.aspx 文件
<%@ Assembly Name="System.Net" %>
<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQL" %>
'这些import 我就不说了,在前面的的文章 sp+中常用的NameSpace的讲解都已经有所涉及
<script language="VB" runat=server>
function replaceSql(str1 as string) as string
'在asp.net 中使用SQL 语句也会出现"'"号的问题,因此使用replace函数将"'" 转换成 "''"
replaceSql=replace(str1,"'","''")
end function
function GetConn() as SQLConnection
'我们在这里 将连接数据库的代码进行统一化管理
Dim conn As SQLConnection
Dim Cfg as HashTable
Cfg = Context.GetConfig("appsettings")
Conn = New SQLConnection(cfg("Conn"))
GetConn=Conn
end function
sub WritePage(start as integer,file as string,intLen as integer,intPageCount as integer,intRecCount as integer)
'这个是一个 可移植 的 分页的程序
'进行分页处理
dim strWrite as string
strWrite="<table border=1 width=100%><tr><td>"
response.write(strWrite)
if start=0 then
strWrite="首页"
else
strWrite="<a href='" & file & "?start=0'>首页</a>"
end if
response.write(strWrite)
if start>=1 then
strWrite="<a href='" & file & "?start=" & cStr(start-intLen) & "'>上页</a>"
else
strWrite="上页"
end if
response.write(strWrite)
if start+intLen<intRecCount then
'还没有到最后一页数据
strWrite="<a href='" & file & "?start=" & cStr(start+intLen) & "'>下页</a>"
else
strWrite="下页"
end if
response.write(strWrite)
if start+intLen<intRecCount then
'还没有到最后一页数据
strWrite="<a href='" & file & "?start=" & cStr((intPageCount-1)*intLen) & "'>末页</a>"
else
strWrite="末页"
end if
response.write(strWrite & "</td><td>")
strWrite="当前共有文章" & Cstr(intRecCount) & "篇,现在是第<font color=red>" & cStr((Start/intLen)+1) & "/" & cstr(intPageCount) & "</font>页"
response.write(strWrite)
strWrite="</td></tr></table>"
response.write(strWrite)
end sub
</script>
大家在asp.net 中一定要注意,我们在asp.net 中定义函数的时候,一定要注意必须在<script runat=server ..>中对函数进行定义,而不能和asp一样在 <%和%>之间定义,这样做的好处是 对函数定义简单明了,程序的可读性提高了很多,但是有一个很不方便的地方就是 在<script>..中不能象在<%%> 中那样方便的嵌套调用HTML代码,而必须使用Response.Write(ss),这个是一个不方便的地方

一个功能完善的专栏管理的程序->这是asp.net的第二个应用(二)

[ 1 ]
一个功能完善的专栏管理的程序->这是asp.net的第二个应用(二) num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑