📄 info.aspx

📁 毕业设计时做的,一个管理关于污染管理的, 源代码,呵呵想想当时还真厉害,可以实现污染检测

💻 ASPX

字号:

<%@ Register TagPrefix="uc1" TagName="notice" Src="notice.ascx" %>
<%@ Register TagPrefix="uc1" TagName="sysInfo" Src="sysInfo.ascx" %>
<%@ Register TagPrefix="uc1" TagName="copy" Src="copy.ascx" %>
<%@ Page Language="vb" AutoEventWireup="false"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
	<HEAD>
		<title>操作信息!</title>
		<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
		<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
		<meta name="vs_defaultClientScript" content="JavaScript">
		<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
		<LINK href="Styles.css" type="text/css" rel="stylesheet">
	</HEAD>
	<body>
		<form id="Form1" method="post" runat="server">
			<%
	Dim ID as string,info as string,url as string
	ID=Request.QueryString("ID")
	url=Request.QueryString("url")
	IF url="" THEN url="JavaScript:history.back()"
	IF Instr(ID,"1,")<>0 THEN
		info=info+"<li>请输入您的昵称,这项可不能少<br>"
	END IF
	IF Instr(ID,"2,")<>0 THEN
		info=info+"<li>请填写留言内容！<br>"
	END IF	
	IF Instr(ID,"3,")<>0 THEN
		info=info+"<li>对不起，您不能使用站长的昵称发言。如果您确信您就是站长，请先登录<br>"
	END IF
	IF Instr(ID,"4,")<>0 THEN
		info=info+"<li>请如实填写信箱地址！<br>"
	END IF
	IF Instr(ID,"5,")<>0 THEN
		info=info+"<li>您的QQ号是假的吧？该项不是必填项，如果您不想透露您的QQ，可以不填写<br>"
	END IF
	IF Instr(ID,"6,")<>0 THEN
		info="<li>为了避免黑客攻击，站长已经将发帖间隔时间设置为"+ConfigurationSettings.AppSettings("发帖间隔")+"秒，请稍后再留言。<br>"
	end if					
%>
			<TABLE id="Table1" style="MARGIN-TOP: -15px" cellSpacing="1" cellPadding="1" width="750" align="center" border="0">
				<TR>
					<TD colSpan="2"><uc1:notice id="Notice1" runat="server"></uc1:notice></TD>
				</TR>
				<TR>
					<TD vAlign="top" align="middle" width="50%"><uc1:sysinfo id="SysInfo1" runat="server"></uc1:sysinfo></TD>
					<TD vAlign="top" align="middle" width="50%">
						<TABLE id="Table2" cellSpacing="1" cellPadding="1" width="90%" border="0">
							<tr>
								<td>
									<TABLE id="Table3" cellSpacing="1" cellPadding="1" width="530" border="0">
										<tr>
											<td vAlign="top">
												<P align="center"><FONT size="2"><STRONG>.... 操作信息 ....</STRONG></FONT></P>
												<P align="left"><%=info%></P>
												<P align="center">&gt;&gt; <a href="<%=url%>">点击这儿返回</a> &lt;&lt;</P>
											</td>
										</tr>
									</TABLE>
								</td>
							</tr>
						</TABLE>
					</TD>
				</TR>
				<TR>
					<TD colSpan="2"><uc1:copy id="Copy1" runat="server"></uc1:copy></TD>
				</TR>
			</TABLE>
		</form>
	</body>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -