现在是凌晨3点，弄了将近8个小时，才把新的主题应用上去，这个主题用的Red Evolution的模板，采用了jquery,不过原版在ie7.0下报一个脚本错误，看了很长时间的源代码，鼓捣了好一会，jquery最基本的原理是看明白了，更高兴的是脚本错误的问题也解决了。现在在ie7.0和firefox3.0下面都没有问题，手头没有ie6.0和firefox2.0改天测测。而且现在完全做到了在虚拟机的ubuntu下建lamp环境测试网站程序，有空再把源代码svn也整上去，爽！！

by the way,以后要好好学习jquery了，争取能用到以后的项目中。

糖糖在蓬莱极地海洋世界的照片

最近网站要上线，在部署项目环境时碰到了问题，简单记录一下

域控制器+数据库服务器  域名local
               window 2003  sp2
               sql server 2000 sp4     windows 认证

web服务器
               window 2003 sp2
               iis6   允许匿名登录  
               asp.net 1.1  系统网站  要求允许internet访问
               web.config  impersonate=false   authentication mode=”Forms”

连接采用 Intergrated Security=true(即Trusted Connection=true)
问题1：碰到no authority/network service(iis5下为 no authority/aspnet)
解决方案：网上搜了一下，要在sql server上添加network service相应的权限，可是在sql server上找了一圈也没有发现，后来找到了老外的一个帖子Installing SQL Server on a domain controller，大体意思就是不推荐把sql server安装到域控制器上，可能会导致帐户的权限等。

于是做了更改
数据库服务器
               window 2003  sp2
               sql server 2000 sp4     windows 认证

域控制器+web服务器   域名local
               window 2003 sp2
               iis6   允许匿名登录  
               asp.net 1.1  系统网站  要求允许internet访问
               web.config  impersonate=false   authentication mode=”Forms”

把域服务器安装到web服务器上,这个时候能够在sql server添加 local\Network Service 帐号，并且设置对具体数据库的权限。不过浏览页面的时候报 用户 ‘LOCAL\WIN03$’ 登录失败，WIN03是我这里web服务器的机器名。
从网上查了一下
如果IIS启用了匿名访问
  1 如果asp.net应用程序启用模仿，则用IUSR_machinename发出请求
  2 如果asp.net应用程序未启用模仿，则用特定的ASP.NET进程帐户发出请求
所以将impersonate设为true,另外之前已经设置了IUSR_machinname(就是Network Service)在Sql Server的用户权限，页面能够正常浏览。
还要注意的是，如果启用了模仿，但IUSR_machinname在Sql Server中没有相应权限，会报用户 ‘LOCAL\IUSER_WIN03′ 登录失败错误。

最后如果正在运行 Windows Server 2003，其中的 IIS 6.0 配置为运行在辅助进程隔离模式下（默认情况），则可通过将 ASP.NET 应用程序配置为在自定义应用程序池（在特定的域标识下运行）中运行来避免模拟。然后，可以使用指定的域标识访问资源而无需使用模拟。

补充:
今天从网上看到说不建议使用impersonate，可能会导致应用程序池工作不正常，于是尝试将impersonate设置为false,此时报用户 ‘LOCAL\WIN03$’ 登录失败，可以在sql server中添加local\win03$用户权限，在虚拟机上测试能够正常访问。明天在服务器环境试一下。

今天在服务器环境下测试,发现外网用户不能访问(始终弹出用户名密码的登录对话框),在网上找到这样一段话

使用   Windows   集成安全性。此选择将用户的凭据传递到   SQL   Server。由于委托问题，这样做是切实可行的，条件是   SQL   Server   和   IIS   位于同一台计算机上，而且用户必须与   Web   服务器计算机位于同一域中。

看来,不使用模仿是无法解决这个问题的,但我有不想使用模仿,不知道还有没有其他办法.

郁闷，最近项目有点紧，不停得coding,连续一个多周都是1点多睡觉，明天还要给几个客户发个稳定的客户端，今天晚上又不知道几点睡。

偶然间翻出来在海南旅游的照片，贴几张看看

p.s 最近特别喜欢听王若琳的歌，感觉她的声音比较独特，慵懒但不失清新的曲风，陶醉ing

最近有个工作需要把老师的课时量按要求统计一下，内容很简单，但都是重复工作，要求G列后增加一列并将周课时*周数的结果填入这一列，总共有两张表，每张表有40多个Sheet。

我这个人比较懒，不愿手动处理，写了一个宏程序

代码如下

 Sub macro1()
 
'循环所有的sheet表
Dim a, b As Integer
b = Worksheets.Count
For a = 2 To b
'去掉写保护(这里所有的sheet都做了写保护)
Worksheets(a).Unprotect
 
'选中某一个sheet
Worksheets(a).Select
 
'先选中已经合并了的单元格
Range("A1:N1").Select
With Selection
'将合并的单元格拆分，否则无法插入新列
Selection.UnMerge
Range("A10:J10").Select
Selection.UnMerge
Range("A16:J16").Select
Selection.UnMerge
Range("A22:J22").Select
Selection.UnMerge
Range("A28:J28").Select
Selection.UnMerge
Range("c29:h29").Select
Selection.UnMerge
Range("i29:m29").Select
Selection.UnMerge
 
'在h列后插入新列
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
End With
 
'将新增的h列加入公式
'具体的逻辑是只要f列和g列不为空，将h列的公式设置为f列*g列
Dim i, j As Integer
i = 5
While i <= 40
Range("f1", "g40").Select
With Selection
If Cells(i, 6) < > 0 And Cells(i, 7) < > 0 Then
    Cells(i, 8).FormulaR1C1 = "=RC[-2]*RC[-1]"
End If
 
i = i + 1
End With
Wend
 
Next
 
End Sub

图一：应用前（点击放大)
图二：应用后