怎么把日期修改成今天2009-12-12,
'站点统计代码
IF Session("GuestIP")<>Guest_IP Then
Dim Guest_Agent,Guest_Refer
Guest_Agent=Trim(Request.ServerVariables("HTTP_USER_AGENT"))
Guest_Refer=Trim(Request.ServerVariables("HTTP_REFERER"))
Conn.ExeCute("INSERT INTO blog_Counter(coun_IP,coun_Agent,coun_Refer) VALUES ('"&Guest_IP&"','"&Guest_Agent&"','"&Guest_Refer&"')")
Conn.ExeCute("UPDATe blog_Info SET blog_VisitNums=blog_VisitNums+1")
SQLQueryNums=SQLQueryNums+2
Session("GuestIP")=Guest_IP
End IF
Dim memName,memPassword,memStatus
memName=CheckStr(Request.Cookies(CookieName)("memName"))
memPassword=CheckStr(Request.Cookies(CookieName)("memPassword"))
memStatus=CheckStr(Request.Cookies(CookieName)("memStatus"))
IF memName<>Empty Then
Dim CheckCookie
Set CheckCookie=Server.CreateObject("ADODB.RecordSet")
SQL="SELECT mem_Name,mem_Password,mem_Status,mem_LastIP FROM blog_Member WHERe mem_Name='"&memName&"' AND mem_Password='"&memPassword&"' AND mem_Status='"&memStatus&"'"
CheckCookie.Open SQL,Conn,1,1
SQLQueryNums=SQLQueryNums+1
If CheckCookie.EOF AND CheckCookie.BOF Then
Response.Cookies(CookieName)("memName")=""
memName=Empty
Response.Cookies(CookieName)("memPassword")=""
memPassword=Empty
Response.Cookies(CookieName)("memStatus")=""
memStatus=Empty
Else
If CheckCookie("mem_LastIP")<>Guest_IP Or isNull(CheckCookie("mem_LastIP")) Then
Response.Cookies(CookieName)("memName")=""
memName=Empty
Response.Cookies(CookieName)("memPassword")=""
memPassword=Empty
Response.Cookies(CookieName)("memStatus")=""
memStatus=Empty
End If
End IF
CheckCookie.Close
Set CheckCookie=Nothing
Else
Response.Cookies(CookieName)("memName")=""
memName=Empty
Response.Cookies(CookieName)("memPassword")=""
memPassword=Empty
Response.Cookies(CookieName)("memStatus")=""
memStatus=Empty
End IF
dim ViewStyle,ListMode
View01")("ViewStyle")
ListMode=Request.Cookies(CookieName&"01")("ListMode")
if View or ListMode="" then
Response.Cookies(CookieName&"01")("ViewStyle")=Default_style
Response.Cookies(CookieName&"01")("ListMode")=Default_ListMode
Response.Cookies(CookieName&"01").Expires=date+365
Viewresponse.write "<div font: 14px"" align=center><BR><BR><BR><B>访问本BLOG需要COOKIES支持,否则可能无法正常访问</B><BR><BR>请稍待,程序正在转入Blog首页中......<BR><BR></div><meta http-equiv='refresh' content='3;URL=default.asp'><BR>"
'Response.End
end if