loading.asp

来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 14 行

<!--#include file ="setup.asp"--> 
<%Menu=Request.QueryString("menu")
Select Case Menu
Case ""%>
<SCRIPT language="javascript">
parent.followImg<%=Request("id")%>.loaded="yes";
parent.followTd<%=Request("id")%>.innerHTML='<table width=100% cellpadding=3><tr><td width=100%><%=replace(conn.execute("Select Content from Forum where ShowID="&Request("id"))(0),"'","")%></td></tr></table>';
</SCRIPT>
<%Case "Online"%>
<SCRIPT language="javascript">
parent.followImg<%=Request("id")%>.loaded="yes";
parent.followTd<%=Request("id")%>.innerHTML="<%OnlineList%>";
</SCRIPT>
<%End Select%>