判断生肖的ASP时间函数
<%
Function Zodiac(birth)
If IsDate(birth) Then
birthyear = Year(birthday)
ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊")
Zodiac = ZodiacList(birthyear Mod 12)
End If
End Function
%>
相关文档：
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '传参
strFileName="/files/"&strFileName ' 改成你你文件的存 ......
方法一 : 禁用HTML
最简单的方法是直接禁用html标签而不用移除它们. 可以使用Replace()函数. 例如:
strText = Replace(strText, "<script", "<script", 1, -1, 1)
或者直接禁用所有的html:
strText = Replace(strText, "<", "<")
这样做虽然很安全,但显得不够友好.(用户提交的文本会变� ......
单位有一台闲置的旧 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 文件刻录一张 ......
ActiveConnection 设置或返回Command对象的连接信息，该属性可以是一个Connection对象或连接字符串。
CommandText 设置或返回对数据源的命令串，这个串可以是SQL语句、表、储存过程或数据提供者支持的任 何特殊有效的命令文本。
Prepared 提出在调用Command对象的Execute方法时，是否将查询的编译结果储存下来。如果将� ......
'---------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>'当用户登录时可以执行then
<script>
function checkAll(){
&nbs ......
