推荐:网页视频播放器程序代码通用代码在给客户做个程序时,突然遇到个问题,就是产品页用户提交视频播放文件时,如何根据提交的网址内的视频格式进行正确的播放呢....郁闷了一会,想好了思路,说动手就动手...思路是先取得文件的类型,
首先用Access新建一个数据库,设取名为luntan,数据表的名称为information,建立如下字段:text,name,time,并将time默认值设为Now
| 以下为引用的内容: <% Set com = Server.CreateObject(ADODB.Connection) com.openDRIVER={Microsoft Access Driver(luntan.mdb); pwd=information;DBQ=&Server.MapPath(luntan.mdb) sql=select*from information order by time Desc Set rs=Server.CreateObject(ADODB.Recordest) rs.open sql,com,3,2 if rs.EOF or rs.BOF then response.write没有留言 else rs.MoveFirst while Not rs.EOF. response.write rs(name)&发布于&rs(time)&<br> response.write rs(text)&<br><hr> rs.MoveNext wend AbsolutePosition=N,(N=1,2,3......) end if %> 接着是用户书写留言部分。设论坛页为information.asp,则 <form method=post action=information.asp> 姓名:<input type=text size=12 name=name><br> 留言:<textarea cols=30 row=4 name=text></textarea><br> <input type=submit value=提交> </form> |
最后一部分是将用户提交的表单数据记录到数据库中,则
| 以下为引用的内容: <% if request(text)<>empty and request (name)<>empty then Set comb=Server.CreateObject(ADODB.Connection) comb.OpenDRIVER={Microsoft Access Driver(*.mdb)};pwd=information; DBQ=&Server.MapPath(luntan.mdb) sql=select*from information Set rsb=Server.CreateObject(ADODB.Recordset) rsb.open sql,comb,3,2 rsb.AddNew rsb(text)=request(text) rsb(name)=request(name) rsb.update end if %> |
分享:趣味访客计数器设计两则访客计数器作为网站不可缺少的部分,不仅可以记录网站被访问的次数,而且可以通过生动有趣的设计来加强网页的趣味性和可观赏性,使访客计数器成为网页上的一个风景。下面介绍两种轻松设计趣