/beta/dialog_GenInput.asp

http://github.com/khaneh/Orders · ASP · 76 lines · 67 code · 6 blank · 3 comment · 7 complexity · fe8f2f2d71c21b51c8dfe328229c093d MD5 · raw file

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><%
  2. Response.CacheControl="no-cache"
  3. Response.AddHeader "pragma", "no-cache"
  4. Server.ScriptTimeout = 600
  5. Response.Expires= -1
  6. if (session("ID")="") then
  7. session.abandon
  8. response.redirect "../login.asp?err= "
  9. end if
  10. 'conStr = "Provider=SQLNCLI10.1;Persist Security Info=False;User ID=sefadmin;Initial Catalog=sefareshat;Data Source=(local);PWD=5tgb;"
  11. %>
  12. <!--#Include file='config.asp' -->
  13. <%
  14. 'Set conn = Server.CreateObject("ADODB.Connection")
  15. 'conn.open conStr
  16. %>
  17. <HTML>
  18. <HEAD>
  19. <meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
  20. <meta http-equiv="Content-Language" content="fa">
  21. <style>
  22. Table { font-size: 9pt;}
  23. Input { font-family:tahoma; font-size: 9pt;}
  24. </style>
  25. <TITLE> </TITLE>
  26. <script language="JavaScript">
  27. <!--
  28. var Arguments = new Array(2)
  29. function documentKeyDown() {
  30. var theKey = event.keyCode;
  31. if (theKey == 27) {
  32. window.close();
  33. }
  34. else if (theKey == 13) {
  35. if (document.getElementById('dlgSearchBox').value != ""){
  36. window.dialogArguments.value=document.getElementById('dlgSearchBox').value;
  37. window.close();
  38. }
  39. }
  40. }
  41. document.onkeydown = documentKeyDown;
  42. function onMyLoad(){
  43. document.getElementById('dlgDispTxt').innerText=window.dialogArguments.value
  44. window.dialogArguments.value=""
  45. document.getElementById('dlgSearchBox').focus();
  46. document.getElementById('dlgSearchBox').select();
  47. }
  48. //-->
  49. </SCRIPT>
  50. </HEAD>
  51. <BODY leftmargin=0 topmargin=0 bgcolor='#DDDDFF' onload="onMyLoad()">
  52. <font face="tahoma">
  53. <TABLE border="0" width="100%" height="100%" cellspacing="0" cellpadding="0">
  54. <TR><TD valign="middle">
  55. <table border="2" cellspacing="0" cellpadding="10" align="center" valign="middle" dir="RTL" bordercolor='#224488' bgcolor='#C3C3FF'>
  56. <tr><td><TABLE>
  57. <TR>
  58. <TD Height='30'><b><span id='dlgDispTxt'> </span><b></TD>
  59. </TR>
  60. <TR>
  61. <TD><input type="text" id="dlgSearchBox" style="font-family:tahoma;font-size:9pt;width:100%;" value=""></TD>
  62. </TR>
  63. </TABLE>
  64. </td></tr>
  65. </table>
  66. </TD></TR>
  67. </TABLE>
  68. </font>
  69. </BODY>
  70. </HTML>