<!--#include file="setup.asp"-->
<!--#include file="plus/Ex_Stock/Exsm_Plus_Conn.asp"-->
<!--#include file="plus/Ex_Stock/Exsm_Plus_Const.asp"-->
<%
	Dim sid,keyword
	keyword=trim(replace(request("keyword"),"'",""))
	If Not Exsm.Members Then
		Exsm.Errmess="<li>您还没有股票帐户，不能使用该功能，请先开户。"
		Call Exsm.Endinfo(1)
	Elseif keyword="" then
		Exsm.Errmess="<li>请输入查找关键字或代码。"
		Call Exsm.Endinfo(1)
	Else
		If isnumeric(keyword) Then
		     	SQL="select * from EX_Stock where Code='"&keyword&"'"
		Else
		     	SQL="select * from EX_Stock where Company='"&keyword&"'"
		End if
		Set Rs=stock_conn.execute(SQL)
		If rs.eof and rs.bof then
			Exsm.Errmess="<li>没有找到指定的上市公司，可能该上市公司已经倒闭。"
			Call Exsm.Endinfo(1)
		Else
			sid=rs("Sid")
			response.redirect "Exsm_Plus_Dispcompare.asp?sid="&sid&""
		End if
	rs.close
	End if
%>