无标题2.txt

来自「一个基于ASP＋access技术的b/s模式的CRM（客户关系管理）系统」· 文本 代码 · 共 18 行

<%
dim n,i,rs,ming
n=Request.Form("n")
szname=Request("szName")

set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
rs.Open "select * from sysmodle",cnn,adOpenDynamic,3,adcmdtext
if rs.EOF=true then
  rs.Close
end if





%>
<%=szname%>