修改Search.asp文件第89行----------------未經測試
ClassCName1="<a href=" & GetDoMain& RssearchObj("SaveFilePath")&"/"& RssearchObj("ClassEName") &"/index."&RssearchObj("FileExtName")&" target=""_blank""><font color=red>「"& RssearchObj("ClassCName") &"」</font></a> "
但此方法錯誤。已經修正：
Dim confimsn
set confimsn=conn.execute("select domain from config")
set Rs = server.CreateObject ("ADODB.RecordSet")
If Request("condition")="title" then
Sql = "select * from News where DelTF=0 and AuditTF=1 and Title like '%"&Replace(request("keyword"),"'","''")&"%'"
elseif Request("condition")="content" then
Sql = "select * from News where DelTF=0 and AuditTF=1 and content like '%"&Replace(request("keyword"),"'","''")&"%'"
elseif Request("condition")="author" then
Sql = "select * from News where DelTF=0 and AuditTF=1 and Author like '%"&Replace(request("keyword"),"'","''")&"%'"
end if
Rs.Open Sql,Conn,1,3
%>
<html>
<head>
<title>搜索結果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.MainMenuBGStyle {
background-repeat: no-repeat;
background-position: right center;
}
-->
</style>
</head>
<link href="CSS/css.css" rel="stylesheet">
<body>
<table width="70%" border="0" align="center" cellpadding="8" cellspacing="1" class="tabbgcolor">
<tr class="tabbgcolorliWhite">
<td width="78%" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="6">
<tr>
<td><font color="#999999"><!---請自己設置您的模板-----></font></td>
</tr>
<tr>
<td>以下為要害字<font color="#FF0000"><strong><%=request("KeyWord")%></strong></font>的相關內容</td>
</tr>
</table>
<%
if Rs.eof and Rs.bof then
Response.write "<p align='center'> 未找到符合你條件的<font color=#ff0000>"&Request("keyword")&"</font>信息</p>"
Else
rs.pagesize=40
rs.absolutepage=cint(strpage)
select_count=rs.recordcount
select_pagecount=rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" bgcolor="#FFFFFF">?<%9 7 3 12 4
新聞熱點
疑難解答
