📄 cat1list.asp

📁 客户管理crm xitong ,希望能给你带来帮助

💻 ASP

字号:

<!--#include file="../function/connect.asp"-->
<%
	meth=request("meth")
	if meth="del" and request("cat1_ID")<>"" then
		strsql="delete from cat1 where cat1_ID in (" & request("cat1_ID") &")"
		objConn.execute strsql
	end if
	
	PY_Code=request("PY_Code")
	cat1=request("cat1")

	strsql="select * from cat1 where 1=1"
	if PY_Code<>"" then
		strsql=strsql & " and PY_Code like '%" & PY_Code & "%'"
	end if 
	if Country<>"" then
		strsql=strsql & " and cat1_name like '%" & cat1_name & "%'"
	end if 
	Set objRs = Server.CreateObject("adodb.recordset")
	    objRs.Open strsql,objConn,1,1
%>
<html>
<head>
<title>国家</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../cssD.css" rel=stylesheet>
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="1" cellspacing="0" cellpadding="2" bordercolorlight='#000000' bordercolordark='#FFFFFF'>
 <form name="form1" method="post" action="cat1list.asp">
  <tr class="tablehead"> 
    <td width="4%">&nbsp;</td>
    <td width="48%"> 
      <div align="center">大类名</div>
    </td>
    <td width="48%"> 
      <div align="center">拼音码</div>
    </td>
  </tr>
  <%if not objrs.eof then
  	do while not objrs.eof
  %>
  <tr align="center"> 
    <td width="4%" class="tablehead">
        <input type="checkbox" name="cat1_ID" value="<%=objrs.fields("cat1_ID")%>">
      </td>
    <td width="48%">&nbsp;<%=objrs.fields("cat1_name")%></td>
    <td width="48%">&nbsp;<%=objrs.fields("PY_Code")%></td>
  </tr>
  <%
  	objrs.movenext
  	loop
    end if%>
    <input type="hidden" name="meth" value="">
  </form>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -