一個功能完善的專欄管理的程式->這是asp.net的第二個應用(二)

來源:互聯網
上載者:User
一個功能完善的專欄管理的程式->這是asp.net的第二個應用(二)
/*
豆腐製作,都是精品
http://www.asp888.net 豆腐技術站
如轉載,請保留完整著作權資訊
*/
我們在上篇文章中,引用了一個函數包檔案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),這個是一個不方便的地方


相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。