ASP网站制作之查询一笔记录，按所选择的字段输入。

使用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比起来简直弱爆了！