快三计划qq群

此頁面上的內容需要較新版本的 Adobe Flash Player。

獲取 Adobe Flash Player

    您現在的位置是:PHP\ASP\JSP\NET

      使用SQL SERVER的[導入]功能,便可將access數據轉換,但要注意原來的'自增字段'需要修改,將相應字段標識修改為'是'(原來的備注字段也會自動轉化為ntext).
由于新聞的添加,修改都是通過使用textarea,首先為了能保留輸入內容的格式,在處理添加的頁面加入
<%
Function SqlStr( data )
   SqlStr = "'" & Replace( data, "'", "''" ) & "'"
End Function
Function  coder(str) 
   Dim  i 
   If  IsNull(str)  Then  :  coder=""  :  Exit  Function  :  End  If 
   For  i  =  1  to  Len(str) 
       Select  case  mid(str,i,1) 
           Case  "<"          :  coder  =  coder  &"<" 
           Case  ">"          :  coder  =  coder  &">" 
           Case  "&"          :  coder  =  coder  &"&" 
           Case  chr(9)    :  coder  =  coder  &"  " 
           Case  VBCrLf    :  coder  =  coder  &"<br>" 
           Case  chr(32)  :  coder  =  coder  &" " 
           Case  chr(34)  :  coder  =  coder  &""" 
           Case  chr(39)  :  coder  =  coder  &"'" 
           Case  Else        :  coder  =  coder  &  mid(str,i,1) 
       End  Select 
   Next 
End  Function
content=request("content")'正文
content=replace(content," "," ")   '此處處理是因為修改頁面所加入空格會被轉化為  ,在此先過濾
content=coder(content)
%>
在修改頁面
<%
rs.Open sql, conn, adOpenStatic
content=rs("正文") '此處一定要寫,倘若直接在textarea處寫

                               '<textarea rows="7" name="t" cols="47" ><%=rs("正文") %></textarea >“則無法顯示(我就被此處

                               '困了好久,還以為長字段不能使用ntext而只能使用text或varchar呢)

%>
在顯示頁面
<%
rs.Open sql, conn, adOpenStatic
content=rs("content")   '一定先放到變量中,否則可能無法顯示
content=replace(content,vbcrlf,"<br>"+vbcrlf)   '經過此處處理,可顯示出正確的段落格式
%>

CopyRight2010 銀川慧科網絡有限公司版權所有 銀川網絡公司 銀川網站建設 銀川網站制作 銀川seo 寧夏企業郵局
地址:寧夏銀川市正源北街萬達廣場B座1707
電話:0951-6048280 18195099882 13709590950
寧ICP備08000251
骰子猜大小怎么玩 双色球基本走势图100期 微信夺宝改单号器 时时彩高手十年技巧 快乐时时b盘 5分彩定位胆稳赚技巧 彩票365app免费下载 福彩3d6码复式多少钱 北京pk10直播软件下载 黑彩有哪些 时时彩技巧论坛 pk10怎样分析走势分析 cc分分彩人工计划软件 篮球比分直播网 时时彩预测免费软件 大乐透玩法中奖规则图