📄 asp_adrotator.aspx

📁 东软内部材料（四）asp等相关的教学案例　
💻 ASPX
字号:
<%@Page Language="C#"%>
<%@Import Namespace="System.Drawing" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>

<script language="JScript">
<!--
function ShowHTMLContent() {
  var strURL = 'http://<% = Request.ServerVariables["SERVER_NAME"] %><% = Request.Path %>?<% = Request.QueryString %>';
  var strDisplay = new String;
  var objHTTP = new ActiveXObject("microsoft.XMLHTTP")
  objHTTP.open('GET', strURL, false);
  objHTTP.send();
  var strReply = objHTTP.responseText;
  var intStart = strReply.indexOf('<!' + '--start-->') + 12;
  var intEnd = strReply.indexOf('<!' + '--end-->');
  if ((intStart > 0) && (intEnd > intStart))
    var strDisplay = strReply.substring(intStart, intEnd);
  document.all['outHTML'].innerText = strDisplay + ' ';
}
function SetCheck(strCheckboxName) {
  document.all[strCheckboxName].checked = true;
}
//-->
</script>

<!-- #include file="style.inc" -->
</head>
<body bgcolor="#ffffff" onload="ShowHTMLContent()">
<!--------------------------------------------------------------------------->
<span class="heading">ASP:AdRotator Control</span><p />

<!--start-->
<ASP:AdRotator id="MyControl" AdvertisementFile="adverts.xml" runat="server" />
<!--end-->

<p />
<div id="outError" runat="server" />
<font face="Courier New" size="2"><div style="background-color:gainsboro; padding-left:10px" id="outHTML">Fetching HTML content...</div></font>

<form runat="server" method="get">
<table border="0">
<tr>
<td nowrap="nowrap"><input type="checkbox" id="chkAccessKey" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">AccessKey =</td><td nowrap="nowrap"><input type="text" size="1" id="txtAccessKey" runat="server" onkeypress="SetCheck('chkAccessKey')" /></td>
<td nowrap="nowrap">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;  &nbsp;</td>
<td nowrap="nowrap"><input type="checkbox" id="chkBackColor" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">BackColor =</td><td nowrap="nowrap"><input type="text" size="15" id="txtBackColor" runat="server" onkeypress="SetCheck('chkBackColor')" /></td>
</tr><tr>
<td nowrap="nowrap"><input type="checkbox" id="chkBorderColor" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">BorderColor =</td><td nowrap="nowrap"><input type="text" size="15" id="txtBorderColor" runat="server" onkeypress="SetCheck('chkBorderColor')" /></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkBorderStyle" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">BorderStyle =</td><td nowrap="nowrap"><select id="selBorderStyle" size="1" runat="server" onchange="SetCheck('chkBorderStyle')">
<option value="4">BorderStyle.Solid</option><option value="3">BorderStyle.Dashed</option><option value="2">BorderStyle.Dotted</option><option value="5">BorderStyle.Double</option>
<option value="6">BorderStyle.Groove</option><option value="8">BorderStyle.Inset</option><option value="1">BorderStyle.None</option><option value="0">BorderStyle.NotSet</option>
<option value="9">BorderStyle.Outset</option><option value="7">BorderStyle.Ridge</option></select></td><td nowrap="nowrap"></td>
</tr><tr>
<td nowrap="nowrap"><input type="checkbox" id="chkBorderWidth" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">BorderWidth =</td><td nowrap="nowrap"><input type="text" size="2" id="txtBorderWidth" runat="server" onkeypress="SetCheck('chkBorderWidth')" />px</td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkEnabled" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Enabled =</td><td nowrap="nowrap"><select id="selEnabled" size="1" runat="server" onchange="SetCheck('chkEnabled')"><option>True</option><option>False</option></select></td>
</tr><tr>
<td nowrap="nowrap"><input type="checkbox" id="chkForeColor" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">ForeColor =</td><td nowrap="nowrap"><input type="text" size="15" id="txtForeColor" runat="server" onkeypress="SetCheck('chkForeColor')" /></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkHeight" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Height =</td><td nowrap="nowrap"><input type="text" size="2" id="txtHeight" runat="server" onkeypress="SetCheck('chkHeight')" />px</td>
</tr><tr>
<td nowrap="nowrap"></td><td align="right" nowrap="nowrap">ID =</td><td nowrap="nowrap"><% = MyControl.ID %></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkKeywordFilter" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">KeywordFilter =</td><td nowrap="nowrap"><select id="selKeywordFilter" size="1" runat="server" onchange="SetCheck('chkKeywordFilter')">
<option></option><option>Articles</option><option>Books</option><option>Components</option><option>Discussion Lists</option><option>Mobile Devices</option><option>Software</option></select></td>
</tr><tr>
<td nowrap="nowrap"><input type="checkbox" id="chkTarget" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Target =</td><td nowrap="nowrap"><input type="text" size="15" id="txtTarget" runat="server"  onkeypress="SetCheck('chkTarget')"/></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkToolTip" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">ToolTip =</td><td nowrap="nowrap"><input type="text" size="20" id="txtToolTip" runat="server"  onkeypress="SetCheck('chkToolTip')"/></td>
</tr><tr>
<td nowrap="nowrap"><input type="checkbox" id="chkVisible" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Visible =</td><td nowrap="nowrap"><select id="selVisible" size="1" runat="server" onchange="SetCheck('chkVisible')"><option>True</option><option>False</option></select></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkWidth" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Width =</td><td nowrap="nowrap"><input type="text" size="2" id="txtWidth" runat="server" onkeypress="SetCheck('chkWidth')" />px</td>
</tr><tr>
<td nowrap="nowrap"></td><td nowrap="nowrap"></td><td nowrap="nowrap"></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="button" Value="Reset" onclick="javascript:location.href='http://<% = Request.ServerVariables["SERVER_NAME"] %><% = Request.Path %>'"></td><td nowrap="nowrap"></td><td nowrap="nowrap"><input type="submit" Value="Update" runat="server" /></td>
</tr>
</table>
</form>

<script language="C#" runat="server">

	void Page_Load(Object sender, EventArgs e)
	{
		outError.InnerHtml = "";

		try
		{
			if (IsPostBack)
			{
				if (chkAccessKey.Checked) MyControl.AccessKey = txtAccessKey.Value;
				if (chkBackColor.Checked) MyControl.BackColor = Color.FromName(txtBackColor.Value);
				if (chkBorderColor.Checked) MyControl.BorderColor = Color.FromName(txtBorderColor.Value);
				if (chkBorderStyle.Checked) MyControl.BorderStyle = (BorderStyle)Convert.ToInt32(selBorderStyle.Value);
				if (chkBorderWidth.Checked) MyControl.BorderWidth = Unit.Pixel(Convert.ToInt32(txtBorderWidth.Value));
				if (chkEnabled.Checked) MyControl.Enabled = Convert.ToBoolean(selEnabled.Value);
				if (chkForeColor.Checked) MyControl.ForeColor = Color.FromName(txtForeColor.Value);
				if (chkHeight.Checked) MyControl.Height = Unit.Pixel(Convert.ToInt32(txtHeight.Value));
				if (chkKeywordFilter.Checked) MyControl.KeywordFilter = selKeywordFilter.Value;
				if (chkTarget.Checked) MyControl.Target = txtTarget.Value;
				if (chkToolTip.Checked) MyControl.ToolTip = txtToolTip.Value;
				if (chkVisible.Checked) MyControl.Visible = Convert.ToBoolean(selVisible.Value);
				if (chkWidth.Checked) MyControl.Width = Unit.Pixel(Convert.ToInt32(txtWidth.Value));
			}
;
			txtAccessKey.Value = MyControl.AccessKey;
			txtBackColor.Value = MyControl.BackColor.Name;
			txtBorderColor.Value = MyControl.BorderColor.Name;
			selBorderStyle.Value = MyControl.BorderStyle.ToString();
			txtBorderWidth.Value = MyControl.BorderWidth.Value.ToString();
			selEnabled.Value = MyControl.Enabled.ToString();
			txtForeColor.Value = MyControl.ForeColor.Name;
			txtHeight.Value = MyControl.Height.Value.ToString();
			selKeywordFilter.Value = MyControl.KeywordFilter;
			txtTarget.Value = MyControl.Target;
			txtToolTip.Value = MyControl.ToolTip;
			selVisible.Value = MyControl.Visible.ToString();
			txtWidth.Value = MyControl.Width.Value.ToString();
		}
		catch (Exception objError)
		{
			outError.InnerHtml = "<b>* Error</b>: " + objError.Message + "<p />";
		}
	}
	
</script>

<!--------------------------------------------------------------------------->
<!-- #include file="foot.inc" -->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -