|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。贴一段ASP和WML查询数据库得代码,人人参考参考,实在跟ASP写WEB页面很类似得。<%Response.ContentType="text/vnd.wap.wml"%>
<?xmlversion="1.0"?><!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.1//EN""http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<%
Dimconn,rs
DimstrSQL,strFirstName,strLastName
Setconn=Server.CreateObject("ADODB.Connection")
Setrs=Server.CreateObject("ADODB.Recordset")
conn.opensession("myconnect_string")Replacewithyourconnectstring
strWhoIs=Request.QueryString("username")
ifstrWhoIs=""then
%>
<cardid="UserSearch"title="Search">
<p>
Pleaseenterusernametofind?<inputname="username"type="text"maxlength="15"/>
<dotype="accept"label="Locate">
<gohref="thispage.asp"method="get">
<postfieldname="username"value="$username"/>
</go>
</do>
</p>
</card>
<%
else
strSQL="SELECT*FROMtblUsersWHEREUsername=&strWhoIs&"
Setrs=conn.Execute(strSQL)
%><cardid="UserResult"title="Result">
<p>
<%
ifnotrs.EOFthen
rs.MoveFirst
Response.Write"<strong>UserSearchResults</strong>"
Whilenotrs.EOF
strFirstName="FirstName"&rs("FirstName")
strLastName="LastName"&rs("LastName")
Response.WritestrFirstName
Response.WritestrLastName
rs.MoveNext
Wend
else
Response.Write"Sorry,nouserfound."
endif
%>
</p>
</card>
<%
endif
%>
专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。 |
|