|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。ado|教程|数据 本站原创内容,转载请说明出处网页教授教养网。
我们可使用SQL语句来创立一个查询,完成按前提显现我们必要的数据库中的数据。
比方显现"Companyname"以A入手下手的公司的名字。上面代码能够完成:
<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")
sql="SELECTCompanyname,ContactnameFROMCustomersWHERECompanyNameLIKEA%"
rs.Opensql,conn
%>
<tableborder="1"width="100%">
<tr>
<%foreachxinrs.Fields
response.write("<th>"&x.name&"</th>")
next%>
</tr>
<%dountilrs.EOF%>
<tr>
<%foreachxinrs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close%>
</table>
</body>
</html>
显现"Companyname"中入手下手字母年夜于E的那些公司的信息:
<html>
<body>
<%
setconn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("e:/webjx/webjx.mdb"))
setrs=Server.CreateObject("ADODB.recordset")
sql="SELECTCompanyname,ContactnameFROMCustomersWHERECompanyName>E"
rs.Opensql,conn
%>
<tableborder="1"width="100%">
<tr>
<%foreachxinrs.Fields
response.write("<th>"&x.name&"</th>")
next%>
</tr>
<%dountilrs.EOF%>
<tr>
<%foreachxinrs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>
显现"Country"为china的公司的信息:
<html>
<body>
<%
setconn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("e:/webjx/webjx.mdb"))
setrs=Server.CreateObject("ADODB.recordset")
sql="SELECTCompanyname,ContactnameFROMCustomersWHERECountry=china"
rs.Opensql,conn
%>
<tableborder="1"width="100%">
<tr>
<%foreachxinrs.Fields
response.write("<th>"&x.name&"</th>")
next%>
</tr>
<%dountilrs.EOF%>
<tr>
<%foreachxinrs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>
用户本人选择国度,然后显现响应的信息:
<html>
<body>
<%
setconn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("e:/webjx/webjx.mdb"))
setrs=Server.CreateObject("ADODB.recordset")
sql="SELECTDISTINCTCountryFROMCustomersORDERBYCountry"
rs.Opensql,conn
country=request.form("country")
%>
<formmethod="post">
选择国度:<selectname="country">
<% dountilrs.EOF
response.write("<option")
ifrs.fields("country")=countrythen
response.write("selected")
endif
response.write(">")
response.write(rs.fields("Country"))
rs.MoveNext
loop
rs.Close
setrs=Nothing%>
</select>
<inputtype="submit"value="显现信息">
</form>
<%
ifcountry""then
sql="SELECTCompanyname,Contactname,CountryFROMCustomersWHEREcountry="&country&""
setrs=Server.CreateObject("ADODB.Recordset")
rs.Opensql,conn
%>
<tablewidth="100%"cellspacing="0"cellpadding="2"border="1">
<tr>
<th>公司名</th>
<th>接洽人</th>
<th>国度</th>
</tr>
<%
dountilrs.EOF
response.write("<tr>")
response.write("<td>"&rs.fields("companyname")&"</td>")
response.write("<td>"&rs.fields("contactname")&"</td>")
response.write("<td>"&rs.fields("country")&"</td>")
response.write("</tr>")
rs.MoveNext
loop
rs.close
conn.Close
setrs=Nothing
setconn=Nothing%>
</table>
<% endif%>
</body>
</html>
ASP在国内异常流行,因为国内大多使用的是盗版的Windows和盗版的SQLServer,而ASP+COM+SQLServer实际上也是一种不错的搭配,其性能也不输于PHP+MYSQL,特别是Windows系统和SQLServer都有图形界面,比APACHE和MYSQL易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。 |
|