[CMS]有关Cookies、Session、Application在CMS2里的正确使用方法
作者:cmscn 日期:2007-03-07
Cookies的使用方法
写入Cookies
Sub cookies_set(ByVal cookiesname As String, ByVal cookiesvar As Variant)
示例:call joekoe_cms.cookies_set("test","test word")
读取Cookies
Function cookies_get(ByVal cookiesname As String) As Variant
示例:teststr=joekoe_cms.cookies_get("test")
删除Cookies
Sub cookies_del(ByVal cookiesname As String)
示例:call joekoe_cms.cookies_del("test")
相关注意事项
在系统页面重定之前请使用如下语句:
call joekoe_cms.cookies_load()
Session的使用方法
写入Session
Sub session_set(ByVal sessionname As String, ByVal sessionvar As Variant)
示例:call joekoe_cms.session_set("test","test word")
读取Session
Function session_get(ByVal sessionname As String) As Variant
示例:teststr=joekoe_cms.session_get("test")
删除Session
Sub session_del(ByVal sessionname As String)
示例:call joekoe_cms.session_del("test")
Application的使用方法(缓存)
写入缓存
Sub cache_set(ByVal cachename As String, ByVal cachevar As Variant)
示例:call joekoe_cms.cache_set("test","test word")
读取缓存
Function cache_get(ByVal cachename As String) As Variant
示例:teststr=joekoe_cms.cache_get("test")
删除单个缓存
Sub cache_del(ByVal cachename As String)
示例:call joekoe_cms.cache_del("test")
删除一组缓存
Sub cache_delete(Optional ByVal cnv As String = "")
示例:
call joekoe_cms.cache_delete("forum_")
上面这一句将删除所有开头为“forum_”的缓存,如“forum_data”,“forum_tops”等
call joekoe_cms.cache_delete()
上面这一句将删除网站当前使用的所有缓存,在使用时请注意
判断缓存是否存在
Function is_cache(ByVal c_obj As String) as Boolean
示例:
if joekoe_cms.is_cache("forum_data") then
'缓存“forum_data”存在时的操作
else
'缓存“forum_data”不存在时的操作
end if
写入Cookies
Sub cookies_set(ByVal cookiesname As String, ByVal cookiesvar As Variant)
示例:call joekoe_cms.cookies_set("test","test word")
读取Cookies
Function cookies_get(ByVal cookiesname As String) As Variant
示例:teststr=joekoe_cms.cookies_get("test")
删除Cookies
Sub cookies_del(ByVal cookiesname As String)
示例:call joekoe_cms.cookies_del("test")
相关注意事项
在系统页面重定之前请使用如下语句:
call joekoe_cms.cookies_load()
Session的使用方法
写入Session
Sub session_set(ByVal sessionname As String, ByVal sessionvar As Variant)
示例:call joekoe_cms.session_set("test","test word")
读取Session
Function session_get(ByVal sessionname As String) As Variant
示例:teststr=joekoe_cms.session_get("test")
删除Session
Sub session_del(ByVal sessionname As String)
示例:call joekoe_cms.session_del("test")
Application的使用方法(缓存)
写入缓存
Sub cache_set(ByVal cachename As String, ByVal cachevar As Variant)
示例:call joekoe_cms.cache_set("test","test word")
读取缓存
Function cache_get(ByVal cachename As String) As Variant
示例:teststr=joekoe_cms.cache_get("test")
删除单个缓存
Sub cache_del(ByVal cachename As String)
示例:call joekoe_cms.cache_del("test")
删除一组缓存
Sub cache_delete(Optional ByVal cnv As String = "")
示例:
call joekoe_cms.cache_delete("forum_")
上面这一句将删除所有开头为“forum_”的缓存,如“forum_data”,“forum_tops”等
call joekoe_cms.cache_delete()
上面这一句将删除网站当前使用的所有缓存,在使用时请注意
判断缓存是否存在
Function is_cache(ByVal c_obj As String) as Boolean
示例:
if joekoe_cms.is_cache("forum_data") then
'缓存“forum_data”存在时的操作
else
'缓存“forum_data”不存在时的操作
end if
在首页添加精彩贴图和精彩FLASH统计
作者:cmscn 日期:2007-03-06
在index2.asp的sub main_left_data()里
dim num_paste,num_flash
sql="selec t count(id) from gallery where types='paste' and hidden=1"
set rs=joekoe_cms.exec(sql,1)
num_paste=rs(0)
rs.close
sql="selec t count(id) from gallery where types='flash' and hidden=1"
set rs=joekoe_cms.exec(sql,1)
num_flash=rs(0)
rs.close
dim num_paste,num_flash
sql="selec t count(id) from gallery where types='paste' and hidden=1"
set rs=joekoe_cms.exec(sql,1)
num_paste=rs(0)
rs.close
sql="selec t count(id) from gallery where types='flash' and hidden=1"
set rs=joekoe_cms.exec(sql,1)
num_flash=rs(0)
rs.close
隐型眼镜——并非人人都合适
作者:cmscn 日期:2007-03-05
隐型眼镜,顾名思义,妙在“隐型”。既有普通眼镜矫正视力的功能,又解除了框架眼镜带来的不便,所以戴隐型眼镜已俨然成为当今青少年的时尚。然而隐型眼镜并非对所有的需配镜者都适用,哪些人不宜戴隐型眼镜呢?
中小学生正处在生长发育旺盛时期,眼球视轴尚未定形,若过早或较长时间连续配戴隐型眼镜,易产生角膜缺氧和生理代谢障碍等副作用;镜片清洗消毒不严,则会继发感染;镜片曲径若与角膜不相适应,还会造成角膜磨损,上皮脱落,严重者会导致角膜溃疡或穿孔。因此,中小学生若没有特别必要,还是以戴框架眼镜为宜。
感冒患者手上往往带有大量病菌,它们很容易在取、戴隐型眼镜时进入眼中。此外,感冒常伴有轻微的视网膜炎症,戴隐型眼镜会使炎症加重。许多感冒、止咳和止痛药物中都含有抑制眼泪的成分。泪液分泌量减少会使隐型眼镜过于干燥、透明度降低,进而影响视力。
过敏患者有过敏症的人配戴隐型眼镜易引起的并发症有轻微炎症、眼睛瘙痒、红肿、结膜炎和眼睛肿胀等。如果这些病症长期不治疗,将可能危及到视力。过敏症者如必须配戴隐型眼镜,最好只在白天使用且每周至少有一天暂停使用。如果出现炎症,最好停止使用。如果2至3天后炎症仍未减轻,应立即到医院就诊。
青光眼、慢性泪囊炎、结膜炎、角膜溃疡、甲亢等疾病患者若已配有隐型眼镜,而眼睛正处在炎症期,要待炎症消失后再戴。
发烧患者发热时眼睛局部抵抗力下降,泪液分泌减少,枯草杆菌就会大量繁殖,使细菌的代谢产物沉积在角膜与镜片之间,造成隐型眼镜透氧性降低,角膜正常的代谢受到干扰,从而引起细菌性角膜溃疡。
骑车长途旅游者长距离骑车时,空气的对流加速,使软性隐型眼镜的水分减少,镜片逐渐干燥变硬,眼睛会感到不适,时间一长,变硬的镜片就会损伤角膜,引起眼睛疼痛或细菌感染。
40岁以后的人,眼部组织会发生比较明显的退行性变化。眼局部的抵抗力下降,特别是眼球耐受缺氧的能力下降,此时若在眼球表面戴上一层薄的镜片,会导致眼球缺氧,从而容易出现角膜感染、溃疡等并发症。40至60岁的中年人可以短时间戴隐型眼镜,60岁以上的老年人最好不要配戴隐型眼镜,否则容易引起严重的并发症,造成永久性视力损害。
中小学生正处在生长发育旺盛时期,眼球视轴尚未定形,若过早或较长时间连续配戴隐型眼镜,易产生角膜缺氧和生理代谢障碍等副作用;镜片清洗消毒不严,则会继发感染;镜片曲径若与角膜不相适应,还会造成角膜磨损,上皮脱落,严重者会导致角膜溃疡或穿孔。因此,中小学生若没有特别必要,还是以戴框架眼镜为宜。
感冒患者手上往往带有大量病菌,它们很容易在取、戴隐型眼镜时进入眼中。此外,感冒常伴有轻微的视网膜炎症,戴隐型眼镜会使炎症加重。许多感冒、止咳和止痛药物中都含有抑制眼泪的成分。泪液分泌量减少会使隐型眼镜过于干燥、透明度降低,进而影响视力。
过敏患者有过敏症的人配戴隐型眼镜易引起的并发症有轻微炎症、眼睛瘙痒、红肿、结膜炎和眼睛肿胀等。如果这些病症长期不治疗,将可能危及到视力。过敏症者如必须配戴隐型眼镜,最好只在白天使用且每周至少有一天暂停使用。如果出现炎症,最好停止使用。如果2至3天后炎症仍未减轻,应立即到医院就诊。
青光眼、慢性泪囊炎、结膜炎、角膜溃疡、甲亢等疾病患者若已配有隐型眼镜,而眼睛正处在炎症期,要待炎症消失后再戴。
发烧患者发热时眼睛局部抵抗力下降,泪液分泌减少,枯草杆菌就会大量繁殖,使细菌的代谢产物沉积在角膜与镜片之间,造成隐型眼镜透氧性降低,角膜正常的代谢受到干扰,从而引起细菌性角膜溃疡。
骑车长途旅游者长距离骑车时,空气的对流加速,使软性隐型眼镜的水分减少,镜片逐渐干燥变硬,眼睛会感到不适,时间一长,变硬的镜片就会损伤角膜,引起眼睛疼痛或细菌感染。
40岁以后的人,眼部组织会发生比较明显的退行性变化。眼局部的抵抗力下降,特别是眼球耐受缺氧的能力下降,此时若在眼球表面戴上一层薄的镜片,会导致眼球缺氧,从而容易出现角膜感染、溃疡等并发症。40至60岁的中年人可以短时间戴隐型眼镜,60岁以上的老年人最好不要配戴隐型眼镜,否则容易引起严重的并发症,造成永久性视力损害。
大学
作者:cmscn 日期:2007-03-05
中国数据代理价格
作者:cmscn 日期:2007-03-05
在线查询服务器上放了多少网站呢
作者:cmscn 日期:2007-02-27
隐藏我的电脑中的驱动器说明
作者:cmscn 日期:2007-02-26
隐藏我的电脑中的驱动器
隐藏所有驱动器:HKEY_CURRENT_USER/Software/Microsoft/
Windows/CurrentVersion/Policies/Explorer
在右边的窗口中创建一个DWORD值:“NoDrives”,并将其值设为“FFFFFFFF”;
隐藏E盘:HKEY_CURRENT_USER/Software/Microsoft/
Windows/CurrentVersion/Policies/Explorer
在右边的窗口中创建一个DWORD值:“NoDrives”,并将其值设为“10”;
隐藏D盘:HKEY_CURRENT_USER/Software/Microsoft/
Windows/CurrentVersion/Policies/Explorer
在右边的窗口中创建一个DWORD值:“NoDrives”,并将其值设为“8”;
隐藏C盘 :HKEY_CURRENT_USER/Software/Microsoft/
Windows/CurrentVersion/Policies/Explorer
在右边的窗口中创建一个DWORD值:“NoDrives”,并将其值设为“4”。
隐藏A盘 :HKEY_CURRENT_USER/Software/Microsoft/
Windows/CurrentVersion/Policies/Explorer
在右边的窗口中创建一个DWORD值:“NoDrives”,并将其值设为“1”。
隐藏指定驱动器
位 置:HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer
键值名:NoDrives
取 值:需要说明一下,在这里使用的是2的N次方来代表一个驱动器名称,而非寻常的A、B、C、D……,下面就给出各驱动器名与2的N次方的对应关系,以方便读者:A: 1, B: 2,C: 4, D: 8, E: 16, F: 32, G: 64,H: 128, I: 256,J: 512,K: 1024, L: 2048, M: 4096, N: 8192,O: 16384, P: 32768, Q:65536,R: 131072,S: 262144,T: 524288, U: 1048576, V: 2097152, W:4194304,X: 8388608, Y: 16777216, Z: 33554432按照上面的取值规则,如果你要隐藏A、B、C三个驱动器,输入7即可,因为7=1+2+4,如果你要隐藏所有驱动器,输入67108863。
隐藏所有驱动器:HKEY_CURRENT_USER/Software/Microsoft/
Windows/CurrentVersion/Policies/Explorer
在右边的窗口中创建一个DWORD值:“NoDrives”,并将其值设为“FFFFFFFF”;
隐藏E盘:HKEY_CURRENT_USER/Software/Microsoft/
Windows/CurrentVersion/Policies/Explorer
在右边的窗口中创建一个DWORD值:“NoDrives”,并将其值设为“10”;
隐藏D盘:HKEY_CURRENT_USER/Software/Microsoft/
Windows/CurrentVersion/Policies/Explorer
在右边的窗口中创建一个DWORD值:“NoDrives”,并将其值设为“8”;
隐藏C盘 :HKEY_CURRENT_USER/Software/Microsoft/
Windows/CurrentVersion/Policies/Explorer
在右边的窗口中创建一个DWORD值:“NoDrives”,并将其值设为“4”。
隐藏A盘 :HKEY_CURRENT_USER/Software/Microsoft/
Windows/CurrentVersion/Policies/Explorer
在右边的窗口中创建一个DWORD值:“NoDrives”,并将其值设为“1”。
隐藏指定驱动器
位 置:HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer
键值名:NoDrives
取 值:需要说明一下,在这里使用的是2的N次方来代表一个驱动器名称,而非寻常的A、B、C、D……,下面就给出各驱动器名与2的N次方的对应关系,以方便读者:A: 1, B: 2,C: 4, D: 8, E: 16, F: 32, G: 64,H: 128, I: 256,J: 512,K: 1024, L: 2048, M: 4096, N: 8192,O: 16384, P: 32768, Q:65536,R: 131072,S: 262144,T: 524288, U: 1048576, V: 2097152, W:4194304,X: 8388608, Y: 16777216, Z: 33554432按照上面的取值规则,如果你要隐藏A、B、C三个驱动器,输入7即可,因为7=1+2+4,如果你要隐藏所有驱动器,输入67108863。