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编辑过]