📄 bugs_page.asp

📁 泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.
💻 ASP
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD>
<TITLE> 航霸烙 - 棍胶孤流 墨款磐 涝聪促.</TITLE>
<style type="text/css">
<!--
   body		{font-family:奔覆; font-size:14pt; text-decoration:none;}
 a:link		{font-family:奔覆; font-size:9pt; text-decoration:none; color:"midnightblue"}
 a:visited	{font-family:奔覆; font-size:9pt; text-decoration:none; color:"midnightblue"}
 a:hover	{text-decoration:  underline;}
   td		{font-family:奔覆; font-size:10pt; text-decoration:none;}
--->
</style>
</HEAD>
<body bgcolor="#E8E8E8">
<%
if (Trim(Request("year_from")) <> "") then
	cur_year	= CInt(Request ("year_from"))
	cur_month	= CInt(Request ("month_from"))
else
	cur_year	= Year	(Date())
	cur_month	= Month	(Date())
end if
fst_week  = Weekday (DateSerial(cur_year, cur_month, 1))
last_day  = Day(DateAdd("d", -1, DateAdd("m", 1, DateSerial(cur_year, cur_month, 1))))

site_name = request("site_name")
if site_name = "" then site_name = "BMMain"
%>
<form method="post" action="bugs_page.asp" name=calender>
<table border=0 width=600 cellpadding=0 cellspacing=0>
<tr>
	<td width=50% bgcolor=#E6E6E6 align=center style="font-size:13pt"><b>老磊喊 立加烹拌 (since 2002.12.17)</b></td>
	<td width=50% bgcolor=#E6E6E6 align=left>
		<select name=year_from>
			<option value=<%=(cur_year-1)%>><%=(cur_year-1)%>
			<option value=<%=cur_year%> selected><%=cur_year%>
		</select>斥&nbsp;
		<select name=month_from>
		<%
		for i = 1 to 12
			str = " "
			if i=cur_month then
				str = " selected"
			end if
		%>
			<option value=<%=i%><%=str%>><%=i%>
		<%
		next
		%>
		</select>岿&nbsp;
		<input type=submit value="炼雀">
	</td>
<tr>
	<td colspan=2 bgcolor="#3C57A2">
		<table border=0 width=653 cellpadding=0 cellspacing=1>
		<tr>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>老</td>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>岿</td>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>拳</td>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>荐</td>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>格</td>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>陛</td>
			<td width=14% bgcolor="#7FBBF1" align=center height=20>配</td>
		</tr>
<%
		if  fst_week <> 1 then Response.Write ("<tr>")
		for i=1 to fst_week-1 
			Response.Write ("<td bgcolor=white>&nbsp;</td>")
		next
	
		for i=1 to last_day 
			if Weekday(DateSerial(cur_year, cur_month, i)) = 1 then Response.Write ("<tr>")
			
			tmp_year  = CStr(cur_year)
			tmp_month = CStr(cur_month)
			tmp_day = CStr(i)
			if (len(tmp_month) = 1) then tmp_month = "0" + tmp_month
			if (len(tmp_day) = 1) then tmp_day = "0" + tmp_day
			DateStr = site_name & tmp_year & tmp_month & tmp_day
			EventStr = "Event" & tmp_year & tmp_month & tmp_day
%>
			<td width=14% cellspacing=0 cellpadding=0>
				<table border=0 width=100% bordercolor="black" cellpadding=0 cellspacing=0  bgcolor="#6A819B">
				<tr>
					<td valign=bottom align=center height=18><font color=white><%=cur_month%>岿 <%=i%>老</a>&nbsp;</td>
				<tr>
					<td align=center height=22><img src="http://61.78.55.11:8080/servlet/vCounter?id=<%=DateStr%>" width=90 height=20></td>
				</table>
			</td>
<%
			if Weekday(DateSerial(cur_year, cur_month, i)) = 7 then Response.Write ("</tr>")
		next

		for i=Weekday(DateSerial(cur_year, cur_month, last_day)) to 7-1
			Response.Write ("<td bgcolor=white>&nbsp;</td>")
		next

		if Weekday(DateSerial(sel_year, sel_month, last_day)) <> 7 then Response.Write ("</tr>")
%>
		</table>
	</td>
<tr>
	<td valign="top" colspan="2" align="right">
		<font size=2><br>
		泅犁鳖瘤 棍胶孤流 荤捞飘 捞侩磊荐(since 2002.12.17)</font> : <img src="http://61.78.55.11:8080/servlet/vCounter?id=BMTotal&length=8"></font><br>
  </tr>
</table>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明

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