buttom.asp

用JAVA编写的网络留言簿。前台功能 一、用户注册/注册资料修改。 二、签写留言

<object id="sound" classid="clsid:05589FA1-C356-11CE-BF01-00AA0055595A" align="baseline" border="0" width="0" height="0">
  <param name="ShowDisplay" value="0">
  <param name="ShowControls" value="0">
  <param name="ShowPositionControls" value="0">
  <param name="ShowSelectionControls" value="0">
  <param name="ShowTracker" value="0">
  <param name="MovieWindowSize" value=0>
  <param name="FullScreenMode" value="0">
  <param name="MovieWindowWidth" value="0">
  <param name="MovieWindowHeight" value="0">
  <param name="AutoStart" value="1">
  <param name="AutoRewind" value="1">
  <param name="PlayCount" value="0">
  <param name="SelectionStart" value="0">
  <param name="Appearance" value="1">
  <param name="BorderStyle" value="0">
  <param name="FileName" value="image/<%=music%>">
  <param name="DisplayMode" value="0">
  <embed src="image/<%=music%>" name="sound" autostart="true" loop="0" hidden="true"></embed> 
</object><%db="database/dj70data.asp"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	conn.Open connstr
set rs=Server.CreateObject("adodb.recordset")
sql="select * from [hit] where id=1"
set rs=conn.execute(sql)
hit=rs("hit")%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><div align="center"><span class="unnamed3">请使用IE 5.0 以上版本，800*600分辨率浏览,以获得最佳效果<br> 
        <%=version%>&nbsp;&copy;2006 <%=webmastername%>  QQ:<%=webmasterqq%></span> <a href="mailto:<%=webmasteremail%>" class="unnamed1"><%=webmasteremail%></a>  
        <span class="unnamed6">访问量：<%=hit%></span></div></td> 
  </tr>
</table>
<%application("hit")=rs("hit")
application.Lock
application("hit")=application("hit")+1
application.UnLock
rs.close
sql="select * from [hit]"
rs.open sql,conn,2,3
rs("hit")=application("hit")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing%>