论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > asp教程
Tag:入门,文摘,实例,技巧,iis,表单,对象,上传,数据库,记录集,session,cookies,存储过程,注入,分页,安全,优化,xmlhttp,fso,jmail,application,防盗链,stream,组件,md5,乱码,缓存,加密,验证码,算法,ubb,正则表达式,水印,,日志,压缩,url重写,控件,函数,破解,触发器,socket,ADO,初学,聊天室,留言本,视频教程

为输入及输出的数据库的资料做造型

文章类别:asp | 发表日期:2008-10-5 20:51:44

在討論區上有許多網友問到按怎處理雙引號的問題, 擱有網友問到由資料庫抓出來的資料無法斷行的問題, 其實在 VBscript 有一支 Replace 函數可以來幫助咱們處理這款問題, 所以今日的文章就要來討論用 Replace 來替資料做造型

Replace 函數

一開始還是來看看 Replace 的語法

Replace(搜尋字串, 字串甲, 字串乙[, 開始位置][, 計數][, 比較方式]]]))

意思是這樣的: 由 搜尋字串 的 開始位置 找起, 找出字串甲, 並將它置換成 字串乙, 總共要做 計數 次
比較方式可以是下底的值

vbBinaryCompare - 0 (預設值), 二進位比較, 也就是大小寫區分
vbTextCompare - 1 , 文字模式比較, 不區分大小寫
VBscript 字串常數

這裡列出一些 VBscript 的字串常數供大家參考

常數 值 說明
vbCr Chr(13) Carriage Return
vbCrLf Chr(13) & Chr(10) Carriage Return and Line Feed
vbLf Chr(10) Line Feed
vbNewLine Chr(13) & Chr(10) 或 Chr(10) New Line
vbTab Chr(9) Tab (horizontal)


處理單雙引號

現在就先來看看討論區上最常問到的問題, 由於在下 SQL 指令如 Insert, Update, 你會將資料用單引號包起來, 就親像按呢

Update SomeTable Set Col001='你的資料' Where Col002='條件'

但如果你的資料中含有單(雙)引號, 那麼 SQL 就會搞不清楚這是資料的分隔符號或是資料本身, 因此我們必須要利用 Replace 函數把單引號再重複一次, 按呢 SQL 才會懂這是資料一部份, 至於雙引號部分由於使用 Replace(String, """, """") 似乎是行不通, 因此咱們使用另一個方式 - ASCII 碼, 雙引號的 ASCII 碼為 34 , 因此我們將 CHR(34) 置換為 CHR(34), 雖然沒有換不過至少騙過 SQL Server, 達成目的就好, 好! 來看看函數按怎寫

Function FormatQuote(String)
  On Error Resume Next
  String = Replace(String,"'","''")
  String = Replace(String,chr(34),chr(34))
  FormatQuote = String
End Function

輸出資料斷行

擱來來看第二個問題 - 資料由資料庫拉出後在 HTML 格式上無法斷行的問題, 這個問題是很正常的, 因為在 HTML 上的換行是 <br> 所以它不認識 Line Feed - CHR(10) 和 Carriage Return - CHR(13), 同款的利用 Replace 函數來做處理, 將其轉換成為 HTML 的 <p> 或是 <br> , 另外由於 HTML 只認一個空白字元, 所以也要對空白字元做處理, 將其轉換成 &nbsp; , 最後的考量就是 HTML 的標籤分隔符號 <   > , 如果你的資料中有可能含有這樣的格式, 你可以加上第 6, 7 行

Function FormatStr(String)
  On Error Resume Next
  String = Replace(String, CHR(13), "")
  String = Replace(String, CHR(10) & CHR(10), "<P>")
  String = Replace(String, CHR(10), "<BR>")
  String = Replace(String, CHR(32), " ")
  String = Replace(String, "<", "&lt;")
  String = Replace(String, ">", "&gt;")
  FormatStr = String
End Function

希望這篇文章對你有幫助!


视频教程列表
文章教程搜索
 
Asp推荐教程
Asp热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058