快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

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

在?????^上有杂多咀友??到按怎??理腽引??的??铨, ?R有咀友??到由儋料?熳コ??淼馁Y料?o法?嘈械???铨, 其??在 VBscript 有一支 Replace 函?悼梢????椭?咱????理呃款??铨, 所以今日的文章就要?碛???用 Replace ?硖尜Y料做造型

Replace 函?导br>
一檫始??是?砜纯? Replace 的遮法

Replace(搜?ぷ执?, 字串甲, 字串乙[, 檫始位置][, ???递[, 比蒉方法]]]))

意思是呃?拥暮 由 搜?ぷ执? 的 檫始位置 找起, 找出字串甲, ?K?⑺?置?Q成 字串乙, ??共要做 ???? 次
比蒉方法可以是下底的值

vbBinaryCompare - 0 (盍韵值), 二咄位比蒉, 也就是大小???^分
vbTextCompare - 1 , 文字模式比蒉, 不?^分大小??
VBscript 字串常?导br>
呃彦列出一些 VBscript 的字串常?倒┐蠹??⒖技br>
常?? 值 真明
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)


??理?坞p引??

?F在就先?砜纯从????^上最常??到的??铨, 由於在下 SQL 指令如 Insert, Update, 你???①Y料用?我???包起?憩 就尤像按呢

Update SomeTable Set Col001=\\\'你的儋料\\\' Where Col002=\\\'?l件\\\'

但假如你的儋料中含有?唯腽)引??, 那?N SQL 就??搞不清晰呃是儋料的分隔符??或是儋料本身, 因此我??必??要利用 Replace 函?蛋??我???再重妖一次, 按呢 SQL 才??懂呃是儋料一部份, 至於腽引??部分由於使用 Replace(String, """, """") 好像是行不通, 因此咱??使用另一??方法 - ASCII 瘁, 腽引??的 ASCII 瘁?? 34 , 因此我???? CHR(34) 置?Q?? CHR(34), 腠然?]有?Q不咿至少蜻咿 SQL Server, 哌成目的就好, 好! ?砜纯春??蛋丛???

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

??出儋料?嘈屑br>
?R???砜吹诙?????铨 - 儋料由儋料?炖?出後在 HTML 格式上?o法?嘈械???铨, 呃????铨是很正常的, 因?樵? HTML 上的?Q行是 <br> 所以它不帐滓 Line Feed - CHR(10) 和 Carriage Return - CHR(13), 同款的利用 Replace 函???碜鎏?理, ?⑵滢D?Q成?? HTML 的 <p> 或是 <br> , 另外由於 HTML 只帐一??空白字元, 所以也要??空白字元做??理, ?⑵滢D?Q成 &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程序封装成可执行文件(无需IIS WEB服务器)直接运行的治理系统

您可以阅读与"为输入及输出的数据库的资料做造型"相关的教程:
· ADO如何新增修改?除数据库的资料呢?
· ADO如何新增修改?除数据库的资料呢
· 如何存取三层式结构的数据库的记录
· 无组件的数据库的备份与还原
· 用ASP实现对ORACLE数据库的操作
    微笑服务 优质保证 索取样品