<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
 <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="101"
	dir="../err.asp" 
  %>
  <!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../rolecheck.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 <html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<LINK href="../css/style.css" rel=stylesheet type=text/css>
 <title>无标题文档</title>
</head>
 <body bgcolor="#F7F7F7">
<%
	strl="#WS_"&Replace_Text(Request("str"))&"#"
	If strl<>"" Then 
%>
<table border="0" cellpadding="0" cellspacing="0" width="60%"  align="center"><tr><td height="20"></td></tr><tr><td align="center" valign="middle"><font color="red"><b>自定义标签名称检测</b></font></td></tr><tr><td><br />名称：
<font color="#0099CC"><b><%=strl%></b></font><br />
<%
	msg=""
	Set rshas=Server.CreateObject("ADODB.Recordset")
	sqlhas="select * from Websen_cuslabel where lname='"&strl&"'"
	rshas.Open sqlhas,conn,1,1
	If rshas.Eof Then
	msg="<font color=red>有效,请使用！</font>"
	 End If
	If Not rshas.Eof Then
	msg="<font color=red>对不起！该名称已经存在！</font>" 
	rshas.Close
	End If
%>
</td></tr><tr><td height="35">结果：<%=msg%></td></tr>
<tr><td height="50" align="center"><a href="#" onclick="javascript:window.close();">关闭</a></td></tr>
</table>
<%
End If 
%>

</body>
</html>
