📄 weburlsearch.asp

📁 精美OA网络办公系统,带PSD文件.可任意修改.
💻 ASP
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%
action=request("action"):WS_Urid=request("WS_Urid"):searchtype=request("searchtype"):keywords=request("keywords"):searchmode=request("searchmode"):ColumnName="":Tablename="HX_WebUrlSearch"
select case action
  case "del"
    conn.execute("delete from HX_WebUrlSearch where WS_Urid="&WS_Urid)
	response.redirect "WebUrlSearch.asp"
	response.end
  case "search"
    Orderby=" where 1=1"
    if searchmode=1 then
	  if searchtype=1 then
	    Orderby=Orderby&" and WS_WebSearchName like '%"&keywords&"%'"
	  elseif searchtype=2 then
	    Orderby=Orderby&" and WS_WebSearchUrl like '%"&keywords&"%'"
	  else
	    Orderby=Orderby&" and WS_webUrlContent like '%"&keywords&"%'"
	  end if
	else
	  if searchtype=1 then
	    Orderby=Orderby&" and WS_WebSearchName='"&keywords&"'"
	  elseif searchtype=2 then
	    Orderby=Orderby&" and WS_WebSearchUrl='"&keywords&"'"
	  else
	    Orderby=Orderby&" and WS_webUrlContent='"&keywords&"'"
	  end if
	end if
  case else
    Orderby=" ORDER BY WS_Urid DESC"
end select
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)   
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>常用网址查询</title>
<link rel=stylesheet type=text/css href="../HXinclude/HX_Style.css">
<script src="../hxinclude/HX_function.js"></script>
</head>
<body topmargin="20" leftmargin="0" bottommargin="25">
<table width="596"  border="0" cellspacing="1" cellpadding="0" align=center bgcolor="#613c25">
  <tr>
    <td colspan="2" bgcolor=FFFBE8><table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="25" background="../hximages/titleline.gif"><font class="fontmenu">常用网址查询</font></td>
  </tr>
</table>
<table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor=613c25>
   <tr bgcolor="FFFBE8">
     <td height="24"><table width="100%"  border="0" cellspacing="1" cellpadding="2" bgcolor="#BF9B73">
       <tr bgcolor="#FFFBE8">
         <td width="11%"><div align="center">序号</div></td>
         <td width="31%" bgcolor="#FFFBE8"><div align="center">网站名称</div></td>
         <td width="27%" bgcolor="#FFFBE8"><div align="center">网站地址</div></td>
         <td width="31%" bgcolor="#FFFBE8"><div align="center">网站说明</div></td>
       </tr>
	<%if rs.recordcount<=0 then
	   response.Write "<tr><td colspan=4 height=25 bgcolor=FFFBE8 align=center><font color=red>暂 无 数 据!</font></td></tr>"
	else
    rs.PageSize =15 '每页记录条数
	iCount=rs.RecordCount '记录总数
	iPageSize=rs.PageSize
    	maxpage=rs.PageCount 
    	page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	ii=0
	do while not rs.EOF
	   %>
       <tr <%if ii mod 2=0 then response.write "bgcolor='#FFFBE8'" else response.write "bgcolor='#FFFBE8'"%>>
         <td align=center><%=rs("WS_Urid")%></td>
         <td><%=rs("WS_WebSearchName")%></td>
         <td><a href="http://<%=replace(rs("WS_WebSearchUrl"),"http://","")%>" target="_blank"><%=replace(rs("WS_WebSearchUrl"),"http://","")%></a></td>
         <td title="<%=rs("WS_webUrlContent")%>"><%=left(rs("WS_webUrlContent"),10)%></td>
       </tr>
	   <%
	   ii=ii+1
	  if ii>=rs.PageSize then Exit Do
	  rs.movenext
      loop
      call WS_S.PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>",4)
	   end if
	  call WS_S.HX_RSClose(rs) 
	   %>
       <form name="form1" method="post" action="?action=search"><tr bgcolor="#FFFBE8">
         <td colspan="5">查询：<select name="searchtype">
           <option value="1" selected>网站名称</option>
           <option value="2">网站地址</option>
		   <option value="3">网站说明</option>
         </select>
             <input name="keywords" type="text" size="25" maxlength="50">           
             <input type="radio" name="searchmode" value="1" id="mh" class="radio" checked><label for=mh>模糊</label>
			 <input type="radio" name="searchmode" value="2" id="jq" class="radio"><label for=jq>精确</label>
             <input type="submit" name="Submit2" value=" 搜 索 ">
</td>
         </tr></form>
     </table></td>
   </tr>
   <tr bgcolor="#FFFBE8">
    <td width="100%" height="24" align="right"><input type="submit" name="Submit" value=" 打 印 " onclick="javascript:window.print();"></td>
    </tr> 
</table></td>
  </tr>
</table>
⌨️ 快捷键说明

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