??xml version="1.0" encoding="utf-8" standalone="yes"?>国产精品午夜久久,久久精品国产99久久久香蕉,午夜精品久久久久9999高清http://www.shnenglu.com/elva/category/4362.htmlzh-cnMon, 19 May 2008 16:50:44 GMTMon, 19 May 2008 16:50:44 GMT60asp 操作access数据库日期比较ȝhttp://www.shnenglu.com/elva/archive/2007/11/17/36789.html叶子叶子Sat, 17 Nov 2007 06:03:00 GMThttp://www.shnenglu.com/elva/archive/2007/11/17/36789.htmlhttp://www.shnenglu.com/elva/comments/36789.htmlhttp://www.shnenglu.com/elva/archive/2007/11/17/36789.html#Feedback0http://www.shnenglu.com/elva/comments/commentRss/36789.htmlhttp://www.shnenglu.com/elva/services/trackbacks/36789.html13.5.1 列出某一? 上一星期的数?
SELECT distinct dateandtime
FROM ctdate_by_query_date
WHERE dateandtime between ((#2006-5-15#+(Weekday(2006-5-15)-7))-6) and (#2006-5-15#-7)+Weekday(2006-5-15)
sql="SELECT distinct dateandtime FROM ctarticle WHERE dateandtime between ((#"&date&"#+(Weekday("&date&")"&norp&"7))-6) and (#"&date&"#"&norp&"7)+Weekday("&date&")"
13.5 查询一? 所隶属星期所有天数的数据
SELECT *
FROM ctdate_by_query_date
WHERE dateandtime between ((#2006-5-15#+Weekday(2006-5-15))-6) and #2006-5-15#+Weekday(2006-5-15)
13.4 查询一个时间段
SELECT *
FROM ctdate_by_query_date
WHERE dateandtime between #2006-5-1# and #2006-5-30#
13.3.2 列出不同q䆾的年? q且不要相同
select distinct year(dateandtime) from ctarticle
l果? 
Expr1000
2000
2003
2004
2005
2006
13.3.1 列出某一? 上一q的W一条记?
SELECT top 1 dateandtime FROM ctarticle where year(dateandtime)=(2006)-1
sql="SELECT top 1 dateandtime FROM ctarticle where year(dateandtime)=(year(#"&date&"#))"&norp
13.3 列出某一q的数据
sql="select * from ctdate_by_query_date where year(dateandtime)="&year(rqqdt_)&" order by dateandtime desc"
13.2.1 查找上一月中的第一条记?
SELECT top 1 dateandtime FROM ctarticle where year(dateandtime)=year(#2006-5-28#) and  month(dateandtime)=month(#2006-5-28#)-1
13.2 列出某一月的数据
sql="select * from ctdate_by_query_date where year(dateandtime)="&year(rqqdt_)&" and month(dateandtime)="&month(rqqdt_)&" order by dateandtime desc"
13.1 列出某一日的数据
sql="select * from ctdate_by_query_date where dateandtime=#"&rqqdt_&"# order by a.articleid desc"
13. 旉日期
例一: 列出当天的数?
sql="select * from ctdate_by_query_date where dateandtime=date() order by a.articleid desc"



叶子 2007-11-17 14:03 发表评论
]]>
ASP调用WEBSERVICE旉?Connector 错误 '800a1527'http://www.shnenglu.com/elva/archive/2007/09/21/32630.html叶子叶子Fri, 21 Sep 2007 08:09:00 GMThttp://www.shnenglu.com/elva/archive/2007/09/21/32630.htmlhttp://www.shnenglu.com/elva/comments/32630.htmlhttp://www.shnenglu.com/elva/archive/2007/09/21/32630.html#Feedback0http://www.shnenglu.com/elva/comments/commentRss/32630.htmlhttp://www.shnenglu.com/elva/services/trackbacks/32630.htmlMicrosoft VBScript ~译器错?错误 '800a03f6'

~少 'End'

/iisHelp/common/500-100.aspQ行242

Connector 错误 '800a1527'

Connector:Connection time out. HRESULT=0x800A1527 - Client:An unanticipated error occurred during the processing of this request. HRESULT=0x800A1527 - Client:Sending the Soap message failed or no recognizable response was received HRESULT=0x800A1527 - Client:Unspecified client error. HRESULT=0x800A1527

/websocket/testt.aspQ行19

解决办法:

出现那个错误之后,|页p回了,后面的代码不在l执?
?br>on error resume next
然后
if err<>0 then p?nbsp;
end if

叶子 2007-09-21 16:09 发表评论
]]>
用html面的缓?http://www.shnenglu.com/elva/archive/2007/08/10/29685.html叶子叶子Fri, 10 Aug 2007 02:50:00 GMThttp://www.shnenglu.com/elva/archive/2007/08/10/29685.htmlhttp://www.shnenglu.com/elva/comments/29685.htmlhttp://www.shnenglu.com/elva/archive/2007/08/10/29685.html#Feedback0http://www.shnenglu.com/elva/comments/commentRss/29685.htmlhttp://www.shnenglu.com/elva/services/trackbacks/29685.html

<meta http-equiv="Cache-control" content="no-cache">Q是不存储网c一般访问会暂时存储|页下次讉K快。但是对于频J更新的|站׃要存储,所以用no-cache



另:
1。在Asp面首部<head>加入  
  Response.Buffer   =   True  
  Response.ExpiresAbsolute   =   Now()   -   1  
  Response.Expires   =   0  
  Response.CacheControl   =   "no-cache"  
  Response.AddHeader   "Pragma",   "No-Cache"  
   
  2。在HtML代码中加? 
  <HEAD>  
  <META   HTTP-EQUIV="Pragma"   CONTENT="no-cache">  
  <META   HTTP-EQUIV="Cache-Control"   CONTENT="no-cache">  
  <META   HTTP-EQUIV="Expires"   CONTENT="0">  
  </HEAD>  
   
  3。在重新调用原页面的时候在l页面传一个参? 
  Href="****.asp?random()"  

前两个方法据说有时会失效Q而第三种则是在蟩转时传一个随机的参数Q?因ؓaspx的缓存是与参数相关的Q如果参C同就不会使用~存Q而会重新生成面Q每ơ都传一个随机的参数可以避免用缓存?font color=#800080>q个仅适用于asp&asp.net


asp的随机数函数Q?br>Function rndNum (strLong)
Dim temNum
Randomize
Do While Len(RndNum) < strLong
temNum=CStr(Chr((57-48)*rnd+48))
RndNum=RndNum&temNum
loop
End Function
参数为需要的随机数长?2

4。在jsp面中可使用如下代码实现无缓存:

response.setHeader("Cache-Control","no-cache"); //HTTP 1.1

response.setHeader("Pragma","no-cache"); //HTTP 1.0

response.setDateHeader ("Expires", 0); //prevents caching at the proxy server

q些代码加在<head> </head>中间具体如下

<head>

<%

response.setHeader("Cache-Control","no-cache"); //HTTP 1.1

response.setHeader("Pragma","no-cache"); //HTTP 1.0

response.setDateHeader ("Expires", 0); //prevents caching at the proxy server

%>

</head>

5。window.location.replace("WebForm1.aspx");   
  参数是你要覆盖的页面,replace的原理就是用当前面替换掉replace参数指定的页面? 
  q样可以防止用户点击back键。用的是javascript脚本Q?/strong>举例如下Q?/font>

a.html

<html>
    <head>
        <title>a</title>    
        <script language="javascript">
            function jump(){
                window.location.replace("b.html");
            }
        </script>
    </head>
    <body>
       <a href="javascript:jump()">b</a>
   </body>
</html> 

b.html

<html>
    <head>
        <title>b</title>    
        <script language="javascript">
            function jump(){
                window.location.replace("a.html");
            }
        </script>
    </head>
    <body>
       <a href="javascript:jump()">a</a>
   </body>
</html> 

?U只是清IZcacheQ即存储在Temporary Internet Files文g夹中的时文Ӟ而第五种则是使用跌{面文g替换当前面文gQƈ没有清空cacheQ也是说Temporary Internet Files产生了相关的临时文gQ两者搭配用真是清I缓存,必备良药。正好我q里有了记录Q所以常来看看哦?/p>

叶子 2007-08-10 10:50 发表评论
]]>
ASP判断是数字的函数http://www.shnenglu.com/elva/archive/2007/07/31/29079.html叶子叶子Tue, 31 Jul 2007 07:03:00 GMThttp://www.shnenglu.com/elva/archive/2007/07/31/29079.htmlhttp://www.shnenglu.com/elva/comments/29079.htmlhttp://www.shnenglu.com/elva/archive/2007/07/31/29079.html#Feedback0http://www.shnenglu.com/elva/comments/commentRss/29079.htmlhttp://www.shnenglu.com/elva/services/trackbacks/29079.html阅读全文

叶子 2007-07-31 15:03 发表评论
]]>
ASP入门基础教程-Recordset 对象http://www.shnenglu.com/elva/archive/2007/07/30/29019.html叶子叶子Mon, 30 Jul 2007 08:15:00 GMThttp://www.shnenglu.com/elva/archive/2007/07/30/29019.htmlhttp://www.shnenglu.com/elva/comments/29019.htmlhttp://www.shnenglu.com/elva/archive/2007/07/30/29019.html#Feedback0http://www.shnenglu.com/elva/comments/commentRss/29019.htmlhttp://www.shnenglu.com/elva/services/trackbacks/29019.html   二、创?Recordset 对象
  要?Recordset 对象处理l果Q首先必d?Recordset 对象实例。其格式如下Q?br>    三、打开记录?br>   所有的参数都是可选项。Source ?Command 对象变量名、SQL 语句、表名、存储过E调用或持久 Rcordset 文g名?br>  ActiveConnection 为有效的 Connection 对象变量名或包含 ConnectionString 字符丌Ӏ?br>  LockType 指定打开 Recordset 时应使用的锁定类型?br>  Options 指定如何计算 Source 参数或从以前保存 Recordset 的文件中恢复 Recordset?br>     四、Recordset 对象的常用属?br>Recordset 对象的常用属?lt;?gt;
属 ? 描   q / 注 ?
ActiveConnection 指定与数据提供者的q接信息Q用来指定当前的 Recordset 对象属于哪个 Connection 对象?
Source 指定 Recordset 对象的数据源Q可以是一?Command 对象名、SQL 语句、数据库表或存储q程 ?
CoursorType 指定 Recordset 对象所使用的光标类型?
共有 4 U光标类型:   0 一 前滚光标Q光标只能向前移动,执行效率高。是 Cursor 的默认|
  1 一 键盘光标Q光标可向前或向后移动,Recordset 记录集同步反映自它创建后其他用户所作的修改和删除,但却不能同步反映自它创徏后其他用h增加的记录;
  2 一 动态光标,光标可向前或向后滚动QQ何时?Recordset 记录集都同步反映其他用户的Q何操作;
  3 一 静态光标,光标可向前或向后UdQ自创徏后无法同步反映其他用h做的M操作Q它的功能简单但消耗资源少?br>
LockType 表示~辑时记录的锁定cd。它军_了当不止一个用戯囑֐时改变一个记录时QRecordset 如何处理数据记录?/td>
0 一 只读锁定Q记录只读,不能更新 Recordset ,?LockType 的默认|   1 一 悲观锁定Q编辑记录开始立刻锁定,直到提交l数据提供者;
  2 一 乐观锁定Q一ơ锁定一条记录,只有调用 Update Ҏ提交数据时才锁定记录Q?br>  3 一 乐观的批量更斎ͼ允许同时更新多条记录?br>
Filter 用来讑֮一个过滤条Ӟ以便?Recordset 记录q行qo?
CacheSize 表示一?Recordset 对象在高速缓存中的记录数?/td>
Maxrecords 执行一?SQL 查询Ӟq回 Recordset 对象的最大记录数?/td>
Bof 判断记录指针是否CW一条记录之前?/td>
Eof 判断记录指针是否C最后一条记录之后?/td>
RecordCount q回 Recordset 对象的记录数Q(在用键盘光标时Q该属怀q回 的可能是不太准确的数|一般情况下Qƈ不用q种Ҏ来统?Recordset 中的记录敎ͼ因ؓ它的性能q不E_Q?/td>
Bookmark 书签标记Q用来保存当前记录的位置?/td>
AbsolutePosition 用来讑֮ Recordset 对象中当前记录的序位置是第几行记录?/td>
PageSize 表示 Reccordset 对象的页面大(每页多少条记录)Q默认gؓ10?/td>
PageCount 表示 Recordset 对象的页面个数?
AbsolutePage 表示当前记录的页受?/td>
EditMode 指示当前记录的编辑状态,0 一 已被~辑Q? 一 已被修改而未提交Q? 一 存入数据库的新记??
Status ?Recordset 对象q行扚w更新后,查询当前记录的状态?
?/td> 意义描述 ?/td> 意义描述
0 记录更新成功?/td> 1024 存在记录锁定Q新记录未保存?/td>
1 新记录?/td> 2048 使用乐观q发事gQ未保存?/td>
2 记录被删除?/td> 4096 用户q反完整性规则,记录未保存?/td>
4 记录未被删除?/td> 8192   很待定修改,记录未保存?br>
8 记录未被修改?/td> 16384 与一存储对象相冲H,记录未保存?/td>
16 书签不合法,记录未保存?/td> 32768 内存不够Q记录未保存?/td>
64 影响多个记录Q未保存?/td> 65536 用户没有中、够的权限Q未保存?/td>
128 指向一待定插入Q记录未保存?/td> 131072 q反基本数据库原则,记录未保存?/td>
256 操作被取消,记录未保存?/td> 262144 记录已从数据源删除?/td>
五、Rcordset 对象的方?br>
Recordset 对象的方?lt;表二> Ҏ 描述 / 格式 / 注解  
Open 打开一?Recordset 对象?
Rs.Open[Source][,ActiveConnection][,CursorType][,LursorType][,Option]
Rs Qؓ已经建立?Recordset 对象Q?
  Source Qؓ可选参敎ͼ可以是一?Command 对象名、SQL 语句、数据库表或存储q程Q 

  ActiveConnection Q定义与数据库的q接信息Q?br>
  CursorType Q是Recordset 对象所使用的光标类型;

  LockTypec 是编?Recordset 对象记录时所使用的锁定类型;

  Option 指示数据提供者如何处?Source 的内容类型,其参数值及其意义见下表Q?br>
  Options?意义描述
1 表示被执行的字符串包含一个命令文本?
2 表示被执行的字符串包含一个表名?
4 表示被执行的字符串包含一个存储过E名?
8 没有指定字符串的内容Q这是默认|


Close 关闭一?Recordset 对象?但ƈ不从内存中删除该对象Q只是无法读取其中的数据Q但仍然可以d它的属性。因此一个关闭的 Recordset 对象q可以用 Open Ҏ打开q保持其原有属性?nbsp; 
Rs.Close
RsQؓ已经建立?Recordset 对象Q如果正q行~辑更新数据的操作,则在使用此方法之前必d调用 Update ?CancelUpdate Ҏ。否则将会出现错误?
Clone 创徏一?Recordset 对象的完全拷贝,但只有所用的 Recordset 对象cd允许使用 Bookmarks时才能用该Ҏ?
MoveFirst ?Recordset 指针指向W一行记录?nbsp; 
Rs.MoveFirst
MoveLast ?Recordset 指针指向最后一条记录(?Recordset 必须支持书签Q?
Rs.MoveLast
MovePrevious 把Recordset 指针上移一行(使用前应判断 BOF 是否为真Q该Ҏ必须支持书签Q?
Rs.MovePreviors
MoveNext 把Recordset 指针下移一行(使用前应判断 EOF 是否为真Q?
Rs.MoveNext
Move 把Recordset 指针指向指定的记录?
Move n [,start]
n Ud的记录数Q取正时表示向前Q下Q移动,取负时表C向后(上)UdQ?
  start 是可选参敎ͼ表示Ud的v炏V?

GetRows 从一?Rexordset 对象d一行或多行记录C个数l中?
Myarray=Rs.GetRows ( rows,start,fields )  
Myarray 为目标数l名QRs 为已创徏?Recordset 对象QRows 回数l的行数Qstart 取数据的L Q书{)QFields ?Recordset 的字Dc?nbsp; 
NextRecordSet 清除当前?Recordset q执行下一条指令,以传回下一?Recordset 对象Q如果没有下一条指令,则返?Nothing l?Recordset ?
Requery 重新执行 SQL 操作Q以更新 Recordset 对象中的数据?
Resync 从数据源更新当前?Recordset 记录Q实C数据源的同步?
Addnew 增加一条空记录?
Rs.AddNew N
增加一条空记录Qƈ数l中的元素(NQ添加到q条I录中?
Delete 删除当前记录?
Delete [value]  
如果 value=1(默认|表示该方法只删除当前记录Qvalue=2 表示该方法删除所有由 Filter 属性设定的记录?nbsp; 
Update 保存当前记录的Q何变动?
Rs.Update
CancelUpdate 取消前一?Update Ҏ所做的一切修攏V?
UpdateBatch Recordset 工作在批量方式时Q取消对 Recordset 的更新?
Suports 获取创徏?Recordset 对象的能力信息?
注:使用 Move 、MoveFirst 、MoveLast 、MovePrevious 、MoveNext ҎUd记录指针Ӟ需要注?Rrcordset 对象的光标类型。如“前滚光标”限制了记录指针只能向前移动?/div>
六、Recordset 对象的应用实?br>
   1、这是一个简单的员工基本情况理pȝQ其功能有:1Q、添加员工资料;2Q、更改员工资料;3Q、删除员工资料。它包含着六个面和一个数据库。分别ؓQ?br>
   1Q、主面Qindex.asp

   2Q、添加数据页面:add.htm

   3Q、保存添加数据页面:add.asp

   4Q、更Ҏ据页面:Update.asp

   5Q、保存更Ҏ据页面:Update2.asp

   6Q、删除记录页面:Detele.asp

   7Q、数据库QRSGL.mdb.用到该数据库中的”员工基本情况?#8220;?br>
   2、各面的代码如下:

   1)、主面Qindex.asp。该面的功能有Q?br>
  a、创Z个对象,Connectiion对象和Recordset对象Q其目的是连接数据库和返回一个记录集Q?br>
  b、创Z个表|使do while循环语句各条记录在表格中显C出来;

  c)、创Z个超q接Q一个用以连接添加数据页面,另一个通过指定的员工姓名连接到更改数据面Q还有一个通过指定的员工姓名连接到删除面?br>
<% @ Language="VBScript" %>
<html>
<head><title>员工基本情况理pȝ</title></head>
<body>
<%
'****************创徏两个对象Q连接对象、记录集对象Q?********************
dim cnn,rst
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定q接字符Ԍ
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="select * from 员工基本情况?
'rst.Open sSQL,cnn,1,1
set rst=cnn.Execute(sSQL,,adCmdText)
%>
<!--************创徏一个表|用以昄数据库中的各条记?**********-->
<table align="center" border="1">
<caption><h3>教职员工基本情况?lt;/h3></caption>
<tr colspan="5"><td><a href="add.htm">d记录</a></td></tr>
<!--昄各字D名-->
<tr><td align="center">员工姓名</td><td align="center">所在部?lt;/td><td align="center">家庭住址</td><td align="center">家庭电话</td><td align="center">Email</td><td align="center">状?lt;/td>
<%
'使用do while循环语句各条记录显C出来?br>do while Not rst.eof
t1=rst("员工姓名")
t2=rst("所在部?)
t3=rst("家庭住址")
t4=rst("家庭电话")
t5=rst("Email")
tt="<tr align='center'><td>" & t1 & "</td><td>" &t2& "</td><td>" &t3& "</td><td>" &t4& "</td><td>" &t5& "</td><td>"
tt=tt & "<a href=Update.asp?id=" & t1 & ">修改</a><a href=Detele.asp?id=" & t1 & ">||删除</a></td></tr>"
response.write tt
rst.MoveNext
loop
cnn.Close
Set cnn=Nothing
%>
</table>
</body>
</html>
       2)、添加数据页面:add.htm 。本面׃个表单组成,其功能是向保存添加数据页面(add.aspQ提交数据?
<html>
    <head><title>d记录</title></head>
<body>
<div align="center">
<form name="form1" method="post" action="add.asp">
<table align="center" border="1">
<tr><td colspan="2" align="center">员工基本情况?lt;/td></tr>
<tr><td align="right">员工姓名Q?lt;/td>
<td><input type="text" name="txtName"></td></tr>
<tr><td align="right">所在部门:</td>
<td><input type="text" name="txtDepartment"></td></tr>
<tr><td align="right">家庭住址Q?lt;/td>
<td><input type="text" name="txtAddr"></td></tr>
<tr><td align="right">家庭电话Q?lt;/td>
<td><input type="text" name="txtTel"></td></tr>
<tr><td align="right">EmailQ?lt;/td>
<td><input type="text" name="txtemail"></td></tr>
<tr><td align="center"><input type="submit" value="提交"></td>
<td align="center"><input type="reset" value="全部重写"></td></tr>
</table>
</form>
<a href="index.asp">q回首页</a>
</div>
</body>
</html>

3)、保存添加数据页面:add.asp。该面的功能有Qa)、用Request对象获取从add.htm面提交的|b)、创Z个对象(一个连接对象、二个记录集对象Q,通过rs.addnew,rs.update两个函数数据保存到数据库;c)、显CZ息提C框?br>
<% @ Language="VBScript" %>
    <html>
<head>
<title>d记录</title>
</head>
<body>
<!-- #include virtual ="/adovbs.inc" -->
<%
'**************使用Request对象获取从add.htm面中提交的?***********************************
Name1=Request.Form("txtName")
Department=Request.Form("txtDepartment")
Addr=Request.Form("txtAddr")
Tel=Request.Form("txtTel")
Email=Request.Form("txtEmail")
if Tel="" then
Tel="不祥"
end if
if Email="" then
Email="不祥"
end if
if name1="" or department="" or Addr="" then
%>
<script language="vbscript">
alert("员工姓名、所在部门和家庭住址中只有一ؓI?请填写完整?)
history.back
</script>
<%
else
'****************创徏三个对象Q一个连接对象、二个记录集对象Q?********************
dim cnn,rst
set cnn=Server.CreateObject("ADODB.Connection")
'指定q接字符Ԍ
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
'建立Recordset对象q以q加记录方式打开数据库?br>set rst=Server.CreateObject("ADODB.Recordset")
set rst1=Server.CreateObject("ADODB.Recordset")
sSQL="select * from 员工基本情况?where 员工姓名='" & name1 & "'"
rst.Open sSQL,cnn,1,1
if rst.EOF or rst.BOF then '如果数据表中无此数据Q则d记录?br>rst1.Open "员工基本情况?,cnn ,1,2
rst1.addnew array("员工姓名","所在部?,"家庭住址","家庭电话","Email"),array(name1,Department,Addr,Tel,Email)
rst1.update
%>
<!--**********昄信息提示?*************-->
<script language="vbscript">
alert("记录d成功Q?)
window.location.href="index.asp"
</script>
<%
rst1.close
set rst1=nothing
else
%>
<script language="vbscript">
alert("员工姓名为:“<%=name1 %>” 的记录已l存在?)
history.back
</script>
<%
end if
rst.close
set rst=nothing
end if
%>
<h3>记录d成功Q?lt;/h3>
<p><a href="add.htm">q回记录d表单</a> || <a href="index.asp">q回首页</a>
</center>
</body>
</html>
  4)、更Ҏ据页面:Update.asp。该面的功能有Qa、创Z个对象,Connectiion对象和Recordset对象Q其目的是连接数据库和返回一个记录集Qb、创Z个表单,其目的是提交更改q的数据?br>
<%
a=request("id")
response.write a
'response.end
'****************创徏两个对象Q连接对象、记录集对象)*********************
dim cnn,rst,cmd
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定q接字符Ԍ
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="select * from 员工基本情况?where 员工姓名='" & a & "'"
'rst.Open sSQL,cnn,1,1
set rst=cnn.Execute(sSQL,,adCmdText)
%>
<html>
<head><title>更改记录</title></head>
<body>
<div align="center">
<!--****************创徏一个表?****************************-->
<form name="form1" method="post" action="Update2.asp">
<table align="center" border="1">
<tr><td colspan="2" align="center">员工基本情况?lt;/td></tr>
<tr><td align="right">员工姓名Q?lt;/td>
<td><input type="text" name="txtName" value=<%=rst("员工姓名")%> readonly></td></tr>
<tr><td align="right">所在部门:</td>
<td><input type="text" name="txtDepartment" value=<%=rst("所在部?)%>></td></tr>
<tr><td align="right">家庭住址Q?lt;/td>
<td><input type="text" name="txtAddr" value=<%=rst("家庭住址")%>></td></tr>
<tr><td align="right">家庭电话Q?lt;/td>
<td><input type="text" name="txtTel" value=<%=rst("家庭电话")%>></td></tr>
<tr><td align="right">EmailQ?lt;/td>
<td><input type="text" name="txtemail" value=<%=rst("Email")%>></td></tr>
<tr><td align="center"><input type="submit" value="提交"></td>
<td align="center"><input type="reset" value="全部重写"></td></tr>
</table>
</form>
</div>
</body>
</html>

5)、保存更Ҏ据页面:Update2.asp?该页面的功能有:a)、用Request对象获取从Update.asp面提交的|b)、创Z个对象(q接对象、记录集对象Q;c)、通过表格昄更改后的记录?br>
<% @ Language="VBScript" %>
<%
'*****************从提交表单中提取数?**************************
Dim Name,Department,Addr,Tel,Email
Name=Trim(Request.Form("txtName"))
Department=Trim(Request.Form("txtDepartment"))
Addr=Trim(Request.Form("txtAddr"))
Tel=Trim(Request.Form("txtTel"))
Email=Trim(Request.Form("txtEmail"))
%>
<html>
<head>
<title>更改记录</title>
</head>
<body>
<!-- #include virtual ="/adovbs.inc" -->
<%
'****************创徏二个对象Q连接对象、记录集对象Q?********************
dim cnn,rst,cmd
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定q接字符Ԍ
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="update 员工基本情况?set 所在部?'" & Department & "',家庭住址='" & Addr & "',家庭电话='" & Tel & "',Email='" & Email & "' where 员工姓名='" & name & "'"
rst.Open sSQL,cnn,1,2
set rst=nothing
%>
<!--**************************用表格显C录?*********************-->
<table align="center" border="1">
<tr><td colspan="2" align="center">员工基本情况?lt;/td></tr>
<tr><td align="right" width="130" align="center">员工姓名Q?lt;/td>
<td width="200"><%=Name %></td></tr>
<tr><td align="right">所在部门:</td>
<td><%=Department %></td></tr>
<tr><td align="right">家庭住址Q?lt;/td>
<td><%=Addr %></td></tr>
<tr><td align="right">家庭电话Q?lt;/td>
<td><%=Tel %></td></tr>
<tr><td align="right">EmailQ?lt;/td>
<td><%=Email %></td></tr>
</table>
<center>
<p><hr width="505" color="#cc9999">
<h3>记录更改成功Q?lt;/h3>
<p><a href="index.asp">q回首页</a>
</center>
</body>
</html>
  6)、删除数据页面:Detele.asp?a)、用Request对象获取要删除的员工姓名Qb)、创Z个对象(q接对象、记录集对象Q;c)、给出删除成功提C框?br>
<% @ Language="VBScript" %>
<%
'从提交表单中提取数?br>Dim Name
Name=Trim(Request.Querystring("id"))
%>
<html>
<head>
<title>更改记录</title>
</head>
<body>
<!-- #include virtual ="/adovbs.inc" -->
<%
'****************创徏二个对象Q连接对象、记录集对象Q?********************
dim cnn,rst,cmd
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定q接字符Ԍ
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="delete from 员工基本情况?where 员工姓名=" & "'" & Name & "'"
rst.Open sSQL,cnn,1,2
set rst=nothing
ifo="员工姓名为:“" & name & "” 的记录已被您成功的删除!"
%>
<script languge="vbscript">
alert("<%=ifo %>")
window.location.href="index.asp"
</script>
<p><a href="index.asp">q回记录d表单</a>
</center>
</body>
</html>






RS.OPEN SQL,CONN,A,B

A: ADOPENFORWARDONLY(=0) 只读,且当前数据记录只能向下移?
ADOPENKEYSET(=1) 可读?当前数据记录可自q?
ADOPENDYNAMIC(=2) 可读?当前数据记录可自q?可看到新增记?
ADOPENSTATIC(=3) 只读,当前数据记录可自q?

B: ADLOCKREADONLY(=1) ~省锁定cdQ记录集是只ȝQ不能修改记?
ADLOCKPESSIMISTIC(=2) 悲观锁定Q当修改记录Ӟ数据提供者将试锁定记录以确保成功地~辑记录。只要编辑一开始,则立即锁住记录?
ADLOCKOPTIMISTIC(=3) 乐观锁定 Q直到用UpdateҎ提交更新记录时才锁定记录?
ADLOCKBATCHOPTIMISTIC(=4) 扚w乐观锁定Q允怿改多个记录,只有调用UpdateBatchҎ后才锁定记录?
当不需要改动Q何记录时Q应该用只ȝ记录集,q样提供者不用做M。对于一般的使用Q乐观的锁定可能是最好的选择Q因录只被锁定一段旉Q?数据在这D|间被更新。这减少了资源的使用?/ca>



叶子 2007-07-30 16:15 发表评论
]]>个h扩展的asp字符串函?/title><link>http://www.shnenglu.com/elva/archive/2007/05/28/25026.html</link><dc:creator>叶子</dc:creator><author>叶子</author><pubDate>Mon, 28 May 2007 15:39:00 GMT</pubDate><guid>http://www.shnenglu.com/elva/archive/2007/05/28/25026.html</guid><wfw:comment>http://www.shnenglu.com/elva/comments/25026.html</wfw:comment><comments>http://www.shnenglu.com/elva/archive/2007/05/28/25026.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.shnenglu.com/elva/comments/commentRss/25026.html</wfw:commentRss><trackback:ping>http://www.shnenglu.com/elva/services/trackbacks/25026.html</trackback:ping><description><![CDATA[     摘要:   <a href='http://www.shnenglu.com/elva/archive/2007/05/28/25026.html'>阅读全文</a><img src ="http://www.shnenglu.com/elva/aggbug/25026.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.shnenglu.com/elva/" target="_blank">叶子</a> 2007-05-28 23:39 <a href="http://www.shnenglu.com/elva/archive/2007/05/28/25026.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div>]]></description></item><item><title>Asp字符串函?/title><link>http://www.shnenglu.com/elva/archive/2007/05/28/25024.html</link><dc:creator>叶子</dc:creator><author>叶子</author><pubDate>Mon, 28 May 2007 15:38:00 GMT</pubDate><guid>http://www.shnenglu.com/elva/archive/2007/05/28/25024.html</guid><wfw:comment>http://www.shnenglu.com/elva/comments/25024.html</wfw:comment><comments>http://www.shnenglu.com/elva/archive/2007/05/28/25024.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.shnenglu.com/elva/comments/commentRss/25024.html</wfw:commentRss><trackback:ping>http://www.shnenglu.com/elva/services/trackbacks/25024.html</trackback:ping><description><![CDATA[     摘要:   <a href='http://www.shnenglu.com/elva/archive/2007/05/28/25024.html'>阅读全文</a><img src ="http://www.shnenglu.com/elva/aggbug/25024.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.shnenglu.com/elva/" target="_blank">叶子</a> 2007-05-28 23:38 <a href="http://www.shnenglu.com/elva/archive/2007/05/28/25024.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div>]]></description></item><item><title>常用的一些小技?http://www.shnenglu.com/elva/archive/2007/05/28/25012.html叶子叶子Mon, 28 May 2007 11:54:00 GMThttp://www.shnenglu.com/elva/archive/2007/05/28/25012.htmlhttp://www.shnenglu.com/elva/comments/25012.htmlhttp://www.shnenglu.com/elva/archive/2007/05/28/25012.html#Feedback0http://www.shnenglu.com/elva/comments/commentRss/25012.htmlhttp://www.shnenglu.com/elva/services/trackbacks/25012.html阅读全文

叶子 2007-05-28 19:54 发表评论
]]>
1000个数随机产生20l不重复 http://www.shnenglu.com/elva/archive/2007/05/28/25009.html叶子叶子Mon, 28 May 2007 11:47:00 GMThttp://www.shnenglu.com/elva/archive/2007/05/28/25009.htmlhttp://www.shnenglu.com/elva/comments/25009.htmlhttp://www.shnenglu.com/elva/archive/2007/05/28/25009.html#Feedback0http://www.shnenglu.com/elva/comments/commentRss/25009.htmlhttp://www.shnenglu.com/elva/services/trackbacks/25009.html阅读全文

叶子 2007-05-28 19:47 发表评论
]]>
ASP面生成静态页的方?http://www.shnenglu.com/elva/archive/2007/05/28/25008.html叶子叶子Mon, 28 May 2007 11:46:00 GMThttp://www.shnenglu.com/elva/archive/2007/05/28/25008.htmlhttp://www.shnenglu.com/elva/comments/25008.htmlhttp://www.shnenglu.com/elva/archive/2007/05/28/25008.html#Feedback0http://www.shnenglu.com/elva/comments/commentRss/25008.htmlhttp://www.shnenglu.com/elva/services/trackbacks/25008.html阅读全文

叶子 2007-05-28 19:46 发表评论
]]>
ASP可逆算?http://www.shnenglu.com/elva/archive/2007/05/28/25006.html叶子叶子Mon, 28 May 2007 11:44:00 GMThttp://www.shnenglu.com/elva/archive/2007/05/28/25006.htmlhttp://www.shnenglu.com/elva/comments/25006.htmlhttp://www.shnenglu.com/elva/archive/2007/05/28/25006.html#Feedback0http://www.shnenglu.com/elva/comments/commentRss/25006.htmlhttp://www.shnenglu.com/elva/services/trackbacks/25006.html阅读全文

叶子 2007-05-28 19:44 发表评论
]]>
len(),lift(),right()不能正常识别中文的解x?http://www.shnenglu.com/elva/archive/2007/05/28/25005.html叶子叶子Mon, 28 May 2007 11:40:00 GMThttp://www.shnenglu.com/elva/archive/2007/05/28/25005.htmlhttp://www.shnenglu.com/elva/comments/25005.htmlhttp://www.shnenglu.com/elva/archive/2007/05/28/25005.html#Feedback0http://www.shnenglu.com/elva/comments/commentRss/25005.htmlhttp://www.shnenglu.com/elva/services/trackbacks/25005.html阅读全文

叶子 2007-05-28 19:40 发表评论
]]>
判断中英文结合的字段串长度的函?http://www.shnenglu.com/elva/archive/2007/05/28/25004.html叶子叶子Mon, 28 May 2007 11:39:00 GMThttp://www.shnenglu.com/elva/archive/2007/05/28/25004.htmlhttp://www.shnenglu.com/elva/comments/25004.htmlhttp://www.shnenglu.com/elva/archive/2007/05/28/25004.html#Feedback0http://www.shnenglu.com/elva/comments/commentRss/25004.htmlhttp://www.shnenglu.com/elva/services/trackbacks/25004.html阅读全文

叶子 2007-05-28 19:39 发表评论
]]>
˾þô߽ۺͼƬ| ˶ݺɫۺϾþ| Ʒþ¶| պþþþþ| þü޾Ʒ?V| 91Ʒ9lþþþ| ղƷþþþþþ| ޾Ʒھþ| ݹƷþþþþ| 91Ʒ91þþþþ| ŷպþþƷ| þۺϸۺϾþ| þþƷƷëƬ| þ99ֻоƷ| Ʒһþ| þ޹ŷ޾Ʒһ| Ʒþþþþø | ھƷþþþþĻ| ŷִִþþ | ŷսպ91ۺһþþ| ޾Ʒþþ| þõӰ| þþþ뾫Ʒ| þþƷˬӰ| ŷaƬѿþ| ŷպĻþ| av˾þۺɫ| ˳ɾƷþþþ| þAVԴվ| պþþþƷӰԺҳ| þˬˬƬAV| Ʒ99þѹۿ| Ĺ˾Ʒþò| þۺɫɫ| Ʒ9999þþþ| ŮþþŮ| Ʒպþ| ޹ŷۺϾþ| ŷղþ99| þþƷ| պƷþþþþ|