cnfgg的个人主页

在线批量修改Access数据库的ASP代码

2011-07-21T16:06:13+08:00

在asp网站设计时，总需要批量修改数据库中的一些内容，所以这个代码很实用。

复制内容到剪贴板程序代码

1.<%这里加入你网站管理员的验证信息%>
2.数据库批量修改
3.
4.
5.
68.
74.
80.
81.
82.
83.
84.
85.
86.<% sub Sysmsg(msgtitle,msginfo) %>
87.

88.
89.
90.
91.
92.
93.
94.
95.
96.
97.

<%= msgtitle %>

<%= msginfo %>

<< 返回上一页

98.<% end sub %>
99.<%
100.function checkStr(str)
101.    if isnull(str) then
102.        checkStr = ""
103.        exit function
104.    end if
105.    checkStr=replace(str,"'","''")
106.end function
107.select case Trim(Request.Form("action"))
108.      case "replace"
109.        call replacelink()
110.      case "search"
111.        call searchlink()
112.      case "biao"
113.        call biao()
114.      case "ziduan"
115.        call ziduan()
116.      case else
117.      call main()
118.      end select
119.sub replacelink()
120.set conn=server.createobject("ADODB.CONNECTION")
121.connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(""&Session("mdbname")"")
122.conn.open connstr
123.oSoftLink=checkStr(Trim(Session("oSoftLink")))
124.nSoftLink=checkStr(Trim(Request.Form("nSoftLink")))
125.biaoname=checkStr(Trim(Session("biaoname")))
126.ziduanname=checkStr(Trim(Session("ziduanname")))
127.set rs=server.createobject("adodb.recordset")
128.set uprs=server.createobject("adodb.recordset")
129.haveid=Session("haveid")
130.if haveid=1 then
131.'response.write "快"
132.sql="select id," & Session("ziduanname") & " from " & Session("biaoname") & " where " & Session("ziduanname") & " like '%"&Trim(Session("oSoftLink"))"%'"
133.rs.open sql,conn,1,1
134.if not(rs.eof and rs.bof) then
135.i=rs.recordcount
136.do while not rs.eof
137.  newAddress=replace(rs(1),""&oSoftLink"",""&nSoftLink"")
138.
139.  sql="select * from " & biaoname & " where ID="&rs(0)
140.  uprs.open sql,conn,1,3
141.  uprs(""&ziduanname"")=newAddress
142.  uprs.update
143.  uprs.close
144.
145.  rs.MoveNext
146.  Loop
147.end if
148.else
149.'response.write "不快"
150.sql="select " & Session("ziduanname") & " from " & Session("biaoname") & " where " & Session("ziduanname") & " like '%"&Trim(Session("oSoftLink"))"%'"
151.rs.open sql,conn,1,1
152.if not(rs.eof and rs.bof) then
153.i=rs.recordcount
154.do while not rs.eof
155.  newAddress=replace(rs(0),""&oSoftLink"",""&nSoftLink"")
156.
157.  sql="select * from " & biaoname & " where " & ziduanname & "='"&rs(0)"'"
158.  uprs.open sql,conn,1,3
159.  uprs(""&ziduanname"")=newAddress
160.  uprs.update
161.  uprs.close
162.
163.  rs.MoveNext
164.  Loop
165.end if
166.end if
167.rs.close
168.set uprs=nothing
169.set rs=nothing
170.msgtitle="批量管理"
171.msginfo="

操作成功，共更新了 "&i" 条信息！

"
172.call Sysmsg(msgtitle,msginfo)
173.Conn.close
174.Set conn = Nothing
175.end sub
176.
177.sub searchlink()
178.%>
179.

180.
181.
182.
184.
185.
186.
207.
208.
209.
212.
213.
214.
218.
219.
221.
222.
223.
224.
225.

替换 183.
187.<% 188. Session("ziduanname")=checkStr(Trim(Request.Form("ziduanname"))) 189. set conn=server.createobject("ADODB.CONNECTION") 190. connstr="driver={Microsoft Access Driver (.mdb)};dbq=" & server.mappath(""&Session("mdbname")"") 191. conn.open connstr 192. set rs=server.createobject("adodb.recordset") 193. sql="select count(" & Session("ziduanname") & ") from " & Session("biaoname") & " where " & Session("ziduanname") & " like '%"&checkStr(Trim(Request.Form("oSoftLink")))"%'" 194. rs.open sql,conn,1,1 195. if not(rs.eof and rs.bof) then 196. Session("oSoftLink")=checkStr(Trim(Request.Form("oSoftLink"))) 197. Response.Write("本次搜索找到了 "&rs(0)"* 个相关条目。") 198. else 199. Response.Write("没有找到相关信息") 200. end if 201. rs.close 202. set rs=nothing 203. Conn.close 204. Set conn = Nothing 205. %> 206.
将字符 210. " size="45" maxlength="50"> 211.
替换成 215. 216. 217.
220.
<< 返回上一页

226.

227.<%
228.      end sub
229.      sub biao()
230.      Session("mdbname")=checkStr(Trim(Request.Form("mdbname")))
231.      Set fso = CreateObject("Scripting.FileSystemObject")
232.      filename=server.mappath(""&Session("mdbname")"")
233.        if Not fso.FileExists(filename) then
234.           msgtitle="批量管理"
235.           msginfo="

你输入的数据库 "&filename" 不存在！

请输入正确的数据库地址！

"
236.           call Sysmsg(msgtitle,msginfo)
237.           response.end
238.        end if
239.      Set fso = nothing
240.      set conn=server.createobject("ADODB.CONNECTION")
241.      connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(""&Session("mdbname")"")
242.      conn.open connstr
243.%>
244.

245.
246.
247.
248.
249.
250.
253.
254.
255.
266.
267.
268.
269.
270.

选择表名
数据库地址（相对地址）： 251. "> 252.
要操作的表名： 256. 257. 258. <%Set rs=Conn.OpenSchema(20) 259. While not rs.EOF 260. Response.Write("") 261. rs.MoveNext 262. Wend%> 263. 264. 265.
<< 返回上一页

271.

272.<% end sub
273.sub ziduan()
274.      'Session("mdbname")=checkStr(Trim(Request.Form("mdbname")))
275.      Session("biaoname")=checkStr(Trim(Request.Form("biaoname")))
276.      set conn=server.createobject("ADODB.CONNECTION")
277.      connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(""&Session("mdbname")"")
278.      conn.open connstr
279.%>
280.

281.
282.
283.
284.
285.
286.
289.
290.
291.
296.
297.
298.
316.
317.
318.
323.
324.
325.
326.
327.
328.
329.
330.

选择字段名输入查找内容
数据库地址（相对地址）： 287. "> 288.
要操作的表名： 292. 293. 294. 295.
要替换的字段名： 299. 300. <% 301. haveid=0 302. set rs=server.createobject("adodb.recordset") 303. sql="select * from [" & Session("biaoname") & "] where 1<>1" 304. rs.open sql,Conn,1,1 305. j=rs.Fields.count 306. For i=0 to (j-1) 307. 'Response.Write("第" & i+1 & "个字段名：" & rs.Fields(i).Name & " ") 308. Response.Write("") 309. if LCase(rs.Fields(i).Name)="id" then 310. Session("haveid")=1 311. end if 312. Next 313. rs.close%> 314. 315.
内容中包含的字符： 319. 320. 321. 322.
<< 返回上一页
注意：单引号“'”将被自动过滤掉

331.

332.<% end sub
333.sub main()
334.%>
335.

336.
337.
338.
339.
340.
341.
345.
346.
347.
348.
349.

输入数据库名
请输入数据库地址（相对地址）： 342. 343. 344.
注意：单引号“'”将被自动过滤掉

350.

351.
352.
353.<% end sub %>
354.
355.
356.
357.
358.

Microsoft Office Word2007无法执行语言识别的解决方法

2011-03-07T17:43:09+08:00

新装了Microsoft Office Word2007，打开文档时，老提示：Microsoft Office Word无法执行语言识别(Word2007)，而且会卡在那里半天，实在是恼火。

现把解决办法与大家分享：
步骤1：取消“启用自动语言检测”
在“审阅”选项卡上的“校对”组中，单击“设置语言”（一个图标，看起来类似于前面带有复选标记的地球）。
取消“自动检测语言”复选框。
步骤2：取消“键入入时检查拼写”
到Word选项卡-校对-在word中更正拼写和语法时，取消“键入入时检查拼写”选项。
一般情况执行步骤1即可，如果不行，请再执行步骤2。

为什么隔夜蔬菜不能吃？

2011-01-12T17:19:11+08:00

　　米饭做多了，可以放在冰箱中储藏一两天，但是剩的蔬菜却最好不要隔天再吃了。虽然营养学家强调每天都要吃蔬菜，但如果经常吃隔夜剩菜或者将新鲜蔬菜放很久才吃，会给健康带来不利影响。当天的蔬菜最好是当天吃完，而不要留到第二天再吃。
　　由于种植蔬菜的土壤中含有硝酸盐，加上氮肥的普遍使用，蔬菜中会含有一定量的硝酸盐和微量的亚硝酸盐。国内外多项实验证明，蔬菜即使在普通室温下（20摄氏度左右）储存几天，不仅维生素C大量损失，而且蔬菜中的硝酸盐还将在自身还原酶的作用下生成一定量的亚硝酸盐。如果将同一品种的做熟的蔬菜和新鲜蔬菜在完全相同的条件下放置，熟菜中亚硝酸盐的含量明显高于鲜菜。这是因为经过烹制的蔬菜组织已经被破坏，很容易受空气中微生物酶的作用，将蔬菜中的硝酸盐还原为亚硝酸盐。如果是将熟的蔬菜放在室温下过夜，还可能受有害微生物的污染而腐败变质，容易引起食物中毒。
　　部分中老年人生活节俭，剩菜、隔夜菜舍不得扔，总是把剩菜热一热，第二天吃，甚至第三天、第四天吃，闻闻没有变味就将就吃下，往往一吃就出问题。这样的做法对健康是有害的。想想看，吃菜的时候，筷子夹一夹，嘴巴里面含一含，再去夹菜，这样，细菌都“种”到了菜里。食物保存有一定的期限，就算放在冰箱或是存储得当，也许我们吃不出怪味，也不觉有味，可是可能食物已经变质，只是我们浑然不知。
据科学测定，有些隔夜菜特别是隔夜的绿叶蔬菜，非但营养价值不高，还会产生致病的亚硝酸盐。储藏蔬菜中亚硝酸盐的生成量随着储藏时间延长和温度升高而增多，而如果将蔬菜放在冰箱中冷藏（2—6摄氏度），则其亚硝酸盐的增加较少。时值冬季，有些家庭认为天气寒冷，剩菜不用放冰箱，这种观点也是错误的。现在，城市中冰箱的普及使用，使人们从食物中摄入的亚硝酸盐含量下降，但并不等于把蔬菜放进冰箱就完全可以放心了；时间长了，亚硝酸盐的含量仍然会增加。值得一提的是，不同种类的蔬菜在相同储藏条件下，亚硝酸盐的生成量是不一致的。通常茎叶类蔬菜最高，瓜类蔬菜稍低，根茎类和花菜类居中。因此，如果同时购买了不同种类的蔬菜，应该先吃茎叶类的，比如大白菜、菠菜等。如果准备多做一些菜第二天热着吃的话，应尽量少做茎叶类蔬菜，而选择瓜类蔬菜。
　　炒熟后的菜里有油、盐，隔了一夜，菜里的维生素都氧化了，使得亚硝酸含量大幅度增高，进入胃后变成亚硝酸盐，硝酸盐虽然不是直接致癌的物质，但却是健康的一大隐患。亚硝酸盐进入胃之后，在具备特定条件后会生成一种称为NC（N—亚硝基化合物）的物质，它是诱发胃癌的危险因素之一。尤其是在天气热的时候，隔夜的饭菜受到细菌污染，会大量繁殖，很容易引发胃肠炎，食物中毒。
　　炒熟的菜中，很多吃不完存放起来，尤其是一些高蛋白高脂肪的剩菜，更是吃不得。空气中的有害细菌会在2个小时内附着在剩菜上开始繁殖，大家都知道蛋白质和脂肪在细菌的作用下，大部分都会产生有害物质，如硫化氢、胺、酚等，这些物质对人体有害。长期吃剩菜容易致癌，这已经是不争的事实。所以说隔夜菜不能吃，在做菜的时候，最好的办法是量体裁衣，而不能损害健康！

解决tsvncache.exe引起电脑慢的问题[SVN cache程序]

2010-11-16T15:37:36+08:00

这两天发现电脑运行速度很慢，进程里有一个TSVNCache.exe会开机自启动，上网查了下，解决方法如下：

如果你觉得SVN的cache程序使得你的机器反应很慢的话，那可以参考这个方案。不过可能要改变你以前使用习惯。
这个方案有两部分,第一部分是关闭SVN的cache监视;第二部分是显示文件差异时,使用SVN的“check for modifications”显示差异。

1.关闭SVN的cache监视。即关闭tsvncache.exe这个程序对目录的监视。
具体操作步骤如下：
a) 右击任意目录打开右键菜单,打开"tortoisesvn" => "settings"下的设置窗口
b) 找到"icon overlays"的设置项，将"status cache"设置成"none"

2.使用SVN的“check for modifications”显示差异
具体操作步骤如下：
a) 右击需要比较差异的目录，打开右键菜单，打开"tortoisesvn" => "check for modifications"，打开比较差异窗口
注：这样显示文件差异是因为上面关闭监视后，再有修改程序文件，文件夹不再更新修改标识了，无法再通过查看文件平图标来知道是否有文件修改。

今天本人这样修改了，感觉机器强多了！不再有explorer疆死的情况了！爽！

ASP函数过滤SQL非法字符格式化html代码

2010-10-27T17:05:14+08:00

复制内容到剪贴板程序代码

<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"
")," "," ")
changechr=replace(replace(replace(replace(changechr,"[sayyes]","

",""),"[red]",""),"[big]","")
changechr=replace(replace(replace(replace(changechr,"[/sayyes]",">

"),"",""),"[/red]",""),"[/big]","")
end function

'过滤SQL非法字符并格式化html代码
function Replace_Text(fString)
if isnull(fString) then
Replace_Text=""
exit function
else
fString=trim(fString)
fString=replace(fString,"'","''")
fString=replace(fString,";","；")
fString=replace(fString,"--","—")
fString=server.htmlencode(fString)
Replace_Text=fString
end if
end function

'会员发布的各种信息过滤
'Function Replace_Text(fString)
'If Not IsNull(fString) Then
'fString = trim(fString)
'fString = replace(fString, ";", "；")      '分号过滤
'fString = replace(fString, "--", "——") '--过滤
'fString = replace(fString, "%20", "")     '特殊字符过滤
'fString = replace(fString, "==", "")      '==过滤
'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), "

")
'fString = Replace(fString, CHR(10), "
")
'Replace_Text = fString
'End If
'End Function

'过滤SQL非法字符
Function checkStr(Chkstr)
dim Str:Str=Chkstr
if isnull(Str) then
    checkStr = ""
    exit Function
else
    Str=replace(Str,"'","")
    Str=replace(Str,";","")
    Str=replace(Str,"--","")
    checkStr=Str
end if
End Function

'检测传递的参数是否为数字型
Function Chkrequest(Para)
Chkrequest=False
If Not (IsNull(Para) or Trim(Para)="" or Not IsNumeric(Para)) Then
     Chkrequest=True
End If
End Function

'检测传递的参数是否为日期型
Function Chkrequestdate(Para)
Chkrequestdate=False
If Not (IsNull(Para) or Trim(Para)="" or Not IsDate(Para)) Then
     Chkrequestdate=True
End If
End Function

'得到当前页面的地址
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & CheckStr(Trim(Request.QueryString))
GetUrl = strTemp
End Function

'Function CheckReferer()    '检查用户是否在浏览器里输入了本页的地址
'      Dim sReferer, Icheck
'      CheckReferer = True
'      sReferer = Request.ServerVariables("HTTP_REFERER")
'      ServerIP = Request.ServerVariables("LOCAL_ADDR")
'      Icheck = InStr(sReferer, "ServerIP")
'      If Icheck = 0 Then
'      CheckReferer = False
'      End If
'End Function

'日期格式化
Function FormatDate(DT,tp)
dim Y,M,D
Y=Year(DT)
M=month(DT)
D=Day(DT)
if M<10 then M="0"&M
if D<10 then D="0"&D
select case tp
case 1 FormatDate=Y&"年"&M&"月"&D&"日"
case 2 FormatDate=Y&"-"&M&"-"&D
end select
End Function

'不允许外部提交数据的选择
Function ChkPost()
      dim HTTP_REFERER,SERVER_NAME
dim server_v1,server_v2
chkpost=false
      SERVER_NAME=CheckStr(Request.ServerVariables("SERVER_NAME"))
HTTP_REFERER=CheckStr(Request.ServerVariables("HTTP_REFERER"))
server_v1=Cstr(HTTP_REFERER)
server_v2=Cstr(SERVER_NAME)
if mid(server_v1,8,len(server_v2))<>server_v2 then
    chkpost=false
else
    chkpost=true
end if
End Function

'构造上传图片文件名随机数
function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakedownName=fname
end function

'Email检测
function IsValidEmail(email)
dim names, name, i, c
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
     IsValidEmail = false
     exit function
end if
for each name in names
     if Len(name) <= 0 then
       IsValidEmail = false
       exit function
     end if
     for i = 1 to Len(name)
       c = Lcase(Mid(name, i, 1))
       if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
         IsValidEmail = false
         exit function
       end if
     next
     if Left(name, 1) = "." or Right(name, 1) = "." then
        IsValidEmail = false
        exit function
     end if
next
if InStr(names(1), ".") <= 0 then
     IsValidEmail = false
     exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
     IsValidEmail = false
     exit function
end if
if InStr(email, "..") > 0 then
     IsValidEmail = false
end if
end function

'Jmail邮件发送
Function SendJmail(Email,Topic,MailBody)

Dim JMail
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend              = true
JMail.silent              = true
JMail.Charset              = "gb2312"
JMail.ContentType        = "text/html"
JMail.Sender              = "cnfgg@126.com"
JMail.ReplyTo              = "cnfgg@126.com"
JMail.SenderName        = "向自己的邮箱发信"
JMail.Subject              = Topic
JMail.SimpleLayout        = true
JMail.Body              = MailBody
JMail.Priority              = 3
JMail.AddRecipient Email
JMail.AddHeader "Originating-IP", GBL_IPAddress
If JMail.Execute() = false Then
    SendJmail = 0
Else
    SendJmail = 1
End If
JMail.Close
Set JMail = Nothing

End Function

'分页
Function listPages(LinkFile)
     if not (rs.eof and rs.bof) then
gopage=currentpage
totalpage=n
blockPage=Int((gopage-1)/10)*10+1
' if instr(linkfile,"?page=")>0 or instr(linkfile,"&page=")>0 then
' pos=instr(linkfile,"page=")-2
' linkfile=left(linkfile,pos)
' end if

If LCase(Request.ServerVariables("HTTPS")) = "off" Then
      strTemp = "http://"
      Else
      strTemp = "https://"
      End If
      strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
      If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
      strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
      lenstrTemp=len(strTemp)+1
if instr(left(linkfile,lenstrTemp),"?")>0 then

if blockPage = 1 Then
    Response.Write "【←前10页 "
Else
    Response.Write("【←前10页 ")
End If
     i=1
     Do Until i > 10 or blockPage > n
      If blockPage=int(gopage) Then
    Response.Write("["&blockPage&"]")
Else
    Response.Write(" ["&blockPage&"] ")
      End If
      blockPage=blockPage+1
      i = i + 1
      Loop
if blockPage > totalpage Then
    Response.Write " 后10页→】"
Else
    Response.Write(" 后10页→】")
End If
response.write" 直接到第 "
response.write""
      for i=1 to totalpage
      response.write""
      next
      response.write""
      response.write" 页

"

else

if blockPage = 1 Then
    Response.Write "【←前10页 "
Else
    Response.Write("【←前10页 ")
End If
     i=1
     Do Until i > 10 or blockPage > n
      If blockPage=int(gopage) Then
    Response.Write("["&blockPage&"]")
Else
    Response.Write(" ["&blockPage&"] ")
      End If
      blockPage=blockPage+1
      i = i + 1
      Loop
if blockPage > totalpage Then
    Response.Write " 后10页→】"
Else
    Response.Write(" 后10页→】")
End If
response.write" 直接到第 "
response.write""
      for i=1 to totalpage
      response.write""
      next
      response.write""
      response.write" 页

"

End If

Startinfo=((gopage-1)*msg_per_page)+1
Endinfo=gopage*msg_per_page
if Endinfo>totalrec then Endinfo=totalrec
    Response.Write("  共 "&totalrec&" 条信息当前显示第 "&Startinfo&" - "&Endinfo&" 条每页 "&msg_per_page&" 条信息共 "&n&" 页")
end if
End Function

'分页2
Function listPages2(LinkFile)
     if not (rs.eof and rs.bof) then
gopage=currentpage
totalpage=n
blockPage=Int((gopage-1)/10)*10+1

If LCase(Request.ServerVariables("HTTPS")) = "off" Then
      strTemp = "http://"
      Else
      strTemp = "https://"
      End If
      strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
      If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
      strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
      lenstrTemp=len(strTemp)+1
if instr(left(linkfile,lenstrTemp),"?")>0 then

if blockPage = 1 Then
    Response.Write "前10页 "
Else
    Response.Write("前10页 ")
End If
     i=1
     Do Until i > 10 or blockPage > n
      If blockPage=int(gopage) Then
    Response.Write(""&blockPage&"")
Else
    Response.Write(" "&blockPage&" ")
      End If
      blockPage=blockPage+1
      i = i + 1
      Loop
if blockPage > totalpage Then
    Response.Write " 后10页"
Else
    Response.Write(" 后10页")
End If
response.write" 直接到第 "
response.write""
      for i=1 to totalpage
      response.write""
      next
      response.write""
      response.write" 页

"

else

if blockPage = 1 Then
    Response.Write "【←前10页 "
Else
    Response.Write("【←前10页 ")
End If
     i=1
     Do Until i > 10 or blockPage > n
      If blockPage=int(gopage) Then
    Response.Write("["&blockPage&"]")
Else
    Response.Write(" ["&blockPage&"] ")
      End If
      blockPage=blockPage+1
      i = i + 1
      Loop
if blockPage > totalpage Then
    Response.Write " 后10页→】"
Else
    Response.Write(" 后10页→】")
End If
response.write" 直接到第 "
response.write""
      for i=1 to totalpage
      response.write""
      next
      response.write""
      response.write" 页

"

End If

Startinfo=((gopage-1)*msg_per_page)+1
Endinfo=gopage*msg_per_page
if Endinfo>totalrec then Endinfo=totalrec
    Response.Write("  共 "&totalrec&" 条信息当前显示第 "&Startinfo&" - "&Endinfo&" 条每页 "&msg_per_page&" 条信息共 "&n&" 页")
end if
End Function

'判断文件类型是否合格
Function CheckFileExt(FileExt)
Dim ForumUpload,i
ForumUpload="gif,jpg,bmp,jpeg,png"
ForumUpload=Split(ForumUpload,",")
CheckFileExt=False
For i=0 to UBound(ForumUpload)
    If LCase(FileExt)=Lcase(Trim(ForumUpload(i))) Then
     CheckFileExt=True
     Exit Function
    End If
Next
End Function

'格式后缀
Function FixName(UpFileExt)
If IsEmpty(UpFileExt) Then Exit Function
FixName = Lcase(UpFileExt)
FixName = Replace(FixName,Chr(0),"")
FixName = Replace(FixName,".","")
FixName = Replace(FixName,"asp","")
FixName = Replace(FixName,"asa","")
FixName = Replace(FixName,"aspx","")
FixName = Replace(FixName,"cer","")
FixName = Replace(FixName,"cdx","")
FixName = Replace(FixName,"htr","")
End Function
'文件Content-Type判断
Function CheckFileType(FileType)
CheckFileType = False
If Left(Cstr(Lcase(Trim(FileType))),6)="image/" Then CheckFileType = True
End Function
%>

2010年各银行信用卡免年费方法

2010-09-27T17:05:17+08:00

　　2010年，大部分银行的年费政策并没有改变，一般标准信用卡普卡年费在100元左右，而金卡年费一般为200元或300元。单币卡年费较双币卡更低。附属卡年费一般对应主卡年费减半。那么，办理了信用卡如何免年费？
　　2010年各银行信用卡免年费方法如下：
　　
　　浦发银行:第一年免年费,普卡一年刷满2000元,金卡刷满5000元免第二年年费。

　　深发展银行:第一年免年费,刷18次免第次年年费。

　　招商银行:第一年免年费,刷6次免第二年年费。

　　光大银行:第一年免年费,刷3次免第二年年费。

　　民生银行:第一年免年费,刷8次免第二年年费。

　　交通银行:第一年免年费,刷6次免第二年年费。

　　兴业银行:第一年免年费,刷5次或消费3000元以上免次年年费。

　　平安银行:第一年免年费,刷6次免第二年年费。

　　中信银行:批卡后一个月内开卡消费即免当年年费，次年刷卡5次免年费。

　　广发银行:第一年免年费,刷6次免第二年年费。

　　华夏银行:第一年免年费,刷5次免第二年年费。

　　中国银行:第一年免年费,刷5次免第二年年费。

　　建设银行:第一年免年费,刷3次免第二年年费。

　　工商银行:每年刷卡5次即免当年年费。

　　农业银行:第一年免年费,刷5次免第二年年费。

　　江苏银行:首年免年费，当年刷3次或消费3000元以上免次年年费。

　　上海银行:信用卡无须刷卡即可终身免年费。

中信信用卡8月“乐享好礼，首刷中信”领奖地址

2010-09-21T17:56:19+08:00

中信信用卡8月“乐享好礼，首刷中信”活动资格查询，领奖地址如下：
https://creditcard.ecitic.com/citiccard/net/zige.do?func=gaction&act=YG000003

中信银行信用卡—8月“乐享好礼，首刷中信”（2010.8.31前）

活动内容：
凡2010年8月1日到2010年8月31日申请中信信用卡的客户，在发卡45天内（含45天）任意一笔刷卡满99元，即有机会以9元价格抢购2G精美U盘一个。

发卡日以客户收到批卡短信日起计算。
蓝卡和万事达公务卡的客户不参与此活动。
广州、佛山、深圳、北京、重庆、贵阳客户不参与此活动。

http://bank.ecitic.com/cards/yhhd/lxhl100809/1.htm

360木马防火墙如何设置开机时不启动

2010-09-19T14:38:54+08:00

最近发现电脑运行速度很慢，360安全卫士自带的360木马防火墙总是开机自启动，在msconfig的启动项中去掉了360Tray也没有用，会自动恢复。通常流氓软件或者木马程序才会这么做，现在连宣称反流氓软件反木马的360安全卫士也是如此，中国的网民真是悲哀。

设置360木马防火墙开机不启动，解决方法如下：
1.在360木马防火墙（我用的是7.3版本）中的设置-》保护360产品中，点击“临时关闭自我保护”。
2.退出360木马防火墙，选择“完全关闭退出”。
3.开始-》运行msconfig，在“启动”项中去掉“360Tray”。
4.重启计算机，360木马防火墙将不再自启动。

如何想要启动360木马防火墙，可以手动在开始-》程序中启动。

上海移动答题有奖：服务再升级，使用更便捷——新业务答题活动(附答案)

2010-09-10T15:02:13+08:00

今天收到10086的短信广告，发6条短信到106582083回答问题，月底送5元话费。（所有问题答案都是1）

一、活动时间
2010年9月1日－9月20日
二、活动内容
活动期间，凡上海移动用户发送A至106582083参与新业务答题，答对5题的客户可获赠5元话费奖励（每个号码只能得到一次），凡成功参与并答题正确的客户可参加世博门票抽奖活动。
三、活动奖励
(1) 5元话费赠送
凡发送A至106582083参与新业务答题，答对5题的客户就可得到5元话费，每个移动号码只能得到一次。

(2) 世博门票抽奖
凡成功参与并答题正确的客户均有机会参与抽奖活动。每一次答题正确，即获得一次抽奖机会。活动结束抽取回答正确客户100名，每人获得1张世博会门票。客户凭10086下发的获奖短信及本人有效证件至指定营业厅领奖。
四、活动参与步骤
(1) 活动期间，发送A至106582083参与答题，系统106582083XX将下发一个新业务问答题，直接回复答案对应的数字，系统将判断客户是否回答正确。
例如：系统1065820831下发“在国内接收彩信不会产生任何费用？1.是2.否”，用户回复1至1065820831。
注意下发号码106582083XX中后两位XX为问题编号，每题均不同，第一题对应1065820831，第10题对应10658208310。
用户回答完一题后系统将直接下发新问题。

(2) 凡参与答题并答对5题的客户将获得5元话费，话费会在月底前赠送。

(3) 凡有过答题正确客户可参与世博票抽奖活动，每答对一题累计一个抽奖机会。在活动结束后，上海移动网站会公布获奖的幸运客户。中奖客户可凭短信通知在指定时间内，前往指定营业厅领取世博会门票1张。
五、活动规则
(1) 参与新业务问答必须是上海移动号码，方可获得奖励和参与抽奖。
(2) 所有问题只能回答一次，客户发送答题短信收取短信通信费。
(3) 同一号码答对5题或5题以上，都只能获得一次5元话费。
(4) 同一号码每答对一题，可以获得一次世博门票的抽奖机会。
(5) 活动结束后，将抽取100名幸运客户，每名客户获得世博会门票1张。

PS“服务再升级使用更便捷” 短信答题有奖活动——答题秘籍：
1、目前移动数据（GPRS）手机上网业务5元套餐每月包含30M流量，套餐内流量费低至0.17元/M，比标准资费便宜98%？1.是√ 2.否
【答案说明】移动数据（GPRS）手机上网业务5元套餐每月提供30M流量（不区分接入点），另有更多套餐供选择。除标准资费外，套餐资费均低于0.17元/M，最低只有0.04元/M。超出免费流量部分1元/M。

2、发送短信CXLL到 10086可随时查询到您的移动数据（GPRS）手机上网流量的使用情况？1.是√ 2.否
【答案说明】发送CXLL（“查询流量”拼音首字母）到10086，即可查询您的移动数据（GPRS）手机上网流量的使用情况。发送GPRS到10086即可办理套餐变更，短信到10086均免费。

3、上海移动率先开通了移动数据（GPRS）手机上网流量提醒的免费服务？1.是√ 2.否
【答案说明】移动数据（GPRS）手机上网业务流量提醒的免费服务分定期提醒（非套餐用户）和定量提醒（套餐用户）两种方式，发送KTLLTX至10086开通相应的提醒服务即可。发送短信到10086均免费。

4、发送彩信的最低资费是0.2元/条，在国内（除港澳台地区）接收彩信均免费？1.是√ 2.否
【答案说明】上海移动推出的彩信体验包业务，每月2元可发送10条点对点彩信，超出部分0.3元/条（网内），发送CX到10086申请即可。在国内（除港澳台地区）接收各类彩信均免费，如彩信手机报。

5、发送短信CXTC到 10086可随时查询到您套餐内免费资源的使用情况？1.是√ 2.否
【答案说明】发送CXTC（“查询套餐”拼音首字母）到10086，可查询到当月您套餐内免费资源的使用情况（如短信、彩信、GPRS手机上网、WLAN、G3上网本流量等）。发送短信到10086均免费。

6、无移动数据（GPRS）流量资源的手机上网标准资费用户只要开通定期流量提醒服务，每月可在11日和21日收到当月流量使用情况的提醒短信？1.是√ 2.否
【答案说明】无移动数据（GPRS）流量资源的手机上网标准资费用户只要开通定期流量提醒服务，每月11日和21日会收到当月流量使用情况的提醒短信。发送KTLLTX至10086即可开通免费提醒服务。

7、使用移动数据（GPRS）手机上网套餐用户，只要开通定量流量提醒服务，会在套餐内余量低于5M和低于0M时收到提醒短信？1.是√ 2.否
【答案说明】使用移动数据（GPRS）手机上网套餐用户，只要开通定量流量提醒服务，当套餐内余量低于5M和低于0M时会收到提醒短信。发送KTLLTX至10086即可开通免费提醒服务。

8、申请上海移动的绿色账单免费邮服务，系统每月会自动将账单发送到您手机号对应的139邮箱？1.是√ 2.否
【答案说明】上海移动的绿色账单免费邮服务每月会自动将账单发送到您手机号对应的139邮箱，发送139到10086、登录上海移动网站sh.10086.cn或邮箱网站mail.10086.cn开通任意邮箱就可以享受免费账单服务，您专属的邮箱名为手机号码@139.com。

9、移动用户使用以下新业务的手机客户端，在使用过程中均免流量费：手机视频、手机阅读、MM移动应用商城、音乐随身听、号簿管家、快讯？1.是√ 2.否
【答案说明】移动用户使用手机视频、手机阅读、MM移动应用商城、音乐随身听、号簿管家、快讯等业务的手机客户端均免流量费。从wap.monternet.com可下载手机客户端，体验更多新业务。

10、上海移动最新推出10086短信智能识别服务，发送业务名称或办理需求到10086办理业务更便捷? 1.是√ 2.否
【答案说明】上海移动已推出10086短信智能识别服务，如发送“话费”、“手机报”，就可以查询账单、订购手机报。发送短信到10086均免费。

11、在电脑上使用飞信给好友群发短信都是免费的？1.是√ 2.否
【答案说明】在电脑上使用飞信给好友群发短信均不收费，还有定时发送功能。登录feixin.10086.cn可立即下载客户端软件。

最后发现真正的答题秘笈是：所有的正确答案都是1，不知道上海移动怎么想的。。。

参考资料：
http://www.sh.10086.cn/whatsnew/event/qpp/0/6/105.html

OpenGL中读取STL文件的VC代码

2010-09-09T16:57:45+08:00

下面介绍在OpenGL中如何读取Solidworks模型生成的STL文件，并显示出来的方法。代码在VC6.0下测试通过。

STL文件的ASCII码形式

ASCII码格式STL文件逐行给出三角面片的几何信息，每一行以1个或2个关键字开头。在STL文件中的三角面片的信息单元facet是一个带矢量方向的三角面片，STL模型就是由一组这样的三角面片构成。在一个STL文件中，每一个facet由7行数据组成，第1行是三角面片指向实体外部的法向失量数据，第2行说明随后的第3，4，5行数据分别是三角面片的3个顶点信息，沿指向实体外部的法向矢量(第1行数据)方向逆时针排列。ASCII码格式的STL文件结构如下：
solid filename stl                  ∥ 文件路径及文件名
facet normal x y z                 ∥ 三角面片法向量的3个分量值
outer loop
vertex x y z                     ∥三角面片第一个顶点的坐标
vertex x y z                     ∥三角面片第二个顶点的坐标
vertex x y z                     ∥三角面片第三个顶点的坐标
endloop
endfacet                            ∥第一个三角面片定义完毕
………………………
………………………….
eadsolid fileame stl                    ∥整个文件结束

OpenGL中读取STL文件的VC代码如下：

复制内容到剪贴板程序代码

    FILE *fp = NULL;
    fp = fopen("..\\主动同步带轮.STL","r");
    if(fp)
    {
        CString strLine;
        CString strHead;
        GLfloat normal[3];
        GLfloat vertex[3];

        glNewList(3,GL_COMPILE);
        glPushMatrix();
        //glDisable(GL_LIGHTING);
        glEnable(GL_DEPTH_TEST);
        glEnable(GL_LIGHTING);
        glEnable(GL_LINE_SMOOTH);
        glScalef(0.001,0.001,0.001);

        while(1)
        {
            fscanf(fp,"%s\n",strHead.GetBuffer(20));
            strHead.TrimLeft();

            if(strHead == "solid")
            {
                fscanf(fp,"%s\n",strLine.GetBuffer(20));
                continue;
            }
            else if(strHead == "facet")
            {
                fscanf(fp,"%s\n",strLine.GetBuffer(20));
                fscanf(fp,"%f %f %f\n",normal,normal+1,normal+2);
                glNormal3fv(normal);
            }
            if(strHead == "outer")
            {
                fscanf(fp,"%s\n",strLine.GetBuffer(20));

                glBegin(GL_POLYGON);

                for(int i = 0; i < 3; i++)
                {
                    fscanf(fp,"%s\n",strLine.GetBuffer(20));
                    strLine.TrimLeft();
                    if(strLine == "vertex")
                    {
                        fscanf(fp,"%f %f %f\n",vertex,vertex+1,vertex+2);
                        glVertex3d(vertex[0],vertex[1],vertex[2]);
                    }
                }

                glEnd();

                continue;
            }
            else if(strHead == "endloop" || strHead == "endfacet")
            {
                continue;
            }
            else if(strHead == "endsolid")
            {
                break;
            }
        }

        //glEnable(GL_DEPTH_TEST);
        //glEnable(GL_LIGHTING);
        glDisable(GL_LINE_SMOOTH);
        glPopMatrix();
        glEndList();

        fclose(fp);
    }