熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

asp教程:asp通用數據操縱函數

2013-11-13 10:04:11  來源: .NET編程 

  我是歷盡千辛萬苦拔山涉水啊終於把這個頁面寫完了不過這也要多感謝JSP了因為昨天心血來潮的時候突然想學JSP於是找了幾篇文章看完後覺得javabean太牛X了有感覺有點象我平時寫asp時的處理方式都是一個頁面布局另外一個後台處理

  正好又看到它的一個通用處理方法於是我也設計了一個ASP的不過只能用在SQL Server裡了因為我經常用的都是SQL數據庫

  下面時我寫的頁面請多多指教!

  使用時可以在提交表單中寫

  其中

  tbl為要操作數據表的名稱

  keyv為條件語句多個條件可以用 $ 分隔

  ON error resume Next
dim keyaconditiontemp      臨時變量
dim insstrinsstrinsstrdelstrupdstrrltstr  
tbl=requestQueryString(tbl)      表名
keyv=requestQueryString(keyv)    關鍵字段名
condition=
  keya=split(keyv$)
  for each i in keya
    if temp<> then
    end if
  condition=left(conditionlen(condition))
操作數據庫
dbconnopen connstr      connstr是數據庫連接字符串這個再通用就不像話了
sqlstr=exec A_Tblinfo &tbl&
記錄集為空處理
responseClear()
  responseEnd()
插入操作
  insstr=insert into [&tbl&](
  while not dbrsteof
    fldv=requestForm(fld)    
      insstr=insstr&fld&
    end if
  wend
    rltstr=
    rltstr=left(insstr(len(insstr)))&) &left(insstr(len(insstr)))&)
修改操作
  updstr=update [&tbl&] set
    fld=dbrst(name)
    if fldv<> and dbrst(colstat)<> then
    end if  
  wend
    rltstr=
    rltstr=left(updstr(len(updstr)))&condition
刪除操作  
  delstr=delete from [&tbl&]
  responseClear()
  responseEnd()
處理數據記錄
dbconnexecute rltstr
dbrstclose
dbconnclose
%>
CursorTypeEnum Values
Const adOpenKeyset =
Const adOpenStatic =
LockTypeEnum Values
Const adLockPessimistic =
Const adLockBatchOptimistic =


From:http://tw.wingwit.com/Article/program/net/201311/12466.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.