判断生肖的ASP时间函数
<%
Function Zodiac(birth)
If IsDate(birth) Then
birthyear = Year(birthday)
ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊")
Zodiac = ZodiacList(birthyear Mod 12)
End If
End Function
%>
相关文档：
单位有一台闲置的旧 IBM Netfinity 7000 的服务器，双 Pentium Pro 200 MHz CPU，512 MB 内存，一个 9.1 GB 和五个 4.5 GB 的 SCSI 硬盘。我想将其废物利用一下，于是：
1. 到 http://tw.releases.ubuntu.com/edgy/ 下载 PC (Intel x86) server install CD ，将下载得到的 ubuntu-6.10-server-i386.iso 文件刻录一张 ......
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = false '不显示警告
'xlApp.Application = false ......
本机ip[客户端]:
request.servervariables("remote_addr")
从哪个页面转到当前页面的：
Request.ServerVariables("HTTP_REFERER")
得到本页地址：
<%="http://" + Request.ServerVariables("SERVER_NAME") + ":" + Request.ServerVariables("SERVER_PORT") + reques ......
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=F:\\ajaxpro\\App_Data\\server.mdb"
Dim StrSQL,RS
StrSQL="SELECT*from Manager WHERE ID='"&username&"'"
StrSQL=StrSQL&"AND Pin='"&passwor ......
'---------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>'当用户登录时可以执行then
<script>
function checkAll(){
&nbs ......
