请问高手一个关于asp页面连接的问题,语言用的是vbscript!
之前都好着呢,不知道是怎么回事,现在页面连接不上了,查了下好像是少些了什么代码,但是不知道具体少什么了?高手帮我看看,谢谢! </script>
<img src="images/announce.gif" />
<asp:Label ID="Label1" runat="server" ForeColor="Red"></asp:Label>
<br />
<%=session("name")%> 欢迎您!<br /> </td>
<%
mrights=split(session("right"),",",-1,1)
i=1
mstr=""
do while i<=(len(session("right"))-3)/4
mstr=mstr+" or number='"&mrights(i)&"'"
i=i+1
loop
%>
</tr>
<%
Set rsCustomers = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT distinct title1 FROM title where number='"&mrights(0)&"'"&mstr
rsCustomers.Open strSQL,conn
Set mtitle1 = rsCustomers("title1")
Do Until rsCustomers.EOF
do while mtitle1<>null
loop
%>
<tr>
<td align="center" bgcolor="#333333" class="left_title"><%=right(mtitle1,len(mtitle1)-1)%></td>
</tr>
<%
Set rsCustomers2 = Server.CreateObject("ADODB.Recordset")
strSQL2 = "SELECT distinct title2 FROM title where title1='"&mtitle1&"' and (number='"&mrights(0)&"' "&mstr&")"
rsCustomers2.Open strSQL2,conn
Set mtitle2 = rsCustomers2("title2")
Do Until rsCustomers2.EOF
do while mtitle2<>null
loop
%>
<tr bgcolor="#FFFFFF">
<td align="center" bgcolor="#FFFF00"><span class="STYLE3"><%=right(mtitle2,len(mtitle2)-1)%></span></td>
</tr>
<%
Set rsCustomers3 = Server.CreateObject("ADODB.Recordset")
strSQL3 = "SELECT distinct title3,number FROM title where title1='"&mtitle1&"' and title2='"&mtitle2&"' and (number='"&mrights(0)&"'"&mstr&")"
rsCustomers3.Open strSQL3,conn
Set mtitle3 = rsCustomers3("title3")
set mnumber = rsCustomers3("number")
Do Until rsCustomers3.EOF
do while mtitle3<>null
loop
%>
<tr>
<% if right(mtitle1,len(mtitle1)-1)<>"系统设置" then %>
<% if right(mtitle1,len(mtitle1)-1)="CCHO文件" then %>
<tr>
<td align="center" bgcolor="#FFFFFF"><a href="ccho.asp?mno=<%=mnumber%>" target="mainFrame"><%=right(mtitle3,len(mtitle3)-1)%></a></td>
<% else %>
<tr>
<td align="center" bgcolor="#FFFFFF"><a href="en_list.asp?mno=<%=mnumber%>" target="mainFrame"><%=right(mtitle3,len(mtitle3)-1)%></a></td>
</tr>
<% end if%>
<%else%>
<tr>
<td align="center" bgcolor="#FFFFFF"><a href="<%=right(mtitle3,len(mtitle3)-1)%>.asp" target="mainFrame"><%=right(mtitle3,len(mtitle3)-1)%></a></td>
</tr>
<%end if %>
<%
rsCustomers3.MoveNext
Loop
%>
<%
rsCustomers2.MoveNext
Loop
%>
<%
rsCustomers.MoveNext
Loop
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="50" align="center" class="left_td">CCWN 通用文件管理系统 </td>
</tr>
</table>
</form>
<%
rsCustomers.close
set rsCustomers=Nothing
rsCustomers2.close
set rsCustomers2=Nothing
rsCustomers3.close
set rsCustomers3=Nothing
conn.close
set conn=Nothing
%>
</body>