<!--#include file="tgzcm_Conn.asp"-->
<!--#include file="tgzcm_Check.asp"-->
<%
Dim resultMsg
Title = Trim(Request("Title"))
Call JudgeSameTitle
Sub JudgeSameTitle()
	If Title = "" Then
		resultMsg = "被检测文章的标题不可以为空！"
		Exit Sub
	End If
	Set rsTitle = Server.CreateObject("Adodb.Recordset")
	strSql = "Select data_name From tgzcm_Name Where data_name = '" & Title & "'"
	rsTitle.Open strSql, Conn, 1, 1
	If rsTitle.EOF And rsTitle.BOF Then
		resultMsg = "该电影没有被使用！"
	Else
		resultMsg = "此电影已存在，相关如下:<br>"
		Do While Not rsTitle.EOF
			resultMsg = resultMsg & "<li>" & rsTitle(0) & "</li><br>"
			rsTitle.movenext
		Loop
	End If
	rsTitle.Close
	Set rsTitle = Nothing
End Sub
%>
<html>
<head>
<title>检测重复</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<base target='_self'>
<style type="text/css">
<!--
body,td,th {font-size: 12px;}
.title{ background: #0066FF; color:#FFFFFF; font-size:14px;}
-->
</style></head>
<body>
<Table width='100%' border='0' align='center' cellpadding='2' cellspacing='0' class='border' Height='100%'>
<tr class='title' height='22'>
    <td align=center>
    <b>检测结果<b>
    </td>
</tr>
<tr class='tdbg'>
    <td valign='top' align='left'><%=resultMsg%></td>
</tr>
<tr class='title' height='22'>
    <td align=center>
        <input type=button name='button1' id='button1' value='关闭窗口' onClick='javascript:window.close();'>
    </td>
</tr>
</Table></body>
</html>