|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。ado|教程 本站原创内容,转载请说明出处网页教授教养网。
我们可使用SQLUPDATE命令来更新数据库中的纪录。
我们想更新数据库webjx中的一个表Customers中的一个纪录,起首我们把表Customers中的一切纪录显示出来。
<html>
<body>
<%
setconn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open"e:/webjx/webjx.mdb"
setrs=Server.CreateObject("ADODB.Recordset")
rs.open"SELECT*FROMcustomers",conn
%>
<h2>ListDatabase</h2>
<tableborder="1"width="100%">
<tr>
<%
foreachxinrs.Fields
response.write("<th>"&ucase(x.name)&"</th>")
next
%>
</tr>
<%dountilrs.EOF%>
<tr>
<formmethod="post"action="demo_update.asp">
<%
foreachxinrs.Fields
iflcase(x.name)="customerid"then%>
<td>
<inputtype="submit"name="customerID"value="<%=x.value%>">
</td>
<%else%>
<td><%Response.Write(x.value)%></td>
<%endif
next
%>
</form>
<%rs.MoveNext%>
</tr>
<%
loop
conn.close
%>
<br/> </table>
</body>
</html>
当用户点击了"customerID"按钮就要挪用"demo_update.asp":
<html>
<body>
<h2>UpdateRecord</h2>
<%
setconn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open"e:/webjx/webjx.mdb"
cid=Request.Form("customerID")
ifRequest.form("companyname")=""then
setrs=Server.CreateObject("ADODB.Recordset")
rs.open"SELECT*FROMcustomersWHEREcustomerID="&cid&"",conn
%>
<formmethod="post"action="demo_update.asp">
<table>
<%foreachxinrs.Fields%>
<tr>
<td><%=x.name%></td>
<td><inputname="<%=x.name%>"value="<%=x.value%>"></td>
<%next%>
</tr>
</table>
<br/><br/>
<inputtype="submit"value="更新纪录">
</form>
<%
else
sql="UPDATEcustomersSET"
sql=sql&"companyname="&Request.Form("companyname")&","
sql=sql&"contactname="&Request.Form("contactname")&","
sql=sql&"address="&Request.Form("address")&","
sql=sql&"city="&Request.Form("city")&","
sql=sql&"postalcode="&Request.Form("postalcode")&","
sql=sql&"country="&Request.Form("country")&""
sql=sql&"WHEREcustomerID="&cid&""
onerrorresumenext
conn.Executesql
iferr0then
response.write("Noupdatepermissions!")
else
response.write("Record"&cid&"wasupdated!")
endif
endif
conn.close
%>
<br/> </body>
</html>
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |
|