📄 user_chkinfo.asp
字号:
<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Cl_Const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<base target="_self" />
<style type="text/css">
body {background:#def0fa;font-size: 12px; margin-top:0px;
SCROLLBAR-FACE-COLOR: #0096CE; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff;
SCROLLBAR-SHADOW-COLOR: #ffffff; SCROLLBAR-DARKSHADOW-COLOR: #0096CE;
SCROLLBAR-3DLIGHT-COLOR: #0096CE; SCROLLBAR-ARROW-COLOR: #def0fa;
SCROLLBAR-TRACK-COLOR: #def0fa;}
TD,INPUT{FONT-SIZE: 12px}
INPUT {HEIGHT: 20px;}
Button,Select{FONT-SIZE: 9pt;HEIGHT: 20px; }
</style>
</head>
<body leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
Cl.Get_WebSetting()
'if Request.ServerVariables("HTTP_REFERER")="" then
' Call Cl.OutErr(0,"<li>以下操作需要登录后方或进行，您未登录。</li>")
' Response.end
'end if
if Not Cl.ChkUserLogin then
Call Cl.OutErr(0,CL.ReplaceDir(Cl.Language.SelectSingleNode("//NoLoginErr").text))
Response.end
end if
ChkMain
%>
</body>
</html>
<%
Sub ChkMain()
Dim Title,rsCheck,SQLCheck,SQLCheck2,SQLCheck3
Dim sModuleName,ChannelID
Title=Cl.ReplaceBadChar(request("TitleName"))
ChannelID=Cl.GetClng(request("ChannelID"))
CL.Load_ChannelSetting(ChannelID)
Select Case Clng(Cl.Channel.selectSingleNode("@moduleid").text)
Case 1
SQLCheck="Select Top 30 InfoID,Title From Cl_Article Where ChannelID="&ChannelID&" and Title like '%"&Title&"%'"
SQLCheck2="Select Top 30 InfoID,Title,Keyword From Cl_Article Where ChannelID="&ChannelID&" and Keyword like '%"&Title&"%'"
sModuleName="Article"
Case 2
SQLCheck="Select Top 30 InfoID,SoftName From Cl_Soft Where ChannelID="&ChannelID&" and SoftName like '%"&Title&"%'"
SQLCheck2="Select Top 30 InfoID,SoftName,Keyword From Cl_Soft Where ChannelID="&ChannelID&" and Keyword like '%"&Title&"%'"
sModuleName="Soft"
Case 3
SQLCheck="Select Top 30 InfoID,PhotoName From Cl_Photo Where ChannelID="&ChannelID&" and PhotoName like '%"&Title&"%'"
SQLCheck2="Select Top 30 InfoID,PhotoName,Keyword From Cl_Photo Where ChannelID="&ChannelID&" and Keyword like '%"&Title&"%'"
sModuleName="Photo"
Case 4
SQLCheck="Select Top 30 InfoID,MovieName From Cl_Movie Where ChannelID="&ChannelID&" and MovieName like '%"&Title&"%'"
SQLCheck2="Select Top 30 InfoID,MovieName,Keyword From Cl_Movie Where ChannelID="&ChannelID&" and Keyword like '%"&Title&"%'"
sModuleName="Movie"
Case 5
SQLCheck="Select Top 30 InfoID,ProductName From Cl_Product Where ChannelID="&ChannelID&" and ProductName like '%"&Title&"%'"
SQLCheck2="Select Top 30 InfoID,ProductName,Keyword From Cl_Product Where ChannelID="&ChannelID&" and Keyword like '%"&Title&"%'"
sModuleName="Product"
Case 6
SQLCheck="Select Top 30 InfoID,Title From Cl_Topic Where ChannelID="&ChannelID&" and Title like '%"&Title&"%'"
SQLCheck2="Select Top 30 InfoID,Title,Keyword From Cl_Topic Where ChannelID="&ChannelID&" and Keyword like '%"&Title&"%'"
sModuleName="Article"
Case Else
%>
<script language="JavaScript" type="text/javascript">window.close()</script>
<%
End Select
Response.write "<font color='#0000ff'>名称</font>类似于<font color='#ff0033'>" & Title & "</font>的" & Cl.Channel.selectSingleNode("@channelitemname").text
Set rsCheck=Cl.Execute(SQLCheck)
if not(rsCheck.bof and rsCheck.eof) then
Response.write "<ol>"
do while Not rsCheck.Eof
Response.write "<li><a href='../"&Cl.Channel.selectSingleNode("@channeldir").text&"/"&sModuleName&"Show.asp?InfoID="&rsCheck(0)&"'>" & Replace(rsCheck(1),Title,"<font color='#ff0033'>" & Title & "</font>") & "</a></li>"
rsCheck.MoveNext
Loop
Response.write "</ol>"
'Call Cl.OutMsg(0,"注意：" & Title & " 已经存在于数据库中！","javascript:window.close()")
else
Response.write "<li>无任何类似" & Cl.Channel.selectSingleNode("@channelitemname").text & "</li><br />"
end if
rsCheck.Close : set rsCheck=Nothing
Response.write "<font color='#0000ff'>关键字</font>类似于<font color='#ff0033'>" & Title & "</font>的" & Cl.Channel.selectSingleNode("@channelitemname").text
Set rsCheck=Cl.Execute(SQLCheck2)
if not(rsCheck.bof and rsCheck.eof) then
Response.write "<ol>"
do while Not rsCheck.Eof
Response.write "<li><a href='../"&Cl.Channel.selectSingleNode("@channeldir").text&"/"&sModuleName&"Show.asp?InfoID="&rsCheck(0)&"'>"&rsCheck(1)&"<br />关键字：" & Replace(rsCheck(2),Title,"<font color=red>" & Title & "</font></a></li>")
rsCheck.MoveNext
Loop
Response.write "</ol>"
else
Response.write "<li>无任何类似" & Cl.Channel.selectSingleNode("@channelitemname").text
end if
rsCheck.Close : set rsCheck=Nothing
End Sub
'===================================================
' CreateLive CMS Version 4.0
' Powered by Aspoo.CoM
'===================================================
' Mail: support@aspoo.cn, Info@aspoo.cn
' Q Q: 3315263, 596197794
' Msn : support@aspoo.cn, Clw866@hotmail.com
' Web : http://www.aspoo.com, http://www.aspoo.net
' Bbs : http://bbs.aspoo.com, http://bbs.aspoo.net
' Copyright (C) 2005-2007 Aspoo.CoM All Rights Reserved.
'===================================================
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -