Dim e As RequestEventArgs = args(0) Dim wb As New weui If e.Path = "zzwy.htm" '自助网页 wb.AddPageTitle("","pageheader","JACK桥牌文库","自动生成的动态网页") DataTables("网页表").load() Dim r As DataRow = DataTables("网页表").Find("编号 = '" & _zzbh & "'") If r IsNot Nothing Then Dim zbt As String = r("主标题") Dim fbt As String = r("副标题") Dim zz As String = r("作者") Dim jj As String = r("简介") Dim hz As String = r("徽章") Dim tt As String = r("题图") Dim wb1 As String = r("多段文本一") wb1 = wb1.Replace(vbcrlf,"<br/>") Dim wb2 As String = r("多段文本二") wb2 = wb2.Replace(vbcrlf,"<br/>") Dim wb3 As String = r("多段文本三") wb3 = wb3.Replace(vbcrlf,"<br/>") Dim wb4 As String = r("多段文本四") wb4 = wb4.Replace(vbcrlf,"<br/>") Dim ct1 As String = r("插图一") Dim ct2 As String = r("插图二") Dim ct3 As String = r("插图三") ' wb.InsertHTML("<h2 align='center' style='margin-top:5px'> " & bt & "</h2>") '标题 ' wb.InsertHTML("<h5 align='center' style='margin-top:5px;color:red'> " & zz & "</h5><br/>") '作者,红色 ' wb.InsertHTML("<style Type='text/css'><!-- p{text-indent: 2em}--></style>") ' wb.InsertHTML("<p align='left' style='margin-left:100px;margin-right:60px;'>" & tj & "</p>") '题记,缩进 ' If dr("类型") = "五言诗七言诗" Then '内容 ' wb.InsertHTML("<h3 align='center' style='margin-top:5px;font-family:times;color:blue'> <pre><i>" & nr & "</i><pre></h3><br/><br/>") ' Else ' wb.InsertHTML("<h3 align='left' style='margin-left:120px;font-family:times;color:blue'> <pre><i>" & nr & "</i><pre></h3><br/><br/>") ' End If wb.AddForm("","form1","swlb.htm") With wb.AddArticle("","ar1") .AddTitle("h1",zbt,"align='center'") '主标题 If fbt <> "" Then .AddTitle("h2",fbt,"align='center'") '副标题 End If .AddTitle("h3","作者: " & zz,"align='center'") '作者 If tt <> "" Then .AddImage("./uploadpics/" & tt) '题图 End If .AddContent(wb1,"style='text-indent:2em'") '文本段一 If ct1 <> "" Then .AddImage("./uploadpics/" & ct1) '插图一 End If If wb2 <> "" Then .AddContent(wb2,"style='text-indent:2em'") '文本段二 End If If ct2 <> "" Then .AddImage("./uploadpics/" & ct2) '插图二 End If If wb3 <> "" Then .AddContent(wb3,"style='text-indent:2em'") '文本段三 End If If ct3 <> "" Then .AddImage("./uploadpics/" & ct3) '插图三 End If If wb4 <> "" Then .AddContent(wb4,"style='text-indent:2em'") '文本段四 End If End With End If wb.AddForm("","form2","swlb.htm") With wb.AddButtonGroup("form2","btg2",False) .Add("btn1","规则礼仪","","./gzly.htm") .Add("btn2","叫牌专题","","./jpzt.htm") .Add("btn3","防守专题","","./fszt.htm") .Add("btn4","赛场侧记","","./sccj.htm") End With wb.AddForm("","form3","swlb.htm") With wb.AddButtonGroup("form3","btg3",False) .Add("btn5","自然体系","","./zrtx.htm") .Add("btn6","简单精确","","./jdjq.htm") .Add("btn7","接力精确","","./jljq.htm") .Add("btn8","返回首页","","./default.htm") End With End If e.WriteString(wb.Build) '生成网页
|