home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / lyb / adm_edit2.asp < prev    next >
Text File  |  2007-08-20  |  4KB  |  101 lines
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="Connections/lyb.asp" -->
  3. <%
  4. Dim lyb__MMColParam
  5. lyb__MMColParam = "1"
  6. If (Request.QueryString("id") <> "") Then 
  7.   lyb__MMColParam = Request.QueryString("id")
  8. End If
  9. %>
  10. <%
  11. Dim lyb
  12. Dim lyb_numRows
  13.  
  14. Set lyb = Server.CreateObject("ADODB.Recordset")
  15. lyb.ActiveConnection = MM_lyb_STRING
  16. lyb.Source = "SELECT * FROM lyb WHERE id = " + Replace(lyb__MMColParam, "'", "''") + ""
  17. lyb.CursorType = 0
  18. lyb.CursorLocation = 2
  19. lyb.LockType = 1
  20. lyb.Open()
  21.  
  22. lyb_numRows = 0
  23. %>
  24. <html>
  25. <head>
  26. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  27. <title>╟⌐╨┤┴⌠╤╘</title>
  28. <script language="JavaScript" type="text/javascript">
  29. function PreviewWin() { 
  30. window.open('','newWin','width=400,height=400') 
  31. form1.action = "view.asp"; 
  32. form1.method = "POST"; 
  33. form1.target = "newWin" 
  34. form1.submit(); 
  35. } 
  36. </script>
  37. <link href="css.css" rel="stylesheet" type="text/css">
  38. </head>
  39.  
  40. <body>
  41. <form name="form1" method="post" action="save.asp">
  42.   <p>╖├┐═╡─├√╫╓
  43.     <input name="mz" type="text" id="mz" value="<%=(lyb.Fields.Item("zd_mz").Value)%>" maxlength="20">
  44. </p>
  45.   <p>┴⌠╤╘▒Ω╠Γú║
  46.     <input name="bt" type="text" id="bt" value="<%=(lyb.Fields.Item("zd_bt").Value)%>" maxlength="20">
  47.   </p>
  48.   <p>┴⌠╤╘─┌╚▌ú║
  49.     <textarea name="nr" cols="45" rows="10" id="nr"><%=(lyb.Fields.Item("zd_nr").Value)%></textarea>
  50. </p>
  51.   <p>╗╪╕┤─┌╚▌ú║
  52.     <textarea name="hf" rows="4" id="hf"><%=(lyb.Fields.Item("zd_hf").Value)%></textarea>
  53.   </p>
  54.   <p>╖├┐═qq║┼:
  55.     <input name="qq" type="text" id="qq" value="<%=(lyb.Fields.Item("zd_qq").Value)%>" maxlength="12">
  56.   </p>
  57.   <p>╖├┐═uc║┼:
  58.     <input name="uc" type="text" id="uc" value="<%=(lyb.Fields.Item("zd_uc").Value)%>" maxlength="12">
  59.   </p>
  60.   <p>╖├┐═╙╩╧Σú║
  61.     <input name="yx" type="text" id="yx" value="<%=(lyb.Fields.Item("zd_yx").Value)%>" maxlength="50">
  62.   </p>
  63.   <p>╖├┐═╓≈╥│ú║
  64.     <input name="zy" type="text" id="zy" value="<%=(lyb.Fields.Item("zd_zy").Value)%>" maxlength="100">
  65.   </p>
  66.   <p>╖├┐══╖╧±ú║<img src="icon/1.gif" width="50" height="70">
  67.     <input <%If (CStr((lyb.Fields.Item("zd_tx").Value)) = CStr("1.gif")) Then Response.Write("checked=""checked""") : Response.Write("")%> name="tx" type="radio" value="1.gif">
  68.     <img src="icon/2.gif" width="50" height="70">
  69.   <input <%If (CStr((lyb.Fields.Item("zd_tx").Value)) = CStr("2.gif")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="radio" name="tx" value="2.gif"> 
  70.   <img src="icon/3.gif" width="50" height="70">
  71.   <input <%If (CStr((lyb.Fields.Item("zd_tx").Value)) = CStr("3.gif")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="radio" name="tx" value="3.gif">
  72.   <img src="icon/4.gif" width="50" height="70">
  73.   <input <%If (CStr((lyb.Fields.Item("zd_tx").Value)) = CStr("4.gif")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="radio" name="tx" value="4.gif">
  74.   <img src="icon/b1.gif" width="50" height="70">
  75.   <input <%If (CStr((lyb.Fields.Item("zd_tx").Value)) = CStr("5.gif")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="radio" name="tx" value="5.gif">
  76.   <img src="icon/b2.gif" width="50" height="70">
  77.   <input <%If (CStr((lyb.Fields.Item("zd_tx").Value)) = CStr("6.gif")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="radio" name="tx" value="6.gif"> 
  78.   <img src="icon/b3.gif" width="50" height="70"> 
  79.   <input <%If (CStr((lyb.Fields.Item("zd_tx").Value)) = CStr("7.gif")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="radio" name="tx" value="7.gif">
  80.   <img src="icon/b4.gif" width="50" height="70">
  81.   <input <%If (CStr((lyb.Fields.Item("zd_tx").Value)) = CStr("8.gif")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="radio" name="tx" value="8.gif">
  82.   </p>
  83.   <p>
  84.     <input type="submit" name="Submit" value="╠ß╜╗">
  85.        
  86.  <input type="reset" name="Submit2" value="╓╪╓├">
  87.   <a href="save.aspú┐" target="_blank"> 
  88.   <input name="Submit3" type="button" onClick="PreviewWin() 
  89. " value="╘ñ└└">
  90.   </a>
  91.   <input name="id" type="hidden" id="id" value="<%=(lyb.Fields.Item("id").Value)%>">
  92.   </p>
  93. </form>
  94.   
  95. </body>
  96. </html>
  97. <%
  98. lyb.Close()
  99. Set lyb = Nothing
  100. %>
  101.