100个asp实例-记录上次访问时间(11-15)-洛阳设计·中国-ASP@中国-洛阳地区最大的ASP交流中心-Http://www.guobar.com

100个asp实例-记录上次访问时间(11-15)

来源：半月设计发布人：GuoBar 发布时间：2005-8-5 8:16:12 人气：所属栏目：ASP研究-ASP

11.显示上次访问时间

<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
      'Cookies通过HTTP Headers来从服务器端返回到浏览器上.
      '在发送Cookies之前,不能向浏览器端发送任何数据.
      Response.Expires = 0
      '从Cookie中取出上一次访问的日期和时间
      Dim LastVisit
      LastVisit = Request.Cookies("LastVisitCookie")
      Response.Cookies("LastVisitCookie") = FormatDateTime(NOW)
%>
<HTML>
     <HEAD>
           <TITLE>上次访问时间</TITLE>
     </HEAD>
     <BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
     <FONT SIZE="4" FACE="ARIAL, HELVETICA">
     <B>使用Cookies</B></FONT><BR>
         <HR SIZE="1" COLOR="#000000">
           <%
                If (LastVisit = "") Then
                     '如果Cookie从未被写过,则用户是第一次访问本页
                     Response.Write("欢迎光临本页")
                Else
                     '显示上一次访问日期及时间
                     Response.Write("你上一次访问本页在" + LastVisit)
                End If
           %>
           <P><A HREF="LastVisit.asp">重新访问本页</A>
      </BODY>
</HTML>

12.颜色效果显示

<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
Dim bgcolor, textcolor
'bgcolor 背景颜色
'textcolor 字体颜色
' 从Form表单中取得变量信息
bgcolor = Request.Form("bg_red") & Request.Form("bg_green") & Request.Form("bg_blue")
textcolor = Request.Form("text_red") & Request.Form("text_green") & Request.Form("text_blue")
If len(bgcolor) = 6 Then
    bgcolor = " BGCOLOR=#" & bgcolor
Else
    bgcolor = ""
End If
If len(textcolor) = 6 Then
    textcolor = " COLOR=#" & textcolor
Else
    textcolor = ""
End If
%>
<TABLE BORDER="1" CELLSPACING="3" CELLPADDING="5"<%= bgcolor %>>
    <TR>
      <TD VALIGN="CENTER"><STRONG>
      <FONT SIZE="6"<%= textcolor %>>你喜欢哪种颜色</FONT></STRONG></TD>
   </TR>
</TABLE>
<FORM ACTION="colors.asp" METHOD="POST">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="3">
<TR>
<TD> </TD>
<TD ALIGN="center">红</TD>
<TD ALIGN="center">绿</TD>
<TD ALIGN="center">蓝</TD>
</TR>
<TR>
<TD>背景颜色:</TD>
<TD>
<select NAME="bg_red">
<OPTION><%= Request.Form("bg_red") %></OPTION>
<OPTION>00</OPTION>
<OPTION>33</OPTION>
<OPTION>66</OPTION>
<OPTION>99</OPTION>
<OPTION>CC</OPTION>
<OPTION>FF</OPTION>
</select>
</TD>
<TD>
<select NAME="bg_green">
<OPTION><%= Request.Form("bg_green") %></OPTION>
<OPTION>00</OPTION>
<OPTION>33</OPTION>
<OPTION>66</OPTION>
<OPTION>99</OPTION>
<OPTION>CC</OPTION>
<OPTION>FF</OPTION>
</select>
</TD>
<TD>
<select NAME="bg_blue">
<OPTION><%= Request.Form("bg_blue") %></OPTION>
<OPTION>00</OPTION>
<OPTION>33</OPTION>
<OPTION>66</OPTION>
<OPTION>99</OPTION>
<OPTION>CC</OPTION>
<OPTION>FF</OPTION>
</select>
</TD>
</TR>
<TR>
<TD>字体颜色:</TD>
<TD>
<select NAME="text_red">
<OPTION><%= Request.Form("text_red") %></OPTION>
<OPTION>00</OPTION>
<OPTION>33</OPTION>
<OPTION>66</OPTION>
<OPTION>99</OPTION>
<OPTION>CC</OPTION>
<OPTION>FF</OPTION>
</select>
</TD>
<TD>
<select NAME="text_green">
<OPTION><%= Request.Form("text_green") %></OPTION>
<OPTION>00</OPTION>
<OPTION>33</OPTION>
<OPTION>66</OPTION>
<OPTION>99</OPTION>
<OPTION>CC</OPTION>
<OPTION>FF</OPTION>
</select>
</TD>
<TD>
<select NAME="text_blue">
<OPTION><%= Request.Form("text_blue") %></OPTION>
<OPTION>00</OPTION>
<OPTION>33</OPTION>
<OPTION>66</OPTION>
<OPTION>99</OPTION>
<OPTION>CC</OPTION>
<OPTION>FF</OPTION>
</select>
</TD>
</TR>
</TABLE>
<INPUT TYPE="submit" VALUE="显示效果">
</FORM>

13.显示服务器变量

<%@ Language=VBScript %>
<%
Option Explicit
Dim Sv
%>
<HTML>
<Head><title>显示服务器变量</title></Head>
<BODY>
<table colspan=8 cellpadding=5 border=0>
<tr>
<td align=CENTER bgcolor="#800000" width=20%> <font style="ARIAL NARROW" color="#ffffff" size="2">环境变量名</font></td>
<td align=CENTER width=80% bgcolor="#800000"> <font style="ARIAL NARROW" color="#ffffff" size="2">结果</font></td>
</tr>
<%
WITH Response
for each Sv In Request.ServerVariables
.Write "<tr>"
.Write "<td bgcolor='f7efde' align=CENTER> <font style='ARIAL NARROW' size='2'>"
.Write Sv
.Write "</font></td>"
.Write "<td bgcolor='f7efde' align=CENTER> <font style='ARIAL NARROW' size='2'>"
.Write Request.ServerVariables(Sv)
.Write "</font></td></tr>"
next
END WITH
%>
</table>
</BODY>
</HTML>

14.生成柱状图

<HTML>
<TITLE>
柱状图
</TITLE>
<BODY>
<SCRIPT LANGUAGE="VBScript" RUNAT="SERVER">
function MakeColumn(title, numarray, labelarray, maxheight, maxwidth)

dim ColumnString
dim max
dim maxlength
dim tempnumarray
dim templabelarray
dim heightarray
Dim colorarray
Dim multiplier

if maxheight > 0 and maxwidth > 0 and ubound(labelarray) = ubound(numarray) then
colorarray = array("red","blue","yellow","navy","orange","purple","green")
templabelarray = labelarray
tempnumarray = numarray
heightarray = array()
max = 0
maxlength = 0
ColumnString = "<TABLE bgcolor='gold' border='6'><tr><td><TABLE border='0' cellspacing='1' cellpadding='0'>" & vbCrLf
for each stuff in tempnumarray
   if stuff > max then max = stuff end if
next
multiplier = maxheight/max
for counter = 0 to ubound(tempnumarray)
   if tempnumarray(counter) = max then
    redim preserve heightarray(counter)
    heightarray(counter) = maxheight
   else
    redim preserve heightarray(counter)
    heightarray(counter) = tempnumarray(counter) * multiplier
   end if
next

ColumnString = ColumnString & "<TR><TH colspan='" & ubound(tempnumarray)+1 & "'>" & _
     "<FONT SIZE='1'><U>" & title & "</TH></TR>" & vbCrLf & "<TR>" & vbCrLf
   for counter = 0 to ubound(tempnumarray)
    ColumnString = ColumnString & vbTab & "<TD valign='bottom' align='center' >" & _
    "<FONT SIZE='1'><table border='0' cellpadding='0' width='" & maxwidth & "'><tr><tr><td valign='bottom' bgcolor='"
    ColumnString = ColumnString & colorarray(counter mod (ubound(colorarray)+1))
    ColumnString = ColumnString & "' height='" & round(heightarray(counter),2) & "'></td></tr></table>"
    ColumnString = ColumnString & "<BR>" & tempnumarray(counter)
    ColumnString = ColumnString & "</TD>" & vbCrLf
   next

ColumnString = ColumnString & "</TR>" & vbCrLf

for each stuff in labelarray
   if len(stuff) >= maxlength then maxlength = len(stuff)
next

for each stuff in labelarray
   ColumnString = ColumnString & vbTab & "<TD align='center'><FONT SIZE='1'><B> "
   for count = 0 to round((maxlength - len(stuff))/2)
    ColumnString = ColumnString & " "
   next
   if maxlength mod 2 <> 0 then ColumnString = ColumnString & " "
   ColumnString = ColumnString & stuff
   for count = 0 to round((maxlength - len(stuff))/2)
    ColumnString = ColumnString & " "
   next
   ColumnString = ColumnString & " </TD>" & vbCrLf
next

ColumnString = ColumnString & "</TABLE></td></tr></table>" & vbCrLf
MakeColumn = ColumnString
else
Response.Write "柱状图函数参数有错"
end if
end function

dim stuff
dim labelstuff

stuff = Array(72,39,60,42)
labelstuff = Array("北京", "上海","广州","重庆")
Response.Write MakeColumn("演示", stuff, labelstuff, 150,30)

</SCRIPT>
</BODY>
</HTML>

15.树形结构

<%@ Language=VBScript %>
<%Option Explicit%>
<%
Dim items(10,2), maxItems
maxItems = 9
items(0,0) = "节点 1"
items(1,0) = "节点 1"
items(2,0) = "节点 1"
items(3,0) = "节点 2"
items(4,0) = "节点 2"
items(5,0) = "节点 2"
items(6,0) = "节点 3"
items(7,0) = "节点 3"
items(8,0) = "节点 3"
items(9,0) = "节点 3"

items(0,1) = "子节点 1.1"
items(1,1) = "子节点 1.2"
items(2,1) = "子节点 1.3"
items(3,1) = "子节点 2.1"
items(4,1) = "子节点 2.2"
items(5,1) = "子节点 2.3"
items(6,1) = "子节点 3.1"
items(7,1) = "子节点 3.2"
items(8,1) = "子节点 3.3"
items(9,1) = "子节点 3.4"
%>

<%
Dim index,currentItem, openItem
openItem = Request.QueryString("open")
%>
<HTML>
<HEAD>
<TITLE>ASP提纲</TITLE>
</HEAD>
<BODY>
<h2>ASP提纲</h2>
<UL>

<%
  index = 0
  Do while index <= maxItems
   if items(index,0) <> currentItem then
    If items(index,0) <> openItem then _
     Response.Write("<a href='outline.asp?open=" & _
     Server.URLEncode( items(index,0) ) & "'>" )
     Response.Write( "<LI>" & items(index,0) & "</a>" )
    End If

    currentItem = items(index,0)
    If items(index,0) = openItem then
     Response.Write("<UL>")
     Do While index <= maxItems AND items(index,0) = openItem
      Response.Write( "<LI>" & items(index,1) )
      index = index + 1
     Loop
     Response.Write("</UL>")
    End If
   index = index + 1
  Loop
%>
</UL>
</BODY>
</HTML>

生成时间:2006-5-27 9:01:18