开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
Cls_Public.asp
资源名称：haohj.rar　[点击查看]
上传用户：angela
上传日期：2022-05-11
资源大小：853k
文件大小：29k
源码类别：

外挂编程

开发平台：

ASP/ASPX

Cls_Public.asp：源码内容
  1. <%
  2. '=====================================================================
  3. ' 作者声明：转载请保留版权信息，鄙视不要脸的人
  4. '=====================================================================
  5. ' 程序名称：蓝宇网游发布系统
  6. ' 软件版本：Version 3.3.0 Sp1
  7. ' 程序作者：ジ蓝ゞ宇 QQ：18159079 
  8. '=====================================================================
  9. ' 联系方式：Tel：13203117383，QQ：18159079
  10. ' 程序开发：ジ蓝ゞ宇 QQ：18159079
  11. ' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  12. '=====================================================================
  13. ' Copyright 2004-2007 蓝宇 - QQ:18159079.
  14. '=====================================================================
  15. Class cls_TeGqMain
  16. Dim WebName, WebUrl, Renovates, Copyright, IndexGame, Webmaster , rs2
  17. Dim sfUlock, JzUlock, sfLook, mirsfID, mirsfday, sf_hot, sf_top
  18. Dim bg_1, bg_2, bg_3, bg_4, bg_1_1, bg_2_2, bg_3_3, bg_4_4, IsNews
  19. Dim sfhits, hottime_1, hottime_2, finePage, TabWidth,ShowHtml, ServerDir
  20. Dim MaxPerPage, AdminPage, ssign, WebKeywords, GetUserip, sfIsUlock, jzIsUlock
  21. Dim Indexsf1, Indexsf2, Indexsf3, Indexsf4, Indexsf5, SiteVersion
  22. '================================================
  23. '作  用：页面顶部
  24. '================================================
  25. Public Function Head()
  26. Response.Write "<html>" & vbCrLf
  27. Response.Write "<HEAD>" & vbCrLf
  28. Response.Write "<title>" & start & "," & webname & "</title>" & vbCrLf
  29. Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
  30. Response.Write "<META NAME =""keywords"" CONTENT=""" & WebKeywords & """>" & vbCrLf
  31. Response.Write "<META NAME=""description"" CONTENT=""" & Renovates & """>" & vbCrLf
  32. Response.Write "<META name=""AUTHOR"" content=""" & webname & """>" & vbCrLf
  33. Response.Write "<link rel='stylesheet' href='/images/style.css' type='text/css'>" & vbCrLf
  34. Response.Write "</HEAD>" & vbCrLf
  35. Response.Write "<BODY>" & vbCrLf
  36. %>
  37. <table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  38.   <tr>
  39.     <td height="47" colspan="3" background="/images/863sf_cn_r1_c1.gif">&nbsp;</td>
  40.   </tr>
  41.   <tr>
  42.     <td width="252" height="123" rowspan="2" background="/images/863sf_cn_r2_c1.gif"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="252" height="123">
  43.       <param name="movie" value="/images/top_12.swf" />
  44.       <param name="quality" value="high" />
  45.   <param name="wmode" value="transparent" />
  46.       <embed src="/images/top_12.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="252" height="123"></embed>
  47.     </object></td>
  48.     <td width="59" height="30"><img src="/images/863sf_cn_r2_c2.gif" width="75" height="30" /></td>
  49.     <td width="675" height="30" valign="bottom" background="/images/863sf_cn_r2_c3.gif"><table width="670" border="0" cellpadding="0" cellspacing="0">
  50.       <tr>
  51.         <td width="348" valign="bottom"><table border="0" cellspacing="0" cellpadding="2">
  52. <tr><form method=post action="/search.asp" target="_blank">
  53. <td align="center"><input type="text" name="key" class="Input1" onBlur="if (value ==''){value='请输入要搜索的私服'}" onmouseover=this.focus() onfocus=this.select() onClick="if(this.value=='请输入要搜索的私服')this.value=''" maxLength=18 size=25 value=请输入要搜索的私服></td>
  54. <td align="center">
  55. <SELECT name=otype type=radio >
  56.                                 <OPTION value=name selected class=Input1>服务器名</OPTION>
  57.                                 <OPTION  value=ip>服务器IP</OPTION>
  58.                                 <OPTION  value=sdate>开放时间</OPTION>
  59.                                 <OPTION value=QQ>客服QQ</OPTION>
  60.                                 <OPTION value=xingzhi>版本介绍</OPTION>
  61.                                 <OPTION value=homepage>官方网站</OPTION>
  62.                             </SELECT> </td>
  63. <td align="center" nowrap>
  64. <input name="image" type="image" src="/images/search.gif"  align="absmiddle" width="76" height="21"> </td>
  65. </form>
  66. </tr>
  67.   </table></td>
  68.         <td width="173" align="center"><a href="#" onclick="javascript:this.style.behavior='url(#default#homepage)';this.setHomePage(window.location.href);return false;">设置首页</a>　|　<a href="#" onclick="window.external.addFavorite(window.document.location.href,document.title);return false;">加入收藏</a>　</td>
  69.         <td width="149"></td>
  70.       </tr>
  71.     </table></td>
  72.   </tr>
  73.   <tr>
  74.     <td height="93" colspan="2" background="/images/863sf_cn_r3_c2.gif"><table width="100%" height="90" border="0" cellpadding="0" cellspacing="0">
  75.       <tr>
  76.         <td width="68%" align="center"><table width="470" border="0" cellpadding="0" cellspacing="0">
  77.           <tbody>
  78.             <tr>
  79.               <td class="M_Menu" align="middle" height="22"><span 
  80.                   class="STYLE11"><img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="<%=WebUrl%>"><strong>传奇私服</strong></a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="/jzindex.html" target="_blank">家族基地</a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="/jzadd.html" target="_blank">发布家族</a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="/Soft.html" target="_blank">外挂下载</a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="/add.html" target="_blank"><font color="#ffff00">发布游戏</font></a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> </span><font 
  81.                   color="#ffff00"><a href="/advertise.html" 
  82.                   target="_blank">广告价格</a></font></td>
  83.             </tr>
  84.             <tr>
  85.               <td background="/images/863sf_t1_c8.gif" height="2"></td>
  86.             </tr>
  87.             <tr>
  88.               <td class="M_Menu" align="middle" height="22"><span 
  89.                   class="STYLE11"><img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="mianze.htm" target="_blank">免责申明</a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="/sf.html" target="_blank">私服小偷</a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="http://www.863sf.com" target="_blank">免费电影</a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="http://image.baidu.com/i?ct=201326592&amp;cl=2&amp;lm=-1&amp;tn=baiduimage&amp;pv=&amp;word=非主流美女&amp;z=0" target="_blank">美女图片</a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="/Article.html" target="_blank">技术文章</a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> </span><a 
  90.                   href="/advertise.html" target="_blank"><font 
  91.                   color="#ffff00">宣传优势</font></a></td>
  92.             </tr>
  93.             <tr>
  94.               <td background="/images/863sf_t1_c8.gif" height="2"></td>
  95.             </tr>
  96.             <tr>
  97.               <td class="M_Menu" align="middle" height="22"><span 
  98.                   class="STYLE11"><img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="zhange.asp" target="_blank">家族战歌</a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="/link.asp" target="_blank">友情连接</a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="http://hi.baidu.com/hezeyu" target="_blank">阻业建站</a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="/more.asp" target="_blank">更多游戏</a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> <a href="http://www.haohj.com" target="_blank">好合击</a>　<img src="/images/863sf_cn_Index_010.gif" width="6" height="9" /> </span><a 
  99.                   href="/advertise.html" target="_blank"><font 
  100.                   color="#ffff00">宣传优势</font></a></td>
  101.             </tr>
  102.             <tr>
  103.               <td background="/images/863sf_t1_c8.gif" height="2"></td>
  104.             </tr>
  105.           </tbody>
  106.         </table></td>
  107.         <td width="32%" align="center"><img src="/ad/add.gif" width="200" height="80" /></td>
  108.       </tr>
  109.     </table></td>
  110.   </tr>
  111. </table>
  112. <table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  113.   <tr>
  114.     <td width="69"><img src="/images/863_top_r1_c1.gif" width="69" height="35" /></td>
  115.     <td width="653" background="/images/863_top_r1_c2.gif"><table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
  116.       <tr>
  117.         <td valign="middle" class="TopName"><font color=#ffff00><b> &nbsp;<%=IsNews%></b></font></td>
  118.       </tr>
  119.     </table></td>
  120.     <td width="95"><a href="/jzadd.html"><img src="/images/863_top_r1_c3.gif" alt="发布家族" width="95" height="35" border="0" /></a></td>
  121.     <td width="94"><a href="/add.html"><img src="/images/863_top_r1_c4.gif" alt="发布私服" width="94" height="35" border="0" /></a></td>
  122.     <td width="91"><a href="/advertise.html" target="_blank"><img src="/images/863_top_r1_c5.gif" alt="广告联系" width="91" height="35" border="0" /></a></td>
  123.   </tr>
  124. </table>
  125. <table width="1002" border="0" align="center"  cellpadding=0 cellspacing=0 class=tableBorder1>
  126.   <tr>
  127.     <td height="3" bgcolor="#FF0000" ></td>
  128.   </tr>
  129.   <tr>
  130.     <td valign="bottom" bgcolor="#FF0000" ><div align="center"><script src=/adfile/top.js></script></div></td>
  131.   </tr>
  132. </table>
  133. <SCRIPT language=javascript src="ads.js"></SCRIPT>
  134. <% End Function
  135. '================================================
  136. '作  用：页面低部
  137. '================================================
  138. Public Function Footer()
  139. %>
  140. <TABLE height=28 cellSpacing=2 cellPadding=0 width=1004 align=center 
  141. bgColor=#ff6666 border=0>
  142.   <TBODY>
  143.   <TR vAlign=center align=middle bgColor=#CC3300 height=24>
  144.     <%  Dim i,rs3
  145. sql="select * from Gq_menu where menupass=true and menufoot=true order by menuid asc"
  146. set rs3=server.createobject("adodb.recordset")
  147. rs3.open sql,conn,1,1
  148. i=0
  149. do while not rs3.eof
  150. if rs3("menuopen")=true then
  151. Response.Write "<TD><a class=NavT href='"&rs3("menuurl")&"' Title='"&rs3("menucontent")&"' target=_blank>"&rs3("menutitle")&"</a></TD> " & vbCrLf
  152. else
  153. Response.Write "<TD><a class=NavT href='"&rs3("menuurl")&"' Title='"&rs3("menucontent")&"'>"&rs3("menutitle")&"</a></TD> " & vbCrLf
  154. end if
  155. i=i+1
  156. if i>=10 then exit do
  157. rs3.movenext
  158. loop
  159. if rs3.eof and rs3.bof then
  160. end if
  161. rs3.close
  162. set rs3=nothing%></TR></TBODY></TABLE>
  163. <STYLE type=text/css>.style2 {
  164. COLOR: #ffffff
  165. }
  166. </STYLE>
  167. <table width="1004" border="0" align="center" cellpadding="0" cellspacing="0">
  168.           <tr>
  169.             <td height="121" background="/images/foot.gif"><table width="100%" height="121" border="0" cellpadding="0" cellspacing="0">
  170.               <tr>
  171.                 <td width="247" align="center">&nbsp;</td>
  172.                 <td width="757"><%=Copyright%></td>
  173.               </tr>
  174.             </table></td>
  175.           </tr>
  176.         </table>
  177. </BODY></HTML>
  178. <%End Function
  179. '================================================
  180. '作  用：防注入
  181. '================================================
  182. Public Function CheckInfuse(ByVal str, ByVal strLen)
  183. Dim strUnsafe, arrUnsafe
  184. Dim i
  185. If Trim(str) = "" Then
  186. CheckInfuse = ""
  187. Exit Function
  188. End If
  189. str = Left(str, strLen)
  190. On Error Resume Next
  191. strUnsafe = "'|^|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
  192. If Trim(str) <> "" Then
  193. If Len(str) > strLen Then
  194. Response.Write "<Script Language=JavaScript>alert('安全系统提示↓nn您提交的字符数超过了限制！');history.back(-1)</Script>"
  195. CheckInfuse = ""
  196. Response.End
  197. End If
  198. arrUnsafe = Split(strUnsafe, "|")
  199. For i = 0 To UBound(arrUnsafe)
  200. If InStr(1, str, arrUnsafe(i), 1) > 0 Then
  201. Response.Write "<Script Language=JavaScript>alert('安全系统提示↓nn请不要在参数中包含非法字符！');history.back(-1)</Script>"
  202. CheckInfuse = ""
  203. Response.End
  204. End If
  205. Next
  206. End If
  207. CheckInfuse = Trim(str)
  208. Exit Function
  209. If Err.Number <> 0 Then
  210. Err.Clear
  211. Response.Write "<Script Language=JavaScript>alert('安全系统提示↓nn请不要在参数中包含非法字符！');history.back(-1)</Script>"
  212. CheckInfuse = ""
  213. Response.End
  214. End If
  215. End Function
  216. Public Sub PreventInfuse()
  217. On Error Resume Next
  218. Dim SQL_Nonlicet, arrNonlicet
  219. Dim PostRefer, GetRefer, Sql_DATA
  220. SQL_Nonlicet = "'|;|^|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
  221. arrNonlicet = Split(SQL_Nonlicet, "|")
  222. If Request.Form <> "" Then
  223. For Each PostRefer In Request.Form
  224. For Sql_DATA = 0 To UBound(arrNonlicet)
  225. If InStr(1, Request.Form(PostRefer), arrNonlicet(Sql_DATA), 1) > 0 Then
  226. Response.Write "<Script Language=JavaScript>alert('安全系统提示↓nn请不要在参数中包含非法字符！');history.back(-1)</Script>"
  227. Response.End
  228. End If
  229. Next
  230. Next
  231. End If
  232. If Request.QueryString <> "" Then
  233. For Each GetRefer In Request.QueryString
  234. For Sql_DATA = 0 To UBound(arrNonlicet)
  235. If InStr(1, Request.QueryString(GetRefer), arrNonlicet(Sql_DATA), 1) > 0 Then
  236. Response.Write "<Script Language=JavaScript>alert('安全系统提示↓nn请不要在参数中包含非法字符！');history.back(-1)</Script>"
  237. Response.End
  238. End If
  239. Next
  240. Next
  241. End If
  242. End Sub
  243. '================================================
  244. '作  用：基本设置信息
  245. '================================================
  246. Public Function ReadConfig(ByVal SysID)
  247. Dim Rs, SQL
  248. On Error Resume Next
  249. Set Rs = Server.CreateObject("ADODB.Recordset")
  250. SQL = "SELECT * from Gq_Config Where ID=" & SysID
  251. Rs.Open SQL, Conn, 1, 1
  252. WebName = Rs("SiteName"): WebUrl = Rs("SiteUrl"): Renovates = Rs("Renovates"): Copyright = Rs("Copyright"): IndexGame = Rs("IndexGame")
  253. '               --------------------------------------------------------------------------------------------------------------------------------------------
  254. Webmaster = Rs("Webmaster"): sfUlock = Rs("sfUlock"): JzUlock = Rs("JzUlock"): sfLook = Rs("sfLook"): mirsfID = Rs("mirsfID")
  255. '               --------------------------------------------------------------------------------------------------------------------------------------------
  256. mirsfday = Rs("mirsfday"): sf_hot = Rs("sf_hot"): sf_top = Rs("sf_top"): bg_1 = Rs("bg_1"): bg_2 = Rs("bg_2"): bg_3 = Rs("bg_3")
  257. '               --------------------------------------------------------------------------------------------------------------------------------------------
  258. bg_4 = Rs("bg_4"): bg_1_1 = Rs("bg_1_1"): bg_2_2 = Rs("bg_2_2"): bg_3_3 = Rs("bg_3_3"): bg_4_4 = Rs("bg_4_4"): sfhits = Rs("sfhits")
  259. '               --------------------------------------------------------------------------------------------------------------------------------------------
  260. hottime_1 = Rs("hottime_1"): hottime_2 = Rs("hottime_2"): finePage = Rs("finePage"): MaxPerPage = Rs("MaxPerPage"): IsNews = Rs("IsNews")
  261. '               --------------------------------------------------------------------------------------------------------------------------------------------
  262. AdminPage = Rs("AdminPage"): ssign = Rs("ssign"): WebKeywords = Rs("WebKeywords"): TabWidth = Rs("TabWidth"): ShowHtml = Rs("ShowHtml")
  263. '               --------------------------------------------------------------------------------------------------------------------------------------------
  264. Indexsf1 = Rs("Indexsf1"): Indexsf2 = Rs("Indexsf2"): Indexsf3 = Rs("Indexsf3"): Indexsf4 = Rs("Indexsf4"): Indexsf5 = Rs("Indexsf5")
  265. GetUserip = CheckStr(getIP): ServerDir = "/": SiteVersion = Rs("SiteVersion")
  266. sfIsUlock=conn.execute("select count(*) from Gq_sfdata where ulock=0")(0)
  267. jzIsUlock=conn.execute("select count(*) from Gq_jzdata where ulock=0")(0)
  268. Sitesflook="go.htm?u=open.asp?action=go&"
  269. End Function
  270. Public Function ContentHtml(ByVal strRs)
  271. Dim strHtmlFine, strHtmlName
  272. strHtmlFine = year(strRs("Sdate")) & month(strRs("Sdate")) & day(strRs("Sdate"))
  273. strHtmlName = ServerDir & year(strRs("Sdate")) & month(strRs("Sdate")) & day(strRs("Sdate")) & strRs("ID")
  274. ContentHtml = strHtmlFine & strHtmlName
  275. End Function
  276. '================================================
  277. '作  用：相对路径转换为绝对路径
  278. '================================================
  279. Public Function ChkMapPath(ByVal strPath)
  280. On Error Resume Next
  281. Dim fullPath
  282. strPath = Replace(Replace(Trim(strPath), "//", "/"), "\", "")
  283. If strPath = "" Then strPath = "."
  284. If InStr(strPath,":") = 0 Then 
  285. fullPath = Server.MapPath(strPath)
  286. Else
  287. strPath = Replace(strPath,"/","")
  288. fullPath = Trim(strPath)
  289. If Right(fullPath, 1) = "" Then
  290. fullPath = Left(fullPath, Len(fullPath) - 1)
  291. End If
  292. End If
  293. ChkMapPath = fullPath
  294. End Function
  295. '================================================
  296. '作  用：计算天数
  297. '================================================
  298. Public Function Checkday(toptime,topday)
  299. If Not Isnull(toptime) Then
  300. If Cdate(toptime)+topday>=date Then
  301. Checkday=True
  302. Else
  303. Checkday=False
  304. End if
  305. Else
  306. Checkday=False
  307. End if
  308. End function
  309. '================================================
  310. '作  用：过滤字符
  311. '================================================
  312. Public Function CheckStr(ByVal str)
  313. If IsNull(str) Then
  314. CheckStr = ""
  315. Exit Function
  316. End If
  317. str = Replace(str, Chr(0), "")
  318. CheckStr = Replace(str, "'", "''")
  319. End Function
  320. Public Function CheckBadstr(str)
  321. If IsNull(str) Then
  322. CheckBadstr = vbNullString
  323. Exit Function
  324. End If
  325. str = Replace(str, Chr(0), vbNullString)
  326. str = Replace(str, Chr(34), vbNullString)
  327. str = Replace(str, "%", vbNullString)
  328. str = Replace(str, "@", vbNullString)
  329. str = Replace(str, "!", vbNullString)
  330. str = Replace(str, "^", vbNullString)
  331. str = Replace(str, "=", vbNullString)
  332. str = Replace(str, "--", vbNullString)
  333. str = Replace(str, "$", vbNullString)
  334. str = Replace(str, "'", vbNullString)
  335. str = Replace(str, ";", vbNullString)
  336. CheckBadstr = Trim(str)
  337. End Function
  338. Public Function ChkNumeric(ByVal CHECK_ID)
  339. If CHECK_ID <> "" And IsNumeric(CHECK_ID) Then
  340. CHECK_ID = CLng(CHECK_ID)
  341. If CHECK_ID < 0 Then CHECK_ID = 0
  342. Else
  343. CHECK_ID = 0
  344. End If
  345. ChkNumeric = CHECK_ID
  346. End Function
  347. '================================================
  348. '作  用：过滤表单字符
  349. '================================================
  350. Public Function ChkFormStr(ByVal str)
  351. Dim fString
  352. fString = str
  353. If IsNull(fString) Then
  354. ChkFormStr = ""
  355. Exit Function
  356. End If
  357. fString = Replace(fString, "'", "&#39;")
  358. fString = Replace(fString, Chr(34), "&quot;")
  359. fString = Replace(fString, Chr(13), "")
  360. fString = Replace(fString, Chr(10), "")
  361. fString = Replace(fString, Chr(9), "")
  362. fString = Replace(fString, ">", "&gt;")
  363. fString = Replace(fString, "<", "&lt;")
  364. fString = Replace(fString, "%", "％")
  365. ChkFormStr = Trim(JAPEncode(fString))
  366. End Function
  367. Public Function JAPEncode(ByVal str)
  368. Dim FobWords, i
  369. On Error Resume Next
  370. If IsNull(str) Or Trim(str) = "" Then
  371. JAPEncode = ""
  372. Exit Function
  373. End If
  374. FobWords = Array(92, 304, 305, 430, 431, 437, 438, 12460, 12461, 12462, 12463, 12464, 12465, 12466, 12467, 12468, 12469, 12470, 12471, 12472, 12473, 12474, 12475, 12476, 12477, 12478, 12479, 12480, 12481, 12482, 12483, 12485, 12486, 12487, 12488, 12489, 12490, 12496, 12497, 12498, 12499, 12500, 12501, 12502, 12503, 12504, 12505, 12506, 12507, 12508, 12509, 12510, 12521, 12532, 12533, 65340)
  375. For i = 1 To UBound(FobWords, 1)
  376. If InStr(str, ChrW(FobWords(i))) > 0 Then
  377. str = Replace(str, ChrW(FobWords(i)), "&#" & FobWords(i) & ";")
  378. End If
  379. Next
  380. JAPEncode = str
  381. End Function
  382. '================================================
  383. '作  用：判断连接是否来自外部
  384. '================================================
  385. Public Function CheckPost()
  386. On Error Resume Next
  387. Dim server_v1, server_v2
  388. CheckPost = False
  389. server_v1 = CStr(Request.ServerVariables("HTTP_REFERER"))
  390. server_v2 = CStr(Request.ServerVariables("SERVER_NAME"))
  391. If Mid(server_v1, 8, Len(server_v2)) = server_v2 Then
  392. CheckPost = True
  393. End If
  394. End Function
  395. '================================================
  396. '作  用：IP获取
  397. '================================================
  398. Public Function getIP() 
  399. Dim strIPAddr 
  400. If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Or InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then 
  401. strIPAddr = Request.ServerVariables("REMOTE_ADDR") 
  402. ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then 
  403. strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) 
  404. ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then 
  405. strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
  406. Else 
  407. strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
  408. End If 
  409. getIP = Replace(Trim(Mid(strIPAddr, 1, 30)), "'", "")
  410. End Function
  411. '===========================================
  412. '作  用：数据库连接
  413. '===========================================
  414. Public Function Execute(Command)
  415. If Not IsObject(conn) Then ConnectionDatabase
  416. On Error Resume Next
  417. Set Execute = conn.Execute(Command)
  418. If Err Then
  419. If IsDeBug = 1 Then
  420. Response.Write "你执行的语句是：" & Command
  421. Response.Write "<BR>错误信息为：" & Err.description
  422. Else
  423. Response.Write "查询数据的时候发现错误，请检查您的查询代码是否正确。"
  424. End If
  425. Err.Clear
  426. conn.close
  427. set conn=nothing
  428. Response.End
  429. End If
  430. End Function
  431. '===========================================
  432. '作  用：系统分配随机代码
  433. '===========================================
  434. Public Function GetRandomCode()
  435. Dim Ran, i, LengthNum
  436. LengthNum = 16
  437. GetRandomCode = ""
  438. For i = 1 To LengthNum
  439. Randomize
  440. Ran = CInt(Rnd * 2)
  441. Randomize
  442. If Ran = 0 Then
  443. Ran = CInt(Rnd * 25) + 97
  444. GetRandomCode = GetRandomCode & UCase(Chr(Ran))
  445. ElseIf Ran = 1 Then
  446. Ran = CInt(Rnd * 9)
  447. GetRandomCode = GetRandomCode & Ran
  448. ElseIf Ran = 2 Then
  449. Ran = CInt(Rnd * 25) + 97
  450. GetRandomCode = GetRandomCode & Chr(Ran)
  451. End If
  452. Next
  453. End Function
  454. '===========================================
  455. '作  用：通用分页
  456. '===========================================
  457. Public Function ShowListPage(CurrentPage,Pcount,totalrec,PageNum,strLink,ListName)
  458. With Response
  459. .Write "<script>"
  460. .Write "ShowListPage("
  461. .Write CurrentPage
  462. .Write ","
  463. .Write Pcount
  464. .Write ","
  465. .Write totalrec
  466. .Write ","
  467. .Write PageNum
  468. .Write ",'"
  469. .Write strLink
  470. .Write "','"
  471. .Write ListName
  472. .Write "');"
  473. .Write "</script>" & vbNewLine
  474. End With
  475. End Function
  476. '================================================
  477. '作  用：通用HTML分页
  478. '================================================
  479. Public Function ShowHtmlPage(CurrentPage,Pcount,totalrec,PageNum,strLink,ExtName,ListName)
  480. With Response
  481. .Write "<script>"
  482. .Write "ShowHtmlPage("
  483. .Write CurrentPage
  484. .Write ","
  485. .Write Pcount
  486. .Write ","
  487. .Write totalrec
  488. .Write ","
  489. .Write PageNum
  490. .Write ",'"
  491. .Write strLink
  492. .Write "','"
  493. .Write ExtName
  494. .Write "','"
  495. .Write ListName
  496. .Write "');"
  497. .Write "</script>" & vbNewLine
  498. End With
  499. End Function
  500. '===========================================
  501. '作  用：读取文件URL
  502. '===========================================
  503. Public Function ReadFileUrl(url)
  504. On Error Resume Next
  505. ReadFileUrl = ""
  506. If url = "" Then Exit Function
  507. Dim strTemp
  508. If CheckUrl(url) = 1 Then
  509. strTemp = Trim(url)
  510. ElseIf CheckUrl(url) = 2 Then
  511. strTemp = Trim(url)
  512. Else
  513. strTemp = Replace(url, "/", "")
  514. strTemp = Trim(ServerDir & strTemp)
  515. End If
  516. ReadFileUrl = strTemp
  517. End Function
  518. '================================================
  519. '作  用：读取文件内容
  520. '================================================
  521. Public Function Readfile(ByVal fromPath)
  522. On Error Resume Next
  523. Dim strTemp,fso,f
  524. If InStr(fromPath, ":") = 0 Then fromPath = Server.MapPath(fromPath)
  525. Set fso = Server.CreateObject(ServerObject(1))
  526. If fso.FileExists(fromPath) Then
  527. Set f = fso.OpenTextFile(fromPath, 1, True)
  528. strTemp = f.ReadAll
  529. f.Close
  530. Set f = Nothing
  531. End If
  532. Set fso = Nothing
  533. Readfile = strTemp
  534. If Err.Number <> 0 Then Err.Clear
  535. End Function
  536. '===========================================
  537. '作  用：创建文本文件
  538. '===========================================
  539. Public Function CreatedTextFile(ByVal fromPath, ByVal body)
  540. On Error Resume Next
  541. Dim fso,fff
  542. If InStr(fromPath, ":") = 0 Then fromPath = Server.MapPath(fromPath)
  543. Set fso = Server.CreateObject(ServerObject(1))
  544. Set fff = fso.OpenTextFile(fromPath, 2, True)
  545. fff.Write body
  546. fff.Close
  547. Set fff = Nothing
  548. Set fso = Nothing
  549. If Err.Number <> 0 Then Err.Clear
  550. End Function
  551. '===========================================
  552. '作  用：自动生成目录
  553. '===========================================
  554. Public Function CreatPathEx(ByVal sPath)
  555. sPath = Replace(sPath, "/", "")
  556. sPath = Replace(sPath, "\", "")
  557. On Error Resume Next
  558. Dim strHostPath,strPath
  559. Dim sPathItem,sTempPath
  560. Dim i,fso
  561. Set fso = Server.CreateObject(ServerObject(1))
  562. strHostPath = Server.MapPath("/")
  563. If InStr(sPath, ":") = 0 Then sPath = Server.MapPath(sPath)
  564. If fso.FolderExists(sPath) Or Len(sPath) < 3 Then
  565. CreationPath = True
  566. Exit Function
  567. End If
  568. strPath = Replace(sPath, strHostPath, vbNullString,1,-1,1)
  569. sPathItem = Split(strPath, "")
  570. If InStr(LCase(sPath), LCase(strHostPath)) = 0 Then
  571. sTempPath = sPathItem(0)
  572. Else
  573. sTempPath = strHostPath
  574. End If
  575. For i = 1 To UBound(sPathItem)
  576. If sPathItem(i) <> "" Then
  577. sTempPath = sTempPath & "" & sPathItem(i)
  578. If fso.FolderExists(sTempPath) = False Then
  579. fso.CreateFolder sTempPath
  580. End If
  581. End If
  582. Next
  583. Set fso = Nothing
  584. If Err.Number <> 0 Then Err.Clear
  585. CreatPathEx = True
  586. End Function
  587. '================================================
  588. '作  用：FSO删除文件
  589. '================================================
  590. Public Function FileDelete(ByVal FilePath)
  591. FileDelete = False
  592. On Error Resume Next
  593. Dim fso
  594. Set fso = Server.CreateObject(ServerObject(1))
  595. If FilePath = "" Then Exit Function
  596. If InStr(FilePath, ":") = 0 Then FilePath = Server.MapPath(FilePath)
  597. If fso.FileExists(FilePath) Then
  598. fso.DeleteFile FilePath, True
  599. FileDelete = True
  600. End If
  601. Set fso = Nothing
  602. If Err.Number <> 0 Then Err.Clear
  603. End Function
  604. '================================================
  605. '作  用：过滤HTML代码
  606. '================================================
  607. Public Function HTMLEncode(ByVal fString)
  608. If Not IsNull(fString) Then
  609. fString = Replace(fString, ">", "&gt;")
  610. fString = Replace(fString, "<", "&lt;")
  611. fString = Replace(fString, Chr(32), " ")
  612. fString = Replace(fString, Chr(9), " ")
  613. fString = Replace(fString, Chr(34), "&quot;")
  614. fString = Replace(fString, Chr(39), "&#39;")
  615. fString = Replace(fString, Chr(13), "")
  616. fString = Replace(fString, " ", "&nbsp;")
  617. fString = Replace(fString, Chr(10), "<br /> ")
  618. fString = ChkBadWords(fString)
  619. HTMLEncode = fString
  620. End If
  621. End Function
  622. '================================================
  623. '作  用：判断ID是否为整数
  624. '================================================
  625. Public Function IsInteger(Para)
  626. On Error Resume Next
  627. Dim str
  628. Dim l,i
  629. If isNUll(para) then 
  630. isInteger=false
  631. Exit Function
  632. End If
  633. str=Cstr(para)
  634. If trim(str)="" then
  635. IsInteger=false
  636. Exit Function
  637. End If
  638. l=len(str)
  639. For i=1 to l
  640. If mid(str,i,1)>"9" or mid(str,i,1)<"0" then
  641. isInteger=false 
  642. Exit Function
  643. End If
  644. Next
  645. isInteger=true
  646. If err.number<>0 then err.clear
  647. End Function
  648. '================================================
  649. '作  用：补足参数
  650. '================================================
  651. Public Function Supplemental(para, n)
  652. Supplemental = ""
  653. If Not IsNumeric(para) Then Exit Function
  654. If Len(para) < n Then
  655. Supplemental = String(n - Len(para), "0") & para
  656. Else
  657. Supplemental = para
  658. End If
  659. End Function
  660. Public Function OutputScript(str,url)
  661. Response.Write "<script language=JavaScript>" & vbCrLf
  662. Response.Write "alert('" & str & "');"
  663. Response.Write "location.replace('" & url & "')" & vbCrLf
  664. Response.Write "</script>" & vbCrLf
  665. Response.End
  666. End Function
  667. Public Function OutHintScript(str)
  668. Response.Write "<script language=JavaScript>" & vbCrLf
  669. Response.Write "alert('" & str & "');"
  670. Response.Write "location.replace('" & Request.ServerVariables("HTTP_REFERER") & "')" & vbCrLf
  671. Response.Write "</script>" & vbCrLf
  672. Response.End
  673. End Function
  674. Public Function OutAlertScript(str)
  675. Response.Write "<script language=javascript>" & vbcrlf
  676. Response.Write "alert('" & str & "');"
  677. Response.Write "history.back()" & vbcrlf
  678. Response.Write "</script>" & vbcrlf
  679. Response.End
  680. End Function
  681. End Class
  682. %>