|
|
|||
 
>>>WELCOME TO HONGMEI……
|
<% application.lock set dbconn=server.createobject("ADODB.Connection") dbconn.open"Driver={Microsoft Access Driver (*.mdb)};DBQ="&server.Mappath("msgboard.mdb") SQl="select*from Message Order by 留言时间 Desc" set dbrs=dbconn.execute(sql) do while not dbrs.eof response.write"姓名:"& dbrs("姓名") &",E-Mail:" & dbrs("email")&",QQ:"& dbrs("QQ") &",MSN:"& dbrs("MSN")&" " response.write"主页:"&dbrs("主页")&",标题:"&dbrs("标题")&",留言时间:"&dbrs("留言时间")&" " response.write"留言内容: "&dbrs("留言内容")&" " dbrs.movenext loop dbrs.close dbconn.close application.unlock %>
|
||
|
|||
