ATB ソース・コード

南西農業情報ネットワーク 表示する tj_save.aspソースコード

戻る ダウンロード南西農業情報ネットワーク: 個別にダウンロードtj_save.aspソースコード - 全体をダウンロード南西農業情報ネットワークソースコード - タイプ:.asp
  1. <%@ CODEPAGE = "936" %>
  2. <%
  3. '=================================
  4. '
  5. '      阿江酷站访问统计系统
  6. '    Ajiang   info@ajiang.net
  7. '        www.ajiang.net
  8. '
  9. '     版权所有·抄袭挪用必究
  10. '
  11. '=================================
  12. %>
  13. <!--#include file="inc_config.asp"-->
  14. <%
  15. '权限检查
  16. if session.Contents("master")=false and whatcan<6 then Response.Redirect "help.asp?id=004&error=您没有管理自定义统计检索条件库的权限。"
  17.  
  18. '获取数据
  19. name            =trim(Request("name"))
  20. content         =trim(Request("content"))
  21. wherestr        =trim(Request("wherestr"))
  22. outtype         =trim(Request("outtype"))
  23. overwrite       =cbool(trim(Request("overwrite")))
  24.  
  25. '过滤单引号
  26. name=replace(name,"'","")
  27.  
  28. '检查数据
  29. if name="" then Response.Redirect "help.asp?id=002&error=请为要存储的检索条件取个名字。"
  30. if outtype="" then Response.Redirect "help.asp?id=002&error=没有指明要输出的内容,请确认是在检索结果页点保存进入本页的。"
  31. %>
  32. <html>
  33. <head>
  34. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  35. <meta http-equiv="Content-Language" content="zh-cn">
  36. <meta http-equiv="Copyright" content="Ajiang http://www.ajiang.net">
  37. <title><%=countname%>-保存自定义统计的检索条件</title>
  38. <link rel="stylesheet" type="text/css" href="style.css">
  39. </head>
  40. <body topmargin=5 rightmargin=0 leftmargin=0 vlink=#000000>
  41. <!--#include file="inc_top.asp"-->
  42. <br>
  43.  
  44.  
  45. <%
  46. '打开数据库
  47. set conn=server.createobject("adodb.connection")
  48. DBPath = Server.MapPath(connpath)
  49. conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
  50. Set rs = Server.CreateObject("ADODB.Recordset")
  51.  
  52. sql="select * from save where name='" & name & "'"
  53. rs.Open sql,conn,3,2
  54.  
  55. if (not rs.EOF) and (not overwrite) then
  56. %>
  57. <table width="500" cellspacing="0" align="center" cellpadding="0" border="0">
  58.   <tr><td colspan="3"><img src="images/photoup.gif"></td></tr>
  59.   <form action="tj_save.asp" method=post id=form1 name=form1>
  60.   <tr height="30">
  61.     <td width="1" class="backs"><img src="images/touming.gif" width="1" height="1"></td>
  62.     <td width="498"class="backq">
  63.                 &nbsp; <img src="images/tb_save.gif" align=absmiddle><font style="font-size:16px">&nbsp;</font>∷∷∷ 保存检索条件 ∷∷∷<br>
  64.  
  65.         <p class="p1"><img src='images/tb_error.gif' align=absmiddle><font style='font-size:15px'>&nbsp;</font><font color=red>注意!!</font>
  66.         <p class="p1">数据库中已经存在一条名为“<%=name%>”的检索条件记录:
  67.         <p class="p1" style='margin-bottom: 0;'><font class="fonts">检索条件</font>&nbsp;
  68.         <%if rs("wherestr")="" then%>没有检索条件<%else%><%=rs("wherestr")%><%end if%>
  69.         <p class="p1" style='margin-top: 0;margin-bottom: 0;'><font class="fonts">查询项目</font>&nbsp; <%=rs("outtype")%>
  70.         <p class="p1" style='margin-top: 0;'><font class="fonts">说  明</font>&nbsp; <%=rs("content")%>
  71.         <p class="p1">您将要保存的检索条件为:
  72.         <p class="p1" style='margin-bottom: 0;'><font class="fonts">检索条件</font>&nbsp;
  73.         <%if wherestr="" then%>没有检索条件<%else%><%=wherestr%><%end if%>
  74.         <p class="p1" style='margin-top: 0;margin-bottom: 0;'><font class="fonts">查询项目</font>&nbsp; <%=outtype%>
  75.         <p class="p1" style='margin-top: 0;'><font class="fonts">说  明</font>&nbsp; <%=content%>
  76.         <p class="p1">请选择您的处理办法——
  77.         <p class="p1"><INPUT type="radio" name="overwrite" value="0" checked> 将保存的名字改为&nbsp;
  78.         <input name="name" size="25" class="input" value="<%=name%>">
  79.         <p class="p1" style='margin-top: 0;'><INPUT type="radio" name="overwrite" value="1"> 覆盖原来的条件,以这次提交的为准
  80.         <p class="p1" style='margin-top: 0;' align="right">
  81.         <a href="help.asp?id=002">帮助</a>
  82.         <a href='javascript:history.back()'>取消</a>
  83.         <a href='javascript:document.forms[0].submit();'>保存</a>
  84.         <input name="content" size="50" type="hidden" value="<%=content%>"><input type="hidden" name="wherestr" value="<%=wherestr%>"><input type="hidden" name="outtype" value="<%=outtype%>"><input type="submit" value=" " name="save" class="backc2"><font style="font-size:16px">&nbsp;</font>&nbsp;
  85.         </td>
  86.     <td width="1" class="backs"><img src="images/touming.gif" width="1" height="1"></td>
  87.   </tr>
  88.   </form>
  89.   <tr><td colspan="4"><img src="images/photodown.gif"></td></tr>
  90. </table>
  91. <br>
  92. <%
  93. rs.Close
  94.  
  95. else
  96.  
  97.         if rs.EOF then rs.AddNew
  98.  
  99.         rs("wherestr")=wherestr
  100.         rs("outtype")=outtype
  101.         rs("name")=name
  102.         rs("content")=content
  103.        
  104.         rs.Update
  105.         rs.Close
  106. %>
  107. <table width="500" cellspacing="0" align="center" cellpadding="0" border="0">
  108.   <tr><td colspan="3"><img src="images/photoup.gif"></td></tr>
  109.   <form action="tj_save.asp" method=post id=form1 name=form1>
  110.   <tr height="30">
  111.     <td width="1" class="backs"><img src="images/touming.gif" width="1" height="1"></td>
  112.     <td width="498"class="backq">
  113.                 &nbsp; <img src="images/tb_save.gif" align=absmiddle><font style="font-size:16px">&nbsp;</font>∷∷∷ 保存检索条件成功 ∷∷∷<br>
  114.  
  115.         <p class="p1"><font color=red>恭喜!!</font>
  116.         <p class="p1">已经成功的保存了这次检索的条件:
  117.         <p class="p1"><font class="fonts">条件名称</font>&nbsp; <%=name%>
  118.         <p class="p1" style='margin-top: 0;'><font class="fonts">检索条件</font>&nbsp;
  119.         <%if wherestr="" then%>没有检索条件<%else%><%=wherestr%><%end if%>
  120.         <p class="p1" style='margin-top: 0;'><font class="fonts">查询项目</font>&nbsp; <%=outtype%>
  121.         <p class="p1" style='margin-top: 0;'><font class="fonts">说  明</font>&nbsp; <%=content%>
  122.         <p class="p1" align="right"><a href='tj_search.asp'>继续</a> <a href='tj_search.asp'><img src="images/arbutton.gif" align="absmiddle" border="0"></a> <font style="font-size:16px">&nbsp;</font>&nbsp;
  123.         </td>
  124.     <td width="1" class="backs"><img src="images/touming.gif" width="1" height="1"></td>
  125.   </tr>
  126.   </form>
  127.   <tr><td colspan="4"><img src="images/photodown.gif"></td></tr>
  128. </table>
  129. <br>
  130. <%
  131. end if
  132.  
  133. set rs=nothing
  134. conn.Close
  135. set conn=nothing
  136. %>
  137. <!--#include file="inc_bottom.asp"-->
  138. </body>
  139. </html>
  140.  
個別にダウンロードtj_save.aspソースコード - 全体をダウンロード南西農業情報ネットワークソースコード
関連するソース/ソフトウェア:
ZWMOBI 3 G ウェブサイト システムの構築 - モバイル B2C のモバイル ショッピングを含む、強力なビジネス モジュール ダウンロード機能モジュ... 3.89KB
キャンパス サイト システム v2.0 として - ほとんどの学校には、キャンパスのウェブサイトの便利なメンテナンスの強力な機能を構築する私は、簡単な物... 44.88KB
シーティング システム 7 夜学生 - シーティング システム夜学生が促進クラスのすべての教師は、もはやように「こんにちはこんにちはこんにち... 26.4KB
94KK には消極的ネットワーク コミュニティ美化 bate3 (新しい年版) - カーネル KB 94kkBBS フォーラム、新しい造園、速度と機能がさらに強化 !新しいスタ... 24.82KB
QQ のフラッシュの言葉 - 1。 今計り知れないほど、ネットワーク上の他のプログラムでは、強力な DIY の機能ほど厳密ではどの... 67KB
系統のひずみの美しい個人の家の Build20061004 をページします。 - -----------修正部分-------------1: PPsTREAM 映画オンライ... 7.7KB
梅 Windows ネットワーク - 機能をについて説明します。Windows のホーム | 垂直方向と水平方向のニュース | 電... 34.61KB
中国のソースをダウンロード システム v1.0 - この 3-イノベーション システムでダウンロードしたプログラムを美化するには、独立した管理の背景を広... 5.26KB
南西農業情報ネットワーク - 南西農業情報ネットワーク、農業システム 98.89KB
Zoomla ! Eall CMS v2.0 - Eall CMS のウェブ マスターが最適なカーネルを開いている、無料で強力な Web サイト管理サ... 11.31KB

 トップへ戻る