请那位大侠赐我一点CGI的代码

[zdq801104]

因为项目有些要用到CGI技术，应用程序是vb.net的,请那位大侠给点代码，找了几天都是些C语言的CGI，谢谢！邮箱:[e-mail] QQ:178758908

[zdq801104]

我原来用C#已经实现了，但是vb.net就是不行，请大家帮帮忙！

[真相重于对错]

ms-help://MS.MSDNQTR.2003FEB.2052/cpguide/html/cpconhttphandlers.htm

[zdq801104]

楼上的大哥，首先谢谢你帮助，我看了你给的URL，但是我发现不是我想要的，不知道能不能直接联系你帮忙解决一下，我C#是这样写的，但是转换为vb.net实现不了，以下是我代码。
[STAThread]
static void Main(string[] args)
{
//
// TODO: 在此处添加代码以启动应用程序
//
Console.WriteLine("Content-type:text/html\n");
Console.WriteLine(System.Environment.GetEnvironmentVariable("QUERY_STRING")+"\n\n");
parameter=System.Environment.GetEnvironmentVariable("QUERY_STRING");
strayy=parameter.Split('*');
TemplateName=strayy[0];
Lines=strayy[1];
// TemplateName="M3601_Y81_38";
// Lines="Y81";
ExeData();
}

[zdq801104]

我用vb.net这样改写，但是不行，关联不起来
Module Module1

Sub Main()
Dim Split() As String
Dim parameter As String
System.Console.WriteLine("Content-type:text/html\n\n")
System.Console.WriteLine(System.Environment.GetEnvironmentVariable("QUERY_STRING"))
parameter = System.Environment.GetEnvironmentVariable("QUERY_STRING")
System.Console.WriteLine(parameter)
System.Console.ReadLine()
End Sub

End Module

[zdq801104]

问题解决了，权当给楼上兄弟散分吧。