Startup_old.asp
上传用户:lwb168
上传日期:2021-10-31
资源大小:722k
文件大小:8k
源码类别:

Email服务器

开发平台:

ASP/ASPX

  1. <%@ Language=VBScript CODEPAGE=936%>
  2. <% Option Explicit %>
  3. <%
  4. '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  5. '★                                                                  ★
  6. '☆                eWebEditor - eWebSoft在线编辑器                   ☆
  7. '★                                                                  ★
  8. '☆  版权所有: eWebSoft.com                                          ☆
  9. '★                                                                  ★
  10. '☆  程序制作: eWeb开发团队                                          ☆
  11. '★            email:webmaster@webasp.net                            ★
  12. '☆            QQ:589808                                             ☆
  13. '★                                                                  ★
  14. '☆  相关网址: [产品介绍]http://www.eWebSoft.com/Product/eWebEditor/ ☆
  15. '★            [支持论坛]http://bbs.eWebSoft.com/                    ★
  16. '☆                                                                  ☆
  17. '★  主页地址: http://www.eWebSoft.com/   eWebSoft团队及产品         ★
  18. '☆            http://www.webasp.net/     WEB技术及应用资源网站      ☆
  19. '★            http://bbs.webasp.net/     WEB技术交流论坛            ★
  20. '★                                                                  ★
  21. '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  22. %>
  23. <%
  24. ' ============================================
  25. ' 常用全局变量
  26. ' ============================================
  27. ' 数据库对象
  28. Dim oConn, oRs, sSql
  29. ' ============================================
  30. ' 初始数据处理
  31. ' ============================================
  32. ' 执行每天只需处理一次的事件
  33. 'Call BrandNewDay()
  34. ' 初始化数据库连接
  35. 'Call DBConnBegin()
  36. ' ********************************************
  37. ' 以下为初始函数
  38. ' ********************************************
  39. ' ============================================
  40. ' 执行每天只需处理一次的事件
  41. ' ============================================
  42. Sub BrandNewDay()
  43. Dim sDate, y, m, d, w
  44. Dim sDateChinese
  45. sDate = Date()
  46. If Application("date_today") = sDate Then Exit Sub
  47. y = CStr(Year(sDate))
  48. m = CStr(Month(sDate))
  49. If Len(m) = 1 Then m = "0" & m
  50. d = CStr(Day(sDate))
  51. If Len(d) = 1 Then d = "0" & d
  52. w = WeekdayName(Weekday(sDate))
  53. sDateChinese = y & "年" & m & "月" & d & "日&nbsp;" & w
  54. Application.Lock
  55. Application("date_today") = sDate
  56. Application("date_chinese") = sDateChinese '今天的中文样式
  57. Application.Unlock
  58. End Sub
  59. ' ********************************************
  60. ' 以下为数据库相关函数
  61. ' ********************************************
  62. ' ============================================
  63. ' 初始化数据库连接对象
  64. ' 使用原则:最迟调用,最早释放
  65. ' ============================================
  66. Sub DBConnBegin()
  67. ' 如果数据库对象已打开,不要再打开
  68. If IsObject(oConn) = True Then Exit Sub
  69. ' 你可以不需要打开数据库连接对象而直接打开记录集对象,但如果你需要打开多个记录集对象的话,效率是很低的。
  70. ' 如果你不创建一个数据库连接对象,ADO会在每个记录集打开时自动创建一个新的数据库连接对象,就算你用的是相同的SQL语句。
  71. Set oConn = Server.CreateObject("ADODB.Connection")
  72. On Error Resume Next
  73. ' Access数据库
  74. oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/#ewebeditor.asp")
  75. ' SQL Server 2000数据库
  76. 'oConn.Open "Provider=SQLOLEDB.1;Server=localhost;UID=ewebeditor;PWD=123456;Database=ewebeditor"
  77. If Err.Number > 0 Then
  78. ' 显示错误信息,并且发送邮件通知管理员
  79. 'Call DBConnError(Err)
  80. ' 完全地退出正在运行的脚本
  81. Response.End
  82. End If
  83. ' 创建一个记录集
  84. Set oRs = Server.CreateObject( "ADODB.Recordset" )
  85. End Sub
  86. ' ============================================
  87. ' 释放数据库连接对象
  88. ' ============================================
  89. Sub DBConnEnd()
  90. On Error Resume Next
  91. oRs.Close
  92. Set oRs = Nothing
  93. oConn.Close
  94. Set oConn = Nothing
  95. End Sub
  96. ' ********************************************
  97. ' 以下为常用函数
  98. ' ********************************************
  99. ' ============================================
  100. ' 错误返回处理
  101. ' ============================================
  102. Sub Go_Error(str)
  103. Call DBConnEnd()
  104. Response.Write "<script language=javascript>alert('" & str & "nn系统将自动返回前一页面...');history.back();</script>"
  105. Response.End
  106. End Sub
  107. ' ============================================
  108. ' 格式化时间(显示)
  109. ' 参数:n_Flag
  110. ' 1:"yyyy-mm-dd hh:mm:ss"
  111. ' 2:"yyyy-mm-dd"
  112. ' 3:"hh:mm:ss"
  113. ' 4:"yyyy年mm月dd日"
  114. ' 5:"yyyymmdd"
  115. ' ============================================
  116. Function Format_Time(s_Time, n_Flag)
  117. Dim y, m, d, h, mi, s
  118. Format_Time = ""
  119. If IsDate(s_Time) = False Then Exit Function
  120. y = cstr(year(s_Time))
  121. m = cstr(month(s_Time))
  122. If len(m) = 1 Then m = "0" & m
  123. d = cstr(day(s_Time))
  124. If len(d) = 1 Then d = "0" & d
  125. h = cstr(hour(s_Time))
  126. If len(h) = 1 Then h = "0" & h
  127. mi = cstr(minute(s_Time))
  128. If len(mi) = 1 Then mi = "0" & mi
  129. s = cstr(second(s_Time))
  130. If len(s) = 1 Then s = "0" & s
  131. Select Case n_Flag
  132. Case 1
  133. ' yyyy-mm-dd hh:mm:ss
  134. Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
  135. Case 2
  136. ' yyyy-mm-dd
  137. Format_Time = y & "-" & m & "-" & d
  138. Case 3
  139. ' hh:mm:ss
  140. Format_Time = h & ":" & mi & ":" & s
  141. Case 4
  142. ' yyyy年mm月dd日
  143. Format_Time = y & "年" & m & "月" & d & "日"
  144. Case 5
  145. ' yyyymmdd
  146. Format_Time = y & m & d
  147. End Select
  148. End Function
  149. ' ============================================
  150. ' 把字符串进行HTML解码,替换server.htmlencode
  151. ' 去除Html格式,用于显示输出
  152. ' ============================================
  153. Function outHTML(str)
  154. Dim sTemp
  155. sTemp = str
  156. outHTML = ""
  157. If IsNull(sTemp) = True Then
  158. Exit Function
  159. End If
  160. sTemp = Replace(sTemp, "&", "&amp;")
  161. sTemp = Replace(sTemp, "<", "&lt;")
  162. sTemp = Replace(sTemp, ">", "&gt;")
  163. sTemp = Replace(sTemp, Chr(34), "&quot;")
  164. sTemp = Replace(sTemp, Chr(10), "<br>")
  165. outHTML = sTemp
  166. End Function
  167. ' ============================================
  168. ' 去除Html格式,用于从数据库中取出值填入输入框时
  169. ' 注意:value="?"这边一定要用双引号
  170. ' ============================================
  171. Function inHTML(str)
  172. Dim sTemp
  173. sTemp = str
  174. inHTML = ""
  175. If IsNull(sTemp) = True Then
  176. Exit Function
  177. End If
  178. sTemp = Replace(sTemp, "&", "&amp;")
  179. sTemp = Replace(sTemp, "<", "&lt;")
  180. sTemp = Replace(sTemp, ">", "&gt;")
  181. sTemp = Replace(sTemp, Chr(34), "&quot;")
  182. inHTML = sTemp
  183. End Function
  184. ' ============================================
  185. ' 检测上页是否从本站提交
  186. ' 返回:True,False
  187. ' ============================================
  188. Function IsSelfRefer()
  189. Dim sHttp_Referer, sServer_Name
  190. sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
  191. sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))
  192. If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then
  193. IsSelfRefer = True
  194. Else
  195. IsSelfRefer = False
  196. End If
  197. End Function
  198. ' ============================================
  199. ' 得到安全字符串,在查询中使用
  200. ' ============================================
  201. Function Get_SafeStr(str)
  202. Get_SafeStr = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "")
  203. End Function
  204. ' ============================================
  205. ' 取实际字符长度
  206. ' ============================================
  207. Function Get_TrueLen(str)
  208. Dim l, t, c, i
  209. l = Len(str)
  210. t = l
  211. For i = 1 To l
  212. c = Asc(Mid(str, i, 1))
  213. If c < 0 Then c = c + 65536
  214. If c > 255 Then t = t + 1
  215. Next
  216. Get_TrueLen = t
  217. End Function
  218. ' ============================================
  219. ' 判断是否安全字符串,在注册登录等特殊字段中使用
  220. ' ============================================
  221. Function IsSafeStr(str)
  222. Dim s_BadStr, n, i
  223. s_BadStr = "'  &<>?%,;:()`~!@#$^*{}[]|+-=" & Chr(34) & Chr(9) & Chr(32)
  224. n = Len(s_BadStr)
  225. IsSafeStr = True
  226. For i = 1 To n
  227. If Instr(str, Mid(s_BadStr, i, 1)) > 0 Then
  228. IsSafeStr = False
  229. Exit Function
  230. End If
  231. Next
  232. End Function
  233. %>