这是我的程序源代码,请看一下,
这是表单:
<form method="POST" action="pandian1.asp" onSubmit="">
<!--webbot bot="SaveResults" startspan
U-File="_private/pandian1.asp" S-Format="HTML/BR"
S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--webbot
bot="SaveResults" endspan -->
<p>
<b>请选择:</b><select size="1" name="D1">
<option>设备名称</option>
<option>使用单位</option>
<option>统一编号</option>
</select> <font size="3">= </font>
<input type="text" name="T5" size="20">
<input type="submit" value="查询" name="B7"><input type="reset" value="重置" name="B8"></p>
</form>
pandian1.asp如下:
<% dim conn
set conn=server.createobject("adodb.connection")
conn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("mdata.mdb")
set rs1=server.createobject("adodb.recordset")
%>
<% sql="select * from pandian"
if request("t5") <> "" then
select case d1
case "设备名称"
sql="select * from pandian where 设备名称 like '%"&request("t5")&"%'"
case "使用单位"
sql="select * from pandian where 使用单位 like '%"&request("t5")&"%'"
case "统一编号"
sql="select * from pandian where 统一编号 like '%"&request("t5")&"%'"
case else
write.response("mirror")
end select
else
response.write("请输入要查询的具体名称")
end if
set rs1=conn.execute(sql)
response.write("数据连接成功")
%>
我在浏览器中,点击这个表单的查询按钮,就会说我没装什么FRONTPAGE EXTENSION SERVER...气死了,,,
刚学比较简单的就被挡住了,,严重挫伤我的积极性!!!!