BVB Source Codes

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

Return Download V2.0 flowers chat rooms: download changeinfo.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 type="text/css">
  8. <!--
  9. body      {  font-size: 10.4pt }
  10. td        {  font-size: 10.4pt }
  11. .normal   {  <%=m_button%> ; font-size: 10.4pt}
  12. .over     {  <%=m_buttonover%> ; font-size: 10.4pt}
  13. .down     {  <%=m_buttondown%> ; font-size: 10.4pt}
  14. -->
  15. </style>
  16. </head>
  17.  
  18. <body bgcolor="<%=m_bg2%>">
  19. <%
  20.   password=request("password")
  21.   if password="" then %>
  22.   <br><br><center><form method="POST" action="changeinfo.asp">输入您的密码
  23.    <input type="password" name="password" style="font-size:9pt"><br><br>
  24.    <input type="submit" value="好了" class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'">
  25.    <input type="button" value="关闭" class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'" onClick="window.close()"></center></form>
  26. </body>
  27. </html>
  28. <% response.end %>
  29. <% end if  %>
  30.  
  31. <% if password<>"" then %>
  32. <% if request("email")<>"" then %>
  33.  
  34. <%
  35. my_conn.execute "update "&dbtable_user&" set "&dbfield_user_password&"='" & request("password") & "',"&dbfield_user_email&"='" & request("email") &"',"&dbfield_user_oicq&"='" & request("oicq")& "',"&dbfield_user_homepage&"='" & request("homepage") &"',"&dbfield_user_comefrom&"='" & request("comefrom") & "',"&dbfield_user_sex&"='" &  request("sex") & "' where "&dbfield_user_username&"='" & session("user") & "'"
  36. %>
  37. <br><br><center>[<% =session("user") %>]的资料修改成功!<br><br>
  38. <input type="button" value="关闭窗口" class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'" onClick="window.close()"></center>
  39. </body>
  40. </html>
  41. <% response.end %>
  42. <% end if %>
  43.  
  44. <% set rs=my_conn.execute("select * from "&dbtable_user&" where "&dbfield_user_username&" ='" & session("user") & "'")
  45. if rs(dbfield_user_password)<>password then %>
  46. <form method="POST" action="changeinfo.asp">
  47.  <br><br><center>密码错,请重输<br>
  48.    <input type="password" name="password" style="font-size:9pt"><br>
  49.    <input type="submit" value="好了" class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'">
  50.    <input type="button" value="关闭" class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'" onClick="window.close()"></center>
  51. </form>
  52. </body>
  53. </html>
  54. <% else %>
  55. <html>
  56. <head>
  57. <title>修改资料</title>
  58. </head>
  59.  
  60. <body bgcolor="<%=m_bg2%>"><br>
  61. <table width="280" border="1" cellspacing="0" cellpadding="3" bordercolorlight="#FFFFFF" bordercolordark="#999999" align="center">
  62. <form method="POST" action="changeinfo.asp">
  63.   <tr bgcolor="<%=m_bg1%>">
  64.    <td align="center" style="color:<%=m_text1%>">修 改 资 料</td>
  65.   </tr>
  66.   <tr>
  67.    <td>用 户 名: <% =session("user") %></td>
  68.   </tr>
  69.   <tr>
  70.    <td>用户密码:<input type="text" name="password" value=<% =rs(dbfield_user_password) %>></td>
  71.   </tr>
  72.   <tr>
  73.   <%
  74.    if rs(dbfield_user_sex)="boy" then %>
  75.    <td>性  别:<input type="radio" name="sex"  value="boy" checked>boy <input type="radio" name="sex" value="girl">girl</td>
  76.    <% else %>
  77.    <td>性  别:<input type="radio" name="sex"  value="boy">boy <input type="radio" name="sex" value="girl"  checked>girl</td>
  78.    <% end if %>
  79.   </tr>
  80.   <tr>
  81.    <td>电子信箱:<input type="text" name="email" value="<% =rs(dbfield_user_email) %>"></td>
  82.   </tr>
  83.   <tr>
  84.    <td>主页地址:<input type="text" name="homepage" value=<% =rs(dbfield_user_homepage) %>></td>
  85.   </tr>
  86.   <tr>
  87.    <td >来  自:<input type="text" name="comefrom" value=<% =rs(dbfield_user_comefrom) %>></td>
  88.   </tr>
  89.   <tr>
  90.    <td>O I C Q :<input type="text" name="oicq" value=<% =rs(dbfield_user_oicq) %>></td>
  91.   </tr>
  92.   <tr>
  93.    <td align="center"><input type="submit" value="更改" class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'">
  94.        <input type="reset" value="复原" class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'">
  95.        <input type="button" value="关闭" onclick="window.close()" class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'"></td>
  96.   </tr>
  97. </form>
  98. </table>
  99. </body>
  100. </html>
  101. <% end if %>
  102. <% my_conn.close
  103.    set my_conn=nothing %>
  104. <% end if %>
downloadchangeinfo.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