📄 provincelist.asp

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

💻 ASP

字号:

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

	strsql="select p.*,c.Country from Dict_Provinces p,Dict_Countries c where p.Country_ID=c.Country_ID "
	if PY_Code<>"" then
		strsql=strsql & " and p.PY_Code like '%" & PY_Code & "%'"
	end if 
	if Country<>"" then
		strsql=strsql & " and p.Province like '%" & Province & "%'"
	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="Provincelist.asp">
  <tr class="tablehead"> 
    <td width="4%">&nbsp;</td>
    <td width="32%"> 
      <div align="center">省份</div>
    </td>
    <td width="32%"> 
      <div align="center">拼音码</div>
    </td>
    <td width="32%"> 
      <div align="center">国家/地区</div>
    </td>
  </tr>
  <%if not objrs.eof then
  	do while not objrs.eof
  %>
  <tr align="center"> 
    <td width="3%" class="tablehead">
        <input type="checkbox" name="Province_ID" value="<%=objrs.fields("Province_ID")%>">
      </td>
    <td width="32%">&nbsp;<%=objrs.fields("Province")%></td>
    <td width="32%">&nbsp;<%=objrs.fields("PY_Code")%></td>
    <td width="32%">&nbsp;<%=objrs.fields("Country")%></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 + -