|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。 有以下表单,想查询一笔记录,按所选择的字段输入(字段名fieldname1,fieldname2...请按你表中的字段名指定):
input.htm
<form method="Post" action="test.asp" name="form1">
<input type="text" name="bianhao" size="10">
<input type="checkbox" name="c1" value="fieldname1">
<input type="checkbox" name="c1" value="fieldname2">
...
<input type="submit" value="提交">
</form>
对应的ASP文件以下,这个代码的通用性很强(数据库mymdb.mdb你本人指定,表名tablename你本人指定):
test.asp
<%
Dim fieldnames,fields
fieldnames = ""
'遍历表单checkbox,将选择的字段存入字符串变量filednames
For Each fieldname In Request("c1")
fieldnames = fieldnames & "," & fieldname
Next
'判别是不是有选项
If fieldnames = "" Then
Response.Write "<center><h2>你最少应选择一个查询字段!</h2></center>"
Response.End
End If
'毗连数据库,翻开纪录集Rs
StrSql = "Select "& Mid(fieldnames,2) & " From tablename Where bianhao='" & Request("bianhao") & "'"
StrConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mymdb.mdb")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open StrSql,StrConn,1,1
'分化字符串变量filednames,按选择的字段输入了局
fields = Split(fieldnames,",")
For i = 1 To UBound(fields)
Response.Write fields(i) & ":" & Rs(fields(i)) & "<br>"
Next
Rs.Close
%> </p> asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了! |
|