BVB Source Codes

V2.0 flowers chat rooms Show listfunction.asp Source code

Return Download V2.0 flowers chat rooms: download listfunction.asp Source code - Download V2.0 flowers chat rooms Source code - Type:.asp
  1. <!--#INCLUDE FILE="inc_config.asp"-->
  2. <!--#INCLUDE FILE="inc_dbconn.asp"-->
  3. <html>
  4. <head>
  5. <title>动作列表</title>
  6. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  7. <style>
  8. <!--
  9. body      { font-size: 9pt; background-color: <%=m_bg2%> }
  10. td        { font-size: 9pt }
  11. A:link    { text-decoration: none;color: #000000 }
  12. A:visited { text-decoration: none;color: #FFFFFF }
  13. A:active  { text-decoration: none;color: #FFFFFF }
  14. A:hover   { text-decoration: none;color: #FFFFFF }
  15. -->
  16. </style>
  17. <script language="JavaScript">
  18. <!--
  19. function selectact(list){
  20.         parent.frm_input.document.forms[0].saystemp.value=list;
  21.         parent.frm_input.document.forms[0].saystemp.focus();
  22.         return true;
  23. }
  24. function viewact(list,act){
  25.      if (window.confirm(list)) {
  26.         parent.frm_input.document.forms[0].saystemp.value=act;
  27.         parent.frm_input.document.forms[0].saystemp.focus();
  28.         parent.frm_input.document.forms[0].sub.click();
  29.         return true;
  30.      }
  31. }
  32.  
  33. //-->
  34. </script>
  35. </head>
  36.  
  37. <body>
  38.   <table bgcolor="<%=m_bg3%>" cellpadding="5" cellspacing="1" width="100%" align="right">
  39.   <tr bgcolor="<%=m_bg1%>">
  40.     <td align="center" style="color:<%=m_text1%>"><b>动作列表</b></td>
  41.   </tr>
  42.   <tr bgcolor="<%=m_bg2%>">
  43.     <td style="color:<%=m_text2%>">
  44.     <%    set rs=server.createobject("adodb.recordset")
  45.           sql="select * from "&dbtable_function
  46.           set rs=my_conn.execute(sql)
  47.           if not rs.eof then
  48.           do while not rs.eof %>
  49.     <a href="#" onclick="viewact('按确定同时提交以下动作指令,按取消不提交\n\n指令: <%=rs("cmd")%>    <%=rs("show")%>\n显示: <%=rs("xiang")%>”\n\n注: var_who表示你自己,var_to表示对方','<%=rs("cmd")%>');" onmouseover="selectact('<%=rs("cmd")%>');" title="<%=rs("xiang")%>"><%=rs("cmd")%></a><br>
  50.     <%    rs.movenext
  51.           loop
  52.           else %>
  53.     还没有动作呢!
  54.     <%    end if
  55.           rs.close
  56.           set rs=nothing
  57.           my_conn.close
  58.           set my_conn=nothing %>
  59.               <center><a href="onlineuser.asp">回在线名单</a></center>
  60.      </td>
  61.     </tr>
  62.   </table>
  63. </body>
  64. </html>
  65.  
downloadlistfunction.asp Source code - Download V2.0 flowers chat rooms Source code
Related Source Codes/Software:
WebSMS online chat system - A web-based chat tool, it does not need to install... 2016-09-16
Non-mainstream chat rooms (support virtual space) - This chat room mainly conveniently in the virtual ... 2016-09-16
Dream chatroom v1.2 Build 0523 - Based on "love strings if chat rooms" program modi... 2016-09-16
One hundred million people chat v3.0 - Classification of support chat, public and private... 2016-09-16
X-chat System v1.5 - Adopted more advanced technology of XMLHTTP + XML ... 2016-09-16
Red dragonfly chat rooms v4.00 dongdong beautify the version to be error-free - 1, the application to modify the program online, i... 2016-09-16
Ichat2.5 formal version of the video chat program - Ichat2.5 formal version of the video chat program 2016-09-16
Draw two alumni source code - This source code is free release, free communicati... 2016-09-16
Sega school green version of the site management system - Sega school green version 2016-09-16
Free and unfettered access statistics system - A set of simple, rapid access statistics program, ... 2016-09-16
envoy - Python Subprocesses for Humans ™. 2017-05-08
wide - 2017-05-08
vincent - A Python to Vega translator 2017-05-08
debugging-stories - A collection of debugging stories. PRs welcome :-)... 2017-05-08
cms.js - The Javascript Site Generator ... 2017-05-08
flannel - flannel is a network fabric for containers, design... 2017-05-08
nu - Nu is an interpreted Lisp that builds on the Objec... 2017-05-07
gobyexample - Go by Example https://gobye... 2017-05-07
nova - OpenStack Compute (Nova) ht... 2017-05-07
mio - Metal IO library for Rust 2017-05-07

 Back to top