因不懂ASP，故想能不能用VB和HTML结合起来，这想法会不会有点荒唐

我说个想法，如果不能实现，大伙别笑，这只是我个人的想法比如我建个文本框和按钮，我在文本框中写一个段落，一点按钮，就生成了一个网页，而且该网页中也包含有刚才写的段落我知道这个比较容易实现，可以用print语句来写，但是如果要生成的这个网页的HTML代码很多很多呢，比如其中99%的网页代码是一成不变的，只有那1%是每次都由读文本框的内容来写入的所以能不能事先写一个网页，相当于一个模板，该网页中的HTML代码中的某处有特殊标记，那个按钮每次单击，改的只是该处特殊标记内的内容，改完之后就地保存，这复杂的工程能实现吗请问？

解决方案 »

  1.   

    静态网页你想得可以实现，我以前也用VB写过一个，现在是找不到了。大概意思是你要懂得网页的基本结构与基本元素，这样你就要去看html4(也就是要去看超文件标记言4，现在是不是有其它版本了不知道:）……另外有能力的话还要去CSS，javascript或vbscrtipt,这些都可以在你用VB生成网页一起生成进去来美化网页。一个简的做法是先用dw或frontpage先生成你要的网页样式，再用记事本打开它，复制你要的内容到你的程序，去生成你的网页会方便的多。asp或asp.net类的动态网页用vb6来写大概有的荒唐（个人看法仅供参考）
    asp建议用dw去写
    asp.net建议用vb.net去写。
      

  2.   


    因为有急用，所以还没来得及学ASP，呵呵
      

  3.   


    谢谢指教。
    HTML和CSS，我都会，您说的那些，大部分我可以理解，就这句不太懂：“再用记事本打开它，复制你要的内容到你的程序”能否再提示提示
      

  4.   

    比如那个做模板的网页中是这些代码：<html>
    .............省略
    <head>
    .............省略
    </head>
    <body>
    .............省略
    <div>$$$</div>
    .............省略
    </body>
    </html>其中的“$$$”是我做的标记，然后我在VB窗体的文本框中输入“看看”，点击按钮，然后“$$$”就被替换成了“看看”，并也保存成HTML文件
      

  5.   

    你用比较好的网页制作软件（大部分是所谓所见即所得的），比如你用dw做好一个网页的模板，存盘后它是xxx.htm或xxx.html，但它的内容一定是文件本，用记事本打开，就知道什么格式是什么超文本语句写的了，把这种超文本语句复制到你的VB程序里，再用它写出来就是这个样式了。不知道我说明白了没有？ :)
      

  6.   

    用dw或其它网页制做软件做好网页样式，再复制它的超文件语句到你的VB程序中，再由VB程序写出来，这大概是你想做这种软件的最方便的方法，这样你最起码不用一句一句的在VB中去写超文本语句，也不用一句一句地去肯超文本了（但有空最好看看基本语句）
      

  7.   

    dim sHtml as string
    sHtml = 读入模板()
    sHtml = Replace(sHtml,"$$$",text1.text)
    保存文件 sHtml
      

  8.   

    如果只显示文字，一个文本文件做模板就行了，将HTML文档写入文本文档，修改时替换其中的文本，另存为*.htm就行了，如果是有图等较复杂的东东，要用word文档作模板，修改word文档另存为*.htm格式。
    如果你会写IE 的BHO，用BHO也可，但有点复杂。另外，也可直接向页面中写入：
    Private Sub Command1_Click()
    WebBrowser1.Document.write (Text1)
    End SubPrivate Sub Form_Load()
     WebBrowser1.Navigate "about:blank"
    End Sub
      

  9.   


    “sHtml= 读入模板()”和“保存文件 sHtml”这两句不懂怎么写呀，是不是可以这样写：Dim fn As String
    fn = App.Path & "123.html"
    Open fn For Output Shared As #1
    sHtml=Replace(sHtml,"$$$",text1.text)
    Close #1
    CommonDialog1.CancelError = True
    On Error GoTo Err:
    Dim oldFilename As String
    Dim newFilename As String
    oldFilename = App.Path & "123.html"
    CommonDialog1.Filter = "(*.html;*.htm)|*.html;*.htm"
    CommonDialog1.FileName = "result"
    CommonDialog1.Flags = cdlOFNOverwritePrompt
    CommonDialog1.ShowSave
    newFilename = CommonDialog1.FileName
    FileCopy oldFilename, newFilename
    Err:
    If Err.Number <> 0 Then
    Exit Sub
    End If
      

  10.   


    是啊，模板的话用文本文档就可以了，有图片也没关系，因为在网页上显示的图片，它在HTML里的表示也是一句文本代码
      

  11.   

    Dim fn As String 
    dim templet as string'读出模板内容
    fn = App.Path & "\123.txt" 
    Open fn For binary As #1 
        templet=input(lof(1),1)
    close    
    '替换
    templet=Replace(templet,"$$$",text1.text) 
    '生成html
    fn = App.Path & "\123.html" 
    Open fn For output As #1 
        print #1,templet
    close 
      

  12.   

    Dim sHtml As String
    Dim hFile As Integer
    Dim Bytes() As BytehFile = FreeFile()
    Open "C:\temp\template.html" For Binary Access Read Lock Write As #hFile
    ReDim Bytes(LOF(hFile) - 1) As Byte
    Get #hFile, 1, Bytes
    Close #hFile
    sHtml = StrConv(Bytes, vbUnicode)sHtml = Replace(sHtml, "$$$", text1.Text)hFile = FreeFile()
    Open "C:\temp\1.html" For Binary Access Write Lock Write As #hFile
    Put #hFile, 1, sHtml
    Close #hFile
      

  13.   

    网页中的HTML代码中的某处有特殊标记，需要的时候替换这个我干过，当时因为急要打印预览和打印功能，所以直接做成html页面然后用ie控件做的
    你既然会vb，asp也不难，就用vbs写，再熟悉一下服务器上用的一些东西，学学html css就差不多了
      

  14.   


    提示“错误的参数号或无效的属性赋值”，错误指向那个“input”
      

  15.   


    你也干过哈哈小会一点VB、HTML、CSS，学ASP真的不难吗，现在有信心多了呵呵
      

  16.   

    这个贴子中，llzxbl03 与 lzxbl04（楼主）是什么关系？
      

  17.   

    你要做网页html css肯定是要会的了，javascript 最好也会一点
    至于asp你可以不把它当成一种语言，实际上它是在用vbscript和jscript做事，前者类似vb，后者类似javascript，当然vbs用起来要更容易，而且你现在也会vb，所以你再稍微看看关于服务器的一些功能函数也就能上手了注：上述内容存在部分与事实出入的可能性，欢迎考证纠错
      

  18.   


    非常感谢指教！
    还好html css我都会点，javascript不会，但我都是借用网上别人的JS呵呵
    我想以后要学ASP，就用VBS了，目前ADO会一点，以前也听老手们说过，VB是面向对象，ASP是面向过程，所以我想以后最紧要的是要弄懂这个区别以及你说的服务器功能函数