Dim wb As New WeUI
Dim cnt As Integer = 1
If e.Cookies.ContainsKey("count") '如果存在名为count的Cookie
Integer.TryParse(e.Cookies("count"),cnt) '提取cookie的值, 并转换为整数
cnt = cnt + 1
End If
wb.AppendCookie("count",cnt) 帮助上是wb.AppendCookie
wb.InsertHTML("您这是第" & cnt & "次访问!")
e.WriteString(wb.Build)
下面StringBuilder页面
Dim e As RequestEventArgs = args(0)
Dim sb As New StringBuilder
sb.AppendLine("<!doctype html>")
sb.AppendLine("<html>")
sb.AppendLine("<head>")
sb.AppendLine("<meta charset='utf-8'>")
sb.AppendLine("<title>表单</title>")
sb.AppendLine("</head>")
sb.AppendLine("<body>")
wb.AppendCookie("number", 100, 100) '这样测试不成功，应该怎么办？
改成
sb.AppendCookie("number", 100, 100) ’这样也不行
sb.AppendLine("<form enctype='multipart/form-data' method='post' id='form1' name='form1'>")
sb.AppendLine("产品: <input name='cp' id='cp'><br/><br/>")
sb.AppendLine("客户: <input name='kh' id='kh'><br/><br/>")
sb.AppendLine("雇员: <input name='gy' id='gy'><br/><br/>")
sb.AppendLine("单价: <input Type='number' name='dj' id='dj'><br/><br/>")
sb.AppendLine("折扣: <input Type='number' name='zk' id='zk' min='0' max='0.15' step='0.01'><br/><br/>")
sb.AppendLine("数量: <input Type='number' name='sl' id='sl'><br/><br/>")
sb.AppendLine("日期: <input Type='date' name='rq' id='rq'><br/><br/>")
sb.AppendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")
sb.AppendLine("</form>")
sb.AppendLine("</body>")
sb.AppendLine("</html>")
e.WriteString(sb.ToString)
|
[此贴子已经被作者于2020/8/27 9:15:18编辑过]
加好友 
发短信
Post By：2020/8/26 19:38:00 [只看该作者]
