SSI（服务器端包括）

b246347b
帮别人等于帮自己
等级:
可用分等级：长工
总技术分：465
总技术分排名：34992

发表于：2008-08-24 22:01:585楼得分:0

这是我SSI（服务器端包括）里面的代码
我把html body title都删除掉了！


<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_web_STRING
Recordset1.Source = "SELECT * FROM 一级分类 ORDER BY 排序 ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>

<style type="text/css">

</style>

<table width="760">
<tr>
<td height="50" bgcolor="#00FFFF"> <span class="STYLE2">文章 </span> </td>
</tr>
<tr>
<td> <p> <span class="STYLE3"> <a href="index.asp">首页 </a> </span>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
‖ <a href="class.asp?id= <%=(Recordset1.Fields.Item("分类").Value)%>"> <%=(Recordset1.Fields.Item("分类").Value)%> </a>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</p>

</td>
</tr>
</table>

<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

下面是我引用页的代码1

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档 </title>
</head>

<body>


</body>
</html>

如果我新建一个记录集就有代码2 多出了一句连接(红色代码) 其实是我SSI（服务器端包括）的连接他是重复定义了！
要改变他我想是应该从源头上SSI里面改变他

代码2

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_web_STRING
Recordset2.Source = "SELECT * FROM 一级分类"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档 </title>
</head>

<body>


</body>
</html>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>

修改删除举报引用回复