|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用起首用Access新建一个数据库,设取名为luntan,数据表的称号为“information”,创建以下字段:“text”,“name”,“time”,并将“time”默许值设为Now()
<%
Setcom=Server.CreateObject("ADODB.Connection")
com.open"DRIVER={MicrosoftAccessDriver("luntan.mdb");
pwd=information;DBQ="&Server.MapPath("luntan.mdb")
sql="select*frominformationorderbytimeDesc"
Setrs=Server.CreateObject("ADODB.Recordest")
rs.opensql,com,3,2
ifrs.EOForrs.BOFthen
response.write"没有留言"
else
rs.MoveFirst
whileNotrs.EOF.
response.writers("name")&"公布于"&rs("time")&"<br>"
response.writers("text")&"<br><hr>"
rs.MoveNext
wend
AbsolutePosition=N,(N=1,2,3......)
endif
%>
接着是用户誊写留言部分。设论坛页为“information.asp”,则
<formmethod=postaction="information.asp">
姓名:<inputtype=textsize=12name="name"><br>
留言:<textareacols=30row=4name="text"></textarea><br>
<inputtype=submitvalue="提交">
</form>
最初一部分是将用户提交的表双数据纪录到数据库中,则
<%
ifrequest("text")emptyandrequest("name")emptythen
Setcomb=Server.CreateObject("ADODB.Connection")
comb.Open"DRIVER={MicrosoftAccessDriver(*.mdb)};pwd=information;
DBQ="&Server.MapPath("luntan.mdb")
sql="select*frominformation"
Setrsb=Server.CreateObject("ADODB.Recordset")
rsb.opensql,comb,3,2
rsb.AddNew
rsb("text")=request("text")
rsb("name")=request("name")
rsb.update
endif
%>
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用 |
|