搜索文章时自动加上W3SVC/1/ROOT这个错误的链接的解决方法-风讯CMS教程

来源:模板无忧 作者:霜晨月 更新时间:2006-06-16 点击:

修改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\">&lt;!---请自己设置您的模板-----&gt;</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 1 2 4

< Prev12 Next >
相关风讯CMS教程:
最新评论:
loading.. 评论加载中....
发表评论:不能超过250字节,请自觉遵守互联网相关政策法规.
  • 昵称: 验证: