<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%'����������֤��û�����벻�����鿴��
dim id,title,str,keyword
id=request.QueryString("id")
keyword=request.QueryString("keyword")
dim rs
set rs=server.CreateObject("adodb.recordset")
sql="select [title],[content] from table_1 where ID="&ID
rs.open sql,conn
if rs.eof and rs.bof then
response.write " �������� "
else
title=rs("title")
str = rs("content")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
Dim k,inst
k="��Ժ��Ϊ"
inst = InStr(k,str)
if inst=0 then
k="��������"
inst = InStr(k,str)
else
end if
if inst=0 then
inst=Len(str)/2
else
end if
Dim kcons
kcons=Mid(str,inst,150)
if InStr("
