Function NumRand(n) '生成n位随机数字
  For i=1 to n
    Randomize
    temp = cint(9*Rnd)
    temp = temp + 48
    NumRand = NumRand & chr(temp)
  Next
End Function



Function LCharRand(n) '生成n位随机小写..

DateDiff 函数
返回两个日期之间的时间间隔。 

DateDiff(

DateDiff
参数
interval

必选项。String expression

date1, date2

必选项。日期表达式。用于计算的两个日期。

Firstdayofweek

可选项。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置&rdqu..

'金钱转换.12;-.12==>0.12;-0.12
Function MoneyChange(str)
if instr(str,".")=1 then
 str="0"&str
elseif instr(str,".")=2 then
 str="-0"&mid(str,2)
end if
 MoneyChange=str
End Function
MsgBox MoneyChange(.12),65,"i..

1、ExpiresAbsolute属性
　　该属性可以赋一个日期，过了这个日期Cookie就不能再被使用了。通过给Expires属性赋一个过期的日期，就可以删除Cookie。如：
 
2、Domain属性
　　该属性定义Cookie要传送的唯一域。如：Cookie只传送给Microsoft的人，则可以使用以下代码。


 设定cookie过期时间为60天r..

DateAdd 函数
返回已添加指定时间间隔的日期。 

DateAdd(
参数
interval

必选项。字符串表达式

number

必选项。数值表达式

date

必选项。Variant
设置
interval
                          设置             描述                               yyyy             年                ..

采用的版本: ewebeditor version 2.8  aspjpeg V1.3

支持添加不同的水印.

相关代码如下:

要修改的页面

eWebeditor目录下 \Dialog\img.htm

注:蓝色的部分为修改和添加的代码.

第256行开始: 

<legend>显示效果</legend>
 <table border=0 cellpadding=0 cellspacing=..

主要用一个函数就可以解决了，如下：


'----------------------------------
'创建预览图片及打水印:call CreateView(文件的路径,要添加的水印图片文件)
'Design by Seven (See7di@Gmail.com)

Function CreateView(imagename,img,inttype)
Dim Object,objFont,Obj,LogoPath,sWidth,sHeight
sWidth = Lo..

'***********************************************
'永法修改版
'函数名：SetPage;PrintPage
'作  用：分页函数
'应用:
'rs.open之后写上setpage(rs,pagecount,20)   
'For循环里记得写上
'<%
'rs.movenext
'if i>rs.PageSize then exit for 
'next
'%>
'循环完后表格外写..

<!--#include file="../conn.asp"--><!--#include file="../function/function.asp"-->
<%if session("username")="" then response.Redirect "Admin_Index.asp"%>
<link href="css.css" rel="stylesheet" type="tex..

历史后退无法对跳转到本页的跳转进行判断 

asp response.redirect

在一个网页内操作后用 response.redirect又跳转到本页，则浏览器的后退不会起作用。

聊天记录

11111111111步惊云㊣.net 15:29:55
在更改购物车内物品数量时，如果用call，那<# href ="javascript:history.go(-1)">返回&l..

'****************************************************

'过程名：strtype

'作  用：测试时显示变量的类型,(主要使用到的是vartype)

'参  数：str 

'****************************************************

Function strtype(str)

 str1=vartype(str)

  Select  Case str1

 ..

<select name="Animal" id="Animal">
  <option selected value="">==请选择==</option>
  <option value="鼠">鼠</option>
  <option value="牛">牛</option>
  <option value="虎&quo..

<select name="constellation">
  <option value="">-请选择-</option>
  <option value="白羊座">白羊座(3/21--4/20)</option>
  <option value="金牛座">金牛座(4/21--5/20)</option>
  <option valu..

<%sub fsojs()%>
 <%
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("../category.js"),true)

'开始操作
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from dept_category&..

server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))

server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))

if  mid(server_v1,8,len(server_v2))<>server_v2  then

response.write "<script>alert('警告！你正在从外部提交数据！！请立即终止！！\n你的..