CGI/ISAPI实现多级菜单的方式(200分)

要不,把你的简化程序给我一份,我帮你看看. cakk2000@163.net
 
cAKK:寄出来了，顺便你也帮我改改BUG吧
 
呵呵, 是因为nc不认html/text要写成
writeln('Content-Type: text/html');
writeln('');
writeln('');
writeln('<html>.....');
就可以了!!!!


 
cytown:是丫是丫，我是这么写的，可是。。。。。。呜~~~~~~~~~~~~~~~~~
 
强制客户用IE。：）
 
cytown: 小天说反一反没关系的,我也没试.

to 小天:程序似乎还没收到. :-(
 
呜~~~~~~~~~~~~~
小天的血快吐完啦~~~~~~~~~~~~~~~~~
 
我说了是<font color=red>Content-Type: text/html</font>!!!!
 
cytown: 怎么?你也吐血了? 字都染红了... :)
我跟小天说过她写反了,她说正反是一样的.
 
writeln('Content-Type: text/html');
writeln;
writeln;
writeln('<htnl>...');
试过啦，IE没问题不行，呜~~~~~~~~~~~~
 
把你的程序再给我发一次吧! 这次多CC几个地方:
cakk2000@163.net
cakk@21cn.com
cakk@cmmail.com
 
算了算了，最多不玩了 :-(
不过还是要谢谢你，cAKK
 
为什么一定要做CGI控制台程序呢? 用他的CGI wizard做不好吗?
 
不知道，以后有空再试试吧
 
呵呵, 我明白了:)
是不是没有写
writeln('HTTP/1.1 200 OK');
这句要写在最前面.
 
<font color="red">哼哼...接招</font>
<html>

<head>
<title></title>
<script LANGUAGE="JavaScript">
var bV = parseInt(navigator.appVersion);
NS4 = (document.layers) ? 1 : 0;
IE4 = ((document.all) && (bV >= 4)) ? 1 : 0;
ver4 = (NS4 || IE4) ? 1 : 0;
//----------------------------------------------------------------------------------------------
/* THIS FUNCTION RETURNS NUMBER OF LAYERS */
function arrange() {
nextY = document.layers[ind].pageY + document.layers[ind].document.height;
for (i = ind +1; i <document.layers.length; i++) {
whichHead = document.layers;
if (whichHead.visibility != "hide") {
whichHead.pageY = nextY;
nextY += whichHead.document.height;
}
}
}
//----------------------------------------------------------------------------------------------
function initIt() {
if (!ver4) return;
if (NS4) {
for (i=0; i<document.layers.length; i++) {
whichHead = document.layers;
if (whichHead.id.indexOf("Child") != -1)
whichHead.visibility = "hide";
}
arrange();
}

else {
divColl = document.all.tags("DIV");
for (i=0; i<divColl.length; i++) {
whichHead = divColl(i);
if (whichHead.className == "child")
whichHead.style.display = "none";
}
}
}
//----------------------------------------------------------------------------------------------
function expandIt(head) {
if (!ver4) return;
if (IE4) {
whichHead = eval(head + "Child");
whichIm = event.srcElement;
if (whichHead.style.display == "none") {
whichHead.style.display = "block";
whichIm.src = "images/arrowDn.gif";
}
else {
whichHead.style.display = "none";
whichIm.src = "images/arrowUp.gif";
}
}
else {
whichHead = eval("document." + head + "Child");
whichIm = eval("document." + head + "Parent.document.images['imEx']");
if (whichHead.visibility == "hide") {
whichHead.visibility = "show";
whichIm.src = "images/arrowDn.gif";
}
else {
whichHead.visibility = "hide";
whichIm.src = "images/arrowUp.gif";
}
arrange();
}

}
onload = initIt;

</script>
</head>

<body>
<div ID="head001Parent" CLASS="parent"><a HREF="#"
onClick="expandIt('head001'); return false">
<dd><img NAME="imEx" SRC="images/arrowUp.gif" BORDER="0" ALT="Expand/Collapse" WIDTH="11"
HEIGHT="11"> General Setup</a> </dd>
</div><div ID="head001Child" CLASS="child">
<li><a href="config_ports.html" target="Main">Ports</a> </li>
<li><a href="config_logging.nc.html" target="Main">Logging</a> </li>
<li><a href="config_delivery.nc.html" target="Main">HTTP Delivery</a> </li>
<li><a href="config_binding.nc.html" target="Main">IP Binding</a> </li>
<li><a href="config_mimetypes.html" target="Main">MIME Types</a> </li>
<li><a href="config_localFS.html" target="Main">Mount Points</a> </li>
<li><a href="config_allow.nc.html" target="Main">Connection Control</a> </li>
</div><div ID="head002Parent" CLASS="parent"><a HREF="#"
onClick="expandIt('head002'); return false">
<dd><img NAME="imEx" SRC="images/arrowUp.gif" BORDER="0" ALT="Expand/Collapse" WIDTH="11"
HEIGHT="11"> Broadcasting</a> </dd>
</div><div ID="head002Child" CLASS="child">
<li><a href="config_broadFS.html" target="Main">G2 Encoder</a> </li>
<li><a href="config_broadFSpre.html" target="Main">Pre-G2 Encoder</a> </li>
<li><a href="config_broad_archive.html" target="Main">Live Archiving</a> </li>
</div>
</body>
</html>
 
点击General Setup 和 Broadcasting试试
 
youtoo: 问题不在html语法,而是delphi写CGI控制台程序的问题, 看清题意.
 
youtoo:我要做CGI~~~~~~~~~~~~~~~，是写控制台的问题，不是JavaScript的问题啦
 
1，用CGI先获取你需要的数据，
2，生成这张网页，
3，其中的数据显示内容可以填入你自己需要的，
不行么？
 
您必须登录或注册才可回复。

Similar threads

S
[FMX]使用 FMX 实现的左侧菜单效果
回复
0
查看
618
swish
S
D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
1K
DelphiTeacher的专栏
D
D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
873
DelphiTeacher的专栏
D
S
[原]Delphi2010中DataSnap高级技术(7)—TDSServerClass中Lifecycle生命周期三种属性说明
回复
0
查看
835
SUNSTONE的Delphi笔记
S
顶部