⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 search.asp

📁 功能齐全的oa系统
💻 ASP
字号:
🔍 
<% option explicit%>
<!-- #include virtual="include/dataenvi.asp" -->
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="Include/SelectValue.asp" -->

<%
        Dim ObjDB,ObjDBOA
		Dim C
		Dim StrWhere
		
		Set ObjDB = Server.CreateObject("ADODB.Connection")
	Set ObjDBOA = Server.CreateObject("ADODB.Connection")

	OpenDBH ObjDB
	OpenDB ObjDBOA
	If Request.Form.Count > 0 Then
		

		Set C = Server.CreateObject ("CMS2003.DBhandle")
		C.Init(ObjDB)
		StrWhere = C.Search("Is")
		Response.Redirect "List.asp?W=" & Server.URLEncode(StrWhere)
		
		ObjDB.Close
		Set ObjDB = Nothing
	End If
%>


<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>

	<HTML><HEAD>
	<form action="" method="post">
</HEAD>
<BODY>
	
  <table class=Ltable cellspacing=1 cellpadding=3>
    <tr class=LHtr align="middle"> 
      <td width="15%">当天查询</td>
      <td width="85%"> </td>
    </tr>
    <tr class=Ltr > 
      <td align="left"><input name=IsFirstMenuID type="checkbox" id="IsFirstMenuID">
        一级菜单</td>
      <td><input name="FirstMenuID" class="Input" id="FirstMenuID" Check="1"  ></td>
    </tr>
    <tr class=Ltr > 
      <td align="left"><input name=IsSecondMenuID type="checkbox" id="IsSecondMenuID">
        二级菜单</td>
      <td><input name="SecondMenuID" class="Input" id="SecondMenuID" Check="1"  ></td>
    </tr>
	 <tr class=Ltr > 
      <td align="left"><input name=IsOperation type="checkbox" id="IsOperation">
        操作</td>
      <td>
        <select name="Operation" >
          <option value="新增">新增</option>
          <option value="删除">删除</option>
          <option value="修改">修改</option>
        </select></td>
    </tr>
	 <tr class=Ltr > 
      <td align="left"><input name=IsOpePeople type="checkbox" id="IsOpePeople">
        操作人</td>
      <td><select type="text" class=Input Check=1  name="OpePeople"  style="width: 150;" >
	<%=SelectValue(objDBOA,"Select ID,AccountName from t_OA_SYS_Account")
	%>
	</SELECT>
</td>
    </tr>
	 <tr class=Ltr > 
      <td align="left"> 
        <input name=IsOpeIP type="checkbox" id="IsOpeIP">
        操作人IP</td>
      <td><input name="OpeIP" class="Input" id="OpeIP" Check="1"  ></td>
    </tr>
	 <tr class=Ltr > 
      <td align="left"><input name=IsOpeDesc type="checkbox" id="IsOpeDesc">
        备注</td>
      <td><input name="OpeDesc" class="Input" id="OpeDesc" Check="1"  ></td>
    </tr>
	 <tr class=Ltr > 
      <td align="left"><input name=IsChangeString type="checkbox" id="IsChangeString">
        变化内容</td>
      <td><input name="ChangeString" class="Input" id="ChangeString" Check="1"  ></td>
    </tr>
    <tr class=Ltr > 
      <td align="left"><input name=IsOpeTime type="checkbox" id="IsOpeTime">
        操作日期</td>
      <td>从 
        <input name="OpeTime" class=Input id="OpeTime" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1"  >
        至 
        <input name="OpeTime" class="Input" id="OpeTime" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1"  ></td>
    </tr>
  </table>

	<table cellspacing=1 cellpadding=3>
	<tr>
	<td>
		<input type="submit"  name="Submit" class=Button value="提 交">
		<input type="button" class=Button value="取 消" onclick="doList()" id=button1 name=button1></td>
		<td></td>
	</tr>
	</table>
	
	</FORM>
	

<%'------------------------------------------------------------------%>
<%End Sub%>
<%'==================================================================%>

<!-- #include virtual="Templet/Templet.asp" -->
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -