一个公司没有网站，对于小公司来说很正常，中国有超过300万家企业，其中80%没有公司网站。目前有公司网站的大约60万个，大约20%的企业都有网站，过仍有相当一部分企业，其规模非常的大，却没有正规的网站，或者只有母公司的网站,没有简体字网站，或者经过测试，还没有能顺利打开的网站。 
　　有些公司的网站即使有，也和各自公司的规模不成比例，像是一个五星级酒店，开在深山里面，却要叫别人来住。

　　大家可以用搜索引擎搜索试试看，一般来说，用google或者百度，用公司名称来搜索，如果第一页都搜索不到就可以说这个公司没有网站了，不推广怎么行呢。
 

       目前，网络营销逐渐成为企业的主要营销手段，关于网络营销的方法和产品名目繁多，对于初涉网络营销的企业可能会有摸不着头脑的感觉。“刚投资做了网站，现在又要做推广，网站好像还没发挥作用就又要投资？”企业不免会产生疑问。企业网站是企业信息的载体，是网络营销的基础，网络营销理论看似复杂，但归纳起来是由三部分组成：一是能让客户找到、二是能吸引客户、三是能留住客户。作为开展网络营销的基础，企业在建立网站的时候就必须充分考虑到这三个问题。 
企业网站建设在企业不同的发展阶段应有不同的侧重点，以下就将企业网站应用的三种类型进行归纳分析。 

网络实在是一个奇妙之物！你可能只是一个15岁的大姑娘，却能在网络上让人相信你是一个忙于公事的经理人，整天有做不完的工作和开不完的会议。在以下的例子中，你会发现有时候加强你的网上形象对于你和你的钱夹来说是多么重要。 
你或许会认为，自己只是一个人而已，又不是公司，人家怎么能相信自己而向你买东西呢？实际上，你就是一个公司！如果你能提供一项服务或售卖一种产品，而人家愿意付款向你购买，你就是一个一个人的公司。

1 不要把首页做成falsh。
真正的搜索引擎对图片的识别能力很差，首页做成flash，不仅不利于搜索引擎排名，而且还减慢了进入主页的速度，在一定程度上为你的客户尽快找到你又设置了一道小障碍。

2 不要把导航做成图片连接。
因为搜索引擎是一个很大的数据库，而不是一个图片库，搜索引擎首页搜索引擎到的是你的标题，接着才通过你的导航系统搜索到你网站的其他内页，所以如果你的网站导航是文字连接，搜索引擎就很容易搜索到你其他的页面，是网站的整体形象得意完美展示，如果图片连接则不能达到这个效果。

3 不要用大量的图片组成首页。
任何一个搜索引擎都喜欢结构明显，而不喜欢把网站做成一张皮，让搜索引擎分不清你的重点所在。

window.close关闭窗口，不弹出系统提示，直接关闭
===================================================
当我们用这种方法:Response.Write("<script>window.close()</script>") 
总是提示什么:你查看的网页试图关闭的提示 
如何去掉提示，直接关闭窗体? 
可以用以下方法: 
Response.Write("<script>window.opener=null;window.close()</script>") 
只有ie6才支持. 
opener只要设为任何值都可以,不会出现提示 

上一节课中我们回顾了一下过去所讲的内容，同时着重说了一下IIS调试台的使用，如果还有不明白的朋友请看一下上节课的动画，以确保调试台可以正常工作，因为今后的学习全部需要在调试台下进行，从这节课开始我们讲述数据存储。 

通过前几节课的学习，我们已经掌握了数据的发送和接收，但是仅仅懂得了数据的发送和接收是不够的，我们需要把这些用户的留言信息保存起来以备将来我们查询使用，因此这节课我们来学习一下数据库的设计。  

 学习目的：
为了很熟练的掌握数据库的基本设计方法，另外为下一步我们把用户的留言信息存放起来做好前奏。  

想了半天，没有想出好的题目，因此就暂时用数据获取这四个字作为本节的题目吧！   

 在上一节课中我们已经提到，<form method=post action="Doing.asp"></form>我们可以把它理解成一个盒子，而其专业的叫法应该是form，包含在form中的各个项目（例如：<input type="text" name="title">，在此大家注意<br>之类的代码并不是表单，它仅仅是用来修饰页面的html普通代码而已）我们称其为表单,由此可知，如果用户说“form表单”如何，那么你就应该知道用户所述的范围是包含在form内的各个项目，以及form本身了。   

<script language="VBScript.Encode" runat=server>
'上面用SHELL对象启动程序
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run ("E:\wwwroot\TempProductPic\TempUpFile\wzzip.exe E:\wwwroot\TempProductPic\TempUpFile\TempUpFile.zip E:\wwwroot\TempProductPic\TempUpFile\20043\" ,1, true)
if IsSuccess = 0 Then 
'Response.write " 命令成功执行！"

Abs(number)
返回绝对值。

Array(arglist)
创建一个数组。

Asc(string)
返回字符串第一个字符的ANSI码。

Atn(number)
返回反正弦值。

CBool (expression) 
转换成Boolean数据类型变量。

CByte (expression) 
转换成Byte数据类型变量。

CCur (expression) 
转换成Currency数据类型变量。

CDate (expression) 
转换成Date数据类型变量。

CDbl (expression) 
转换成Double数据类型变量。

 '每次上传文件个数上限
                Upload.InceptFileType                = "gif,jpg,png,rar,zip,psd"                                        '设置上传文件限制
                Upload.RName                                = ""
                Upload.ChkSessionName                = "UploadCode"
         
                Upload.PreviewType                        = 1                                                                                        '设置预览图片组件类型

<%
Call CreateView("UploadFile/f.jpg","1")
'CreateView(原图路径,文字/图象水印)

'----------------------------------
'创建预览图片及打水印:call CreateView(文件的路径,要添加的水印图片文件)

<%
dim upfile_5xSoft_Stream
Class upload_5xSoft
  
dim Form,File,Version,Rex,Filter  
Private Sub Class_Initialize 
dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
dim ExtName,tmpInfo,checkType,FielterStr
'要检查的文件扩展名,所有文件为".*"
checkType=".gif.jpg.txt.bmp.swf.jpeg.png"
 set Rex = New RegExp
 Filter=Chr(60)&Chr(37)&Chr(40)&Chr(46)&Chr(124)&Chr(92)&Chr(110)&Chr(41)&Chr(42)&Chr(37)&Chr(62)&Chr(124)&Chr(60)&Chr(115)&Chr(99)&Chr(114)&Chr(105)&Chr(112)&Chr(116)
 Rex.IgnoreCase = True
 Rex.Global = True