停了好久 再次开通blog
2005年1月27日 上午 10:10 | 发布在:
分类:C.用心来写流水帐--diary | 已有348人阅读
0
感谢1stuido.net站长一豪提供空间
大家如果想买空间 可以选择这空间 很不错 很稳定
在网上查了一些装修失败的例子,为了避免一下,整理出一些问题,在签装修合同前要问好确定清楚 一、 设计 I.设计过程及内容 1、装修设计包括哪几个阶段? 初步方案阶段;扩初设计阶段;施工图设计阶段。 2、全套室内设计方案一般包括哪些内容? 平面布置方案图、天花布置方案图、主要立面方案图、开关插座布置图、照明配电控制图、墙体定位图、水电线路图、空调布置图、节点大样图等。 3、家装设计有哪些内容? 严格地说,也都应该包括上面所有内容。但不少公司打着免费设计的幌子,只出一张平面布置图就开工,实际上是对消费者不负责任。 II.设计过程中和设计合同相关问题 1、......
感谢1stuido.net站长一豪提供空间
大家如果想买空间 可以选择这空间 很不错 很稳定
有海光大兄弟 恭喜啊。。。。
| 编号 | BLOG名字 | BLOGGER | 特色介绍 |
| 1 | 吾音不全 | dsbym | 抓拍,是每一天的体操。我把工作上的事做完后,会按时把当天最喜欢的一张照片贴到blogcn上,如此一天一张地坚持,一年后,我很欣喜地看到自己还站在这里。【摄影日记 】 |
|
2 |
小猫YY |
很黑色的诗行,带着点点的忧伤,些许无奈。不知为什么,很喜欢,也许这和主页上的色调很搭配吧【文学日记 】 | |
| 3 | 在时光深处的一个转身 | silversofnon | 没有烟。没有咖啡。没有电脑。依旧丧失睡眠。回想在杭州这半年,各种抽烟的时候。【女性日记】 |
| 4 | 伊氏物语 | absoluteyi | 一个年轻而丰富的世界【少女日记】 |
| 5 | 丑女收容株式会社 |
xy404040424 |
一个男生的可爱而风趣的日记【男生日记】 |
| 6 | 追忆似水年华 | swinging | 技术人生,艺术【人生杂记】 |
| 7 | 性感活着 | sex2004 | 性感放诸于不同的女性身上,自会散放出不同的味道或产生异样的效果,这要看个人的修炬及其发放的形式是否高明或是否有意境。 最高境界及富美感的性感,是杀人于无形的“性感在骨子里”。【专题BLOG】 |
| 8 | 衣锦夜行/美好药店 | 吴藏花 | 他的小资是年轻而典型的【上海小资生活】 |
| 9 | 广告狂热者 | 何轩 | 一个广告迷的自白狂热研究广告 |
| 10 | 美女图片网 | 一博客 | 这个家伙除了看美女就是收集美女全面收集各类美女图片 |
| 11 | TREE IN ZHE WIND | 风中玉树 | 很丰富的音乐,很浪漫的影视网,供下载【视听博客】 |
| 12 | 心空居士的博客网 | 心空居士 | 人到中年,就多了些冷静与思考【杂文】 |
| 13 | 桃之夭夭的博客 | 桃之夭夭 | 有时候我们很需要生活的启示【生活随记】 |
| 14 | 第十个城市的偷窥照片 | 第十个 | 一种偷窥的心态是可以公开的,而且看上去很美【摄影日记】 |
| 15 | 海光制造 | 海光 | 美丽的音乐,美丽的动画,和一个多才多艺的站长【艺术日记】 |
| 16 | DANGER‘S BLOG | 邓 | 一堆酷站,专业,人气旺【闪客最经典BLOG】 |
| 17 | 子游的博客 | 子游 | |
| 18 | 练功的狗 | 洗澡淹死的鱼 | 【个性的BLOG】 |
| 19 | 猛小蛇的狗日报 | 猛小蛇 | “你不让我说人,那我说狗还不成”是该博客的格言,以黑色幽默的风格体现了狗的不同生存状态和生存条件——不论在东方还是在西方,乃“狗日报”获奖的最大理由。【2004年获得德国之声世界博客大赛全球唯一“最佳博客奖”。】 |
localconnection 通讯
'*******************************************************************
'取得IP地址
'*******************************************************************
Function Userip()
Dim GetClientIP
'如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法
GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then
'如果客户端没用代理,应该用Request.ServerVariables("REMOTE_ADDR")方法
GetClientIP = Request.ServerVariables("REMOTE_ADDR")
end if
Userip = GetClientIP
End function
'*******************************************************************
' 弹出对话框
'*******************************************************************
Sub alert(message)
message = replace(message,"'","\'")
Response.Write ("<script>alert('" & message & "')</script>")
End Sub
'*******************************************************************
' 返回上一页,一般用在判断信息提交是否完全之后
'*******************************************************************
Sub GoBack()
Response.write ("<script>history.go(-1)</script>")
End Sub
'*******************************************************************
' 重定向另外的连接
'*******************************************************************
Sub Go(url)
Response.write ("<script>location.href('" & url & "')</script>")
End Sub
'*******************************************************************
' 指定秒数重定向另外的连接
'*******************************************************************
sub GoPage(url,s)
s=s*1000
Response.Write "<SCRIPT LANGUAGE=JavaScript>"
Response.Write "window.setTimeout("&chr(34)&"window.navigate('"&url&"')"&chr(34)&","&s&")"
Response.Write "</script>"
end sub
'*******************************************************************
' 判断数字是否整形
'*******************************************************************
function isInteger(para)
on error resume next
dim str
dim l,i
if isNUll(para) then
isInteger=false
exit function
end if
str=cstr(para)
if trim(str)="" then
isInteger=false
exit function
end if
l=len(str)
for i=1 to l
if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
isInteger=false
exit function
end if
next
isInteger=true
if err.number<>0 then err.clear
end function
'*******************************************************************
' 获得文件扩展名
'*******************************************************************
function GetExtend(filename)
dim tmp
if filename<>"" then
tmp=mid(filename,instrrev(filename,".")+1,len(filename)-instrrev(filename,"."))
tmp=LCase(tmp)
if instr(1,tmp,"asp")>0 or instr(1,tmp,"php")>0 or instr(1,tmp,"php3")>0 or instr(1,tmp,"aspx")>0 then
getextend="txt"
else
getextend=tmp
end if
else
getextend=""
end if
end function
' *—————————————————————————-
' * 函数:CheckIn
' * 描述:检测参数是否有SQL危险字符
' * 参数:str要检测的数据
' * 返回:FALSE:安全 TRUE:不安全
' * 作者:
' * 日期:
' *—————————————————————————-
function CheckIn(str)
if instr(1,str,chr(39))>0 or instr(1,str,chr(34))>0 or instr(1,str,chr(59))>0 then
CheckIn=true
else
CheckIn=false
end if
end function
' *—————————————————————————-
' * 函数:HTMLEncode
' * 描述:过滤HTML代码
' * 参数:–
' * 返回:–
' * 作者:
' * 日期:
' *—————————————————————————-
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLEncode = fString
end if
end function
' *—————————————————————————-
' * 函数:HTMLcode
' * 描述:过滤表单字符
' * 参数:–
' * 返回:–
' * 作者:
' * 日期:
' *—————————————————————————-
function HTMLcode(fString)
if not isnull(fString) then
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(34), "")
fString = Replace(fString, CHR(10), "<BR>")
HTMLcode = fString
end if
end function
绿洲长岛花园
www.lzcdhy.com
绿洲比华利
www.thecountry.cn
五湖春茶庄
www.wuhuchun.com/
虹雨绿化
www.rain-bow.com.cn
赛达包装
www.saida.sh.cn/
松下电工
http://www.panasonic-sy.com
鄂尔多斯-竞标单
http://www.dodobig.com/design/erdos/1/
鄂尔多斯
http://www.dodobig.com/design/erdos/2/
瑞奇-竞标单
http://www.dodobig.com/design/ruiqi/
乐家洁具-竞标单
http://www.dodobig.com/design/roca/01/
乐家洁具-竞标单
http://www.dodobig.com/design/roca/02/
宝安大酒店-竞标单
http://www.dodobig.com/design/baoan/
志城集团
http://www.dodobig.com/design/zc