ï»??xml version="1.0" encoding="utf-8" standalone="yes"?>成人网男人的天堂,欧美国产国产综合,日韩精品一区二区三区免费观看http://www2.blogjava.net/jackstudio/category/9251.htmlzh-cnWed, 28 Feb 2007 19:47:26 GMTWed, 28 Feb 2007 19:47:26 GMT60操作必须使用一个可更新的查询”的解决办法 http://www.aygfsteel.com/jackstudio/archive/2007/02/08/98885.htmljackstudiojackstudioThu, 08 Feb 2007 15:30:00 GMThttp://www.aygfsteel.com/jackstudio/archive/2007/02/08/98885.htmlhttp://www.aygfsteel.com/jackstudio/comments/98885.htmlhttp://www.aygfsteel.com/jackstudio/archive/2007/02/08/98885.html#Feedback0http://www.aygfsteel.com/jackstudio/comments/commentRss/98885.htmlhttp://www.aygfsteel.com/jackstudio/services/trackbacks/98885.html
有几个主要的错误原因åQ?
˜q™ä¸ªé”™è¯¯å‘生在当你的½E‹åºè¯•å›¾æ‰§è¡Œæ›´æ–°æ•°æ®åº“或其它¾cÖM¼¼æ“ä½œæ—¶ã€‚这是因ä¸?
ADOç”׃ºŽä»¥ä¸‹çš„几个原因而不能够写数据库造成的ã€?

1。一般的原因都是匿名用户帐号(IUSR_MACHINE)对该数据库文件没有写权限�
要解册™¿™ä¸ªé—®é¢˜ï¼Œåœ¨ç®¡ç†å™¨ä¸­è°ƒæ•´æ•°æ®åº“æ–‡äšg的属性，让匿名用æˆähœ‰æ­£ç¡®çš„权限ã€?
当ä‹É用ACCESS数据库时åQŒä¸ä»…要¾l™æ–‡ä»¶å†™çš„权限，˜q˜è¦¾l™è¯¥ç›®å½•å†™çš„权限åQŒå› ä¸?
Jet需要在该目录徏立一ä¸?ldbæ–‡äšg[NTFS¼‹¬ç›˜æ ¼å¼æ‰ä¼š(x¨¬)出现,FAT格式的不ä¼?x¨¬)出现权限问题]ã€?br />或是在IIS中设¾|®ä¸€ä¸ªæœ‰è¯Õd–写入权限的匿名帐æˆ?

2。第二个原因是数据库没有使用正确的模式打开。应该ä‹É用下面的æ–ÒŽ(gu¨©)³•æ‰“å¼€ã€?
SQL = "UPDATE Products Set UnitPrice = 2;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = 3 ''3 = adModeReadWrite
Conn.Open "myDSN"
Conn.Execute(SQL)
Conn.Close

注意默认的Mode是设¾|?(adModeUnknown),它是允许更新的ã€?

3。还有可能是在ODBC½Ž¡ç†å™¨ä¸­ž®†è¯¥DSN的只读选项选中ã€?

4。你是在同时更新两个表中的字ŒDµï¼Œä¹Ÿä¼š(x¨¬)出现˜q™ä¸ªé”™è¯¯ä¿¡æ¯åQŒè§£å†›_Šžæ³•æ˜¯åˆ†å¼€æ¥æ›´æ–?
˜q™ä¸¤ä¸ªè¡¨ä¸­å„自字ŒDüc(di¨£n)€?

5。当你ä‹É用了(ji¨£n)一个从低版本中åQˆå¦‚ACCESS2.0,ACCESS7.0åQ‰è²å…¥åˆ°é«˜ç‰ˆæœ?ACCESS 2000)
中的查询æ—Óž¼Œåœ¨æ‰§è¡Œè¿™ä¸ªæŸ¥è¯¢æ˜¯ä¼?x¨¬)出现该错误ã€?

如果是winXP¾pȝ»Ÿ
在文件夹选项里面默认使用½Ž€å•å…±äº?推荐)åQŒæŠŠ˜q™ä¸ªé€‰é¡¹åŽÀLŽ‰åQ?br />再在文äšg夹上右键点击åQŒå°±ä¼?x¨¬)出现安全这个选项卡，
原来默认的没有，然后在安全选项卡里面可以设¾|®ç”¨æˆïL(f¨¥ng)š„写入权限äº?br />叛_‡»æ•°æ®åº?gt;安全>everyone>ž®†éœ€è¦çš„勾上

查看更多¾_‘Ö½©å›„¡‰‡Â 

遇到¾cÖM¼¼çš„问题还æœ?
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Microsoft Access Driver] 无法从指定的数据表中删除�/div>

]]>分页¾c?调用很简å? ........http://www.aygfsteel.com/jackstudio/archive/2006/10/26/77425.htmljackstudiojackstudioThu, 26 Oct 2006 08:27:00 GMThttp://www.aygfsteel.com/jackstudio/archive/2006/10/26/77425.htmlhttp://www.aygfsteel.com/jackstudio/comments/77425.htmlhttp://www.aygfsteel.com/jackstudio/archive/2006/10/26/77425.html#Feedback0http://www.aygfsteel.com/jackstudio/comments/commentRss/77425.htmlhttp://www.aygfsteel.com/jackstudio/services/trackbacks/77425.html   1 < %    2 ...  é˜…读全文

]]>asp 生成é?r¨´n)态页面的¾c?http://www.aygfsteel.com/jackstudio/archive/2006/06/26/55087.htmljackstudiojackstudioMon, 26 Jun 2006 03:00:00 GMThttp://www.aygfsteel.com/jackstudio/archive/2006/06/26/55087.htmlhttp://www.aygfsteel.com/jackstudio/comments/55087.htmlhttp://www.aygfsteel.com/jackstudio/archive/2006/06/26/55087.html#Feedback0http://www.aygfsteel.com/jackstudio/comments/commentRss/55087.htmlhttp://www.aygfsteel.com/jackstudio/services/trackbacks/55087.html 

  1
  2 ' author : jack
  3 ' date   : 2005-11-12
  4 ' email  : jieck422@163.com
  5 ' æ–‡äšg存放解决办法åQ?/span>
  6 ' 把文件全部存攑֜¨saveFolder中，每个文äšg夹存放数量saveCountä¸?000个文ä»Óž¼Œç”¨è®°å½•é›†çš„id整除saveCountåQˆid\saveCountåQ?/span>
  7 ' 所得整数定ä¸ø™¯¥æ–‡äšg所在目录，文äšg名就是该id受÷€‚例如：(x¨¬)saveFolder="F:\test",saveCount=2000åQŒåœ¨è¡¨ä¸­æœ‰ä¸€è®°å½•åQŒå…¶idä¸?7åQ?7\2000=0åQ?è¯?/span>
  8 ' æ–‡äšg生成后存攄¡š„目录为F:\test\0\47.shtml
  9 dim  I(y¨ªng)D,myconn,zhli
  10 ' ''''''''''''''''''''''''''''''''''''''在此æ·ÕdŠ ˜q‡æ×o(h¨´)å™?/span>
 11 ID = request.querystring( " id " )
  12 set  myconn = new  GetConnection
  13 if  myconn.openRS( " select a.E_name,a.E_date,a.E_zhouqi,a.E_changban,a.E_begindate,a.E_enddate,a.E_address,a.E_zhanguan,a.E_content,case a.E_xingzhi when 0 then '国际展会(x¨¬)' when 1 then '国内展会(x¨¬)' else '国内展会(x¨¬)' end as xiangzhi,a.E_company,a.E_chengban,a.E_beizhu,b.[name],b.Phone,b.Fax,b.Email,b.Qymc from zhanhui a,qiang_qyml b where a.Exhib_ID= " & ID & "  and a.gsid=b.id " ) = false   then
 14 myconn.errMassege  " 记录集äØ“(f¨´)½Iºï¼Œè¯äh£€æŸ¥ID是否正确åQ^_^ "
 15 response.end
  16 else
 17 set  zhli = new  ZhanHui_listinfo
  18 zhli.letModAddress = " F:\test\li.shtml "
 19 zhli.letSaveFolder = " F:\test\ "
 20 zhli.letSaveCount = 2000
 21 zhli.letContent = zhli.readContent
  22 zhli.replaceContent  " {$E_name$} " ,myconn.rs( 0 )
  23 zhli.replaceContent  " {$E_date$} " ,myconn.rs( 1 )
  24 zhli.replaceContent  " {$E_zhouqi$} " ,myconn.rs( 2 )
  25 zhli.replaceContent  " {$E_changban$} " ,myconn.rs( 3 )
  26 zhli.replaceContent  " {$E_begindate$} " ,myconn.rs( 4 )
  27 zhli.replaceContent  " {$E_enddate$} " ,myconn.rs( 5 )
  28 zhli.replaceContent  " {$E_address$} " ,myconn.rs( 6 )
  29 zhli.replaceContent  " {$E_zhanguan$} " ,myconn.rs( 7 )
  30 zhli.replaceContent  " {$E_content$} " ,myconn.rs( 8 )
  31 zhli.replaceContent  " {$E_xingzhi$} " ,myconn.rs( 9 )
  32 zhli.replaceContent  " {$E_company$} " ,myconn.rs( 10 )
  33 zhli.replaceContent  " {$E_chengban$} " ,myconn.rs( 11 )
  34 zhli.replaceContent  " {$E_beizhu$} " ,myconn.rs( 12 )
  35 zhli.replaceContent  " {$linkman$} " ,myconn.rs( 13 )
  36 zhli.replaceContent  " {$linkphone$} " ,myconn.rs( 14 )
  37 zhli.replaceContent  " {$linkfax$} " ,myconn.rs( 15 )
  38 zhli.replaceContent  " {$linkemail$} " ,myconn.rs( 16 )
  39 zhli.replaceContent  " {$companyname$} " ,myconn.rs( 17 )
  40 zhli.asp2html zhli.makefilename(ID),zhli.getContent
  41 end   if
 42
 43 class ZhanHui_listinfo
  44   ' æ–‡äšg生成¾c?/span>
 45   private  modAddress,saveFolder,fso,ts,content,saveCount
  46   ' modAddress---------摸班地址
 47   ' saveFolder---------存放目录
 48   ' content------------模版内容
 49   ' saveCount----------存放数量
 50   private   sub  class_initialize() ' ¾cÕdˆå§‹åŒ–
 51   set  fso = Server.CreateObject( " SCRIPTING.FILESYSTEMOBJECT " )
  52   end sub
 53
 54   public   property   let  letSaveCount(str)
  55  saveCount = str
  56   end property
 57
 58   ' let saveFolder
 59   public   property   let  letSaveFolder(str)
  60  saveFolder = str
  61   end property
 62
 63   ' let modAddress
 64   public   property   let  letModAddress(str)
  65  modAddress = str
  66   end property
 67
 68   ' let Content
 69   public   property   let  letContent(str)
  70  content = str
  71   end property
 72   ' get Content
 73   public   property   get  getContent
  74  getContent = content
  75   end property
 76
 77   public   function  makefilename(ID) ' æ–‡äšg名以å?qi¨¢ng)èµ\å¾?/span>
 78  foldername = ID \ saveCount
  79   if   not  fso.FolderExists(saveFolder & foldername)  then
 80  fso.createfolder(saveFolder & foldername)
  81   end   if
 82  makefilename = saveFolder & foldername & " \ " & ID & " .shtml "
 83   end function
 84
 85   public   function  readContent() ' è¯Õd–摸班内容
 86   set  readts = fso.OpenTextFile(modAddress, 1 )
  87  readcontent = readts.ReadAll()
  88  readts.close
  89   end function
 90
 91   public   function  replaceContent(strOne,strTwo) ' 替换内容
 92  content = replace (content,strOne,strTwo)
  93   end function
 94
 95   public   sub  asp2html(filename,filecontent) ' 生成shtmlæ–‡äšg
 96   set  writets = fso.CreateTextFile(filename, true )
  97  writets.Write(filecontent)
  98  writets.close
  99   end sub
100
101 end  class
 102
103 class GetConnection
 104 '   ˜qžæŽ¥æ•°æ®åº“ç±»
105 '   调用æ–ÒŽ(gu¨©)³•åQ?/span>
106 '   dim myconn
107 '   set myconn=new GetConnection
108 '
 109   private  conn,connStr
 110   public  rs
 111   private   sub  class_initialize() ' ¾cÕdˆå§‹åŒ–
112  connStr = " Provider=SQLOLEDB.1; Data Source=(local); I(y¨ªng)nitial Catalog=myDATABASE; User I(y¨ªng)D=sa; Password= "
113   ' 在此修改数据库连�/span>
114   set  conn = Server.CreateObject( " ADODB.Connection " )
 115  conn.open connStr
 116   end sub
117
118   public   function  openRS(sql)
 119   set  rs = conn.execute(sql)
 120   if  rs.eof  and  rs.bof  then
121  openRS = false
122   else
123  openRS = true
124   end   if
125   end function
126
127   public   sub  errMassege(mm) 
 128  response.write( " <center><p><font size=7 color=red> " & mm & " </font></p><center> " ) 
 129   end sub
130
131   private   sub  class_terminate() ' 销毁类
132  conn.close
 133   set  conn = nothing
134   end sub
135
136 end  class
 137
138


]]>NextRecordset å’?GetRows http://www.aygfsteel.com/jackstudio/archive/2006/05/26/48317.htmljackstudiojackstudioFri, 26 May 2006 05:55:00 GMThttp://www.aygfsteel.com/jackstudio/archive/2006/05/26/48317.htmlhttp://www.aygfsteel.com/jackstudio/comments/48317.htmlhttp://www.aygfsteel.com/jackstudio/archive/2006/05/26/48317.html#Feedback0http://www.aygfsteel.com/jackstudio/comments/commentRss/48317.htmlhttp://www.aygfsteel.com/jackstudio/services/trackbacks/48317.html最˜q‘ä‹É用ä‹É用，不错的好东东åQ?br />å¯ÒŽ(gu¨©)é«˜æ‰¹é‡æŸ¥è¯¢ï¼ŒæŸ¥è¯¢¾Uªå½•é›†ä¸æ˜¯å·¨‹¹·é‡çš„情况很有效æž?br />NextRecordset 和 GetRows 是Recordset的两个属性（属性还是方法我是常æ·äh·†æ˜¯éž#$#$åQŒå¼„不清四下五除一åQ?

GetRows ---> ž®†recordset记录集提取到一个二¾l´æ•°¾l„中åQŒæˆ‘们对recordset数据的行为就转移到该数组åQŒå¯ä»¥æ—©æ—©çš„æ–­å¼€¾Uªå½•é›†ï¼Œä¸ç”¨å†ä‹É用元数据操作åQŒrs.movnext, while not rs.eof½{‰å¯ä»¥çœæŽ?/p>

NextRecordset ----> ž®±æ˜¯åœ¨ä¸€‹Æ¡æäº¤å¤šä¸ªæŸ¥è¯¢ï¼Œå½¢æˆå¤šä¸ªreordset¾l“果集的情况下，提供一个离开当前工作的recordsetåQŒè{¿UÕdˆ°½W¬äºŒä¸ªrecordset的方法！
主要是用在多个SELECT形成的结果集的情�/p>

½CÞZ¾‹å¦‚下åQ?/p>

dim SQL,Rs,arrA,arrB,rowsA,rowsB

''======提取数据库库记录====

åQˆadodb.connection 的连接部分省ç•?假定CONN.open CONNstråQ?br />SQL=" select Ca1,Ca2,Ca3,Ca4 from TableA " ''---------------SELECTa
SQL=SQL&" select Cb1,Cb2,Cb3,Cb4,Cb5 from TableB " ''-------------SELECTb

Set Rs=conn.execute(SQL) 
''执行¾l“æžœž®†æœ‰ä¸¤ä¸ªselect 的结果集åQŒå½“前第一个selectçš„recordset处于‹È€‹zȝŠ¶æ€Â?/p>

arrA=rs.GetRows ''----------取得SElECTa Recordset的二¾l´æ•°¾l?/p>

set rs=rs.NextRecordset 
''------------最关键的一步，使用Nextrecordset‹È€‹zÖM¸‹ä¸€ä¸ªrecordset

arrB=rs.GetRows ''----------再次取得½W¬äºŒä¸ªSElECTb Recordset的二¾l´æ•°¾l„Â?/p>

Rs.close
set rs=nothing ''---------ž®½æ—©é‡Šæ”¾æ•°æ®åº“对象，关闭记录é›?br />CONN.close
set CONN=Nothing
˜q™æ ·åQŒæˆ‘们所有关于数据库的数据干òq²å‡€å‡€çš„提取完成，用最早的旉™—´é‡Šæ”¾æ•°æ®åº“资源Â?br />''-----------//

''========用取得的arrA arrB˜q›è¡Œ™åµé¢å¤„理,昄¡¤ºæ•°æ®¾l“æžœ======
''注意åQŒarrA=GetRows 后得到的数组åQŒç¬¬ä¸€¾l´æ˜¯ä»£è¡¨åˆ—，½W¬äºŒ¾l´ä»£è¡¨è¡Œ

rowsA=ubound(arrA,2) ''----提取arrA的第二维下标åQŒç›¸å½“于取得recordset 的记录行æ•?br />rowsB=ubound(arrB,2) ''-----同上åQŒæå–arrB的第二维下标 

''做数据åó@环：(x¨¬)

''½W¬ä¸€ä¸ªselect表的循环
response.write "<table>"
For i=0 to rowsA
response.write "<tr>
response.write "<td>"&arrA(i,0)&"</td>" ''tableA.Ca1 
response.write "<td>"&arrA(i,1)&"</td>" ''tableA.Ca2 
response.write "<td>"&arrA(i,2)&"</td>" ''tableA.Ca3 
response.write "<td>"&arrA(i,3)&"</td>" ''tableA.Ca4 
response.write "</tr>"
Next
response.write "</table>

''½W¬äºŒä¸ªselect表åó@çŽ?br />response.write "<table>"
For i=0 to rowsB
response.write "<tr>
response.write "<td>"&arrB(i,0)&"</td>" ''tableB.Cb1 
response.write "<td>"&arrB(i,1)&"</td>" ''tableB.Cb2 
response.write "<td>"&arrB(i,2)&"</td>" ''tableB.Cb3 
response.write "<td>"&arrB(i,3)&"</td>" ''tableB.Cb4 
response.write "<td>"&arrB(i,4)&"</td>" ''tableB.Cb5 
response.write "</tr>"
Next
response.write "</table>

''--------OVER

REM ''============ž®ç»“========

˜q™æ ·çš„结果，再清楚不˜q‡ï¼
åQ?åQ‰ä‹É用Nextrecordset,可以处理多个select语句一‹Æ¡å‘送åŞ成的¾l“果集，减少¾|‘络‹¹é‡åQŒå¿…定加快速度åQ?br />不ä‹É用NextRecordset 则会(x¨¬)˜q™æ ·æ“ä½œåQ?br />SQL="select Ca1,Ca2,Ca3, Ca4 From TableA "
set Rs=CONN.execute (SQL)
SQL=" select Cb1,Cb2,Cb3,Cb4,Cb5 from TableB "
Set Rs=CONN.execute (SQL)
åQ?åQ‰ä‹É用GetRowsž®†è®°å½•é›†æå–到数¾l„中åQˆæ”¾åˆ°å†…存，所以要求记录集不要‹¹·å¤§å•¦ï¼‰(j¨ª)
用内存的数组工作åQŒè€Œä¸”省掉EOF,movenext½{‰çš„判断åQŒè°æ›´å¿«åQè‡ªä¸å¿…è¯ß_(d¨¢)¼
åQ?åQ‰æœ€æœ€ä¸»è¦çš„，我们利用上二者，一‹Æ¡æ€§å°†æ‰€æœ‰çš„数据提完åQŒå¿«é€Ÿæ–­å¼€æ•°æ®åº“连接和摧毁建立recordset数据库对象，大大减少¾|‘络‹¹é‡åQæ€§èƒ½è‡ªç„¶è¦æé«˜å¾ˆå¤šï¼

 



]]> Ö÷Õ¾Ö©Öë³ØÄ£°å£º ƽԶÏØ| °²ÈÊÏØ| °¢³ÇÊÐ| ÈÕ¿¦ÔòÊÐ| ÓÀÉÆÏØ| ÇàÑôÏØ| ÔƸ¡ÊÐ| ÓÀÄþÏØ| °¢À­ÉÆÃË| Ïå³ÇÏØ| ÄáľÏØ| ±ÈÈçÏØ| ÕòÄþ| °ÍÂí| ÄÏ»ªÏØ| ¿µÆ½ÏØ| ³Â°Í¶û»¢Æì| Î÷Ï¿ÏØ| ¸ßÌÆÏØ| ¶¨ÖÝÊÐ| ÎÚÀ¼ºÆÌØÊÐ| µÂ»¯ÏØ| ÀúÊ·| ·â¿ªÏØ| DZɽÏØ| å´²ýÏØ| ÄþÔ¶ÏØ| ¼½ÖÝÊÐ| ÐÞÎäÏØ| µ÷±øɽÊÐ| ÈýÔ­ÏØ| ±õº£ÏØ| ÐóÇÏØ| ¸ßÑôÏØ| »ÆÆÖÇø| ¾°ºéÊÐ| ÓÀ²ýÏØ| ÓÀ¼ÃÊÐ| ³¤Ñô| ÓÀºÍÏØ| èï³ÇÏØ|