VbGuestBook/info.aspx,晶晶Vb.net留言板源码源码在线查看|-51aspx.com

首页->留言本类->晶晶Vb.net留言板源码>>info.aspx>>源码在线查看

温馨提示：代码在线浏览功能只能做为源码浏览参考，如果想更进一步了解该代码请下载：晶晶Vb.net留言板源码

当前文件：

		             1<%...@ Register TagPrefix="uc1" TagName="notice" Src="notice.ascx" %>
 2<%...@ Register TagPrefix="uc1" TagName="sysInfo" Src="sysInfo.ascx" %>
 3<%...@ Register TagPrefix="uc1" TagName="copy" Src="copy.ascx" %>
 4<%...@ Page Language="vb" AutoEventWireup="false"%>
 5<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
 6<HTML>
 7    <HEAD>
 8        <title>操作信息!</title>
 9        <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
10        <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
11        <meta name="vs_defaultClientScript" content="JavaScript">
12        <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
13        <LINK href="Styles.css" type="text/css" rel="stylesheet">
14    </HEAD>
15    <body>
16        <form id="Form1" method="post" runat="server">
17            <%...
18    Dim ID as string,info as string,url as string
19    ID=Request.QueryString("ID")
20    url=Request.QueryString("url")
21    IF url="" THEN url="JavaScript:history.back()"
22    IF Instr(ID,"1,")<>0 THEN
23        info=info+"<li>请输入您的昵称,这项可不能少<br>"
24    END IF
25    IF Instr(ID,"2,")<>0 THEN
26        info=info+"<li>请填写留言内容！<br>"
27    END IF    
28    IF Instr(ID,"3,")<>0 THEN
29        info=info+"<li>对不起，您不能使用站长的昵称发言。如果您确信您就是站长，请先登录<br>"
30    END IF
31    IF Instr(ID,"4,")<>0 THEN
32        info=info+"<li>请如实填写信箱地址！<br>"
33    END IF
34    IF Instr(ID,"5,")<>0 THEN
35        info=info+"<li>您的QQ号是假的吧？该项不是必填项，如果您不想透露您的QQ，可以不填写<br>"
36    END IF
37    IF Instr(ID,"6,")<>0 THEN
38        info="<li>为了避免黑客攻击，站长已经将发帖间隔时间设置为"+ConfigurationSettings.AppSettings("发帖间隔")+"秒，请稍后再留言。<br>"
39    end if                    
40%>
41            <TABLE id="Table1" style="MARGIN-TOP: -15px" cellSpacing="1" cellPadding="1" width="750" align="center" border="0">
42                <TR>
43                    <TD colSpan="2"><uc1:notice id="Notice1" runat="server"></uc1:notice></TD>
44                </TR>
45                <TR>
46                    <TD vAlign="top" align="middle" width="50%"><uc1:sysinfo id="SysInfo1" runat="server"></uc1:sysinfo></TD>
47                    <TD vAlign="top" align="middle" width="50%">
48                        <TABLE id="Table2" cellSpacing="1" cellPadding="1" width="90%" border="0">
49                            <tr>
50                                <td>
51                                    <TABLE id="Table3" cellSpacing="1" cellPadding="1" width="530" border="0">
52                                        <tr>
53                                            <td vAlign="top">
54                                                <P align="center"><FONT size="2"><STRONG>.... 操作信息 ....</STRONG></FONT></P>
55                                                <P align="left"><%=info%></P>
56                                                <P align="center">&gt;&gt; <a href="<%=url%>">点击这儿返回</a> &lt;&lt;</P>
57                                            </td>
58                                        </tr>
59                                    </TABLE>
60                                </td>
61                            </tr>
62                        </TABLE>
63                    </TD>
64                </TR>
65                <TR>
66                    <TD colSpan="2"><uc1:copy id="Copy1" runat="server"></uc1:copy></TD>
67                </TR>
68            </TABLE>
69        </form>
70    </body>
71</HTML>
72

还没有找到您心仪的内容？请用.net源码大搜捕

打包下载该项目完整源码：晶晶Vb.net留言板源码