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

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 DBConnBegin()
  34. ' ********************************************
  35. ' 以下为数据库相关函数
  36. ' ********************************************
  37. ' ============================================
  38. ' 初始化数据库连接对象
  39. ' 使用原则:最迟调用,最早释放
  40. ' ============================================
  41. Sub DBConnBegin()
  42. ' 如果数据库对象已打开,不要再打开
  43. If IsObject(oConn) = True Then Exit Sub
  44. ' 你可以不需要打开数据库连接对象而直接打开记录集对象,但如果你需要打开多个记录集对象的话,效率是很低的。
  45. ' 如果你不创建一个数据库连接对象,ADO会在每个记录集打开时自动创建一个新的数据库连接对象,就算你用的是相同的SQL语句。
  46. Set oConn = Server.CreateObject("ADODB.Connection")
  47. On Error Resume Next
  48. ' Access数据库
  49. oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db.mdb")
  50. If Err.Number > 0 Then
  51. ' 显示错误信息,并且发送邮件通知管理员
  52. 'Call DBConnError(Err)
  53. ' 完全地退出正在运行的脚本
  54. Response.End
  55. End If
  56. ' 创建一个记录集
  57. Set oRs = Server.CreateObject( "ADODB.Recordset" )
  58. End Sub
  59. ' ============================================
  60. ' 释放数据库连接对象
  61. ' ============================================
  62. Sub DBConnEnd()
  63. On Error Resume Next
  64. oRs.Close
  65. Set oRs = Nothing
  66. oConn.Close
  67. Set oConn = Nothing
  68. End Sub
  69. ' ********************************************
  70. ' 以下为常用函数
  71. ' ********************************************
  72. ' ============================================
  73. ' 错误返回处理
  74. ' ============================================
  75. Sub GoError(str)
  76. Call DBConnEnd()
  77. Response.Write "<script language=javascript>alert('" & str & "nn系统将自动返回前一页面...');history.back();</script>"
  78. Response.End
  79. End Sub
  80. ' ============================================
  81. ' 得到安全字符串,在查询中或有必要强行替换的表单中使用
  82. ' ============================================
  83. Function GetSafeStr(str)
  84. GetSafeStr = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "")
  85. End Function
  86. ' ============================================
  87. ' 把字符串进行HTML解码,替换server.htmlencode
  88. ' 去除Html格式,用于显示输出
  89. ' ============================================
  90. Function outHTML(str)
  91. Dim sTemp
  92. sTemp = str
  93. outHTML = ""
  94. If IsNull(sTemp) = True Then
  95. Exit Function
  96. End If
  97. sTemp = Replace(sTemp, "&", "&amp;")
  98. sTemp = Replace(sTemp, "<", "&lt;")
  99. sTemp = Replace(sTemp, ">", "&gt;")
  100. sTemp = Replace(sTemp, Chr(34), "&quot;")
  101. sTemp = Replace(sTemp, Chr(10), "<br>")
  102. outHTML = sTemp
  103. End Function
  104. ' ============================================
  105. ' 去除Html格式,用于从数据库中取出值填入输入框时
  106. ' 注意:value="?"这边一定要用双引号
  107. ' ============================================
  108. Function inHTML(str)
  109. Dim sTemp
  110. sTemp = str
  111. inHTML = ""
  112. If IsNull(sTemp) = True Then
  113. Exit Function
  114. End If
  115. sTemp = Replace(sTemp, "&", "&amp;")
  116. sTemp = Replace(sTemp, "<", "&lt;")
  117. sTemp = Replace(sTemp, ">", "&gt;")
  118. sTemp = Replace(sTemp, Chr(34), "&quot;")
  119. inHTML = sTemp
  120. End Function
  121. ' ===============================================
  122. ' 初始化下拉框
  123. ' s_FieldName : 返回的下拉框名
  124. ' a_Name : 定值名数组
  125. ' a_Value : 定值值数组
  126. ' v_InitValue : 初始值
  127. ' s_Sql : 从数据库中取值时,select name,value from table
  128. ' s_AllName : 空值的名称,如:"全部","所有","默认"
  129. ' ===============================================
  130. Function InitSelect(s_FieldName, a_Name, a_Value, v_InitValue, s_Sql, s_AllName)
  131. Dim i
  132. InitSelect = "<select name='" & s_FieldName & "' size=1>"
  133. If s_AllName <> "" Then
  134. InitSelect = InitSelect & "<option value=''>" & s_AllName & "</option>"
  135. End If
  136. If s_Sql <> "" Then
  137. oRs.Open s_Sql, oConn, 0, 1
  138. Do While Not oRs.Eof
  139. InitSelect = InitSelect & "<option value=""" & inHTML(oRs(1)) & """"
  140. If oRs(1) = v_InitValue Then
  141. InitSelect = InitSelect & " selected"
  142. End If
  143. InitSelect = InitSelect & ">" & outHTML(oRs(0)) & "</option>"
  144. oRs.MoveNext
  145. Loop
  146. oRs.Close
  147. Else
  148. For i = 0 To UBound(a_Name)
  149. InitSelect = InitSelect & "<option value=""" & inHTML(a_Value(i)) & """"
  150. If a_Value(i) = v_InitValue Then
  151. InitSelect = InitSelect & " selected"
  152. End If
  153. InitSelect = InitSelect & ">" & outHTML(a_Name(i)) & "</option>"
  154. Next
  155. End If
  156. InitSelect = InitSelect & "</select>"
  157. End Function
  158. ' ============================================
  159. ' 每页头部内容
  160. ' ============================================
  161. Sub Header(str)
  162. Response.Write "<HTML><HEAD><TITLE>eWebEditor在线编辑器 - 例子:新闻系统</TITLE><style>body,p,td,input {font-size:9pt}</style></HEAD><BODY>"
  163. Response.Write "<p align=center><a href='list.asp'>新闻列表</a> | <a href='add.asp'>增加新闻</a></p>"
  164. Response.Write "<p align=center><b>" & str & "</b></p>"
  165. End Sub
  166. ' ============================================
  167. ' 每页底部内容
  168. ' ============================================
  169. Sub Footer()
  170. Call DBConnEnd()
  171. Response.Write "</BODY></HTML>"
  172. End Sub
  173. %>