把忧伤打磨成成册的拓片

作者:子渔  分类:流水淙淙  日期:2004-12-22  1 条评论

把忧伤打磨成成册的拓片,一集一集地镌刻进眉宇间起伏的坑洼。
可惜,时光也无法填平的欲望,尽数地洒落成一层浅浅的霜。
岁月呵,在呛人的凄凉下委婉地道出:来去繁华只为梦一场!

兴茂-龙庭别墅半岛画册文案

作者:子渔  分类:艺往无前  日期:2004-12-22  2 条评论

帮一朋友写的,开始感觉还不错,但写到后面就不是那回事了。自己感觉也是狗屎!并且,因为写得太八股(特别注明:其实这是客户自己的要求)所以被强奸了,呵呵。。。

楼盘名称:兴茂·龙庭别墅半岛
建筑形态:独立别墅辅以多层、联排别墅
旗帜广告语:临水当风,唯我龙庭
定位语:现代都市桃花源,超低密度豪华半岛家园,全江景美宅依山别墅群落,城市时尚名流精英社区。

主题词:

白领居家,卓尔不凡

跳出城市楼宇方寸之境,不拘泥于小小棋盘布局。万般馨香犹只为一隅,繁华若水,逝者如斯。咫尺天地已然诗情画意!

闹市寻幽,宁静处独享繁华

闲情逸志于临波江渚之上,鸦鸥涉水漫舞九天冥光。抬望眼,远处市区繁华缈若海市,谈笑间,近处烦忧散若过江烟霞,大隐若此当无憾先贤!

衔山吞江,王者独霸天地灵气

临水当风,观沧桑世事,数千帆过尽;鲲守龙庭,敛鳞光艳艳,逐万里波涛。浩气长生于此,王者稳钓江山! 更多内容 »

常用代码集锦(ASP-1)

作者:子渔  分类:艺往无前  日期:2004-12-22  2 条评论

显示页面加载时间
显示字符串前20个字符并在结尾处添加“……”
如果动态图片为空,使用默认图片代替
如果数据为空,使用默认提示信息代替

显示页面加载时间

页面顶部添加下面的代码:

<%
Dim strStartTime
Dim strEndTime

strStartTime = Timer ‘开始时间
%>

页面(同一页)的末尾添加:

<%
‘ 加载完毕的时间
strEndTime = Timer

Response.Write ("页面加载时间: ")

Response.Write Fo&#114;matNumber(strEndTime – strStartTime, 4)
Response.Write (" 秒.")
%>

重复域中的斑马线

<%
‘此模块放置在重复域之外
Dim Reco&#114;dCounter
Reco&#114;dcounter = 0
%>

<tr class =
<%
‘将重复域中第一个 <tr>标签的CLASS属性代码用本模块替换
‘本模块基于CSS来改变单元格背景色,你也可以直接设置背景色来实现斑马线
Reco&#114;dCounter = Reco&#114;dcounter + 1
If Reco&#114;dCounter Mod 2 = 1 Then
Response.Write "altRow1"
Else
Response.write "altRow2"
End If
%>

显示字符串前20个字符并在结尾处添加“……”

<%
Dim CutSho&#114;t
CutSho&#114;t = rsYourReco&#114;dset.Fields.Item("YourField").Value
Response.Write LEFT (CutSho&#114;t, 20) & "…….."
%>

如果动态图片为空,用默认图片代替

<%
Dim PicShow
PicShow = rsShowHide.Fields.Item("shMainPix").Value
IF PicShow <>"" THEN %>
<img src="<%=rsShowHide.Fields.Item("shMainPix").Value%>">
<% ELSE %>
<img src="StaticPic.gif">
<% End If %>

如果数据为空,用默认提示信息代替。

<%
Dim strShowHide
strShowHide = rsYourReco&#114;dset.Fields.Item("YourDataField").Value
IF stShowHide <>"" THEN%>
数据为空
<%END IF%>

今天上班时间没上班呵!

作者:子渔  分类:艺往无前  日期:2004-12-22  2 条评论

现在上班挺自在的,每天睡到大天亮才去上班,也没人管,而薪水又少,所以呀,我也就懒得去做了。不过,今天也算是白过了。想了一天,我就想着把这破Blog的界面给整出来,总不能什么都用人家的吧?可是没办法,想来起去就是没辙!

等等吧!等哪天心情好了再说了!

281 页,共 281 页« 首页...102030...277278279280281