<!----建立数据库start
  Create Table Online
  (
  id varchar (25),--session.sessionid
  online int default(0), --0为访客,1为会员
  lasttime datetime,--最近活动时间
  username varchar (25),--会员用户名
  ip varchar (15),--访问者IP
  )
--建立..

<!----建立数据库start
  Create Table Online
  (
  id varchar (25),--session.sessionid
  online int default(0), --0为访客,1为会员
  lasttime datetime,--最近活动时间
  username varchar (25),--会员用户名
  ip varchar (15),--访问者IP
  )
--建立..

在ASP中使用 Request.ServerVariables("REMOTE_ADDR") 来取得客户端的IP地址，但如果客户端是使用代理服务器来访问，那取到的就是代理服务器的IP地址，而不是真正的客户端IP地址。要想透过代理服务器取得客户端的真实IP地址，就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。不过要..

<% For Each x In Request.Form %>
Request.Form("<%= x %>") = "<%= Request.Form(x) %>" <BR>
<% Next %>

'随机数字转化为A-J的字母 
Function  ChangeCode(id)
 ChangeCode=""
 For i=1 to len(id)
 ChangeCode = ChangeCode + chr(mid(id,i,1)+65)
 Next
End Function
msgbox ChangeCode(54352345),,"随机数字转化为A-J的字母"

把上边的存为changecode.vb..

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

可选项。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅&ldquo;设置&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..